Coba diatur yang di-hidden dan yang tidak di-hidden sesuai pilihan user Kid.
2012/7/22 lapendosol opik <[email protected]> > ** > > > Pas MIN1 2 3 MI 1 2 3 saya ganti Interpersonal, Intrapersonal, Imajinasi > Konseptual, yg ditampilkan sheet Search masih tampilan yang lama mas > Nama Jabatan Imajinasi Konseptual Rasional Logika Motorik Halus Prima > Vista Karyawan 13.99% 12.91% 9.95% Arifin Adil Karyawan 13.48% 18.62% > 7.40% Agus Suroyo Karyawan 13.05% 13.05% 13.05% > > Masih tampilan yg lama :( > ------------------------------ > *From:* Kid Mr. <[email protected]> > *To:* [email protected] > *Sent:* Sunday, July 22, 2012 1:04 AM > > *Subject:* Re: [belajar-excel] Filter dari Database > > > Ganti seluruh .Autofilter 3 + > menjadi .Autofilter 4 + > > Kid. > > 2012/7/22 lapendosol opik <[email protected]> > > ** > > 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 > > > > > > > > >
