Pak Warsito, Untuk filter dua tanggal, yang saya paham, format kriteria tanggal nya harus format amerika (mm/dd/yyyy). Karena Excel hanya kenal format itu.
Tapi coba tunggu respon dari para ahli nya ya ? :) Salam Sony On Mon, Jun 27, 2016 at 2:36 PM, Warsito Ito [email protected] [belajar-excel] <[email protected]> wrote: > > > Selamat sore para master....Saya ada kesulitan dalam pemfilteran data > diantara dua tanggal > Misalkan: saya ingin mengecheck data dari tanggal 1 - tanggal 10 tp koding > yang say buat tidak dapat berfungsi > mohon 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 > > >
