[Çözüldü] Sayfa karşılaştırma

[drejan62]

Merhabalar,
Sayfa1 de ve Sayfa 2 de verilerim var.
Sayfa1 A sütununda tarih C sütununda ise no. var.
yapmak istediğim Sayfa1 a sütunundaki tarihi sayfa2 C sütununda arayacak aynı tarih var ise bu defa Sayfa1 deki C sütununda bulunan noyu Sayfa2 D sütununda arıyacak bulursa Sayfa1 deki satırı listi isimle sayfaya aktaracak.
örnek:
Sayfa1 A8 hücresinde 21.05.2010 tarihi var bu değeri Sayfa2 C sütunuda aradı ve aynı tarihli hücrelerin olduğu görüldü bu defa Sayfa1 C8 hücresinde F00110 değerini sayfa2 D sütununda arayacak bulduğunda Sayfa1 deki 8. satırı kompla liste sayfasına kopyalayacak.
Örnek dosya ekledim.
Teşekkür ederim.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Rami]

Merhaba.

Örnek dosyanıza göre:
"Sayfa1"'e  buton ekleyip; aşağıdaki kodları deneyebilirsiniz.

Kod: [Seç]

Private Sub CommandButton1_Click()
Sheets("liste").[a2:s65500].Clear
For a = 8 To Cells(65500, 1).End(xlUp).Row
b = Cells(a, 1) & Cells(a, 3)
For c = 8 To Sheets("Sayfa2").Cells(65500, 1).End(xlUp).Row
If b = Sheets("Sayfa2").Cells(c, 3) & Sheets("Sayfa2").Cells(c, 4) Then
d = Sheets("liste").Cells(65500, 1).End(xlUp).Row
Sheets("liste").Rows(d + 1).Value = Sheets("Sayfa1").Rows(a).Value
End If
Next
Next
End Sub

[drejan62]

Kamil bey çok teşekkür ederim, harika olmuş.
Sağolun

[Rami]

Kamil bey çok teşekkür ederim, harika olmuş.
Sağolun

Rica ederim. Kolay gelsin.