15 New Messages
Digest #1700
Messages
Sat Jul 21, 2012 12:51 am (PDT) . Posted by:
"si.baee@yahoo.com" si.baee
Dear Pak Hendra,
Terima kasih solusi dan samplenya. Sesuai harapan.
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
-----Original Message-----
From: Hendra Kurniawan <hendr4k@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Thu, 19 Jul 2012 12:37:06
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Data peminjaman
Dear Mas
Dilihat dari excelnya, data "Access" dan "Number" bisa dijadikan satu kesatuan data "Access Number". Jadi colom nya saya gabung dulu.
rumus yang dipakai dalah:
{=IFERROR(IF(INDIRECT(ADDRESS(MAX(ROW(Sheet2!$E$7:$E$180)*(Sheet2!$E$7:$E$180=Sheet1!J6)),8,1,,"Sheet2"))=0,"Digunakan",""),"")}
trik yang saya pakai bisa dilihat di lampiran (T135) atau di http://www.youtube.com/watch?v=EDWk22v047E
di cek dulu, mana tau ada yang miss,
mudah2an membantu..
BR
Hendra
________________________________
Dari: "si.baee@yahoo.com " <si.baee@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Kamis, 19 Juli 2012 17:20
Judul: [belajar-excel] Data peminjaman
Dear master excel,
Mohon solusi dan pencerhannya,
Saya punya data peminjaman access card yg mana data peminjaman ini memiliki dua sheet, sheet1 untuk data access cardnya dan sheet2 untuk data transaksi peminjamannya.
Di sheet1 data access card dan statusnya yg mana status didapat dari sheet2 apa bila access card tersebut dipinjam dan tanggal kembali masih kosong. Sebelumnya diucapkan terima kasih
Br,
Si baee
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
Terima kasih solusi dan samplenya. Sesuai harapan.
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...
-----Original Message-----
From: Hendra Kurniawan <hendr4k@yahoo.
Sender: belajar-excel@
Date: Thu, 19 Jul 2012 12:37:06
To: belajar-excel@
Reply-To: belajar-excel@
Subject: Bls: [belajar-excel] Data peminjaman
Dear Mas
Dilihat dari excelnya, data "Access" dan "Number" bisa dijadikan satu kesatuan data "Access Number". Jadi colom nya saya gabung dulu.
rumus yang dipakai dalah:
{=IFERROR(IF(
trik yang saya pakai bisa dilihat di lampiran (T135) atau di http://www.youtube.
di cek dulu, mana tau ada yang miss,
mudah2an membantu..
BR
Hendra
____________
Dari: "si.baee@yahoo.
Kepada: "belajar-excel@
Dikirim: Kamis, 19 Juli 2012 17:20
Judul: [belajar-excel] Data peminjaman
Dear master excel,
Mohon solusi dan pencerhannya,
Saya punya data peminjaman access card yg mana data peminjaman ini memiliki dua sheet, sheet1 untuk data access cardnya dan sheet2 untuk data transaksi peminjamannya.
Di sheet1 data access card dan statusnya yg mana status didapat dari sheet2 apa bila access card tersebut dipinjam dan tanggal kembali masih kosong. Sebelumnya diucapkan terima kasih
Br,
Si baee
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...
Sat Jul 21, 2012 6:14 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
>> Sheet
Memprotect sheet agar cell tidak dapat di hapus.
activesheet.protect "passwordnya"
Unprotect sheet :
activesheet.unprotect "passwordnya"
Activesheet bisa diganti dengan object sheet yang akan diprotect, misal :
sheets(1).protect "passwordnya"
sheets("mySheetOm").protect "passwordnya"
sheet1.protect "passwordnya"
>> Workbook
Memprotect workbook agar sheet tidak dapat dihapus atau dipindahkan
urutannya dsb.
thisworkbook.protect "passwordnya", true
Unprotect workbook
thisworkbook.unprotect "passwordnya"
Wassalam,
Kid.
2012/7/21 Faisal Hasman <revolter_ichal@yahoo.com >
> **
>
>
> assalamu alaikum
> selamat menunaikan ibadah puasa
> bagi yang melaksanakannya\
>
> awal ramadhan nanya lagi
> ada nggak MACRO BUAT memprotect sheet agar
> tidak dapat di hapus
>
> thanks
>
>
>
>
Memprotect sheet agar cell tidak dapat di hapus.
activesheet.
Unprotect sheet :
activesheet.
Activesheet bisa diganti dengan object sheet yang akan diprotect, misal :
sheets(1).protect "passwordnya"
sheets("mySheetOm"
sheet1.protect "passwordnya"
>> Workbook
Memprotect workbook agar sheet tidak dapat dihapus atau dipindahkan
urutannya dsb.
thisworkbook.
Unprotect workbook
thisworkbook.
Wassalam,
Kid.
2012/7/21 Faisal Hasman <revolter_ichal@
> **
>
>
> assalamu alaikum
> selamat menunaikan ibadah puasa
> bagi yang melaksanakannya\
>
> awal ramadhan nanya lagi
> ada nggak MACRO BUAT memprotect sheet agar
> tidak dapat di hapus
>
> thanks
>
>
>
>
Sat Jul 21, 2012 6:17 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Ops... kok ditempat saya, file re-moveteks.xls berjalan baik-baik saja.
Boleh tahu seperti apa penerapannya dan di Excel versi berapa ?
Kid.
2012/7/21 Faisal Hasman <revolter_ichal@yahoo.com >
> **
>
>
> terima kasih
> akhirnya otomatis jalan juga
> TAPI.. muncul masalah lagi nih
> kalo ada penginputan data di cell manapun
> textnya berhenti jalan
>
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, 20 July 2012, 11:47
>
> *Subject:* Re: [belajar-excel] Automatic running text
>
>
> Buat event workbook open di object class thisworkbook yang isinya
> memanggil nama prosedur yang katanya di run manual.
> Misal :
> Private sub workbook_open()
> namaprosedurteksberjalan
> End sub
> Wassalam,
> Kid
> On Jul 20, 2012 7:24 AM, "Faisal Hasman" <revolter_ichal@yahoo.com > wrote:
>
> **
>
> dear
> excel milis
>
> bagaimana caranya membuat text berjalan
> di excel dan otomatis berjalan saat file tersebut
> dibuka.
> saya pernah buat text berjalan. tapi
> pada saat difile dibuka pertama kali
> tidak dapat berjalan otomatis.
> harus di running lagi
> trims sebelumnya
>
> faisal
>
>
>
>
>
Boleh tahu seperti apa penerapannya dan di Excel versi berapa ?
Kid.
2012/7/21 Faisal Hasman <revolter_ichal@
> **
>
>
> terima kasih
> akhirnya otomatis jalan juga
> TAPI.. muncul masalah lagi nih
> kalo ada penginputan data di cell manapun
> textnya berhenti jalan
>
>
> ------------
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Friday, 20 July 2012, 11:47
>
> *Subject:* Re: [belajar-excel] Automatic running text
>
>
> Buat event workbook open di object class thisworkbook yang isinya
> memanggil nama prosedur yang katanya di run manual.
> Misal :
> Private sub workbook_open(
> namaprosedurteksber
> End sub
> Wassalam,
> Kid
> On Jul 20, 2012 7:24 AM, "Faisal Hasman" <revolter_ichal@
>
> **
>
> dear
> excel milis
>
> bagaimana caranya membuat text berjalan
> di excel dan otomatis berjalan saat file tersebut
> dibuka.
> saya pernah buat text berjalan. tapi
> pada saat difile dibuka pertama kali
> tidak dapat berjalan otomatis.
> harus di running lagi
> trims sebelumnya
>
> faisal
>
>
>
>
>
Sat Jul 21, 2012 6:27 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Coba manfaatkan event worksheet change. Kira-kira susunan blok prosedurnya
seperti berikut :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Target
If .Count = 1 Then
If .Row > 3 Then
If .Column = 2 Then
.Offset(0, 1).Resize(1, 2).Formula = _
"=VLOOKUP($b" & .Row &
",master!$b$4:$d$26,column(b1),FALSE)"
.Parent.Calculate
.Offset(0, 1).Resize(1, 2).Value = .Offset(0,
1).Resize(1, 2).Value
End If
End If
End If
End With
Application.EnableEvents = True
End Sub
Asumsi :
area input key lookup di kolom B mulai baris ke-4 Excel.
yang diisi adalah 2 kolom, yaitu kolom C dan D
lookup ke sheet master range tertentu
Wassalam,
Kid.
2012/7/21 Adi Susanto <adi_srpd@yahoo.co.id >
> **
>
>
> makasih mas hendrik, ini saya lampirkan. kalau value di sheet/ range lain
> gimana caranya?
>
> Trims..
>
>
>
>
seperti berikut :
Private Sub Worksheet_Change(
Application.
With Target
If .Count = 1 Then
If .Row > 3 Then
If .Column = 2 Then
.Offset(0, 1).Resize(1, 2).Formula = _
"=VLOOKUP($b" & .Row &
",master!$b$
.Parent.Calculate
.Offset(0, 1).Resize(1, 2).Value = .Offset(0,
1).Resize(1, 2).Value
End If
End If
End If
End With
Application.
End Sub
Asumsi :
area input key lookup di kolom B mulai baris ke-4 Excel.
yang diisi adalah 2 kolom, yaitu kolom C dan D
lookup ke sheet master range tertentu
Wassalam,
Kid.
2012/7/21 Adi Susanto <adi_srpd@yahoo.
> **
>
>
> makasih mas hendrik, ini saya lampirkan. kalau value di sheet/ range lain
> gimana caranya?
>
> Trims..
>
>
>
>
Sat Jul 21, 2012 10:11 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Jawaban Mr. Kid sangat tepat sasaran.
Saya ingin bertanya, apakah pengaruhnya jika .Parent.Calculate dihilangkan ? Bukankah Vlookup akan mengcalculate secara otomatis jika tidak diset manual ?
Salam,
Hendrik Karnadi
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Saturday, 21 July 2012, 20:26
Subject: Re: [belajar-excel] Re: vba paste spesial - value
Coba manfaatkan event worksheet change. Kira-kira susunan blok prosedurnya seperti berikut :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Target
If .Count = 1 Then
If .Row > 3 Then
If .Column = 2 Then
.Offset(0, 1).Resize(1, 2).Formula = _
"=VLOOKUP($b" & .Row & ",master!$b$4:$d$26,column(b1),FALSE)"
.Parent.Calculate
.Offset(0, 1).Resize(1, 2).Value = .Offset(0, 1).Resize(1, 2).Value
End If
End If
End If
End With
Application.EnableEvents = True
End Sub
Asumsi :
area input key lookup di kolom B mulai baris ke-4 Excel.
yang diisi adalah 2 kolom, yaitu kolom C dan D
lookup ke sheet master range tertentu
Wassalam,
Kid.
2012/7/21 Adi Susanto <adi_srpd@yahoo.co.id >
>
>makasih mas hendrik, ini saya lampirkan. kalau value di sheet/ range lain gimana caranya?
>Trims..
>
Saya ingin bertanya, apakah pengaruhnya jika .Parent.Calculate dihilangkan ? Bukankah Vlookup akan mengcalculate secara otomatis jika tidak diset manual ?
Salam,
Hendrik Karnadi
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Saturday, 21 July 2012, 20:26
Subject: Re: [belajar-excel] Re: vba paste spesial - value
Coba manfaatkan event worksheet change. Kira-kira susunan blok prosedurnya seperti berikut :
Private Sub Worksheet_Change(
Application.
With Target
If .Count = 1 Then
If .Row > 3 Then
If .Column = 2 Then
.Offset(0, 1).Resize(1, 2).Formula = _
"=VLOOKUP($b" & .Row & ",master!$b$
.Parent.Calculate
.Offset(0, 1).Resize(1, 2).Value = .Offset(0, 1).Resize(1, 2).Value
End If
End If
End If
End With
Application.
End Sub
Asumsi :
area input key lookup di kolom B mulai baris ke-4 Excel.
yang diisi adalah 2 kolom, yaitu kolom C dan D
lookup ke sheet master range tertentu
Wassalam,
Kid.
2012/7/21 Adi Susanto <adi_srpd@yahoo.
>
>makasih mas hendrik, ini saya lampirkan. kalau value di sheet/ range lain gimana caranya?
>Trims..
>
Sat Jul 21, 2012 10:40 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Betul Pak Hendrik,
Pada setting kalkulasi yang telah automatic, baris tersebut malah menambah
beban.
Pada sebuah runtime yang cukup panjang, apalagi dalam suatu aplikasi yang
padat formula (baik dalam dynamic named range atau beberapa cell worksheet
berformula tetap, terutama yang padat berisi fungsi-fungsi yang bersifat
volatile), seringkali proses sebuah runtime didahului dengan set kalkulasi
ke manual lebih dulu. Setting kalkulasi akan dikembalikan kepada setting
menurut user kembali ketika runtime telah selesai.
Jadi, pada kasus ini, baris tersebut hanyalah sebuah kebiasaan saja.
Wassalam,
Kid.
2012/7/22 hendrik karnadi <hendrikkarnadi@yahoo.com >
> **
>
>
> Jawaban Mr. Kid sangat tepat sasaran.
> Saya ingin bertanya, apakah pengaruhnya jika .Parent.Calculatedihilangkan ? Bukankah Vlookup akan mengcalculate secara otomatis jika
> tidak diset manual ?
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Saturday, 21 July 2012, 20:26
> *Subject:* Re: [belajar-excel] Re: vba paste spesial - value
>
>
> Coba manfaatkan event worksheet change. Kira-kira susunan blok prosedurnya
> seperti berikut :
> Private Sub Worksheet_Change(ByVal Target As Range)
> Application.EnableEvents = False
> With Target
> If .Count = 1 Then
> If .Row > 3 Then
> If .Column = 2 Then
> .Offset(0, 1).Resize(1, 2).Formula = _
> "=VLOOKUP($b" & .Row &
> ",master!$b$4:$d$26,column(b1),FALSE)"
> .Parent.Calculate
> .Offset(0, 1).Resize(1, 2).Value = .Offset(0,
> 1).Resize(1, 2).Value
> End If
> End If
> End If
> End With
> Application.EnableEvents = True
> End Sub
>
> Asumsi :
> area input key lookup di kolom B mulai baris ke-4 Excel.
> yang diisi adalah 2 kolom, yaitu kolom C dan D
> lookup ke sheet master range tertentu
>
> Wassalam,
> Kid.
>
>
> 2012/7/21 Adi Susanto <adi_srpd@yahoo.co.id >
>
> **
>
> makasih mas hendrik, ini saya lampirkan. kalau value di sheet/ range
> lain gimana caranya?
> Trims..
>
>
>
>
>
>
Pada setting kalkulasi yang telah automatic, baris tersebut malah menambah
beban.
Pada sebuah runtime yang cukup panjang, apalagi dalam suatu aplikasi yang
padat formula (baik dalam dynamic named range atau beberapa cell worksheet
berformula tetap, terutama yang padat berisi fungsi-fungsi yang bersifat
volatile), seringkali proses sebuah runtime didahului dengan set kalkulasi
ke manual lebih dulu. Setting kalkulasi akan dikembalikan kepada setting
menurut user kembali ketika runtime telah selesai.
Jadi, pada kasus ini, baris tersebut hanyalah sebuah kebiasaan saja.
Wassalam,
Kid.
2012/7/22 hendrik karnadi <hendrikkarnadi@
> **
>
>
> Jawaban Mr. Kid sangat tepat sasaran.
> Saya ingin bertanya, apakah pengaruhnya jika .Parent.Calculatedi
> tidak diset manual ?
>
> Salam,
> Hendrik Karnadi
>
> ------------
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Saturday, 21 July 2012, 20:26
> *Subject:* Re: [belajar-excel] Re: vba paste spesial - value
>
>
> Coba manfaatkan event worksheet change. Kira-kira susunan blok prosedurnya
> seperti berikut :
> Private Sub Worksheet_Change(
> Application.
> With Target
> If .Count = 1 Then
> If .Row > 3 Then
> If .Column = 2 Then
> .Offset(0, 1).Resize(1, 2).Formula = _
> "=VLOOKUP($b" & .Row &
> ",master!$b$
> .Parent.Calculate
> .Offset(0, 1).Resize(1, 2).Value = .Offset(0,
> 1).Resize(1, 2).Value
> End If
> End If
> End If
> End With
> Application.
> End Sub
>
> Asumsi :
> area input key lookup di kolom B mulai baris ke-4 Excel.
> yang diisi adalah 2 kolom, yaitu kolom C dan D
> lookup ke sheet master range tertentu
>
> Wassalam,
> Kid.
>
>
> 2012/7/21 Adi Susanto <adi_srpd@yahoo.
>
> **
>
> makasih mas hendrik, ini saya lampirkan. kalau value di sheet/ range
> lain gimana caranya?
> Trims..
>
>
>
>
>
>
Sat Jul 21, 2012 11:02 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Maaf, ada yang kurang.
Jika ingin tidak menggunakan .parent.calculate beserta proses
mem-values-ken setelah baris .parent.calculate, maka ganti baris-baris :
.Offset(0, 1).Resize(1, 2).Formula = _
"=VLOOKUP($b" & .Row & ",master!$b$4:$d$26,column(b1),FALSE)"
.Parent.Calculate
.Offset(0, 1).Resize(1, 2).Value = .Offset(0, 1).Resize(1, 2).Value
dengan :
.Offset(0, 1).Resize(1, 2).Formula = _
*Evaluate(*"=VLOOKUP($b" & .Row & ",master!$b$4:$d$26,column(b1
*:c1*),FALSE)"*)*
pengubahan baris tersebut ditandai dengan warna *merah*.
Wassalam,
Kid.
2012/7/22 Kid Mr. <mr.nmkid@gmail.com >
> Betul Pak Hendrik,
> Pada setting kalkulasi yang telah automatic, baris tersebut malah menambah
> beban.
> Pada sebuah runtime yang cukup panjang, apalagi dalam suatu aplikasi yang
> padat formula (baik dalam dynamic named range atau beberapa cell worksheet
> berformula tetap, terutama yang padat berisi fungsi-fungsi yang bersifat
> volatile), seringkali proses sebuah runtime didahului dengan set kalkulasi
> ke manual lebih dulu. Setting kalkulasi akan dikembalikan kepada setting
> menurut user kembali ketika runtime telah selesai.
>
> Jadi, pada kasus ini, baris tersebut hanyalah sebuah kebiasaan saja.
>
> Wassalam,
> Kid.
>
>
> 2012/7/22 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
>> **
>>
>>
>> Jawaban Mr. Kid sangat tepat sasaran.
>> Saya ingin bertanya, apakah pengaruhnya jika .Parent.Calculatedihilangkan ? Bukankah Vlookup akan mengcalculate secara otomatis jika
>> tidak diset manual ?
>>
>> Salam,
>> Hendrik Karnadi
>>
>> ------------------------------
>> *From:* Kid Mr. <mr.nmkid@gmail.com >
>> *To:* belajar-excel@yahoogroups.com
>> *Sent:* Saturday, 21 July 2012, 20:26
>> *Subject:* Re: [belajar-excel] Re: vba paste spesial - value
>>
>>
>> Coba manfaatkan event worksheet change. Kira-kira susunan blok
>> prosedurnya seperti berikut :
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> Application.EnableEvents = False
>> With Target
>> If .Count = 1 Then
>> If .Row > 3 Then
>> If .Column = 2 Then
>> .Offset(0, 1).Resize(1, 2).Formula = _
>> "=VLOOKUP($b" & .Row &
>> ",master!$b$4:$d$26,column(b1),FALSE)"
>> .Parent.Calculate
>> .Offset(0, 1).Resize(1, 2).Value = .Offset(0,
>> 1).Resize(1, 2).Value
>> End If
>> End If
>> End If
>> End With
>> Application.EnableEvents = True
>> End Sub
>>
>> Asumsi :
>> area input key lookup di kolom B mulai baris ke-4 Excel.
>> yang diisi adalah 2 kolom, yaitu kolom C dan D
>> lookup ke sheet master range tertentu
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/7/21 Adi Susanto <adi_srpd@yahoo.co.id >
>>
>> **
>>
>> makasih mas hendrik, ini saya lampirkan. kalau value di sheet/ range
>> lain gimana caranya?
>> Trims..
>>
>>
>>
>>
>>
>>
>
>
Jika ingin tidak menggunakan .parent.calculate beserta proses
mem-values-ken setelah baris .parent.calculate, maka ganti baris-baris :
.Offset(0, 1).Resize(1, 2).Formula = _
"=VLOOKUP($b" & .Row & ",master!$b$
.Parent.Calculate
.Offset(0, 1).Resize(1, 2).Value = .Offset(0, 1).Resize(1, 2).Value
dengan :
.Offset(0, 1).Resize(1, 2).Formula = _
*Evaluate(*"
*:c1*),FALSE)
pengubahan baris tersebut ditandai dengan warna *merah*.
Wassalam,
Kid.
2012/7/22 Kid Mr. <mr.nmkid@gmail.
> Betul Pak Hendrik,
> Pada setting kalkulasi yang telah automatic, baris tersebut malah menambah
> beban.
> Pada sebuah runtime yang cukup panjang, apalagi dalam suatu aplikasi yang
> padat formula (baik dalam dynamic named range atau beberapa cell worksheet
> berformula tetap, terutama yang padat berisi fungsi-fungsi yang bersifat
> volatile), seringkali proses sebuah runtime didahului dengan set kalkulasi
> ke manual lebih dulu. Setting kalkulasi akan dikembalikan kepada setting
> menurut user kembali ketika runtime telah selesai.
>
> Jadi, pada kasus ini, baris tersebut hanyalah sebuah kebiasaan saja.
>
> Wassalam,
> Kid.
>
>
> 2012/7/22 hendrik karnadi <hendrikkarnadi@
>
>> **
>>
>>
>> Jawaban Mr. Kid sangat tepat sasaran.
>> Saya ingin bertanya, apakah pengaruhnya jika .Parent.Calculatedi
>> tidak diset manual ?
>>
>> Salam,
>> Hendrik Karnadi
>>
>> ------------
>> *From:* Kid Mr. <mr.nmkid@gmail.
>> *To:* belajar-excel@
>> *Sent:* Saturday, 21 July 2012, 20:26
>> *Subject:* Re: [belajar-excel] Re: vba paste spesial - value
>>
>>
>> Coba manfaatkan event worksheet change. Kira-kira susunan blok
>> prosedurnya seperti berikut :
>> Private Sub Worksheet_Change(
>> Application.
>> With Target
>> If .Count = 1 Then
>> If .Row > 3 Then
>> If .Column = 2 Then
>> .Offset(0, 1).Resize(1, 2).Formula = _
>> "=VLOOKUP($b" & .Row &
>> ",master!$b$
>> .Parent.Calculate
>> .Offset(0, 1).Resize(1, 2).Value = .Offset(0,
>> 1).Resize(1, 2).Value
>> End If
>> End If
>> End If
>> End With
>> Application.
>> End Sub
>>
>> Asumsi :
>> area input key lookup di kolom B mulai baris ke-4 Excel.
>> yang diisi adalah 2 kolom, yaitu kolom C dan D
>> lookup ke sheet master range tertentu
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/7/21 Adi Susanto <adi_srpd@yahoo.
>>
>> **
>>
>> makasih mas hendrik, ini saya lampirkan. kalau value di sheet/ range
>> lain gimana caranya?
>> Trims..
>>
>>
>>
>>
>>
>>
>
>
Sat Jul 21, 2012 8:48 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
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 <lapendosol@yahoo.com >
> **
>
>
> 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
>
>
>
Private Sub cmdOK_Click(
'Sebelum di proses dibersihkan dulu
'bersihkan
Search.Range(
'Nah disini saya bingung masukin source codenya
'Mohon bantuannya para master :(
With Sheet3
.AutoFilterMode = False
.Range("b:b,
With .Range("a1")
lIdx = cmbMIN1.ListIndex + 1
If cmbMIN1.ListIndex <> -1 Then
If cmbMI1.ListIndex <> -1 Then
.AutoFilter 3 + cmbMIN1.ListIndex, ">=" &
cmbMI1.List(
End If
End If
lIdx = cmbMIN2.ListIndex + 1
If cmbMIN2.ListIndex <> -1 Then
If cmbMI2.ListIndex <> -1 Then
.AutoFilter 3 + cmbMIN2.ListIndex, ">=" &
cmbMI2.List(
End If
End If
If cmbMIN3.ListIndex <> -1 Then
If cmbMI3.ListIndex <> -1 Then
.AutoFilter 4 + cmbMIN3.ListIndex, ">=" &
cmbMI3.List(
End If
End If
.SpecialCells(
End With
.AutoFilterMode = False
.Columns("a:
End With
Unload Me
End Sub
Wassalam,
Kid.
2012/7/21 lapendosol opik <lapendosol@yahoo.
> **
>
>
> 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
>
>
>
Sat Jul 21, 2012 10:59 am (PDT) . Posted by:
"lapendosol opik" lapendosol
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. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
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 <lapendosol@yahoo.com >
>
>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
>
>
>
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. <mr.nmkid@gmail.
To: belajar-excel@
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(
'Nah disini saya bingung masukin source codenya
'Mohon bantuannya para master :(
With Sheet3
.AutoFilterMode = False
.Range("b:b,
With .Range("a1")
lIdx = cmbMIN1.ListIndex + 1
If cmbMIN1.ListIndex <> -1 Then
If cmbMI1.ListIndex <> -1 Then
.AutoFilter 3 + cmbMIN1.ListIndex, ">=" & cmbMI1.List(
End If
End If
lIdx = cmbMIN2.ListIndex + 1
If cmbMIN2.ListIndex <> -1 Then
If cmbMI2.ListIndex <> -1 Then
.AutoFilter 3 + cmbMIN2.ListIndex, ">=" & cmbMI2.List(
End If
End If
If cmbMIN3.ListIndex <> -1 Then
If cmbMI3.ListIndex <> -1 Then
.AutoFilter 4 + cmbMIN3.ListIndex, ">=" & cmbMI3.List(
End If
End If
.SpecialCells(
End With
.AutoFilterMode = False
.Columns("a:
End With
Unload Me
End Sub
Wassalam,
Kid.
2012/7/21 lapendosol opik <lapendosol@yahoo.
>
>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
>
>
>
Sat Jul 21, 2012 11:05 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Ganti seluruh .Autofilter 3 +
menjadi .Autofilter 4 +
Kid.
2012/7/22 lapendosol opik <lapendosol@yahoo.com >
> **
>
>
> 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. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *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 <lapendosol@yahoo.com >
>
> **
>
> 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
>
>
>
>
>
>
menjadi .Autofilter 4 +
Kid.
2012/7/22 lapendosol opik <lapendosol@yahoo.
> **
>
>
> 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. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *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(
>
> 'Nah disini saya bingung masukin source codenya
> 'Mohon bantuannya para master :(
> With Sheet3
> .AutoFilterMode = False
> .Range("b:b,
>
> With .Range("a1")
> lIdx = cmbMIN1.ListIndex + 1
> If cmbMIN1.ListIndex <> -1 Then
> If cmbMI1.ListIndex <> -1 Then
> .AutoFilter 3 + cmbMIN1.ListIndex, ">=" &
> cmbMI1.List(
> End If
> End If
> lIdx = cmbMIN2.ListIndex + 1
> If cmbMIN2.ListIndex <> -1 Then
> If cmbMI2.ListIndex <> -1 Then
> .AutoFilter 3 + cmbMIN2.ListIndex, ">=" &
> cmbMI2.List(
> End If
> End If
> If cmbMIN3.ListIndex <> -1 Then
> If cmbMI3.ListIndex <> -1 Then
> .AutoFilter 4 + cmbMIN3.ListIndex, ">=" &
> cmbMI3.List(
> End If
> End If
> .SpecialCells(
> End With
>
> .AutoFilterMode = False
> .Columns("a:
> End With
> Unload Me
> End Sub
>
> Wassalam,
> Kid.
>
> 2012/7/21 lapendosol opik <lapendosol@yahoo.
>
> **
>
> 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
>
>
>
>
>
>
Sat Jul 21, 2012 11:43 am (PDT) . Posted by:
"lapendosol opik" lapendosol
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. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
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 <lapendosol@yahoo.com >
>
>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. <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>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 <lapendosol@yahoo.com >
>
>
>>
>>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
>>
>>
>>
>
>
>
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. <mr.nmkid@gmail.
To: belajar-excel@
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 <lapendosol@yahoo.
>
>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. <mr.nmkid@gmail.
>To: belajar-excel@
>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(
>
> 'Nah disini saya bingung masukin source codenya
> 'Mohon bantuannya para master :(
> With Sheet3
> .AutoFilterMode = False
> .Range("b:b,
>
> With .Range("a1")
> lIdx = cmbMIN1.ListIndex + 1
> If cmbMIN1.ListIndex <> -1 Then
> If cmbMI1.ListIndex <> -1 Then
> .AutoFilter 3 + cmbMIN1.ListIndex, ">=" & cmbMI1.List(
> End If
> End If
> lIdx = cmbMIN2.ListIndex + 1
> If cmbMIN2.ListIndex <> -1 Then
> If cmbMI2.ListIndex <> -1 Then
> .AutoFilter 3 + cmbMIN2.ListIndex, ">=" & cmbMI2.List(
> End If
> End If
> If cmbMIN3.ListIndex <> -1 Then
> If cmbMI3.ListIndex <> -1 Then
> .AutoFilter 4 + cmbMIN3.ListIndex, ">=" & cmbMI3.List(
> End If
> End If
> .SpecialCells(
> End With
>
> .AutoFilterMode = False
> .Columns("a:
> End With
> Unload Me
>End Sub
>
>Wassalam,
>Kid.
>
>
>2012/7/21 lapendosol opik <lapendosol@yahoo.
>
>
>>
>>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
>>
>>
>>
>
>
>
Sat Jul 21, 2012 12:04 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Coba diatur yang di-hidden dan yang tidak di-hidden sesuai pilihan user
Kid.
2012/7/22 lapendosol opik <lapendosol@yahoo.com >
> **
>
>
> 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. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *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 <lapendosol@yahoo.com >
>
> **
>
> 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. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *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 <lapendosol@yahoo.com >
>
> **
>
> 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
>
>
>
>
>
>
>
>
>
Kid.
2012/7/22 lapendosol opik <lapendosol@yahoo.
> **
>
>
> 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. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *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 <lapendosol@yahoo.
>
> **
>
> 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. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *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(
>
> 'Nah disini saya bingung masukin source codenya
> 'Mohon bantuannya para master :(
> With Sheet3
> .AutoFilterMode = False
> .Range("b:b,
>
> With .Range("a1")
> lIdx = cmbMIN1.ListIndex + 1
> If cmbMIN1.ListIndex <> -1 Then
> If cmbMI1.ListIndex <> -1 Then
> .AutoFilter 3 + cmbMIN1.ListIndex, ">=" &
> cmbMI1.List(
> End If
> End If
> lIdx = cmbMIN2.ListIndex + 1
> If cmbMIN2.ListIndex <> -1 Then
> If cmbMI2.ListIndex <> -1 Then
> .AutoFilter 3 + cmbMIN2.ListIndex, ">=" &
> cmbMI2.List(
> End If
> End If
> If cmbMIN3.ListIndex <> -1 Then
> If cmbMI3.ListIndex <> -1 Then
> .AutoFilter 4 + cmbMIN3.ListIndex, ">=" &
> cmbMI3.List(
> End If
> End If
> .SpecialCells(
> End With
>
> .AutoFilterMode = False
> .Columns("a:
> End With
> Unload Me
> End Sub
>
> Wassalam,
> Kid.
>
> 2012/7/21 lapendosol opik <lapendosol@yahoo.
>
> **
>
> 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
>
>
>
>
>
>
>
>
>
Sat Jul 21, 2012 12:36 pm (PDT) . Posted by:
"lapendosol opik" lapendosol
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. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
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 <lapendosol@yahoo.com >
>
>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. <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>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 <lapendosol@yahoo.com >
>
>
>>
>>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. <mr.nmkid@gmail.com >
>>To: belajar-excel@yahoogroups.com
>>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 <lapendosol@yahoo.com >
>>
>>
>>>
>>>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
>>>
>>>
>>>
>>
>>
>>
>
>
>
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,
'kemudian yang ga di hidden:
'jika cmbMIN1.ListIndex = "Interpersonal" maka .Range("D:D"
'jika cmbMIN2.ListIndex = "Intrapersonal" maka .Range("E:E"
'jika cmbMIN3.ListIndex = "Imajinasi Konseptual" maka .Range("F:F"
Ajarin saya bahasa programnya mas, mau saya coba seperti itu
Trimakasih
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
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 <lapendosol@yahoo.
>
>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. <mr.nmkid@gmail.
>To: belajar-excel@
>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 <lapendosol@yahoo.
>
>
>>
>>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. <mr.nmkid@gmail.
>>To: belajar-excel@
>>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(
>>
>> 'Nah disini saya bingung masukin source codenya
>> 'Mohon bantuannya para master :(
>> With Sheet3
>> .AutoFilterMode = False
>> .Range("b:b,
>>
>> With .Range("a1")
>> lIdx = cmbMIN1.ListIndex + 1
>> If cmbMIN1.ListIndex <> -1 Then
>> If cmbMI1.ListIndex <> -1 Then
>> .AutoFilter 3 + cmbMIN1.ListIndex, ">=" & cmbMI1.List(
>> End If
>> End If
>> lIdx = cmbMIN2.ListIndex + 1
>> If cmbMIN2.ListIndex <> -1 Then
>> If cmbMI2.ListIndex <> -1 Then
>> .AutoFilter 3 + cmbMIN2.ListIndex, ">=" & cmbMI2.List(
>> End If
>> End If
>> If cmbMIN3.ListIndex <> -1 Then
>> If cmbMI3.ListIndex <> -1 Then
>> .AutoFilter 4 + cmbMIN3.ListIndex, ">=" & cmbMI3.List(
>> End If
>> End If
>> .SpecialCells(
>> End With
>>
>> .AutoFilterMode = False
>> .Columns("a:
>> End With
>> Unload Me
>>End Sub
>>
>>Wassalam,
>>Kid.
>>
>>
>>2012/7/21 lapendosol opik <lapendosol@yahoo.
>>
>>
>>>
>>>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
>>>
>>>
>>>
>>
>>
>>
>
>
>
Sat Jul 21, 2012 12:43 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Kira-kira, alur logika autofilter yang sudah ada seperti apa ?
Bukankah yang di autofilter harus tampil (tidak hidden) dan yang lainnya
harus di-hidden kecuali nama dan jabatan ?
Jadi sebelum mulai kegiatan memfilter data, bukankah harus didahului
membuat semua kolom terhidden kecuali nama dan jabatan ?
Setelah itu, apapun pilihan user, sebelum ada autiofilter, harus didahului
meng-unhide (set hidden) kolom yang akan difilter ?
Kira-kira, dengan alur logika seperti di atas, bunyinya akan bagaimana ?
Kid.
2012/7/22 lapendosol opik <lapendosol@yahoo.com >
> **
>
>
> 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. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *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.
>
>
>
Bukankah yang di autofilter harus tampil (tidak hidden) dan yang lainnya
harus di-hidden kecuali nama dan jabatan ?
Jadi sebelum mulai kegiatan memfilter data, bukankah harus didahului
membuat semua kolom terhidden kecuali nama dan jabatan ?
Setelah itu, apapun pilihan user, sebelum ada autiofilter, harus didahului
meng-unhide (set hidden) kolom yang akan difilter ?
Kira-kira, dengan alur logika seperti di atas, bunyinya akan bagaimana ?
Kid.
2012/7/22 lapendosol opik <lapendosol@yahoo.
> **
>
>
> 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,
> 'kemudian yang ga di hidden:
> 'jika cmbMIN1.ListIndex = "Interpersonal" maka
> .Range("D:D"
> 'jika cmbMIN2.ListIndex = "Intrapersonal" maka
> .Range("E:E"
> 'jika cmbMIN3.ListIndex = "Imajinasi Konseptual" maka
> .Range("F:F"
>
> Ajarin saya bahasa programnya mas, mau saya coba seperti itu
> Trimakasih
> ------------
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *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.
>
>
>
Sat Jul 21, 2012 12:51 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
ops sorry, kepencet send.
lanjutan... Kira-kira, dengan alur logika seperti di atas, bunyinya akan
bagaimana ?
kira-kira, kalau user pilih suatu item di combo pertama, index itemnya
berapa ?
kemudian, jika cell aktif ada di kolom A, bagaimana supaya sampai di kolom
yang dipilih user (yang nomor index pilihannya sudah diketahui tadi) ?
ada ide ?
Kid.
2012/7/22 Kid Mr. <mr.nmkid@gmail.com >
> Kira-kira, alur logika autofilter yang sudah ada seperti apa ?
> Bukankah yang di autofilter harus tampil (tidak hidden) dan yang lainnya
> harus di-hidden kecuali nama dan jabatan ?
> Jadi sebelum mulai kegiatan memfilter data, bukankah harus didahului
> membuat semua kolom terhidden kecuali nama dan jabatan ?
> Setelah itu, apapun pilihan user, sebelum ada autiofilter, harus didahului
> meng-unhide (set hidden) kolom yang akan difilter ?
>
> Kira-kira, dengan alur logika seperti di atas, bunyinya akan bagaimana ?
>
>
> Kid.
>
> 2012/7/22 lapendosol opik <lapendosol@yahoo.com >
>
>> **
>>
>>
>> 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. <mr.nmkid@gmail.com >
>> *To:* belajar-excel@yahoogroups.com
>> *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.
>>
>>
>>
>
lanjutan... Kira-kira, dengan alur logika seperti di atas, bunyinya akan
bagaimana ?
kira-kira, kalau user pilih suatu item di combo pertama, index itemnya
berapa ?
kemudian, jika cell aktif ada di kolom A, bagaimana supaya sampai di kolom
yang dipilih user (yang nomor index pilihannya sudah diketahui tadi) ?
ada ide ?
Kid.
2012/7/22 Kid Mr. <mr.nmkid@gmail.
> Kira-kira, alur logika autofilter yang sudah ada seperti apa ?
> Bukankah yang di autofilter harus tampil (tidak hidden) dan yang lainnya
> harus di-hidden kecuali nama dan jabatan ?
> Jadi sebelum mulai kegiatan memfilter data, bukankah harus didahului
> membuat semua kolom terhidden kecuali nama dan jabatan ?
> Setelah itu, apapun pilihan user, sebelum ada autiofilter, harus didahului
> meng-unhide (set hidden) kolom yang akan difilter ?
>
> Kira-kira, dengan alur logika seperti di atas, bunyinya akan bagaimana ?
>
>
> Kid.
>
> 2012/7/22 lapendosol opik <lapendosol@yahoo.
>
>> **
>>
>>
>> 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,
>> 'kemudian yang ga di hidden:
>> 'jika cmbMIN1.ListIndex = "Interpersonal" maka
>> .Range("D:D"
>> 'jika cmbMIN2.ListIndex = "Intrapersonal" maka
>> .Range("E:E"
>> 'jika cmbMIN3.ListIndex = "Imajinasi Konseptual" maka
>> .Range("F:F"
>>
>> Ajarin saya bahasa programnya mas, mau saya coba seperti itu
>> Trimakasih
>> ------------
>> *From:* Kid Mr. <mr.nmkid@gmail.
>> *To:* belajar-excel@
>> *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.
>>
>>
>>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar