İki sayfayı karşılaştırıp sütunlara veri yazdırmak

[Korhan Ayhan]

Selamlar,

Arkadaşlar ekteki dosyamda bir döngü kullanıyorum fakat bir yerde hata yapıyorum ama işin içinden çıkamadım.

Döngüdeki amaç VADELER sayfasında B sütununda yazan günleri DATA sayfasında ilgili firmanın karşındaki F sütununa yazdırmak ve G sütununada DATA sayfasındaki B sütunundaki tarihe F sütununda yazdırılan günü ekletmek.

Dosya içerisinde detaylı açıklamayı yaptım.

 

[veyselemre]

[vb:1:fa43dfda24]Sub VADE_YENİLE()
Set sv = Sheets("VADELER")
Set sd = Sheets("DATA")
sd.Select
Range("F2:G65536").ClearContents

For Y = 2 To sv.[A65536].End(3).Row
For X = 2 To [A65536].End(3).Row
If Cells(X, 1) = sv.Cells(Y, 1) Then Cells(X, "F") = sv.Cells(Y, 2)
Next X
Next Y

For X = 2 To [A65536].End(3).Row
If Cells(X, "F") = "PEŞİN" Then
Cells(X, "G") = Cells(X, "B")
Else
Cells(X, "G") = Cells(X, "B") + Cells(X, "F")
End If
Next X
End Sub[/vb:1:fa43dfda24]

 

[Korhan Ayhan]

Selamlar,

Sn. veyselemre elinize sağlık çok teşekkür ederim. :arkadas: