Son hücreyi bulma

[recepkull]

Arkadaşlar aşağıdaki kodda G sütunundaki son dolu hücrenin bir altını bulup G12:AT12 hücre aralığını yazdırmak istedim ancak kod istediğim gibi çalışmadı.
G sütununun son dolu hücrenin bir altını buluyor ama sadece G12 hücresindeki veriyi yazdırıyor. Bu konuda yardımınızı bekliyorum.

Range("G" & [G1000].End(3).Row + 1).Value = Range("G12:AT12").Value

 

[Muzaffer Ali]

Merhaba.
Deneyin.

Range("G12:AT12").copy Range("G" & [G1000].End(3).Row + 1)

 

[recepkull]

Kopyalamadan yapamıyor muyuz hocam ?

 

[Muzaffer Ali]

Şöyle de olur.

Dim Say As Long
Say = [G1000].End(3).Row + 1
Range("G" & Say & ":AT" & Say).Value = Range("G12:AT12").Value

 

[Korhan Ayhan]

Bu da olabilir;

Option Explicit

Sub Test()
    Cells(Rows.Count, "G").End(3)(2, 1).Resize(1, 40).Value = Range("G12:AT12").Value
End Sub

 

[recepkull]

Çok teşekkür ederim iki kodda istediğim gibi çalışıyor.