Sil butonu

[beykatip]

Herkese iyi geceler sevgili arkadaşlar sil butonu ile bazı hücrelerin silinmesini ve bu sil butonununda ayda veya yılda silmesini istiyorum örneğin (31.12.2011) tarihinde butona tıkladığımda silsin diğer zamanlarda silmesin istiyorum bu konuda bana yardım etme gayretinde olan herkese teşekkür ederim dosyam ektedir

 

[Muhammet Okumuş]

Merhaba,

sub sil ()
if [a1]<> date then goto 10
range("c5:d7")=""
10
end sub

kodunu kullanınız.

 

[numan şamil]

Merhaba
Ekli dosyayı incelermisiniz
A1 hücresine yazılan tarihe göre çalışıyor

 

[heft]

Başka bir alternatif,


Sub hücrelertemizle()
If Month(Date) = Month(Date + 1) Then
MsgBox "Olumsuz Tarih henüz Gelmedi"
Exit Sub
Else
Application.ScreenUpdating = False
Range("C5: D7").ClearContents
Application.ScreenUpdating = True
MsgBox "Tarih Geldi.veriler silindi"
End If
End Sub

 

[eminuslu]

muokumuş, numan şamil ve heft hocalarım hepinize teşekkür ediyorum her birinizin cevabı diğerine denk olmuş teşekkürler