- Katılım
- 2 Aralık 2005
- Mesajlar
- 10
bir hücre belli tarihe gelince o hücrenin olduğu satırı otomatik sildirmek istiyorum.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub SatirSil()
Dim i As Long
Application.ScreenUpdating = False
[a1].Select
son = [a65536].End(3).Row
For i = son To 1 Step -1
If CDate(Cells(i, 1).Value) < Date Then Rows(i).EntireRow.Delete Shift:=xlUp
Next i
[a1].Select
Application.ScreenUpdating = True
End Sub
Sub Auto_Openl()
Dim i As Long
Application.ScreenUpdating = False
Sheets("VERİ").Select
[a1].Select
son = [a65536].End(3).Row
For i = son To 1 Step -1
If CDate(Cells(i, 1).Value) < Date Then Rows(i).EntireRow.Delete Shift:=xlUp
Next i
[a1].Select
Application.ScreenUpdating = True
End Sub