silme makrosunda seçenek için yardım

[hakpin]

Kıymetli üstadlar;Açıklamasını ekteki dosya üzerinde yazmış olduğum sizin için çok basit olan koda yarımcı olursanız çok sevinirim.Bütün işleriniz kolay gelsin.

 

[Orion1]

Merhaba.
Aşağıdaki kodları deneyiniz.

Sub Düğme1_Tıklat()
If Range("A1").Value = True Then
    Range("C8").Value = ""
    Range("G8").Value = ""
    Else
    Range("C8").Value = ""
    Range("E8").Value = ""
    Range("G8").Value = ""
End If
End Sub

 

[hakpin]

Sayın Sezar ,
Yazmış olduğunuz kodları uyguladım,yakın ilginize teşekkür ederim.İşleriniz kolay gelsin

 

[Orion1]

Rica ederim.
İyi çalışmalar.