Hücre silindiğinde makronun çalışmaması

[mustafayılmaz]

Private Sub MUSTAFA1()
Dim r As Integer
r = ActiveCell.Row
r = r - 1
On Error Resume Next
Dim SONUC2 As Integer
mr = Cells(r, 4)
If mr + 1 = "" Then Exit Sub
If mr.ClearContents Then Exit Sub
If mr - 1 > "*" Then
Worksheets("veri").Activate
End If
Set FC2 = Sheets(veri).Range("d2:d65000").Find(What:=SONUC2)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=4, Criteria1:="*" & Cells(r, 4) & "*"
End Sub
cells(r,4) sildiğimde makro çalışıyor
hücre silindiğinde makro çalışmasın sadece değer girdiğimde enterlediğimde çalışsın

 

[dEdE]

Merhaba,
Makronuzu sayfanın koduna yazdığınızı varsayarak; makronuzun ilk üç satırını aşağıdaki şekilde değiştirmeniz yeterlidir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [R4]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub

 

[mustafayılmaz]

sayın dEdE teşekkürler yardımlarınızı bekliyorum

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:B1000,D31000,I:R]) Is Nothing Then Exit Sub
If Target.Column = 2 Then MUSTAFA
If Target.Column = 4 Then MUSTAFA1
If Intersect(Target, [I:R]) Is Nothing Then Exit Sub
GÖRECELİ
End Sub
makroyu bu şekilde çalıştırıyorum
hücredeki değeri sildiğimde veri sayfasında arama yapıyor
ben yapmamsını istiyorum
birde veri sayfasından veri aktardığımda mustafa makrosu çalışıyor
çalışmamasını istiyorum

 

[mustafayılmaz]

Sayın hocalarım

Lütfen bakarmısınız

 

[dEdE]

Sayın Yılmaz,

cells(r,4) sildiğimde makro çalışıyor
hücre silindiğinde makro çalışmasın sadece değer girdiğimde enterlediğimde çalışsın

demiştiniz. Yukarıdaki kod bunu sağlıyor.
Şimdi ise

hücredeki değeri sildiğimde veri sayfasında arama yapıyor
ben yapmamsını istiyorum birde veri sayfasından veri aktardığımda mustafa makrosu çalışıyor çalışmamasını istiyorum

diyorsunuz.
hücredeki değeri sildiğimde --> hangi hücredeki?
veri sayfasında arama yapıyor--> verdiğiniz kodlarda aramaya ilişkin kod yok.Arama yapan modül hangisi bilmek mümkün değil.
En iyisi sorunuzu örnek dosya ile desteklemeniz. Bu durumda daha çabuk ve daha profesyonel cevaplar alacağınızdan eminim.

Saygılar.