Soru tarihe göre kısıtlama

[sirkülasyon]

A1 hücresinde 06.05.2010 tarihi yazılı
Eğer A1 hücresinde ki tarih 06.05.2010 dahil ve sonrası ise sayfada işlem yapılsın. Aksi durumunda sayfa da işlem görülmesin. Rica etsem yardımcı olabilir misiniz?

 

[muysun35]

Sub dene()
Dim rng As Range
Set rng = ThisWorkbook.Sheets(1).Range("A:A")
For Each c In rng.Cells
If IsDate(c.Value) And c.Value >= DateValue(Format("06/05/10", "dd/mm/yyyy")) Then
   
 'Kodlarınızı buraya yazın

End If
Next

Deneyin...

 

[sirkülasyon]

Kod güzel işimi görüyor ama A1 hücresini de kilitliyor. Sadece A1 hücresi açık kalması mümkün mü? Tarih değiştirebileyim