Perintah macro ini dapat menjalankan tugasnya untuk mengidentifikasi tanggal-tanggal dengan baik meskipun daftar tanggal tersusun tidak berurutan.
Setelah dieksekusi, perintah macro ini bersifat permanen (tidak dapat diulangi/di-Undo), jadi pastikan agar anda benar-benar telah mengantisipasi jika terjadi kesalahan penghapusan barisan sel sebelum kode macro ini digunakan. Hal ini dapat dilakukan dengan cara membuat backup/salinan file tersebut di komputer anda.
Silakan tulis kode berikut pada module baru:
Sub HapusTahun()
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
Dim BarisFilter As Range, Tanggal As Date
Tanggal = DateSerial(Year(Date) - X, Month(Date), Day(Date))
Set BarisFilter = _
Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
BarisFilter.AutoFilter Field:=1, Criteria1:="<" & CDbl(Tanggal)
On Error Resume Next
With BarisFilter
.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
Err.Clear
Set BarisFilter = Nothing
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
1 Komentar
trims bro...kebetulan ane lagi buat projeck utk memudahkan mengupdate laporan bulanan di kantor..informasi ini sangat berguna bro..
BalasHapus