Hafta Günlerini Silme

[sirkülasyon]

Değerli Arkadaşlarım
B4:M35 aralığında günler yazılı "Pazartesi, Salı, Çarşamba gibi"

Bir Butona click yapınca gün adını yazınız ibaresi gelecek kullanıcı da günü yazacak ve sil komutu ile yazılan günler kaç hücrenin içinde mevcut ise o hücrelerin içinden silinecek.

böyle bir makro koduna ihtiyacım var. yardımcı olabilir misiniz?

 

[Orion1]

Buyurun.

Sub silgun59()
Dim hcr As Range
a = InputBox("Gün Sil", "SİL")
For Each hcr In Range("B4:M35")
    If hcr.Value = a Then hcr.Value = ""
Next
MsgBox "[ " & a & " ] Silindi" & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[sirkülasyon]

Evren Abi
Teşekkür ederim

 

[Orion1]

Evren Abi
Teşekkür ederim

Rica ederim.
İyi çalışmalar.