A1 hücresine sıfırdan farklı değer girdikten sonra alan seçip kodu çalıştırdığınızda seçilen alandaki değerler temizlenir.
Kod:
Sub KOŞULA_GÖRE_TEMİZLE()
If Range("A1") <> "" And Range("A1") <> 0 Then
Selection.ClearContents
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.