Ödeme yapmayanların cari bilgilerini getirme

[kemal turan]

Merhaba ustadlar,
Yaklaşık 15.000 satır olan bir cari tablomuzda ödenecek ay itibarı ile ödeme yapmayanların bilgilerine ihtiyacım var.Ek dosyada geniş açıklmasını yaptım.
İlginiz için şimdiden teşekkür ederim.

 

[numan şamil]

Aşağıdaki kodları denermisiniz

Sub numan()
Set s2 = Sheets("ÖDEME KONTROL")
Set s1 = Sheets("CARİ")
s2.[a2:h65536].ClearContents
satır = 2
For k = 2 To s1.[e65536].End(3).Row
If s2.[j2] > s1.Range("e" & k).Value And s1.Range("g" & k).Value = "" Then
s1.Range("A" & k & ":H" & k).Copy Destination:=s2.Range("a" & satır)
satır = satır + 1
End If
Next k
End Sub

 

[kemal turan]

Sn.Numan bey,
İlginize, emeğinize sağlık.
İşiniz rast gitsin.
Selametle kalın

 

[numan şamil]

Sn.Numan bey,
İlginize, emeğinize sağlık.
İşiniz rast gitsin.
Selametle kalın

Kolay gelsin