formül kopyalama

[igultekin2000]

iyi akşamlar;
ilk satıra formül yazıp alt satırlara kopyalama kullandığım

Sub tablo_formul()
    On Error Resume Next
   
    Application.EnableEvents = False
    son_satir = Sheets("tablo").Range("B65530").End(3).Row 'veri girilince formül tetiklenir
    Sheets("tablo").Range("J4:L4").AutoFill Destination:=Sheets("tablo").Range("J4:L" & son_satir) 'formülün kopyalanacağı satırlar
    
        Application.EnableEvents = True

End Sub

makrosu var. zaman zaman sorunlar yaşıyorum. Buradaki sorunum. L sütunda formülün son satıra kadar uygulanması, J4'te olan formül aşağıda sorunsuz kopyalıyor ama L sütunu üst satırlara doğruda kopyaladığından sorun oluyor. L' ninde 4.cü satırdan itibaren aşağı (aradaki sütünlarında ) kopyalaması için ne yapmam gerekir.

 

[esalci]

 Sub tablo_formul()

    On Error Resume Next
    Application.EnableEvents = False
    
    Range("J4:L4").Copy
    Range("J5:L65530").PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    Application.EnableEvents = False

End Sub

 

[igultekin2000]

sorunsuz çalışıyor

 Sub tablo_formul()

    On Error Resume Next
    Application.EnableEvents = False
    
    Range("J4:L4").Copy
    Range("J5:L65530").PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    Application.EnableEvents = False

End Sub

teşekkürler, formül sorunsuz çalıştı, formülün kopyalandığı başlangıç satırı seçili kalıyor. range("m3").select dememe rağmen formüllü hücrelerin seçili kalması değişmedi.

 

[esalci]

Edit:
End Sub dan hemen önceki satıra bunu ekleyebilirsin. Esc ye basmış gibi olur.
Application.CutCopyMode = False