Çoklu sütun formül kopyalama

Katılım
5 Eylül 2007
Mesajlar
1,247
Excel Vers. ve Dili
ofis 2010
Altın Üyelik Bitiş Tarihi
21-07-2024
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
Kod:
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
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,269
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

Kod:
Sub Test()
    Son = Cells(Rows.Count, 1).End(3).Row
    Range("C3:C" & Son).FillDown
    Range("E3:F" & Son).FillDown
End Sub
 
Katılım
5 Eylül 2007
Mesajlar
1,247
Excel Vers. ve Dili
ofis 2010
Altın Üyelik Bitiş Tarihi
21-07-2024
Deneyiniz.

Teşekkür ederim sorunsuz çalışıyor, iyi çalışmalar. Yanlış anlamadıysam
Kod:
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.
 
Üst