5 New Messages
Digest #1702
Messages
Sun Jul 22, 2012 9:19 pm (PDT) . Posted by:
"adi_srpd" adi_srpd
Maaf baru balas,
Terima kasih Mr.Kid & Mas Hendrik
Sudah saya copy paste dan berhasil, cuma belum saya pelajari alur perintah-perintah vba-nya.
Sekali lagi terimakasih untuk para master semua..
Salam,,
--- In belajar-excel@yahoogroups.com , "Kid Mr." <mr.nmkid@...> wrote:
>
> 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@...>
>
> > 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.Calculatedihilangkan ? Bukankah Vlookup akan mengcalculate secara otomatis jika
> >> tidak diset manual ?
> >>
> >> Salam,
> >> Hendrik Karnadi
> >>
> >> ------------------------------
> >> *From:* Kid Mr. <mr.nmkid@...>
> >> *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@...>
> >>
> >> **
> >>
> >> makasih mas hendrik, ini saya lampirkan. kalau value di sheet/ range
> >> lain gimana caranya?
> >> Trims..
> >>
> >>
> >>
> >>
> >>
> >>
> >
> >
>
Terima kasih Mr.Kid & Mas Hendrik
Sudah saya copy paste dan berhasil, cuma belum saya pelajari alur perintah-perintah vba-nya.
Sekali lagi terimakasih untuk para master semua..
Salam,,
--- In belajar-excel@
>
> 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$
> .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@..
>
> > 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@..
> >> *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@..
> >>
> >> **
> >>
> >> makasih mas hendrik, ini saya lampirkan. kalau value di sheet/ range
> >> lain gimana caranya?
> >> Trims..
> >>
> >>
> >>
> >>
> >>
> >>
> >
> >
>
Sun Jul 22, 2012 9:42 pm (PDT) . Posted by:
"Faisal Hasman" revolter_ichal
menarik juga
pembahasan vba paste spesial value
saya juga menghadapi sedikit masalah
yaitu:
sheet sumber (file terlampir sheet rekap) yang saya input selalu teman saya timpa
sehingga. kepikiran bagaimana kalo sudah jadi dan sebelum ditimpa (overwrite) lago
sheet tersebut di copy paste value ke sheet baru sehingga ada backup
tapi yang dipaste valu hanya mulai cell A10 kebawah
jadi tombol copy tidak ikut..
thanks sebelumnya
________________________________
From: adi_srpd <adi_srpd@yahoo.co.id >
To: belajar-excel@yahoogroups.com
Sent: Monday, 23 July 2012, 11:30
Subject: [belajar-excel] Re: vba paste spesial - value
Maaf baru balas,
Terima kasih Mr.Kid & Mas Hendrik
Sudah saya copy paste dan berhasil, cuma belum saya pelajari alur perintah-perintah vba-nya.
Sekali lagi terimakasih untuk para master semua..
Salam,,
--- In belajar-excel@yahoogroups.com , "Kid Mr." <mr.nmkid@...> wrote:
>
> 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@...>
>
> > 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.Calculatedihilangkan ? Bukankah Vlookup akan mengcalculate secara otomatis jika
> >> tidak diset manual ?
> >>
> >> Salam,
> >> Hendrik Karnadi
> >>
> >> ------------------------------
> >> *From:* Kid Mr. <mr.nmkid@...>
> >> *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@...>
> >>
> >> **
> >>
> >> makasih mas hendrik, ini saya lampirkan. kalau value di sheet/ range
> >> lain gimana caranya?
> >> Trims..
> >>
> >>
> >>
> >>
> >>
> >>
> >
> >
>
pembahasan vba paste spesial value
saya juga menghadapi sedikit masalah
yaitu:
sheet sumber (file terlampir sheet rekap) yang saya input selalu teman saya timpa
sehingga. kepikiran bagaimana kalo sudah jadi dan sebelum ditimpa (overwrite) lago
sheet tersebut di copy paste value ke sheet baru sehingga ada backup
tapi yang dipaste valu hanya mulai cell A10 kebawah
jadi tombol copy tidak ikut..
thanks sebelumnya
____________
From: adi_srpd <adi_srpd@yahoo.
To: belajar-excel@
Sent: Monday, 23 July 2012, 11:30
Subject: [belajar-excel] Re: vba paste spesial - value
Maaf baru balas,
Terima kasih Mr.Kid & Mas Hendrik
Sudah saya copy paste dan berhasil, cuma belum saya pelajari alur perintah-perintah vba-nya.
Sekali lagi terimakasih untuk para master semua..
Salam,,
--- In belajar-excel@
>
> 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$
> .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@..
>
> > 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@..
> >> *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@..
> >>
> >> **
> >>
> >> makasih mas hendrik, ini saya lampirkan. kalau value di sheet/ range
> >> lain gimana caranya?
> >> Trims..
> >>
> >>
> >>
> >>
> >>
> >>
> >
> >
>
Sun Jul 22, 2012 9:37 pm (PDT) . Posted by:
"Faisal Hasman" revolter_ichal
OK.. SUDAH jalan.. ada kesalahan sedikit
thanks
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Saturday, 21 July 2012, 22:17
Subject: Re: [belajar-excel] Automatic running text
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
>>
>>
>>
>
>
thanks
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Saturday, 21 July 2012, 22:17
Subject: Re: [belajar-excel] Automatic running text
Ops... kok ditempat saya, file re-moveteks.
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
>>
>>
>>
>
>
Sun Jul 22, 2012 11:16 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Coba :
Private Sub cmdOK_Click()
Dim lIdx As Long
'Sebelum di proses dibersihkan dulu
'bersihkan
Search.Range("a1").CurrentRegion.Delete xlShiftUp
'Nah disini saya bingung masukin source codenya
'Mohon bantuannya para master :(
With Sheet3
.AutoFilterMode = False
.Range("b:b,d:m").EntireColumn.Hidden = True
With .Range("a1").CurrentRegion
lIdx = cmbMIN1.ListIndex
If lIdx <> -1 Then
If cmbMI1.ListIndex <> -1 Then
.Resize(, 1).Offset(0, 3 + lIdx).EntireColumn.Hidden =
False
.AutoFilter 4 + lIdx, ">=" &
cmbMI1.List(cmbMI1.ListIndex)
End If
End If
lIdx = cmbMIN2.ListIndex
If lIdx <> -1 Then
If cmbMI2.ListIndex <> -1 Then
.Resize(, 1).Offset(0, 3 + lIdx).EntireColumn.Hidden =
False
.AutoFilter 4 + lIdx, ">=" &
cmbMI2.List(cmbMI2.ListIndex)
End If
End If
lIdx = cmbMIN3.ListIndex
If lIdx <> -1 Then
If cmbMI3.ListIndex <> -1 Then
.Resize(, 1).Offset(0, 3 + lIdx).EntireColumn.Hidden =
False
.AutoFilter 4 + lIdx, ">=" &
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/22 lapendosol opik <lapendosol@yahoo.com >
> **
>
>
> 'Jadi sebelum mulai kegiatan memfilter data, bukankah harus didahului
> membuat semua kolom terhidden kecuali nama dan jabatan ?
> With Sheet3
> .AutoFilterMode = False
> .Range("B:B,D:M").EntireColumn.Hidden = True
> 'Setelah itu, apapun pilihan user, sebelum ada autiofilter, harus
> didahului meng-unhide (set hidden) kolom yang akan difilter ?
> With Sheet3
> .AutoFilterMode = False
> If cmbMIN1.ListIndex = "interpersonal" Then
>
> .Range("D:D").EntireColumn.Hidden = False
> ElseIf cmbMIN1.ListIndex = "intrapersonal" Then
>
> .Range("E:E").EntireColumn.Hidden = False
> ElseIf cmbMIN1.Text = "Imajinasi Konseptual" Then
>
> .Range("F:F").EntireColumn.Hidden = False
> End If
> -
> -
> End with
> Ga berhasil, kayanya logikanya salah :'( sahur dulu nanti lanjut lagi
>
> ------------------------------
> **
>
Private Sub cmdOK_Click(
Dim lIdx As Long
'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
If lIdx <> -1 Then
If cmbMI1.ListIndex <> -1 Then
.Resize(, 1).Offset(0, 3 + lIdx).EntireColumn.
False
.AutoFilter 4 + lIdx, ">=" &
cmbMI1.List(
End If
End If
lIdx = cmbMIN2.ListIndex
If lIdx <> -1 Then
If cmbMI2.ListIndex <> -1 Then
.Resize(, 1).Offset(0, 3 + lIdx).EntireColumn.
False
.AutoFilter 4 + lIdx, ">=" &
cmbMI2.List(
End If
End If
lIdx = cmbMIN3.ListIndex
If lIdx <> -1 Then
If cmbMI3.ListIndex <> -1 Then
.Resize(, 1).Offset(0, 3 + lIdx).EntireColumn.
False
.AutoFilter 4 + lIdx, ">=" &
cmbMI3.List(
End If
End If
.SpecialCells(
End With
.AutoFilterMode = False
.Columns("a:
End With
Unload Me
End Sub
Wassalam,
Kid
2012/7/22 lapendosol opik <lapendosol@yahoo.
> **
>
>
> 'Jadi sebelum mulai kegiatan memfilter data, bukankah harus didahului
> membuat semua kolom terhidden kecuali nama dan jabatan ?
> With Sheet3
> .AutoFilterMode = False
> .Range("B:B,
> 'Setelah itu, apapun pilihan user, sebelum ada autiofilter, harus
> didahului meng-unhide (set hidden) kolom yang akan difilter ?
> With Sheet3
> .AutoFilterMode = False
> If cmbMIN1.ListIndex = "interpersonal" Then
>
> .Range("D:D"
> ElseIf cmbMIN1.ListIndex = "intrapersonal" Then
>
> .Range("E:E"
> ElseIf cmbMIN1.Text = "Imajinasi Konseptual" Then
>
> .Range("F:F"
> End If
> -
> -
> End with
> Ga berhasil, kayanya logikanya salah :'( sahur dulu nanti lanjut lagi
>
> ------------
> **
>
Mon Jul 23, 2012 12:08 am (PDT) . Posted by:
"AndyH" pengusaha_sembako
Assalamualaikum
Salam kenal
Saya baru bergabung nih dimilis, dan langsung mau bertanya
permasalahan:
1. ada data dari 4 sheet, tiap sheet terkumpul data dari tanggal 1 januari sampai 31 desember
2. dari data yang ada sheet ke-5 adalah resume harian dari ke 4 sheet tersebut contohnya tanggal 1 january 2012, maka pada sheet ke-5 ini akan muncul data keseluruhan dari sheet 1 sd 4 tanggal 1 january 2012 plus grafiknya
3. dari data yang ada sheet ke-6 adalah resume bulanan dari ke 4 sheet tersebut contohnya bulan january 2012, maka pada sheet ke-5 ini akan muncul data keseluruhan pada bulan januari saja dari sheet 1 sd 4 bulan januari plus grafiknya
Terimakasih, semoga rekan miliser dapat membantu
Andy Hamonangan
Salam kenal
Saya baru bergabung nih dimilis, dan langsung mau bertanya
permasalahan:
1. ada data dari 4 sheet, tiap sheet terkumpul data dari tanggal 1 januari sampai 31 desember
2. dari data yang ada sheet ke-5 adalah resume harian dari ke 4 sheet tersebut contohnya tanggal 1 january 2012, maka pada sheet ke-5 ini akan muncul data keseluruhan dari sheet 1 sd 4 tanggal 1 january 2012 plus grafiknya
3. dari data yang ada sheet ke-6 adalah resume bulanan dari ke 4 sheet tersebut contohnya bulan january 2012, maka pada sheet ke-5 ini akan muncul data keseluruhan pada bulan januari saja dari sheet 1 sd 4 bulan januari plus grafiknya
Terimakasih, semoga rekan miliser dapat membantu
Andy Hamonangan
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