Koşullu sayfa kopyalama.

[s.savas]

Merhaba arkadaşlar.
Aşağıdaki makro ile istenen kopyala-yapıştır işlemi yapılabiliyor, fakat kopyala-yapıştır olacak verilerin başlangıç ve bitiş adresini ben tanımlamak istemiyorum.
Ekteki belgede Sayfa3 de içerisinde veri olan satır ve sütunları makro seçip kopyalasın ve hedefe (Sayfa1) 23.satırdan itibaren satır ekleyerek yapıştırsın istiyorum.

Sub Kopyala()
    Set s1 = Sheets("Sayfa3")
    Set s2 = Sheets("Sayfa1")
        s1.[A3:D12].Copy
        s2.[A23:D32].PasteSpecial
        Application.CutCopyMode = 0
     Set s1 = Nothing
     Set s2 = Nothing
End Sub

 

[Ömer]

Merhaba,

Bu şekilde olabilir.

Sub Kopyala()
    Set s1 = Sheets("Sayfa3")
    Set s2 = Sheets("Sayfa1")
    s1.Range("A23:E65536").ClearContents
    son = s1.Cells(Rows.Count, "B").End(xlUp).Row
        s1.Range("A3:D" & son).Copy
        s2.[A23].PasteSpecial
        s2.Range("A" & son + 23) = "'----------------------"
     Application.CutCopyMode = 0
     Set s1 = Nothing
     Set s2 = Nothing
End Sub

.

 

[s.savas]

Teşekkürler ömer hocam.
Mantık itibari ile istediğimizi karşılıyor. Müsade ederseniz biraz rötüş yapacağım.