makroda evet seçiminde hata

[benli58]

merhaba. puantaj hazırlamasında (Sayfa3) te aşağıda ve ekli dosyada ki açıklamalarda belirtiğim konularda hatalı işlem oluşuyor.
1- C3 hücresindeki AY değeri değiştiğinde ve evet seçildiğinde makro sonsuz döngüye giriyor. Hayır seçildiğinde de kaç defa evet dediğim kadar döngü devam ediyor.(Eğer sadece Hayır seçilirse veya makroda sadece mesaj verdirilirse doğru çalışıyor.) evet seçildiğinde ilgili hücreler silinsin. hayır seçildiğinde ise silinmesin.
2- Makro 3 ve 4 sütunlar seçildiğinde veya değiştiğinde çalışıyor. C3 veya D4 hücresi seçildiğinde veya değiştiğinde çalışsın.
lütfen bu konularda yardımcı olurmusunuz. kolay gelsin

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C3,D4]) Is Nothing Then Exit Sub
    If Target.Column = 4 Then
    Range("E:CH").EntireColumn.Hidden = True
    bak1 = Worksheets("Sayfa3").Cells(5, 5).Value
    bak2 = Worksheets("Sayfa3").Cells(6, 5).Value
    Range(bak1 & ":" & bak2).EntireColumn.Hidden = False
    End If
    If Target.Column = 3 Then
    iResult = MsgBox("Veriler silinecek. Evet mi, Hayır mı?", vbYesNo)
    If iResult = vbYes Then
        Sheets("Sayfa3").Range("F10:CG42").ClearContents
        MsgBox "Evet i seçtin"
        Else
        MsgBox "Hayır ı seçtin"
    End If
    End If
End Sub

 

[benli58]

sayın korhan aydın;
sorunum çözülmüştür.
ilginize teşekkür ederim. kolay gelsin.