A sütünu değişince makro çalışsın

[ikikan]

Arkadaşlar bu neden hata veriyor ?
Yapmak istediğim A sütunundaki herhangibir hücre değişince makronun çalışması .

Private Sub Worksheet_Change(ByVal Target As Range)
Dim veri
Set shf1 = Sheets("cari")
veri = shf1.Cells(Rows.Count, "A").End(3).Row
shf1.Cells(3, 3).Value = veri
Static deger
If deger <> emtpy Then
If deger <> shf1.Cells(veri, 1).Value Then Call etopla1
End If
deger = shf1.Cells(veri, 1)
On Error Resume Next
If Intersect(Target, [E1]) Is Nothing Then Exit Sub
Call etopla1
End Sub

 

[ikikan]

Arkadaşlar su kod ile hallettim

If Intersect(Target, Range("A6:A600")) Is Nothing Then Exit Sub
Call etopla1