Hattushil
Altın Üye
- Katılım
- 20 Şubat 2011
- Mesajlar
- 98
- Excel Vers. ve Dili
- Office 365 Türkçe
- Altın Üyelik Bitiş Tarihi
- 23-03-2028
Makro ile Çalışma Dosyalarını Karşılaştırıp Farkı Kadar Satır Ekleme
Başlıkta da belirtiğim gibi çalışma dosyama makro ile satır ekliyorum.
Çalışma dosyam dışında farklı birimden gelen A sütunundaki değer 37800 gibi sayılardan oluşan dosyam var.
İstediğim, çalışma dosyamdaki a sütunundaki talep numarası ile farklı birimden gelen çalışma dosyasının a sütunundaki talep numarasını karşılaştırıp farkı kadar satır eklemek.
Bunu nasıl yapabilirim?
Örnek;
1 nolu dosyadaki a sütunundaki talep no 37150 diyelim
2 nolu dosyadaki a sütunundaki talep no 37175 diyelim
Bu iki sütunu karşılaştıracak ve farkı kadar 1 nolu dosyaya satır ekleyecek. (37175 - 37150 = 25 satır ekleyecek)
Aşağıdaki ekran görüntüsündeki gibi 2. satırın A sütundaki nolar (37379 - 37349 = 30 satır ekleyecek ve Kitap1 dosyasındaki aynı başlıklı yerlere kopyalayacak.
Örnek: Kitap1 dosyasındaki F (Talep Tarihi) sütunundan Değerlendirme v1.5 dosyasındaki D (Talep Tarihi) sütununa.
değerlendirme.png - 57 KB
Başlıkta da belirtiğim gibi çalışma dosyama makro ile satır ekliyorum.
Çalışma dosyam dışında farklı birimden gelen A sütunundaki değer 37800 gibi sayılardan oluşan dosyam var.
İstediğim, çalışma dosyamdaki a sütunundaki talep numarası ile farklı birimden gelen çalışma dosyasının a sütunundaki talep numarasını karşılaştırıp farkı kadar satır eklemek.
Bunu nasıl yapabilirim?
Örnek;
1 nolu dosyadaki a sütunundaki talep no 37150 diyelim
2 nolu dosyadaki a sütunundaki talep no 37175 diyelim
Bu iki sütunu karşılaştıracak ve farkı kadar 1 nolu dosyaya satır ekleyecek. (37175 - 37150 = 25 satır ekleyecek)
Aşağıdaki ekran görüntüsündeki gibi 2. satırın A sütundaki nolar (37379 - 37349 = 30 satır ekleyecek ve Kitap1 dosyasındaki aynı başlıklı yerlere kopyalayacak.
Örnek: Kitap1 dosyasındaki F (Talep Tarihi) sütunundan Değerlendirme v1.5 dosyasındaki D (Talep Tarihi) sütununa.
değerlendirme.png - 57 KB
Kod:
Sub SatırEkle()
'
' SatırEkle Makro
'
'
Rows("2:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub