Son dolu satıra kadar kopyala

[ziya]

Merhaba,
W2 hücresine

=D2&" "&E2

formülünü yaz ve "son dolu satıra kadar" kopyala.
Beceremedim, yardım rica ediyorum.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Write_Formula()
    Dim Last_Row As Long
    
    Last_Row = Cells(Rows.Count, "D").End(3).Row
    
    With Range("W2:W" & Last_Row)
        .Formula = "=D2&"" ""&E2"
    End With
End Sub

 

[ziya]

Her zaman olduğu gibi KORHAN Hocam.
Teşekkür ederim.