Çoklu sütun formül kopyalama

[igultekin2000]

iyi akşamlar; tek sütunlu çalışmada formülü son dolu satır olarak yapabiliyorum, ancak çoklu sütun formül kopyalamada sorun yaşıyorum. Kullandığım formül

Sub formul_kopyala()
'urun_detay sayfası
    
    Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
    On Error Resume Next
    Application.EnableEvents = False
    
    Son = Evaluate("=LOOKUP(2,1/(a2:a1048576<>""""),ROW(a2:a1048576))")
    
    Range("j1").Copy
    Range("j2:j" & Son).PasteSpecial Paste:=xlFormulas

    Application.EnableEvents = False
    Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic

End Sub

bu formülü çoklu sütuna nasıl çevirebilirim, teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Sub Test()
    Son = Cells(Rows.Count, 1).End(3).Row
    Range("C3:C" & Son).FillDown
    Range("E3:F" & Son).FillDown
End Sub

 

[igultekin2000]

Deneyiniz.

Teşekkür ederim sorunsuz çalışıyor, iyi çalışmalar. Yanlış anlamadıysam

Son = Cells(Rows.Count, 1).End(3).Row

ilk sütunun son dolu hücresine göre ölçü alarak işlem yapıyor. Başka işlemlerimde de kullanabilirim.