Soru Private Sub Worksheet_Change

Katılım
10 Temmuz 2024
Mesajlar
2
Excel Vers. ve Dili
Office 365
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

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,138
Excel Vers. ve Dili
Excel-2003 Türkçe
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.
 
Üst