Private Sub Worksheet_Change

Cevapla
Gokhan78
Mesajlar: 5
Kayıt: Sal Mar 12, 2024 7:17 pm
Lokasyon: Malta
Meslek: İdari İşler Uzmanı
Adınız: Gökhan
Soyadınız: Katran

Private Sub Worksheet_Change

Mesaj gönderen 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
Mesajlar: 100
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: Private Sub Worksheet_Change

Mesaj gönderen 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
Mesajlar: 5
Kayıt: Sal Mar 12, 2024 7:17 pm
Lokasyon: Malta
Meslek: İdari İşler Uzmanı
Adınız: Gökhan
Soyadınız: Katran

Re: Private Sub Worksheet_Change

Mesaj gönderen Gokhan78 »

Ersel Bey Problem çözüldü çok teşekkür ederim.
erseldemirel
Mesajlar: 100
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: Private Sub Worksheet_Change

Mesaj gönderen erseldemirel »

Rica ederim kolay gelsin
Cevapla