Sayfalardaki kayıtları birleştirme ?

[Gorarr]

Selamlar, yapmaya çalıştığım olay şöyle ;

Safya1 ve 2 de B ce C sütununda kayıtlar var. Bu kayıtları Aynı sayfada yine B ve C sütununa gelecek şekilde kayıtın bittiği yerin altına kopyalamam gerekiyor. (Çok kayıt var ve VBA ile belli aralarla yapmam gerekiyor o yüzden böyle birşeye ihtiyacım oldu)

Yardımlarınız için şimdiden teşekkürler...

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Sub Kopyala()
 
    Dim sonA As Long, sonB As Long, S2 As Worksheet
    
    Set S2 = Sheets("Sayfa2")
    
    sonA = Cells(Rows.Count, "B").End(xlUp).Row
    
    sonB = S2.Cells(Rows.Count, "B").End(xlUp).Row + 1
    
    Range("B1:C" & sonA).Copy S2.Range("B" & sonB)
    
End Sub

.

 

[Gorarr]

Hocam çok teşekkür ederim. Ellerinize sağlık. Saygılar selamlar...