COba prosedur event click :
Private Sub cmdOK_Click()
'Sebelum di proses dibersihkan dulu
'bersihkan
Search.Range("a1").CurrentRegion.Offset(1).Delete xlShiftUp
'Nah disini saya bingung masukin source codenya
'Mohon bantuannya para master :(
With Sheet3
.AutoFilterMode = False
.Range("b:b,d:e,i:m").EntireColumn.Hidden = True
With .Range("a1").CurrentRegion
lIdx = cmbMIN1.ListIndex + 1
If cmbMIN1.ListIndex <> -1 Then
If cmbMI1.ListIndex <> -1 Then
.AutoFilter 3 + cmbMIN1.ListIndex, ">=" &
cmbMI1.List(cmbMI1.ListIndex)
End If
End If
lIdx = cmbMIN2.ListIndex + 1
If cmbMIN2.ListIndex <> -1 Then
If cmbMI2.ListIndex <> -1 Then
.AutoFilter 3 + cmbMIN2.ListIndex, ">=" &
cmbMI2.List(cmbMI2.ListIndex)
End If
End If
If cmbMIN3.ListIndex <> -1 Then
If cmbMI3.ListIndex <> -1 Then
.AutoFilter 4 + cmbMIN3.ListIndex, ">=" &
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/21 lapendosol opik <[email protected]>
> **
>
>
> Dear para BeExceller,
> Mohon pencerahannya untuk persoalan saya.
> Saya ingin membuat file excel buat memfilter database (dari sheet Data).
> Tujuannya untuk memfilter nama-nama dari Data yang memiliki 3 potensi >12%
> 11% 10% (dari ComboBox Percentace) berdasarkan Multiple Intelligence yang
> dipilih (dari ComboBox MI Name's).
> Yang ingin ditampilkan ketika pencet tombol OK adalah Nama, Jabatan, dan 3
> MI.
> Saya sudah buat module macro secara manualnya, tapi kesulitan saat masukin
> ke VBA. Harapan saya dengan mengklik tombol OK, terjadi proses filter
> sesuai pilihan MI dan persentasinya.
> Terlampir file beserta modulenya untuk mempelajari persoalan saya.
>
> Mohon pencerahannya
> Trimakasih
>
> Salam,
> Opik
>
>
>
