Başka sheete deki alana copy paste

[haso_excel]

Merhaba arkadaşlar

Bir excel sayfasının d10 ve f34 hücrelerindeki verileri bir butona basmak sureti ile verilen adındaki sheete A kolununa d10, B kolonunada f34 deki değerleri en son satıra yazacak şekilde bir koda ihtiyacım.
Dosyam ekde rica etsem yardımcı olabilir misiniz?

 

[Necdet]

Merhaba,

Aşağıdaki kodları kullanabilirsiniz.

Sub AktarYaz()
    
    Dim LSat    As Long, _
        ShV     As Worksheet
        
    Set ShV = Sheets("VERILEN")
    
    LSat = ShV.Cells(Rows.Count, "A").End(3).Row + 1
    ShV.Cells(LSat, "A") = Range("D10")
    ShV.Cells(LSat, "B") = Range("F34")
    
End Sub

 

[haso_excel]

Teşekkür ederim işlem tamam. Elinize sağlık