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 >> >> >> > > >
