- Katılım
- 4 Ekim 2004
- Mesajlar
- 155
"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
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