Çözüldü farklı sayfalardaki bir sütunu, başka bir sayfaya boşluksuz altalta yazma

[ssert75]

Merhaba forum arkadaşlarım.
Ekte gönderdiğim dosyadaki DHL, CRR, KHD sayfalarındaki B sütununda yer alan değişebilen sayılarda verileri yine aynı dosyada yer alan SABLON sayfasında gösterdiğim gibi A2'den başlayarak boşluksuz olarak yazmak istiyorum. Kendim forumdaki benzer örneklerden dolaylı formülü veya makrolar ile yapmaya çalıştım ama beceremedim. Bu konuda yardımlarınızı rica ediyorum. Herkese sağlıklı günler.

 

[burcin_end_muh]

Farklı sayfalarda aynı verilerin olma ihtimali var mı?

 

[veyselemre]

Sub verileriGetir()
    
    Sheets("Sablon").Range("A2:A" & Rows.Count).ClearContents
    
    For Each sh In Sheets(Array("DHL", "CRR", "KHD"))
        sh.Range("B2:B" & sh.Cells(Rows.Count, 2).End(3).Row).Copy
        Sheets("Sablon").Cells(Rows.Count, 1).End(3).Offset(1).PasteSpecial xlValues
    Next sh

    MsgBox "İşleminiz Tamamlandı ...", vbInformation, "Veysel EMRE"
End Sub

 

[ssert75]

Farklı sayfalarda aynı verilerin olma ihtimali var mı?

sayfalarda aynı veriler yok sayın burcin_end_muh

 

[ssert75]

Sub verileriGetir()
   
    Sheets("Sablon").Range("A2:A" & Rows.Count).ClearContents
   
    For Each sh In Sheets(Array("DHL", "CRR", "KHD"))
        sh.Range("B2:B" & sh.Cells(Rows.Count, 2).End(3).Row).Copy
        Sheets("Sablon").Cells(Rows.Count, 1).End(3).Offset(1).PasteSpecial xlValues
    Next sh

    MsgBox "İşleminiz Tamamlandı ...", vbInformation, "Veysel EMRE"
End Sub

Sayın veyselemre kodu denedim, çalışıyor, istediğim gibi olmuş. zihninize sağlık, teşekkürler.