Dolu satır sayısı kadar, dolu satırları kopyalama

[yst10]

Selamlar,
sayfa 1 de, 4 satır bilgi var, istediğim sayfa 2 deki satır grubunu
sayfa 1 deki satır sayısı kadar kopyalamak.
Açıklama ve örnek, ekli dosyada,
İlginize şimdiden teşekkürler.

 

[yst10]

İyi geceler,
Yardımcı olacak, en azından fikir verecek kimse yokmu?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub KOPYALA()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    ADET = S1.[A65536].End(3).Row - 1
    If ADET = 0 Then Exit Sub
    SATIR = S2.[A65536].End(3).Row
    For X = 1 To ADET - 1
    Rows("2:" & SATIR).Copy S2.[A65536].End(3).Offset(1)
    Next
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[yst10]

Selam hocam,
Hemen deniyorum.
Sevgiler.
Yavuz

 

[yst10]

Korhan hocam, sayfa 1 de ilk satır etiket.
Onu saymamak gerek, yani 5 değil 4 kez kopyalanmalı.
İyi geceler, emeğinize sağlık.
Yavuz

 

[yeniyetme]

For X = 1 To ADET BU SATIRI
For X = 1 To ADET - 1

OLARAK DÜZENLEYİN..

 

[yst10]

Sn. Korhan hocam ve S. Yeniyetme,
Her ikinize de teşekkür ederim. Sağolun.
Yavuz Tümer