Her hücre değiştiğinde otomatik macro çalışması

[Talha1616]

Merhaba,


Sub GUNCEL_DEGER()

' GUNCEL_DEGER Macro
'
' Keyboard Shortcut: Ctrl+J
'
Range("F10").Select
ActiveWorkbook.Save
Sheets("Sheet4").Select
Range("Table3__2[[#Headers],[Column1]]").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("G6").Select
End Sub

Bu macronun ctrl+j yerine hücrelerim değiştikçe otomatik macroyu çalıştırmasını istiyorum nasıl yazabilirim?

 

[ÖmerFaruk]

Sayfanızın kod sayfasına ilave edip düzenlemelisiniz.
Tablonuzun A1 den itibaren başladığını düşündüm.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1").CurrentRegion) Is Nothing Then
    Application.EnableEvents = False 'ihtiyaç olursa kullanırsınız
    YazdıgınızMakro
    Application.EnableEvents = True
End If
End Sub

Sub YazdıgınızMakro()
'....
'Kodlarınız
'.......
End Sub

 

[Talha1616]

Ömer Bey dönüşünüz için çok teşekkürler.