Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: drejan62 - 07 Aralık 2010, 16:24:18

Başlık: [Çözüldü] Sayfa karşılaştırma
Gönderen: drejan62 - 07 Aralık 2010, 16:24:18

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.]

Başlık: Ynt: Sayfa karşılaştırma
Gönderen: Rami - 08 Aralık 2010, 00:19:30

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

Başlık: Ynt: Sayfa karşılaştırma
Gönderen: drejan62 - 08 Aralık 2010, 09:37:59

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

Başlık: Ynt: Sayfa karşılaştırma
Gönderen: Rami - 08 Aralık 2010, 12:09:15

Alıntı yapılan: drejan62 - 08 Aralık 2010, 09:37:59

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

Rica ederim. Kolay gelsin.