Hedeflenen Hücrelere Diğer Sayfadan Veri Almak

[1Al2Ver]

Merhaba,

Aşağıdaki kod ile ; "RAPOR_BUAY" isimli sayfada, "A" sütununda, son dolu hücreyi bulup 5 satır ekletiyorum,

Sub Sonsatıra_BeşSatır_Ekle()
    boş_satır = Range("A" & Rows.Count).End(xlUp).Row + 5
    For i = 1 To boş_satır
    Range("A" & i).Select
    Next i
End Sub

İsteğim, ilk bulunan boş hücre ile aşağısındaki 2 hücreye (örnekte ; "A17:A19") , "YETKİLİLER" sayfasındaki "H2:H4" aralığını almak,

Ek'li dosyada da örnekledim,

Teşekkür ederim

 

[bmutlu966]

Sadece aşağıdaki kodu kullanmanız yeterli.

Sub Ekle()
  
Sheets("YETKİLİLER").Range("H2:H4").Copy Range("A" & [A65000].End(3).Row + 5)

End Sub

 

[1Al2Ver]

Sayın bmutlu966 merhaba,

İlginiz ve çözüm için teşekkür ederim, sağ olun.

Saygılarımla.