- 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
bu formülü çoklu sütuna nasıl çevirebilirim, teşekkürler
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
Ekli dosyalar
-
92.2 KB Görüntüleme: 9
-
155 KB Görüntüleme: 9