Onay kutusu seçili ise silmesin

[sdegirmenci]

Değerli arkadaşlar;
Ekteki dosyamın üzerinde açıkladığım gibi, sil butonuna tıkladığımızda silinmesi istenen hücrenin altındaki onay kutusu seçili ise o hücreyi silmesin. Yardımlarınız için teşekkür ediyorum.İşleriniz kolay gelsin.

 

[Orion1]

Merhaba.
Kodları aşağıdaki ile değiştiriniz.

Sub Düğme3_Tıklat()
'
' Düğme3_Tıklat Makro
' Makro Sdegirmencioglu tarafından 30.05.2007 tarihinde kaydedildi.
'

'
    Sheets("Kereste hesap tablo").Select
    Range("C3:I1126").Select
    Selection.ClearContents
    Range("C3").Select
    Sheets("GİRİŞ").Select
    If Range("A2") = False Then
        Range("C16").Select
        Selection.ClearContents
    End If
    If Range("A3") = False Then
        Range("E16").Select
        Selection.ClearContents
    End If
    If Range("A4") = False Then
        Range("G16").Select
        Selection.ClearContents
    End If
    If Range("A5") = False Then
        Range("I16").Select
        Selection.ClearContents
    End If
    Range("C16").Select
    
   
End Sub

 

[hakpin]

Sayın Üstad Sezar;
İlginize Çok teşekkür ederim.Yazmış olduğunuz kodu kopyaladım,çalışıyor.İşlerinizde kolaylıklar dilerim.

 

[Orion1]

Ricaederim.
İyi çalışmalar.