Belirtilen Koşula Göre Kopyalama

[baysevimli]

Arkadaşlar Merhaba,

Ekte örnek excel çalışma dosyam var. Bu dosyamda "Tam Liste" ve "Sıralı Liste" isimli iki sheet'im var. "Tam Liste" sheetimde Teklif No, Konu ve Açıklama kısımlarını ben manuel dolduruyorum. Bu datam gün geçtikçe büyüyor. İstediğim şu; "Tam Liste Sheetinde "F"sütununa yazdığım teklif numaralarına ait olan Teklif No, Konu ve Açıklama kısımlarını "Sıralı Liste" kısmına kopyalayacak.
Yardımlarınız için teşekkür ederim.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub teklif()
Set s1 = Sheets("Tam Liste")
Set s2 = Sheets("Sıralı Liste")

son1 = WorksheetFunction.Max(3, s1.Cells(Rows.Count, "B").End(3).Row)
son2 = WorksheetFunction.Max(3, s1.Cells(Rows.Count, "F").End(3).Row)

For i = 3 To son2
    For j = 3 To son1
        If s1.Cells(j, "B") = s1.Cells(i, "F") Then
            yeni = s2.Cells(Rows.Count, "B").End(3).Row + 1
            s2.Cells(yeni, "A") = s1.Cells(j, "A")
            s2.Cells(yeni, "B") = s1.Cells(j, "B")
            s2.Cells(yeni, "C") = s1.Cells(j, "C")
            s2.Cells(yeni, "D") = s1.Cells(j, "D")
        End If
    Next
Next

End Sub

 

[baysevimli]

Yusuf bey çalışıyor teşekkür ederim.