Coba :
Private Sub cmdOK_Click()
Dim lIdx As Long
'Sebelum di proses dibersihkan dulu
'bersihkan
Search.Range("a1").CurrentRegion.Delete xlShiftUp
'Nah disini saya bingung masukin source codenya
'Mohon bantuannya para master :(
With Sheet3
.AutoFilterMode = False
.Range("b:b,d:m").EntireColumn.Hidden = True
With .Range("a1").CurrentRegion
lIdx = cmbMIN1.ListIndex
If lIdx <> -1 Then
If cmbMI1.ListIndex <> -1 Then
.Resize(, 1).Offset(0, 3 + lIdx).EntireColumn.Hidden =
False
.AutoFilter 4 + lIdx, ">=" &
cmbMI1.List(cmbMI1.ListIndex)
End If
End If
lIdx = cmbMIN2.ListIndex
If lIdx <> -1 Then
If cmbMI2.ListIndex <> -1 Then
.Resize(, 1).Offset(0, 3 + lIdx).EntireColumn.Hidden =
False
.AutoFilter 4 + lIdx, ">=" &
cmbMI2.List(cmbMI2.ListIndex)
End If
End If
lIdx = cmbMIN3.ListIndex
If lIdx <> -1 Then
If cmbMI3.ListIndex <> -1 Then
.Resize(, 1).Offset(0, 3 + lIdx).EntireColumn.Hidden =
False
.AutoFilter 4 + lIdx, ">=" &
cmbMI3.List(cmbMI3.ListIndex)
End If
End If
.SpecialCells(xlCellTypeVisible).Copy Search.Range("a1")
End With
.AutoFilterMode = False
.Columns("a:m").EntireColumn.Hidden = False
End With
Unload Me
End Sub
Wassalam,
Kid
2012/7/22 lapendosol opik <[email protected]>
> **
>
>
> 'Jadi sebelum mulai kegiatan memfilter data, bukankah harus didahului
> membuat semua kolom terhidden kecuali nama dan jabatan ?
> With Sheet3
> .AutoFilterMode = False
> .Range("B:B,D:M").EntireColumn.Hidden = True
> 'Setelah itu, apapun pilihan user, sebelum ada autiofilter, harus
> didahului meng-unhide (set hidden) kolom yang akan difilter ?
> With Sheet3
> .AutoFilterMode = False
> If cmbMIN1.ListIndex = "interpersonal" Then
>
> .Range("D:D").EntireColumn.Hidden = False
> ElseIf cmbMIN1.ListIndex = "intrapersonal" Then
>
> .Range("E:E").EntireColumn.Hidden = False
> ElseIf cmbMIN1.Text = "Imajinasi Konseptual" Then
>
> .Range("F:F").EntireColumn.Hidden = False
> End If
> -
> -
> End with
> Ga berhasil, kayanya logikanya salah :'( sahur dulu nanti lanjut lagi
>
> ------------------------------
> **
>
