Trimakasih mas Kid jawabannya. Sudah saya masukkan prosedurnya, tapi masih belum sesuai yg saya harapkan. Contoh saya pilih MIN1 = Imajinasi Konseptual dan MI1 = 12%, MIN2 = Rasional Logika dan MI2 = 11%, MIN3 = Motorik Halus dan MI3 = 10%, pas saya pencet OK hasil filternya kosong, padahal kalo manual (dari modul Langkah 1, Langkah 2, Langkah 3) hasilnya: Nama Jabatan Imajinasi Konseptual Rasional Logika Motorik Halus M. Yusril Karyawan 20.64% 11.36% 10.10% Rachmat K Karyawan 16.27% 12.53% 10.44% BASUKI Karyawan 16.17% 13.23% 10.84% TEDY YANUAR Karyawan 15.23% 17.87% 10.40% Agus Suroyo Karyawan 13.05% 13.05% 13.05% HENI SUNATA Karyawan 12.59% 13.11% 11.72% Dimas Karyawan 12.51% 11.79% 10.59% Mohon pencerahannya kembali Trimakasih mas
________________________________ From: Kid Mr. <[email protected]> To: [email protected] Sent: Saturday, July 21, 2012 10:48 PM Subject: Re: [belajar-excel] Filter dari Database 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 > > >
