hücredeki tarih sistem tarihinden küçük ise hücreyi boÃ

[bistrobellman]

"G" sütununda tarihlerim var.bilgisayarımın G2 DEN son dolu hücreye kadar tarayıp sistem tarihinden küçük olan tarihlere ait hücreleri boşaltmasını istiyorum ama başaramadım, olmuyor


Dim tar As Date
Range("G2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
If ActiveCell.value < tar Then
rnga.Value = "": rnga.Offset(0, 1).Value = "": 'SİLMİYOR??
Else
ActiveCell.Offset(1, 0).Select
End If
Loop

 

[Levent Menteşoğlu]

If ActiveCell.value < clng(cdate(tar)) Then olarak deneyin.

 

[bistrobellman]

Range("G2").Select
Do While Not IsEmpty(ActiveCell)


If ActiveCell.Value < CLng(CDate(tar)) Then
ActiveCell.Value = "": ActiveCell.Offset(0, 1).Value = "": MsgBox "Siliyom"
End If
ActiveCell.Offset(1, 0).Select
Loop

yine olmuyor ki???

 

[bistrobellman]

Levent bey sistem tarihini 12/12/2005 yazıyorum yine Gsütunu hizasındaki haziran mayıs ayı tarihleri yerinde duruyor.hücrede tarih formatında bunlar zaten, denedim aynen öyle.sorun nerede?

 

[veyselemre]

For x = 2 To [g65536].End(3).Row
If Cells(x, 7) < Date Then Cells(x, 7) = ""
Next

 

[bistrobellman]

halen sorunumu çözemedim.dosya ekte.."Personel1 " sayfasındaki tarihlerin "G VE H SUTUNU" Boşalması lazım . ama olmuyor

 

[veyselemre]

verdiğim formüller çalışıyor