Selamat sore para master....Saya ada kesulitan dalam pemfilteran data diantara
dua tanggalMisalkan: saya ingin mengecheck data dari tanggal 1 - tanggal 10 tp
koding yang say buat tidak dapat berfungsimohon pencerahanya para master
sebelumnya saya ucapkan terima kasih
Private Sub CommandButton8_Click()
Dim wb As Worksheet
Dim rgAdvFilter As Range
Dim CekSelTampil
Set wb = Sheets("Sheet2")
Set rgAdvFilter = wb.Range("F1:G3")
wb.Range("A2:C30").AdvancedFilter _
Action:=xlFilterInPlace, CriteriaRange:=rgAdvFilter
For Each CekSelTampil In wb.Range("A3:A30")
If CekSelTampil.EntireRow.Hidden = False Then
Exit Sub
End If
Next CekSelTampil
Call isilist
End Sub
Sub isilist()
Dim sh As Worksheet
Dim rgData As Range
With Me.ListBox1
.Clear
.AddItem
.List(.ListCount - 1, 0) = "Tanggal"
.List(.ListCount - 1, 1) = "Nama"
.List(.ListCount - 1, 2) = "Jumlah"
.ColumnWidths = 100 & " ; " & 100 & " ; " & 100
End With
Set sh = ThisWorkbook.Sheets("Sheet2")
With sh
For Each rgData In .Range("DATAa").SpecialCells(xlCellTypeVisible)
With Me.ListBox1
.AddItem rgData.Value
.List(.ListCount - 1, 0) = rgData.Offset(0, 0).Value
.List(.ListCount - 1, 1) = rgData.Offset(0, 1).Value
.List(.ListCount - 1, 2) = rgData.Offset(0, 2).Value
End With
Next rgData
End With
End Sub
