Soru Makro ile Çalışma Dosyalarını Karşılaştırıp Farkı Kadar Satır Ekleme

[Hattushil]

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

Sub SatırEkle()
'
' SatırEkle Makro
'

'
    Rows("2:5").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub