Hücrede SİSTEM Tarihinden küçük bir tarih varsa sil

[bistrobellman]

Hücrede SÝSTEM Tarihinden küçük bir tarih varsa sil

Dim tar As Date

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


bu satırlar neden çalışmaz anlamam?Tarih halen duruyor?

hücre değeri 15.05.2005 sistem tarihi 22.08.2005

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. tar değişkenine bugünün tarihini atamamışsınız.

[vb:1:2c2d12e57c]tar=date
For x = 2 To [g65536].End(3).Row
If Cells(x, 7) < tar Then Cells(x, 7) = ""
Next
[/vb:1:2c2d12e57c]