Interpersonal D:D
Intrapersonal E:E
Imajinasi Konseptual F:F
Rasional Logika G:G
Motorik Halus H:H
Motorik Kasar I:I
Auditori Musikal J:J
Auditori Linguistik K:K
Seni Pengamatan L:L
Tehnik Pengamatan M:M
Bayangan saya seperti ini mas Kid, tapi ga tau bahasa programnya.
'yang di hidden saya ganti B:B,D:M
.AutoFilterMode = False
.Range("b:b,D:M").EntireColumn.Hidden = True
'kemudian yang ga di hidden:
'jika cmbMIN1.ListIndex = "Interpersonal" maka
.Range("D:D").EntireColumn.Hidden = False
'jika cmbMIN2.ListIndex = "Intrapersonal" maka
.Range("E:E").EntireColumn.Hidden = False
'jika cmbMIN3.ListIndex = "Imajinasi Konseptual" maka
.Range("F:F").EntireColumn.Hidden = False
Ajarin saya bahasa programnya mas, mau saya coba seperti itu
Trimakasih
________________________________
From: Kid Mr. <[email protected]>
To: [email protected]
Sent: Sunday, July 22, 2012 2:03 AM
Subject: Re: [belajar-excel] Filter dari Database
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
>>>
>>>
>>>
>>
>>
>>
>
>
>
