Şarta göre temizle

[ozuberk]

Merhaba aşağıdaki kodu çalıştırdığımda makro çalışmıyor nerede hata yapıyorum yardımcı olurmusunuz arkadaşlar.

Sub Temizle()
If Sheets("Giris").Range("P26").Value = "Evet" Then
Sheets("Sorgu").Select
Range("A2:H65536").ClearContents
End If
End Sub

 

[Ömer]

Merhaba,

Sayfa adlarını kontrol ediniz. Yada Evet verisi yazdığınız hücrede büyük küçük harf olayına bakınız..

Örnek Giriş -- Giris

.

 

[ozuberk]

Hocam ben bunu listeden seçiyorum herhangi bir CommandButton bağlamadım ondan dolayı sanırım nasıl bir çözüm bulabilirim.

 

[Ömer]

O zaman dosyanızda başka bir problem vardır. Ben hayali bir dosya oluşturarak denedim çalışıyor.

Çalışmayan dosyanızı eklerseniz daha net cevap verebilirim..

.

 

[ozuberk]

Hocam ben bunu listeden seçiyorum herhangi bir CommandButton bağlamadım ondan dolayı sanırım nasıl bir çözüm bulabilirim.

 

[Ömer]

Listeden kastınız nedir. Küçük bir örnek eklerseniz memnun olurum..

.

 

[ozuberk]

Sayın Ömer bey dosya ektedir. Teşekkürler

 

[Korhan Ayhan]

Selamlar,

"Giris" isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    If Target = "Evet" Then Temizle
End Sub

 

[ozuberk]

Korhan bey vermiş olduğunuz kodu denedim hata verdi. Başka yolla çözdüm. Ömer bey ve size yardımlarınız için teşekkür ederim.


Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Giris").Range("A1").Value = "Evet" Then
Worksheets("Sorgu").Range("A1:H65536").Clear
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Çözüm üretmenize sevindim. Benim önerdiğim kodun hata verdiğini belirtmişsiniz. Oysaki kodu deneyerek size önermiştim. Çalıştığını gösteren ekli örnek dosyayı incelermisiniz.