Private Sub Worksheet_Change

[Gokhan78]

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

[erseldemirel]

Şunu deneyin

Kod: Tümünü seç

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [F7]) Is Nothing Then Exit Sub
    
    If IsEmpty([F7].Value) Then
        Run "Makro1"
    Else
        Run "Makro2"
    End If
End Sub

[Gokhan78]

Ersel Bey Problem çözüldü çok teşekkür ederim.

[erseldemirel]

Rica ederim kolay gelsin