Cara Filter Tanggal Sebelum atau Sesudah Tanggal Di Hari Ini Menggunakan Macro VBA Excel

Tip singkat berikut ini menambahkan pembahasan sebelumnya tentang Cara Filter Tanggal Berdasarkan Dua Tanggal Menggunakan Macro VBA Excel. Sebagai ilustrasi, saya sertakan langkah-langkah penerapan kode macro seperti yang ditunjukkan pada gambar contoh worksheet di bawah ini.

Kode macro berikut ini dapat menyaringkan tanggal pada hari ini dan tanggal sebelumnya.

Sub FilterSebelum()
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
Dim BarisAkhir As Long, BarisFilter As Range
BarisAkhir = Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set BarisFilter = Range("A2:A" & BarisAkhir)
BarisFilter.AutoFilter Field:=1, Criteria1:=">" & CDbl(Date)
Set BarisFilter = Nothing
Application.ScreenUpdating = True
End Sub

Susunan kode di bawah ini berfungsi menyaring tanggal dimulai dari tanggal di hari ini dan tanggal sesudahnya.

Sub FilterSesudah()
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
Dim BarisAkhir As Long, BarisFilter As Range
BarisAkhir = _
Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set BarisFilter = Range("A2:A" & BarisAkhir)
BarisFilter.AutoFilter Field:=1, Criteria1:="<" & CDbl(Date)
Set BarisFilter = Nothing
Application.ScreenUpdating = True
End Sub