Makro sayfadan sayfaya veri çekme

[zozotr]

Değerli üstadlarım hepinize iyi akşamlar dilerim.
Makro ile sayfadan sayfaya veri çekmek istiyorum.

Örnek dosya ekledim.
Liste ve Rapor sayfaları var.

Dosyanın içine açıklama yazdım.
İlgilenir ve yardımcı olursanız çok mutlu olurum.

Şimdiden teşekkürler.

 

[dEdE]

Dener misiniz?

Sub Test()
Set s1 = Sheets("LİSTE")
Set s2 = Sheets("RAPOR")

s2.Range("D5:D" & s2.Cells(Rows.Count, "D").End(3).Row).ClearContents
s2.Range("B5:B" & s2.Cells(Rows.Count, "B").End(3).Row).ClearContents

For i = 4 To s1.Cells(Rows.Count, "L").End(3).Row
    If s2.Range("G1") = s1.Cells(i, 12) Then
        ss1 = s2.Cells(Rows.Count, "B").End(3).Row + 1
        s2.Range("B" & ss1) = s1.Cells(i, 6).Value
    End If
    
    If s2.Range("G1") = s1.Cells(i, 13) Then
        ss2 = s2.Cells(Rows.Count, "D").End(3).Row + 1
        s2.Range("D" & ss2) = s1.Cells(i, 6).Value
    End If
Next i
End Sub

 

[zozotr]

Sayın Dede teşekkür ederim. Kod çalışıyor. Ellerinize sağlık. Sadece bir iki ufak ayrıntı var.
Kendim yaomaya çalışacağım. Yapamazsam sizden rica da bulunurum.
İyi günler dileklerimle.