Soru Private Sub Worksheet_Change

[Gokhan_78]

Selamlar aşağıdaki kodla "F7" hücresi değiştiğinde Teklif adlı makroyu çalıştırıyorum.

Benim isteğim buna ilave olarak "F7" hücresi silindiğinde Temizle makrosu çalışsın.

Özetlemek gerekirse "F7" hücresi silindiğinde "TEMİZLE" Makrosu "F7" hücresine başka bir değer atandığında "TEKLİF" makrosu çalışması. Kodlar aşağıdaki gibidir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F7]) Is Nothing Then Exit Sub
Call TEKLİF

End Sub

Yardımınızı rica ederim

 

[muygun]

Merhaba;

Private Sub Worksheet_Change(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If sat = 7 And süt = 6 And Cells(sat, süt) = "" Then
Call Temizle
End If

If sat = 7 And süt = 6 And Cells(sat, süt) <> "" Then
Call Temizle
Call TEKLİF
End If
End Sub

Sub TEKLİF()
MsgBox ("Teklif makrosu çalıştı")
End Sub

Sub Temizle()
MsgBox ("Temizle makrosu çalıştı")
End Sub

Şeklinde deneyin.
Not: Msgbox ları kaldırabilirsiniz.
İyi çalışmalar.

 

[Gokhan_78]

Teşekkürler problem çözüldü