15 New Messages
Digest #1848
5a
buat link antar cell dalam 1 sheet & link cell yg berbeda sheet by "Owner Serbaonline" ownerserbaonline@ymail.com
Messages
Tue Oct 16, 2012 3:28 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Array formula kolom I : (cell i3)
=IFERROR(INDEX($C$3:$C$294,SMALL(IF(ISNUMBER(FIND(I$2,$C$3:$C$294)),ROW($C$3:$C$294)-ROW($C2)),ROW(1:1))),"")
Wassalam,
Kid.
2012/10/16 Kelik Pitoyo <kelik@shindengen.co.id >
> **
>
>
> Dear Be-Exceller,****
>
> ** **
>
> Mohon Bantuan para Master Excel,****
>
> Saya dapat rumus ini dari Bp. Ghozi, Makasih Pak.****
>
> Namun bila saya terapkan kenapa bisa timbul double data?****
>
> Mohon solusi, masukan dari Master.****
>
> ** **
>
> Terima kasih sebelumnya,****
>
> Salam,****
>
> Kelik ****
>
>
>
=IFERROR(INDEX(
Wassalam,
Kid.
2012/10/16 Kelik Pitoyo <kelik@shindengen.
> **
>
>
> Dear Be-Exceller,
>
> ** **
>
> Mohon Bantuan para Master Excel,****
>
> Saya dapat rumus ini dari Bp. Ghozi, Makasih Pak.****
>
> Namun bila saya terapkan kenapa bisa timbul double data?****
>
> Mohon solusi, masukan dari Master.****
>
> ** **
>
> Terima kasih sebelumnya,*
>
> Salam,****
>
> Kelik ****
>
>
>
Tue Oct 16, 2012 4:12 am (PDT) . Posted by:
"luthfi amin" luthfie_27
Dear master Excel,
Assalamu'alaikum
Saya mengalami kesulitan agar bisa mempercepat pekerjaan saya ( file terlampir).
Agar Analisa yang tidak kepakai tidak muncul, atau otomatis kehiden atau kefilter bagaimana??
yang mana mengacu pada volume di RAB.
tujuanya agar waktu di print analisa yang diperlukan saja yang muncul.
Mohon pencerahanya dan masukan dari Master.
Terima kasih sebelumnya,
Salam,
Luthfi
Assalamu'alaikum
Saya mengalami kesulitan agar bisa mempercepat pekerjaan saya ( file terlampir).
Agar Analisa yang tidak kepakai tidak muncul, atau otomatis kehiden atau kefilter bagaimana??
yang mana mengacu pada volume di RAB.
tujuanya agar waktu di print analisa yang diperlukan saja yang muncul.
Mohon pencerahanya dan masukan dari Master.
Terima kasih sebelumnya,
Salam,
Luthfi
Tue Oct 16, 2012 4:38 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Waalaikumussalam Wr. Wb.
Aduh... filenya lebih dari 250KB. Lain kali diusahakan tidak lebih dari
250KB ya. hehehe... tadi salah pencet waktu moderasi. Layarnya terlalu
kecil relatif dibanding jemariku yang saingan dengan pisang besarnya...
btw, kalau pakai fitur autofilter dibantu 2 kolom bantu kira-kira ribet gak
? File terlampir contohnya.
Wassalamualaikum Wr. Wb.
Kid.
2012/10/16 luthfi amin <luthfie_27@yahoo.co.id >
> **
>
>
> Dear master Excel,**
>
> **Assalamu'alaikum**
> Saya mengalami kesulitan agar bisa mempercepat pekerjaan saya ( file
> terlampir).
> Agar Analisa yang tidak kepakai tidak muncul, atau otomatis kehiden atau
> kefilter bagaimana??
> yang mana mengacu pada volume di RAB.
>
> tujuanya agar waktu di print analisa yang diperlukan saja yang muncul.
>
>
> Mohon pencerahanya dan masukan dari Master.
> **
> ** **
> Terima kasih sebelumnya,****
> Salam,****
> Luthfi
>
>
>
Aduh... filenya lebih dari 250KB. Lain kali diusahakan tidak lebih dari
250KB ya. hehehe... tadi salah pencet waktu moderasi. Layarnya terlalu
kecil relatif dibanding jemariku yang saingan dengan pisang besarnya...
btw, kalau pakai fitur autofilter dibantu 2 kolom bantu kira-kira ribet gak
? File terlampir contohnya.
Wassalamualaikum Wr. Wb.
Kid.
2012/10/16 luthfi amin <luthfie_27@yahoo.
> **
>
>
> Dear master Excel,**
>
> **Assalamu'alaikum*
> Saya mengalami kesulitan agar bisa mempercepat pekerjaan saya ( file
> terlampir).
> Agar Analisa yang tidak kepakai tidak muncul, atau otomatis kehiden atau
> kefilter bagaimana??
> yang mana mengacu pada volume di RAB.
>
> tujuanya agar waktu di print analisa yang diperlukan saja yang muncul.
>
>
> Mohon pencerahanya dan masukan dari Master.
> **
> ** **
> Terima kasih sebelumnya,*
> Salam,****
> Luthfi
>
>
>
Tue Oct 16, 2012 5:16 am (PDT) . Posted by:
"luthfi amin" luthfie_27
waduh maaf master kid,filenya kegedean gak lihat,maklum baru jadi anggota..
dengan solusi sumproduct sudah sangat membantu,tapi analisa saya banyak master ada sekitar 650 analisa..
ada tidak formula atau macro yang lebih efektif??
trimakasih
dengan solusi sumproduct sudah sangat membantu,tapi analisa saya banyak master ada sekitar 650 analisa..
ada tidak formula atau macro yang lebih efektif??
trimakasih
Tue Oct 16, 2012 4:38 am (PDT) . Posted by:
"Abdi Pili" arn_doank
Mr kid,
Masalahnya sudah saya temukan di formula yg tdk sesuai pada sheet lainnya.
Mohon maaf ya bos. :)
Thanks utk perhatian dan bantuannya.
Salam,
"Cogito ergo sum, ergo sum prosperitas"
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Tue, 16 Oct 2012 15:51:50
To: <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Questioner Text Formula
Bisa dilampirkan filenya ? (Max 250 KB)
Wassalam,
Kid.
2012/10/16 Abdi Pili <abdist.electrical@gmail.com >
> **
>
>
> ** Mr. Kid,
>
> Utk item nomor 4, saat di copas ke kanan dan ke bawah (bukan workbook dr
> mr. Kid) terdapat error reference pada row D10:P10.
> Mohon penjelasan dan bantuannya.
>
> Terima kasih.
>
>
> Salam,
> Abdi
> "Cogito ergo sum, ergo sum prosperitas"
> ------------------------------
> *From: * "Kid Mr." <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Fri, 12 Oct 2012 22:10:13 +0700
> *To: *<belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Questioner Text Formula
>
>
>
> Hai Abdi,
>
>
> Hampir seluruh formula pada file terlampir telah divalueskan untuk
> mengurangi size. Mohon maaf jika hal ini tidak dikehendaki.
> btw,
> Formula utama untuk menyusun report :
> 1. sheet Form 7 Days Planning pada kolom DV
> >> Tugasnya sebagai area untuk lookup berdasar kode PIC.
> >> kolom ini berisi data PIC diikuti indeks kolom activity-nya. PIC pada
> kolom ini diset selalu terdiri atas 5 karakter.
> >> formula : (pada DV4 dan copy formula kebawah)
> =IF(COUNTIF(DI4:DU4,"<>"),LEFT(LOOKUP("zz",DI4:DU4)&"
> ",5)&LOOKUP("zz",DI4:DU4,COLUMN($DI$1:$DU$1)-COLUMN($DH$1)),0)
>
> 2. sheet Daily Surveillance pada kolom A (hasil insert column)
> >> Tugasnya membuat daftar nomor indeks baris data yang sesuai dengan
> pilihan user pada nama PIC nya
> >> Jenisnya array formula, jadi setiap penulisan formula (tanpa {} )
> diakhir dengan menekan CTRL SHIFT ENTER (bukan hanya ENTER saja)
> >> array formula pada A8 (copy kebawah)
> =SMALL(IF(ISNUMBER(FIND($C$2,'Form 7 Days
> Planning'!$DV$4:$DV$122)),ROW('Form 7 Days
> Planning'!$DV$4:$DV$122)-ROW('Form 7 Days Planning'!$DV$3)),ROW()-ROW($A$7))
>
> 3. Pengambilan data Surveillance Plan dan GS/Area di sheet Daily
> Surveillance (kolom B dan C karena sudah ada insert kolom A)
> >> Dengan formula Index yang barisnya merujuk pada nilai hasil kolom A
> >> Contoh untuk kolom B (cell B8) : [sesuaikan rujukan kolom pada sheet
> datanya]
> =IF(ISNUMBER($A8),INDEX('Form 7 Days Planning'!A$4:A$123,$A8),"")
>
> 4. Area High Risk Activity to be Supervised di sheet Daily Surveillance
> >> Membandingkan header (baris 7) dengan item activity untuk hasil baris
> tersebut
> >> Item activity untuk baris tersebut diambil dengan fungsi Index ke
> header activity pada sheet Form 7 Days Planning dengan rujukan kolom adalah
> sisi nilai yang ada dalam kolom DV di indeks data ke- nilai kolom A sheet
> Daily Surveillance
> >> Contoh formula untuk cell D8 (copy ke kanan dan bawah)
> =IF(ISNUMBER($A8),IF(INDEX('Form 7 Days
> Planning'!$DI$1:$DU$1,1,1*MID(INDEX('Form 7 Days
> Planning'!$DV$4:$DV$122,$A8),6,9))=D$7,"X",""),"")
>
> Wassalam,
> Kid.
>
>
> 2012/10/12 aron doank <abdist.electrical@gmail.com >
>
>> **
>>
>>
>> Be-Exceller,
>>
>> Mohon informasinya.
>> Data yang diinginkan adalah mendapatkan item pada surveilance plan (kolom
>> A
>> sheet daily surveilance) dari item working plan (kolom A sheet form 7
>> daily
>> planning) berdasarkan masing-masing initial pada B2 sheet daily
>> surveilance.
>> Sehingga jika diganti nama pada B1 maka semua item surveilance yang muncul
>> berurutan hanya untuk nama tsb saja (tidak muncul #NA lagi).
>> Terlampir yang saya maksudkan.
>>
>> Satu lagi pertanyaan, apakah ada formula/rumus untuk menghilangkan angka
>> dari text campuran angka dan teks seperti 3425TIH7945 dimana posisi teks
>> terhadap huruf acak.
>>
>> Sebelumnya terima kasih.
>>
>> Salam hangat,
>> Abdi
>>
>> "Cogito Ergo Sum, Ergo Sum Prosperitas"
>>
>>
>
>
Masalahnya sudah saya temukan di formula yg tdk sesuai pada sheet lainnya.
Mohon maaf ya bos. :)
Thanks utk perhatian dan bantuannya.
Salam,
"Cogito ergo sum, ergo sum prosperitas"
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.
Sender: belajar-excel@
Date: Tue, 16 Oct 2012 15:51:50
To: <belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] Questioner Text Formula
Bisa dilampirkan filenya ? (Max 250 KB)
Wassalam,
Kid.
2012/10/16 Abdi Pili <abdist.electrical@
> **
>
>
> ** Mr. Kid,
>
> Utk item nomor 4, saat di copas ke kanan dan ke bawah (bukan workbook dr
> mr. Kid) terdapat error reference pada row D10:P10.
> Mohon penjelasan dan bantuannya.
>
> Terima kasih.
>
>
> Salam,
> Abdi
> "Cogito ergo sum, ergo sum prosperitas"
> ------------
> *From: * "Kid Mr." <mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Fri, 12 Oct 2012 22:10:13 +0700
> *To: *<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Questioner Text Formula
>
>
>
> Hai Abdi,
>
>
> Hampir seluruh formula pada file terlampir telah divalueskan untuk
> mengurangi size. Mohon maaf jika hal ini tidak dikehendaki.
> btw,
> Formula utama untuk menyusun report :
> 1. sheet Form 7 Days Planning pada kolom DV
> >> Tugasnya sebagai area untuk lookup berdasar kode PIC.
> >> kolom ini berisi data PIC diikuti indeks kolom activity-nya. PIC pada
> kolom ini diset selalu terdiri atas 5 karakter.
> >> formula : (pada DV4 dan copy formula kebawah)
> =IF(COUNTIF(
> ",5)&LOOKUP(
>
> 2. sheet Daily Surveillance pada kolom A (hasil insert column)
> >> Tugasnya membuat daftar nomor indeks baris data yang sesuai dengan
> pilihan user pada nama PIC nya
> >> Jenisnya array formula, jadi setiap penulisan formula (tanpa {} )
> diakhir dengan menekan CTRL SHIFT ENTER (bukan hanya ENTER saja)
> >> array formula pada A8 (copy kebawah)
> =SMALL(IF(ISNUMBER(
> Planning'!$DV$
> Planning'!$DV$
>
> 3. Pengambilan data Surveillance Plan dan GS/Area di sheet Daily
> Surveillance (kolom B dan C karena sudah ada insert kolom A)
> >> Dengan formula Index yang barisnya merujuk pada nilai hasil kolom A
> >> Contoh untuk kolom B (cell B8) : [sesuaikan rujukan kolom pada sheet
> datanya]
> =IF(ISNUMBER(
>
> 4. Area High Risk Activity to be Supervised di sheet Daily Surveillance
> >> Membandingkan header (baris 7) dengan item activity untuk hasil baris
> tersebut
> >> Item activity untuk baris tersebut diambil dengan fungsi Index ke
> header activity pada sheet Form 7 Days Planning dengan rujukan kolom adalah
> sisi nilai yang ada dalam kolom DV di indeks data ke- nilai kolom A sheet
> Daily Surveillance
> >> Contoh formula untuk cell D8 (copy ke kanan dan bawah)
> =IF(ISNUMBER(
> Planning'!$DI$
> Planning'!$DV$
>
> Wassalam,
> Kid.
>
>
> 2012/10/12 aron doank <abdist.electrical@
>
>> **
>>
>>
>> Be-Exceller,
>>
>> Mohon informasinya.
>> Data yang diinginkan adalah mendapatkan item pada surveilance plan (kolom
>> A
>> sheet daily surveilance) dari item working plan (kolom A sheet form 7
>> daily
>> planning) berdasarkan masing-masing initial pada B2 sheet daily
>> surveilance.
>> Sehingga jika diganti nama pada B1 maka semua item surveilance yang muncul
>> berurutan hanya untuk nama tsb saja (tidak muncul #NA lagi).
>> Terlampir yang saya maksudkan.
>>
>> Satu lagi pertanyaan, apakah ada formula/rumus untuk menghilangkan angka
>> dari text campuran angka dan teks seperti 3425TIH7945 dimana posisi teks
>> terhadap huruf acak.
>>
>> Sebelumnya terima kasih.
>>
>> Salam hangat,
>> Abdi
>>
>> "Cogito Ergo Sum, Ergo Sum Prosperitas"
>>
>>
>
>
Tue Oct 16, 2012 4:46 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Sama-sama.
Jadi, tadi agak lama karena mencoba mencari errornya sendiri to...
dan hasilnya sukses.
Wassalam,
Kid.
2012/10/16 Abdi Pili <abdist.electrical@gmail.com >
> **
>
>
> ** Mr kid,
>
> Masalahnya sudah saya temukan di formula yg tdk sesuai pada sheet lainnya.
> Mohon maaf ya bos. :)
>
> Thanks utk perhatian dan bantuannya.
>
> Salam,
>
> "Cogito ergo sum, ergo sum prosperitas"
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Tue, 16 Oct 2012 15:51:50 +0700
> *To: *<belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Questioner Text Formula
>
>
>
> Bisa dilampirkan filenya ? (Max 250 KB)
>
> Wassalam,
> Kid.
>
> 2012/10/16 Abdi Pili <abdist.electrical@gmail.com >
>
>> **
>>
>>
>> ** Mr. Kid,
>>
>> Utk item nomor 4, saat di copas ke kanan dan ke bawah (bukan workbook dr
>> mr. Kid) terdapat error reference pada row D10:P10.
>> Mohon penjelasan dan bantuannya.
>>
>> Terima kasih.
>>
>>
>> Salam,
>> Abdi
>> "Cogito ergo sum, ergo sum prosperitas"
>> ------------------------------
>> *From: * "Kid Mr." <mr.nmkid@gmail.com >
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Fri, 12 Oct 2012 22:10:13 +0700
>> *To: *<belajar-excel@yahoogroups.com >
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *Re: [belajar-excel] Questioner Text Formula
>>
>>
>>
>> Hai Abdi,
>>
>>
>> Hampir seluruh formula pada file terlampir telah divalueskan untuk
>> mengurangi size. Mohon maaf jika hal ini tidak dikehendaki.
>> btw,
>> Formula utama untuk menyusun report :
>> 1. sheet Form 7 Days Planning pada kolom DV
>> >> Tugasnya sebagai area untuk lookup berdasar kode PIC.
>> >> kolom ini berisi data PIC diikuti indeks kolom activity-nya. PIC pada
>> kolom ini diset selalu terdiri atas 5 karakter.
>> >> formula : (pada DV4 dan copy formula kebawah)
>> =IF(COUNTIF(DI4:DU4,"<>"),LEFT(LOOKUP("zz",DI4:DU4)&"
>> ",5)&LOOKUP("zz",DI4:DU4,COLUMN($DI$1:$DU$1)-COLUMN($DH$1)),0)
>>
>> 2. sheet Daily Surveillance pada kolom A (hasil insert column)
>> >> Tugasnya membuat daftar nomor indeks baris data yang sesuai dengan
>> pilihan user pada nama PIC nya
>> >> Jenisnya array formula, jadi setiap penulisan formula (tanpa {} )
>> diakhir dengan menekan CTRL SHIFT ENTER (bukan hanya ENTER saja)
>> >> array formula pada A8 (copy kebawah)
>> =SMALL(IF(ISNUMBER(FIND($C$2,'Form 7 Days
>> Planning'!$DV$4:$DV$122)),ROW('Form 7 Days
>> Planning'!$DV$4:$DV$122)-ROW('Form 7 Days Planning'!$DV$3)),ROW()-ROW($A$7))
>>
>> 3. Pengambilan data Surveillance Plan dan GS/Area di sheet Daily
>> Surveillance (kolom B dan C karena sudah ada insert kolom A)
>> >> Dengan formula Index yang barisnya merujuk pada nilai hasil kolom A
>> >> Contoh untuk kolom B (cell B8) : [sesuaikan rujukan kolom pada sheet
>> datanya]
>> =IF(ISNUMBER($A8),INDEX('Form 7 Days Planning'!A$4:A$123,$A8),"")
>>
>> 4. Area High Risk Activity to be Supervised di sheet Daily Surveillance
>> >> Membandingkan header (baris 7) dengan item activity untuk hasil baris
>> tersebut
>> >> Item activity untuk baris tersebut diambil dengan fungsi Index ke
>> header activity pada sheet Form 7 Days Planning dengan rujukan kolom adalah
>> sisi nilai yang ada dalam kolom DV di indeks data ke- nilai kolom A sheet
>> Daily Surveillance
>> >> Contoh formula untuk cell D8 (copy ke kanan dan bawah)
>> =IF(ISNUMBER($A8),IF(INDEX('Form 7 Days
>> Planning'!$DI$1:$DU$1,1,1*MID(INDEX('Form 7 Days
>> Planning'!$DV$4:$DV$122,$A8),6,9))=D$7,"X",""),"")
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/10/12 aron doank <abdist.electrical@gmail.com >
>>
>>> **
>>>
>>>
>>> Be-Exceller,
>>>
>>> Mohon informasinya.
>>> Data yang diinginkan adalah mendapatkan item pada surveilance plan
>>> (kolom A
>>> sheet daily surveilance) dari item working plan (kolom A sheet form 7
>>> daily
>>> planning) berdasarkan masing-masing initial pada B2 sheet daily
>>> surveilance.
>>> Sehingga jika diganti nama pada B1 maka semua item surveilance yang
>>> muncul
>>> berurutan hanya untuk nama tsb saja (tidak muncul #NA lagi).
>>> Terlampir yang saya maksudkan.
>>>
>>> Satu lagi pertanyaan, apakah ada formula/rumus untuk menghilangkan angka
>>> dari text campuran angka dan teks seperti 3425TIH7945 dimana posisi teks
>>> terhadap huruf acak.
>>>
>>> Sebelumnya terima kasih.
>>>
>>> Salam hangat,
>>> Abdi
>>>
>>> "Cogito Ergo Sum, Ergo Sum Prosperitas"
>>>
>>>
>>
>
>
Jadi, tadi agak lama karena mencoba mencari errornya sendiri to...
dan hasilnya sukses.
Wassalam,
Kid.
2012/10/16 Abdi Pili <abdist.electrical@
> **
>
>
> ** Mr kid,
>
> Masalahnya sudah saya temukan di formula yg tdk sesuai pada sheet lainnya.
> Mohon maaf ya bos. :)
>
> Thanks utk perhatian dan bantuannya.
>
> Salam,
>
> "Cogito ergo sum, ergo sum prosperitas"
> ------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Tue, 16 Oct 2012 15:51:50 +0700
> *To: *<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Questioner Text Formula
>
>
>
> Bisa dilampirkan filenya ? (Max 250 KB)
>
> Wassalam,
> Kid.
>
> 2012/10/16 Abdi Pili <abdist.electrical@
>
>> **
>>
>>
>> ** Mr. Kid,
>>
>> Utk item nomor 4, saat di copas ke kanan dan ke bawah (bukan workbook dr
>> mr. Kid) terdapat error reference pada row D10:P10.
>> Mohon penjelasan dan bantuannya.
>>
>> Terima kasih.
>>
>>
>> Salam,
>> Abdi
>> "Cogito ergo sum, ergo sum prosperitas"
>> ------------
>> *From: * "Kid Mr." <mr.nmkid@gmail.
>> *Sender: * belajar-excel@
>> *Date: *Fri, 12 Oct 2012 22:10:13 +0700
>> *To: *<belajar-excel@
>> *ReplyTo: * belajar-excel@
>> *Subject: *Re: [belajar-excel] Questioner Text Formula
>>
>>
>>
>> Hai Abdi,
>>
>>
>> Hampir seluruh formula pada file terlampir telah divalueskan untuk
>> mengurangi size. Mohon maaf jika hal ini tidak dikehendaki.
>> btw,
>> Formula utama untuk menyusun report :
>> 1. sheet Form 7 Days Planning pada kolom DV
>> >> Tugasnya sebagai area untuk lookup berdasar kode PIC.
>> >> kolom ini berisi data PIC diikuti indeks kolom activity-nya. PIC pada
>> kolom ini diset selalu terdiri atas 5 karakter.
>> >> formula : (pada DV4 dan copy formula kebawah)
>> =IF(COUNTIF(
>> ",5)&LOOKUP(
>>
>> 2. sheet Daily Surveillance pada kolom A (hasil insert column)
>> >> Tugasnya membuat daftar nomor indeks baris data yang sesuai dengan
>> pilihan user pada nama PIC nya
>> >> Jenisnya array formula, jadi setiap penulisan formula (tanpa {} )
>> diakhir dengan menekan CTRL SHIFT ENTER (bukan hanya ENTER saja)
>> >> array formula pada A8 (copy kebawah)
>> =SMALL(IF(ISNUMBER(
>> Planning'!$DV$
>> Planning'!$DV$
>>
>> 3. Pengambilan data Surveillance Plan dan GS/Area di sheet Daily
>> Surveillance (kolom B dan C karena sudah ada insert kolom A)
>> >> Dengan formula Index yang barisnya merujuk pada nilai hasil kolom A
>> >> Contoh untuk kolom B (cell B8) : [sesuaikan rujukan kolom pada sheet
>> datanya]
>> =IF(ISNUMBER(
>>
>> 4. Area High Risk Activity to be Supervised di sheet Daily Surveillance
>> >> Membandingkan header (baris 7) dengan item activity untuk hasil baris
>> tersebut
>> >> Item activity untuk baris tersebut diambil dengan fungsi Index ke
>> header activity pada sheet Form 7 Days Planning dengan rujukan kolom adalah
>> sisi nilai yang ada dalam kolom DV di indeks data ke- nilai kolom A sheet
>> Daily Surveillance
>> >> Contoh formula untuk cell D8 (copy ke kanan dan bawah)
>> =IF(ISNUMBER(
>> Planning'!$DI$
>> Planning'!$DV$
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/10/12 aron doank <abdist.electrical@
>>
>>> **
>>>
>>>
>>> Be-Exceller,
>>>
>>> Mohon informasinya.
>>> Data yang diinginkan adalah mendapatkan item pada surveilance plan
>>> (kolom A
>>> sheet daily surveilance) dari item working plan (kolom A sheet form 7
>>> daily
>>> planning) berdasarkan masing-masing initial pada B2 sheet daily
>>> surveilance.
>>> Sehingga jika diganti nama pada B1 maka semua item surveilance yang
>>> muncul
>>> berurutan hanya untuk nama tsb saja (tidak muncul #NA lagi).
>>> Terlampir yang saya maksudkan.
>>>
>>> Satu lagi pertanyaan, apakah ada formula/rumus untuk menghilangkan angka
>>> dari text campuran angka dan teks seperti 3425TIH7945 dimana posisi teks
>>> terhadap huruf acak.
>>>
>>> Sebelumnya terima kasih.
>>>
>>> Salam hangat,
>>> Abdi
>>>
>>> "Cogito Ergo Sum, Ergo Sum Prosperitas"
>>>
>>>
>>
>
>
Tue Oct 16, 2012 5:16 am (PDT) . Posted by:
"Harry" hariansyahptk
Dear BeExceller,
Mohon bantuan rekan-rekan BeExceller akan studi kasus terlampir.
Terima kasih,
Harry
----- Pesan yang Diteruskan -----
Dari: Harry <hariansyahptk@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Minggu, 14 Oktober 2012 16:07
Judul: Bls: [belajar-excel] Hiden kolom dengan kreteria
Dear BeExceller,
Mr. Kid
Terima kasih atas informasinya.
Bersama ini saya kirimkan sesuai kreteria lampiran.
terima kasih & Wassalam,
Harry
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 14 Oktober 2012 13:38
Judul: Re: [belajar-excel] Hiden kolom dengan kreteria
"saya agak sedikit kesulitan untuk menuangkannya dalam Workbook yang saya miliki."
Sebaiknya pada lampiran disertakan hasil ujicobanya. Dengan begitu BeExceller bisa memulainya dari kondisi tersebut dan bukan membuatkan baru.
File lampirannya juga didisiplinkan untuk tetap maksimal 250KB.
Wassalam,
Kid
2012/10/14 Harry <hariansyahptk@yahoo.com >
>
>Dear BeExceller,
>Mr. Kid
>
>Terima kasih atas lampirannya.
>Dari pertanyaan dan studi kasus yang saya kirimkan serta jawaban dari Mr. Kid dan lampiran yang diberikan yang hasilnya sudah ok, saya agak sedikit kesulitan untuk menuangkannya dalam Workbook yang saya miliki.
>Lebih jauh akan pertanyaan tersebut, bersama ini saya kirimkan Workbook yang saya inginkan.
>Mohon kiranya teman-teman BeExceller dan/atau Mr. Kid dapat memberikan solusi.
>
>Harap maklum karena saya masih dalam tahap belajar.
>Terima kasih & Wassalam,
>
>
>Harry
>
>
>
>
>
>
>________________________________
> Dari: Mr. Kid <mr.nmkid@gmail.com >
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Minggu, 14 Oktober 2012 0:34
>
>Judul: Re: [belajar-excel] Hiden kolom dengan kreteria
>
>
>
>
>SIlakan.
>
>Wassalam,
>Kid.
>
>
>2012/10/14 Harry <hariansyahptk@yahoo.com >
>
>
>>
>>Dear BeExceller,
>>Mr. Kid & Hendrik Karnadi
>>
>>Terima kasih atas berkenan jawaban dan lampirannya.
>>Sebagai bahan informasi lebih lanjut akan pertanyaan saya, bersama ini saya kirimkan file "re-Studi Kasus (Hiden Kolom) sebagaima yang telah saya terima dan sedikit saya tambahkan penjelasan dimaksud.
>>
>>Besar harapan kiranya teman-teman BeExceller dapat memberikan solusi pada Studi Kasus terlampir.
>>
>>Terima Kasih,
>>
>>
>>
>>Harry
>>
>>
>>
>>
>>
>>
>>________________________________
>> Dari: Mr. Kid <mr.nmkid@gmail.com >
>>Kepada: belajar-excel@yahoogroups.com
>>Dikirim: Sabtu, 13 Oktober 2012 16:30
>>
>>Judul: Re: [belajar-excel] Hiden kolom dengan kreteria
>>
>>
>>
>>
>>Kalau input di cell A1 sedangkan kolom A sudah di-hidden terus bagaimana ?
>>
>>Coba file terlampir.
>>Buat yang ndak bisa download, bisa coba di tabel masing-masing.
>>1. Buat table dengan header ada di baris 3 mulai kolom A (mulai A3 sampai panjang kekanan)
>>2. Buat sebuah textbox
>>3. klik kanan textbox -> pilih Properties -> Name diganti menjadi txtCols
>>4. klik sebuah cell worksheet
>>5. klik kanan textbox -> pilih Format Control atau format object -> tab Properties -> pilih Don't size and move bla-bla -> tekan OK
>>6. pastikan tanda Design Mode sudah ON
>>7. double click si textbox yang bernama txtCols tersebut
>>8. setelah di VBE, hapus semua yang ada dilembar itu kecuali Option Explicit jika ada.
>>9. Copas script untuk event change dari textbox txtCols berikut ini ke lembar yang kosong tersebut :
>>Private Sub txtCols_Change()
>> Dim lChar As Long, sText As String, sCol As String
>> Dim rngTbl As Range, rng As Range
>>
>> Set rngTbl = Sheet1.Range("a3").CurrentRegion.Resize(1)
>> sText = UCase$(txtCols.Text)
>> Application.ScreenUpdating = False
>> rngTbl.Offset(0, rngTbl.Column).Resize(1, 1).Activate
>> If LenB(sText) = 0 Then
>> rngTbl.EntireColumn.Hidden = False
>> Else
>> For Each rng In rngTbl
>> rng.EntireColumn.Hidden = (InStr(sText, Replace$(rng.Address(False, False), rng.Row, vbNullString)) <> 0)
>> Next rng
>> End If
>> Application.ScreenUpdating = True
>>End Sub
>>10. kembali ke worksheet (tekan ALT F11)
>>11. turn off tanda design mode
>>12. save as (bukan save) -> lihat pilihan dalam Save As Type -> pilih .xls atau .xlsm atau .xlsb -> beri nama file -> tekan tombol Save
>>13. coba isi textbox txtCols dengan huruf.
>>
>>Batasan :
>>Kolom tabel lebih dari kolom Z atau tidak dimulai dari kolom A, kemungkinan akan tidak sesuai harapan.
>>
>>Wassalam,
>>Kid.
>>
>>
>>2012/10/13 Harry <hariansyahptk@yahoo.com >
>>
>>
>>>
>>>Dear BeExceller & Hendrik Karnadi,
>>>
>>>Terima kasih atas reply-nya.
>>>Rumus tersebut sesuai dengan yang saya inginkan tetapi jika kolom A1 posisinya dalam keadaan kosong (kata "ACEG" dihapus), kolom B, D, F H, I & J tidak kembali muncul. Dan jika kolom A1 saya ganti dengan kata ACFH, kolom B, D, E, G, I & J, tidak dalam keadaan di hiden (tersembunyi) dan seterusnya & seterusnya.
>>>
>>>Mohon informasinya.
>>>Terima kasih,
>>>
>>>
>>>Harry
>>>
>>>
>>>
>>>
>>>
>>>
>>>________________________________
>>> Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
>>>Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>>>Dikirim: Sabtu, 13 Oktober 2012 7:44
>>>Judul: Re: [belajar-excel] Hiden kolom dengan kreteria
>>>
>>>
>>>
>>>
>>>Dear Harry,
>>>
>>>Coba ketik (copy paste) macro di bawah ini pada Sheet1 atau Module1, dengan catatan:
>>>Color dibuat pada Range A3:J3 (tidak perlu ditulis pada Range A1) dan Kriteria Color dibuat pada Range A23
>>>
>>>Sub Sembunyikan()
>>> Dim KritColor
>>> Dim Rng As Range
>>> Range("A3:J3").EntireColumn.Hidden = False
>>> Set Rng = Range("A3:J3")
>>> KritColor = Range("A23").Interior.Color
>>> For Each r In Rng
>>> If r.Interior.Color <> KritColor Then
>>> r.EntireColumn.Hidden = True
>>> End If
>>> Next r
>>>End Sub
>>>
>>>Salam,
>>>Hendrik
Karnadi
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>________________________________
>>> From: Harry <hariansyahptk@yahoo.com >
>>>To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>>>Sent: Friday, 12 October 2012, 23:41
>>>Subject: [belajar-excel] Hiden kolom dengan kreteria
>>>
>>>
>>>
>>>Dear BeExceller,
>>>
>>>
>>>Saya ingin menampilkan kolom dan menyembunyikan (hiden) kolom yang yang saya inginkan sesuai dengan kreteria yang saya masukkan sebagaimana terlampir.
>>>
>>>
>>>Mohon penceraan dari rekan-rekan BeExceller akan hal tersebut.
>>>Terima kasih,
>>>
>>>
>>>
>>>
>>>
>>>
>>>Harry
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>
>
>
Mohon bantuan rekan-rekan BeExceller akan studi kasus terlampir.
Terima kasih,
Harry
----- Pesan yang Diteruskan -----
Dari: Harry <hariansyahptk@
Kepada: "belajar-excel@
Dikirim: Minggu, 14 Oktober 2012 16:07
Judul: Bls: [belajar-excel] Hiden kolom dengan kreteria
Dear BeExceller,
Mr. Kid
Terima kasih atas informasinya.
Bersama ini saya kirimkan sesuai kreteria lampiran.
terima kasih & Wassalam,
Harry
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Minggu, 14 Oktober 2012 13:38
Judul: Re: [belajar-excel] Hiden kolom dengan kreteria
"saya agak sedikit kesulitan untuk menuangkannya dalam Workbook yang saya miliki."
Sebaiknya pada lampiran disertakan hasil ujicobanya. Dengan begitu BeExceller bisa memulainya dari kondisi tersebut dan bukan membuatkan baru.
File lampirannya juga didisiplinkan untuk tetap maksimal 250KB.
Wassalam,
Kid
2012/10/14 Harry <hariansyahptk@
>
>Dear BeExceller,
>Mr. Kid
>
>Terima kasih atas lampirannya.
>Dari pertanyaan dan studi kasus yang saya kirimkan serta jawaban dari Mr. Kid dan lampiran yang diberikan yang hasilnya sudah ok, saya agak sedikit kesulitan untuk menuangkannya dalam Workbook yang saya miliki.
>Lebih jauh akan pertanyaan tersebut, bersama ini saya kirimkan Workbook yang saya inginkan.
>Mohon kiranya teman-teman BeExceller dan/atau Mr. Kid dapat memberikan solusi.
>
>Harap maklum karena saya masih dalam tahap belajar.
>Terima kasih & Wassalam,
>
>
>Harry
>
>
>
>
>
>
>___________
> Dari: Mr. Kid <mr.nmkid@gmail.
>Kepada: belajar-excel@
>Dikirim: Minggu, 14 Oktober 2012 0:34
>
>Judul: Re: [belajar-excel] Hiden kolom dengan kreteria
>
>
>
>
>SIlakan.
>
>Wassalam,
>Kid.
>
>
>2012/10/14 Harry <hariansyahptk@
>
>
>>
>>Dear BeExceller,
>>Mr. Kid & Hendrik Karnadi
>>
>>Terima kasih atas berkenan jawaban dan lampirannya.
>>Sebagai bahan informasi lebih lanjut akan pertanyaan saya, bersama ini saya kirimkan file "re-Studi Kasus (Hiden Kolom) sebagaima yang telah saya terima dan sedikit saya tambahkan penjelasan dimaksud.
>>
>>Besar harapan kiranya teman-teman BeExceller dapat memberikan solusi pada Studi Kasus terlampir.
>>
>>Terima Kasih,
>>
>>
>>
>>Harry
>>
>>
>>
>>
>>
>>
>>__________
>> Dari: Mr. Kid <mr.nmkid@gmail.
>>Kepada: belajar-excel@
>>Dikirim: Sabtu, 13 Oktober 2012 16:30
>>
>>Judul: Re: [belajar-excel] Hiden kolom dengan kreteria
>>
>>
>>
>>
>>Kalau input di cell A1 sedangkan kolom A sudah di-hidden terus bagaimana ?
>>
>>Coba file terlampir.
>>Buat yang ndak bisa download, bisa coba di tabel masing-masing.
>>1. Buat table dengan header ada di baris 3 mulai kolom A (mulai A3 sampai panjang kekanan)
>>2. Buat sebuah textbox
>>3. klik kanan textbox -> pilih Properties -> Name diganti menjadi txtCols
>>4. klik sebuah cell worksheet
>>5. klik kanan textbox -> pilih Format Control atau format object -> tab Properties -> pilih Don't size and move bla-bla -> tekan OK
>>6. pastikan tanda Design Mode sudah ON
>>7. double click si textbox yang bernama txtCols tersebut
>>8. setelah di VBE, hapus semua yang ada dilembar itu kecuali Option Explicit jika ada.
>>9. Copas script untuk event change dari textbox txtCols berikut ini ke lembar yang kosong tersebut :
>>Private Sub txtCols_Change(
>> Dim lChar As Long, sText As String, sCol As String
>> Dim rngTbl As Range, rng As Range
>>
>> Set rngTbl = Sheet1.Range(
>> sText = UCase$(txtCols.
>> Application.
>> rngTbl.Offset(
>> If LenB(sText) = 0 Then
>> rngTbl.EntireColumn
>> Else
>> For Each rng In rngTbl
>> rng.EntireColumn.
>> Next rng
>> End If
>> Application.
>>End Sub
>>10. kembali ke worksheet (tekan ALT F11)
>>11. turn off tanda design mode
>>12. save as (bukan save) -> lihat pilihan dalam Save As Type -> pilih .xls atau .xlsm atau .xlsb -> beri nama file -> tekan tombol Save
>>13. coba isi textbox txtCols dengan huruf.
>>
>>Batasan :
>>Kolom tabel lebih dari kolom Z atau tidak dimulai dari kolom A, kemungkinan akan tidak sesuai harapan.
>>
>>Wassalam,
>>Kid.
>>
>>
>>2012/10/13 Harry <hariansyahptk@
>>
>>
>>>
>>>Dear BeExceller & Hendrik Karnadi,
>>>
>>>Terima kasih atas reply-nya.
>>>Rumus tersebut sesuai dengan yang saya inginkan tetapi jika kolom A1 posisinya dalam keadaan kosong (kata "ACEG" dihapus), kolom B, D, F H, I & J tidak kembali muncul. Dan jika kolom A1 saya ganti dengan kata ACFH, kolom B, D, E, G, I & J, tidak dalam keadaan di hiden (tersembunyi) dan seterusnya & seterusnya.
>>>
>>>Mohon informasinya.
>>>Terima kasih,
>>>
>>>
>>>Harry
>>>
>>>
>>>
>>>
>>>
>>>
>>>_________
>>> Dari: hendrik karnadi <hendrikkarnadi@
>>>Kepada: "belajar-excel@
>>>Dikirim: Sabtu, 13 Oktober 2012 7:44
>>>Judul: Re: [belajar-excel] Hiden kolom dengan kreteria
>>>
>>>
>>>
>>>
>>>Dear Harry,
>>>
>>>Coba ketik (copy paste) macro di bawah ini pada Sheet1 atau Module1, dengan catatan:
>>>Color dibuat pada Range A3:J3 (tidak perlu ditulis pada Range A1) dan Kriteria Color dibuat pada Range A23
>>>
>>>Sub Sembunyikan(
>>> Dim KritColor
>>> Dim Rng As Range
>>> Range("A3:J3"
>>> Set Rng = Range("A3:J3"
>>> KritColor = Range("A23")
>>> For Each r In Rng
>>> If r.Interior.Color <> KritColor Then
>>> r.EntireColumn.
>>> End If
>>> Next r
>>>End Sub
>>>
>>>Salam,
>>>Hendrik
Karnadi
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>_________
>>> From: Harry <hariansyahptk@
>>>To: "belajar-excel@
>>>Sent: Friday, 12 October 2012, 23:41
>>>Subject: [belajar-excel] Hiden kolom dengan kreteria
>>>
>>>
>>>
>>>Dear BeExceller,
>>>
>>>
>>>Saya ingin menampilkan kolom dan menyembunyikan (hiden) kolom yang yang saya inginkan sesuai dengan kreteria yang saya masukkan sebagaimana terlampir.
>>>
>>>
>>>Mohon penceraan dari rekan-rekan BeExceller akan hal tersebut.
>>>Terima kasih,
>>>
>>>
>>>
>>>
>>>
>>>
>>>Harry
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>
>
>
Tue Oct 16, 2012 8:58 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Gimana kalau re-post-nya disertai dengan penjelasan yang lebih rinci
tentang kriterianya.
Karena setelah dilihat filenya, penggunaan istilah kolom A,B,dsb malah
membingungkan.
Kolom yang dijabarkan dalam kriteria itu kolom-kolom Excel atau nama-nama
kolom dari tabel yang ada.
Jika kolom itu adalah kolom-kolom Excel, sedangkan input dilakukan di kolom
A, ketika kolom A di-hide, maka ndak ada ruang input.
Jadi ndak mungkin kolom-kolom kriteria itu adalah kolom-kolom Excel. Tapi, jika
kolom itu adalah nama-nama kolom tabel, maka ada beberapa nama kolom yang
tidak ada dalam tabel.
Ada yang bagian yang menyatakan 'kolom AQ = hidden' (AQ yang mana ?)
Ada yang bagian yang menyatakan 'jika kolom BA #NUM!' (BA yang mana ?)
dan sebagainya.
Wassalam,
Kid.
2012/10/16 Harry <hariansyahptk@yahoo.com >
> **
>
>
> Dear BeExceller,
>
> Mohon bantuan rekan-rekan BeExceller akan studi kasus terlampir.
> Terima kasih,
>
>
> Harry
>
> ----- Pesan yang Diteruskan -----
> *Dari:* Harry <hariansyahptk@yahoo.com >
> *Kepada:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Dikirim:* Minggu, 14 Oktober 2012 16:07
> *Judul:* Bls: [belajar-excel] Hiden kolom dengan kreteria
>
> Dear BeExceller,
> Mr. Kid
>
> Terima kasih atas informasinya.
> Bersama ini saya kirimkan sesuai kreteria lampiran.
> terima kasih & Wassalam,
>
>
> Harry
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Minggu, 14 Oktober 2012 13:38
> *Judul:* Re: [belajar-excel] Hiden kolom dengan kreteria
>
>
> "saya agak sedikit kesulitan untuk menuangkannya dalam Workbook yang saya
> miliki."
> Sebaiknya pada lampiran disertakan hasil ujicobanya. Dengan begitu
> BeExceller bisa memulainya dari kondisi tersebut dan bukan membuatkan baru.
> File lampirannya juga didisiplinkan untuk tetap maksimal 250KB.
>
> Wassalam,
> Kid
>
> 2012/10/14 Harry <hariansyahptk@yahoo.com >
>
> **
>
> Dear BeExceller,
> Mr. Kid
>
> Terima kasih atas lampirannya.
> Dari pertanyaan dan studi kasus yang saya kirimkan serta jawaban dari Mr.
> Kid dan lampiran yang diberikan yang hasilnya sudah ok, saya agak sedikit
> kesulitan untuk menuangkannya dalam Workbook yang saya miliki.
> Lebih jauh akan pertanyaan tersebut, bersama ini saya kirimkan Workbook
> yang saya inginkan.
> Mohon kiranya teman-teman BeExceller dan/atau Mr. Kid dapat memberikan
> solusi.
>
> Harap maklum karena saya masih dalam tahap belajar.
> Terima kasih & Wassalam,
>
>
> Harry
>
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Minggu, 14 Oktober 2012 0:34
>
> *Judul:* Re: [belajar-excel] Hiden kolom dengan kreteria
>
>
> SIlakan.
>
> Wassalam,
> Kid.
>
> 2012/10/14 Harry <hariansyahptk@yahoo.com >
>
> **
>
> Dear BeExceller,
> Mr. Kid & Hendrik Karnadi
>
> Terima kasih atas berkenan jawaban dan lampirannya.
> Sebagai bahan informasi lebih lanjut akan pertanyaan saya, bersama ini
> saya kirimkan file "re-Studi Kasus (Hiden Kolom) sebagaima yang telah saya
> terima dan sedikit saya tambahkan penjelasan dimaksud.
>
> Besar harapan kiranya teman-teman BeExceller dapat memberikan solusi pada
> Studi Kasus terlampir.
>
> Terima Kasih,
>
>
>
> Harry
>
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Sabtu, 13 Oktober 2012 16:30
>
> *Judul:* Re: [belajar-excel] Hiden kolom dengan kreteria
>
>
> Kalau input di cell A1 sedangkan kolom A sudah di-hidden terus bagaimana ?
>
> Coba file terlampir.
> Buat yang ndak bisa download, bisa coba di tabel masing-masing.
> 1. Buat table dengan header ada di baris 3 mulai kolom A (mulai A3 sampai
> panjang kekanan)
> 2. Buat sebuah textbox
> 3. klik kanan textbox -> pilih Properties -> Name diganti menjadi txtCols
> 4. klik sebuah cell worksheet
> 5. klik kanan textbox -> pilih Format Control atau format object -> tab
> Properties -> pilih Don't size and move bla-bla -> tekan OK
> 6. pastikan tanda Design Mode sudah ON
> 7. double click si textbox yang bernama txtCols tersebut
> 8. setelah di VBE, hapus semua yang ada dilembar itu kecuali Option
> Explicit jika ada.
> 9. Copas script untuk event change dari textbox txtCols berikut ini ke
> lembar yang kosong tersebut :
> Private Sub txtCols_Change()
> Dim lChar As Long, sText As String, sCol As String
> Dim rngTbl As Range, rng As Range
>
> Set rngTbl = Sheet1.Range("a3").CurrentRegion.Resize(1)
> sText = UCase$(txtCols.Text)
> Application.ScreenUpdating = False
> rngTbl.Offset(0, rngTbl.Column).Resize(1, 1).Activate
> If LenB(sText) = 0 Then
> rngTbl.EntireColumn.Hidden = False
> Else
> For Each rng In rngTbl
> rng.EntireColumn.Hidden = (InStr(sText, Replace$(rng.Address(False,
> False), rng.Row, vbNullString)) <> 0)
> Next rng
> End If
> Application.ScreenUpdating = True
> End Sub
> 10. kembali ke worksheet (tekan ALT F11)
> 11. turn off tanda design mode
> 12. save as (bukan save) -> lihat pilihan dalam Save As Type -> pilih .xls
> atau .xlsm atau .xlsb -> beri nama file -> tekan tombol Save
> 13. coba isi textbox txtCols dengan huruf.
>
> Batasan :
> Kolom tabel lebih dari kolom Z atau tidak dimulai dari kolom A,
> kemungkinan akan tidak sesuai harapan.
>
> Wassalam,
> Kid.
>
> 2012/10/13 Harry <hariansyahptk@yahoo.com >
>
> **
>
> Dear BeExceller & Hendrik Karnadi,
>
> Terima kasih atas reply-nya.
> Rumus tersebut sesuai dengan yang saya inginkan tetapi jika kolom A1
> posisinya dalam keadaan kosong (kata "ACEG" dihapus), kolom B, D, F H, I &
> J tidak kembali muncul. Dan jika kolom A1 saya ganti dengan kata ACFH,
> kolom B, D, E, G, I & J, tidak dalam keadaan di hiden (tersembunyi) dan
> seterusnya & seterusnya.
>
> Mohon informasinya.
> Terima kasih,
>
>
> Harry
>
>
> ------------------------------
> *Dari:* hendrik karnadi <hendrikkarnadi@yahoo.com >
> *Kepada:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Dikirim:* Sabtu, 13 Oktober 2012 7:44
> *Judul:* Re: [belajar-excel] Hiden kolom dengan kreteria
>
>
> Dear Harry,
>
> Coba ketik (copy paste) macro di bawah ini pada Sheet1 atau Module1,
> dengan catatan:
> Color dibuat pada Range A3:J3 (tidak perlu ditulis pada Range A1) dan
> Kriteria Color dibuat pada Range A23
>
> Sub Sembunyikan()
> Dim KritColor
> Dim Rng As Range
> Range("A3:J3").EntireColumn.Hidden = False
> Set Rng = Range("A3:J3")
> KritColor = Range("A23").Interior.Color
> For Each r In Rng
> If r.Interior.Color <> KritColor Then
> r.EntireColumn.Hidden = True
> End If
> Next r
> End Sub
>
> Salam,
> Hendrik Karnadi
>
>
>
> ------------------------------
> *From:* Harry <hariansyahptk@yahoo.com >
> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Sent:* Friday, 12 October 2012, 23:41
> *Subject:* [belajar-excel] Hiden kolom dengan kreteria
>
>
> Dear BeExceller,
>
> Saya ingin menampilkan kolom dan menyembunyikan (hiden) kolom yang yang
> saya inginkan sesuai dengan kreteria yang saya masukkan sebagaimana
> terlampir.
>
> Mohon penceraan dari rekan-rekan BeExceller akan hal tersebut.
> Terima kasih,
>
>
>
> Harry
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
tentang kriterianya.
Karena setelah dilihat filenya, penggunaan istilah kolom A,B,dsb malah
membingungkan.
Kolom yang dijabarkan dalam kriteria itu kolom-kolom Excel atau nama-nama
kolom dari tabel yang ada.
Jika kolom itu adalah kolom-kolom Excel, sedangkan input dilakukan di kolom
A, ketika kolom A di-hide, maka ndak ada ruang input.
Jadi ndak mungkin kolom-kolom kriteria itu adalah kolom-kolom Excel. Tapi, jika
kolom itu adalah nama-nama kolom tabel, maka ada beberapa nama kolom yang
tidak ada dalam tabel.
Ada yang bagian yang menyatakan 'kolom AQ = hidden' (AQ yang mana ?)
Ada yang bagian yang menyatakan 'jika kolom BA #NUM!' (BA yang mana ?)
dan sebagainya.
Wassalam,
Kid.
2012/10/16 Harry <hariansyahptk@
> **
>
>
> Dear BeExceller,
>
> Mohon bantuan rekan-rekan BeExceller akan studi kasus terlampir.
> Terima kasih,
>
>
> Harry
>
> ----- Pesan yang Diteruskan -----
> *Dari:* Harry <hariansyahptk@
> *Kepada:* "belajar-excel@
> *Dikirim:* Minggu, 14 Oktober 2012 16:07
> *Judul:* Bls: [belajar-excel] Hiden kolom dengan kreteria
>
> Dear BeExceller,
> Mr. Kid
>
> Terima kasih atas informasinya.
> Bersama ini saya kirimkan sesuai kreteria lampiran.
> terima kasih & Wassalam,
>
>
> Harry
>
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Minggu, 14 Oktober 2012 13:38
> *Judul:* Re: [belajar-excel] Hiden kolom dengan kreteria
>
>
> "saya agak sedikit kesulitan untuk menuangkannya dalam Workbook yang saya
> miliki."
> Sebaiknya pada lampiran disertakan hasil ujicobanya. Dengan begitu
> BeExceller bisa memulainya dari kondisi tersebut dan bukan membuatkan baru.
> File lampirannya juga didisiplinkan untuk tetap maksimal 250KB.
>
> Wassalam,
> Kid
>
> 2012/10/14 Harry <hariansyahptk@
>
> **
>
> Dear BeExceller,
> Mr. Kid
>
> Terima kasih atas lampirannya.
> Dari pertanyaan dan studi kasus yang saya kirimkan serta jawaban dari Mr.
> Kid dan lampiran yang diberikan yang hasilnya sudah ok, saya agak sedikit
> kesulitan untuk menuangkannya dalam Workbook yang saya miliki.
> Lebih jauh akan pertanyaan tersebut, bersama ini saya kirimkan Workbook
> yang saya inginkan.
> Mohon kiranya teman-teman BeExceller dan/atau Mr. Kid dapat memberikan
> solusi.
>
> Harap maklum karena saya masih dalam tahap belajar.
> Terima kasih & Wassalam,
>
>
> Harry
>
>
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Minggu, 14 Oktober 2012 0:34
>
> *Judul:* Re: [belajar-excel] Hiden kolom dengan kreteria
>
>
> SIlakan.
>
> Wassalam,
> Kid.
>
> 2012/10/14 Harry <hariansyahptk@
>
> **
>
> Dear BeExceller,
> Mr. Kid & Hendrik Karnadi
>
> Terima kasih atas berkenan jawaban dan lampirannya.
> Sebagai bahan informasi lebih lanjut akan pertanyaan saya, bersama ini
> saya kirimkan file "re-Studi Kasus (Hiden Kolom) sebagaima yang telah saya
> terima dan sedikit saya tambahkan penjelasan dimaksud.
>
> Besar harapan kiranya teman-teman BeExceller dapat memberikan solusi pada
> Studi Kasus terlampir.
>
> Terima Kasih,
>
>
>
> Harry
>
>
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Sabtu, 13 Oktober 2012 16:30
>
> *Judul:* Re: [belajar-excel] Hiden kolom dengan kreteria
>
>
> Kalau input di cell A1 sedangkan kolom A sudah di-hidden terus bagaimana ?
>
> Coba file terlampir.
> Buat yang ndak bisa download, bisa coba di tabel masing-masing.
> 1. Buat table dengan header ada di baris 3 mulai kolom A (mulai A3 sampai
> panjang kekanan)
> 2. Buat sebuah textbox
> 3. klik kanan textbox -> pilih Properties -> Name diganti menjadi txtCols
> 4. klik sebuah cell worksheet
> 5. klik kanan textbox -> pilih Format Control atau format object -> tab
> Properties -> pilih Don't size and move bla-bla -> tekan OK
> 6. pastikan tanda Design Mode sudah ON
> 7. double click si textbox yang bernama txtCols tersebut
> 8. setelah di VBE, hapus semua yang ada dilembar itu kecuali Option
> Explicit jika ada.
> 9. Copas script untuk event change dari textbox txtCols berikut ini ke
> lembar yang kosong tersebut :
> Private Sub txtCols_Change(
> Dim lChar As Long, sText As String, sCol As String
> Dim rngTbl As Range, rng As Range
>
> Set rngTbl = Sheet1.Range(
> sText = UCase$(txtCols.
> Application.
> rngTbl.Offset(
> If LenB(sText) = 0 Then
> rngTbl.EntireColumn
> Else
> For Each rng In rngTbl
> rng.EntireColumn.
> False), rng.Row, vbNullString)
> Next rng
> End If
> Application.
> End Sub
> 10. kembali ke worksheet (tekan ALT F11)
> 11. turn off tanda design mode
> 12. save as (bukan save) -> lihat pilihan dalam Save As Type -> pilih .xls
> atau .xlsm atau .xlsb -> beri nama file -> tekan tombol Save
> 13. coba isi textbox txtCols dengan huruf.
>
> Batasan :
> Kolom tabel lebih dari kolom Z atau tidak dimulai dari kolom A,
> kemungkinan akan tidak sesuai harapan.
>
> Wassalam,
> Kid.
>
> 2012/10/13 Harry <hariansyahptk@
>
> **
>
> Dear BeExceller & Hendrik Karnadi,
>
> Terima kasih atas reply-nya.
> Rumus tersebut sesuai dengan yang saya inginkan tetapi jika kolom A1
> posisinya dalam keadaan kosong (kata "ACEG" dihapus), kolom B, D, F H, I &
> J tidak kembali muncul. Dan jika kolom A1 saya ganti dengan kata ACFH,
> kolom B, D, E, G, I & J, tidak dalam keadaan di hiden (tersembunyi) dan
> seterusnya & seterusnya.
>
> Mohon informasinya.
> Terima kasih,
>
>
> Harry
>
>
> ------------
> *Dari:* hendrik karnadi <hendrikkarnadi@
> *Kepada:* "belajar-excel@
> *Dikirim:* Sabtu, 13 Oktober 2012 7:44
> *Judul:* Re: [belajar-excel] Hiden kolom dengan kreteria
>
>
> Dear Harry,
>
> Coba ketik (copy paste) macro di bawah ini pada Sheet1 atau Module1,
> dengan catatan:
> Color dibuat pada Range A3:J3 (tidak perlu ditulis pada Range A1) dan
> Kriteria Color dibuat pada Range A23
>
> Sub Sembunyikan(
> Dim KritColor
> Dim Rng As Range
> Range("A3:J3"
> Set Rng = Range("A3:J3"
> KritColor = Range("A23")
> For Each r In Rng
> If r.Interior.Color <> KritColor Then
> r.EntireColumn.
> End If
> Next r
> End Sub
>
> Salam,
> Hendrik Karnadi
>
>
>
> ------------
> *From:* Harry <hariansyahptk@
> *To:* "belajar-excel@
> *Sent:* Friday, 12 October 2012, 23:41
> *Subject:* [belajar-excel] Hiden kolom dengan kreteria
>
>
> Dear BeExceller,
>
> Saya ingin menampilkan kolom dan menyembunyikan (hiden) kolom yang yang
> saya inginkan sesuai dengan kreteria yang saya masukkan sebagaimana
> terlampir.
>
> Mohon penceraan dari rekan-rekan BeExceller akan hal tersebut.
> Terima kasih,
>
>
>
> Harry
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Tue Oct 16, 2012 5:27 am (PDT) . Posted by:
"Owner Serbaonline" ownerserbaonline@ymail.com
salam.
sy minta tolong kpd suhu yg ada di groupyg ada, krna masih cetek ilmu ne cb otak2k sendiri g juga nemu..maklum otodidak..hehehe
1. saya mau melink kan antara AVAIL yg ada di beranda atas nama ABDUL HALIM ke Cell AVAIL yg ada di SHEET ABDUL HALIM. maksudnya agar jikan di klik bisa langsung tertuju ke AVAIL yg ada di sheet ABDUL HALIM.
2. saya mau membuat semacam drop-down agar lebih cepat dengan hanya diklik bisa langsung ke cell ke tujuan.
--- Mods ---
Bukankah sudah ada di :
http://tech.
------------
Tue Oct 16, 2012 6:21 am (PDT) . Posted by:
"sapicumi" sapicumi@rocketmail.com
selamat malam sekaliaaan malam hari ini saya ada kasus dalam pencarian
berdasarkan kode yg bersyarat sbb:
-pencarian hanya dilakukan dengan menggunan 3 digit paling belakang
-kl memungkinan menggunakan juga case sensitifiti
-saya pernah menggunakan code UCase tp sprti tidak berpengaruh
mohon kiranya master2 mau membantu memecahkan masalah ini
selama ini saya menggunakan sistem pencarian yg sederhana contoh begini
Sub cari()
Dim kode As String
Dim lcari As Long
kode = UCase(Trim(Range("E3").Value))
lcari = 0
lcari = Sheets("data").Columns("B:B").Find(kode).Row
'Jika pencarian gagal maka nilai variabel lCari akan tetap nol
If lcari = 0 Then
MsgBox "Kode Warga " & kode & " tidak ditemukan!!" & Chr(13) & _
"Silahkan isikan yang lain", vbInformation, "Info"
Range("E7").Value = ""
Range("E7").Select
Exit Sub
End If
With Sheets("data")
Range("C5").Value = .Range("B" & lcari).Value
Range("C6").Value = .Range("C" & lcari).Value
Range("C7").Value = .Range("D" & lcari).Value
Range("C8").Value = .Range("E" & lcari).Value
End With
End Sub
nah dalam kasus ini saya ingin pencarian dilakukan menggunakan 3 digit
paling belakang untuk keterangan lebih lanjut bisa langsung dicoba pada file
terlampir terimakasih
search.xlsm
<http://milis-belajar-excel.1048464.n5.nabble.com/file/n5712605/search.xlsm >
jojo
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/Search-Kode-3-Digit-Dari-Kanan-tp5712605.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
berdasarkan kode yg bersyarat sbb:
-pencarian hanya dilakukan dengan menggunan 3 digit paling belakang
-kl memungkinan menggunakan juga case sensitifiti
-saya pernah menggunakan code UCase tp sprti tidak berpengaruh
mohon kiranya master2 mau membantu memecahkan masalah ini
selama ini saya menggunakan sistem pencarian yg sederhana contoh begini
Sub cari()
Dim kode As String
Dim lcari As Long
kode = UCase(Trim(Range(
lcari = 0
lcari = Sheets("data"
'Jika pencarian gagal maka nilai variabel lCari akan tetap nol
If lcari = 0 Then
MsgBox "Kode Warga " & kode & " tidak ditemukan!!" & Chr(13) & _
"Silahkan isikan yang lain", vbInformation, "Info"
Range("E7").
Range("E7").
Exit Sub
End If
With Sheets("data"
Range("C5").
Range("C6").
Range("C7").
Range("C8").
End With
End Sub
nah dalam kasus ini saya ingin pencarian dilakukan menggunakan 3 digit
paling belakang untuk keterangan lebih lanjut bisa langsung dicoba pada file
terlampir terimakasih
search.xlsm
<http://milis-
jojo
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Tue Oct 16, 2012 9:08 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Asumsi :
- variabel kode berisi 3 karakter terakhir yang dicari
Baris :
lcari = Sheets("data").Columns("B:B").Find( *"*" &* kode *,
matchcase:=true*).Row
Wassalam,
Kid.
2012/10/16 sapicumi <sapicumi@rocketmail.com >
> **
>
>
> selamat malam sekaliaaan malam hari ini saya ada kasus dalam pencarian
> berdasarkan kode yg bersyarat sbb:
> -pencarian hanya dilakukan dengan menggunan 3 digit paling belakang
> -kl memungkinan menggunakan juga case sensitifiti
> -saya pernah menggunakan code UCase tp sprti tidak berpengaruh
> mohon kiranya master2 mau membantu memecahkan masalah ini
> selama ini saya menggunakan sistem pencarian yg sederhana contoh begini
>
> Sub cari()
> Dim kode As String
> Dim lcari As Long
> kode = UCase(Trim(Range("E3").Value))
> lcari = 0
> lcari = Sheets("data").Columns("B:B").Find(kode).Row
> 'Jika pencarian gagal maka nilai variabel lCari akan tetap nol
> If lcari = 0 Then
> MsgBox "Kode Warga " & kode & " tidak ditemukan!!" & Chr(13) & _
> "Silahkan isikan yang lain", vbInformation, "Info"
> Range("E7").Value = ""
> Range("E7").Select
> Exit Sub
> End If
> With Sheets("data")
> Range("C5").Value = .Range("B" & lcari).Value
> Range("C6").Value = .Range("C" & lcari).Value
> Range("C7").Value = .Range("D" & lcari).Value
> Range("C8").Value = .Range("E" & lcari).Value
> End With
> End Sub
>
> nah dalam kasus ini saya ingin pencarian dilakukan menggunakan 3 digit
> paling belakang untuk keterangan lebih lanjut bisa langsung dicoba pada
> file
> terlampir terimakasih
>
> search.xlsm
> <
> http://milis-belajar-excel.1048464.n5.nabble.com/file/n5712605/search.xlsm >
>
> jojo
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/Search-Kode-3-Digit-Dari-Kanan-tp5712605.html
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
- variabel kode berisi 3 karakter terakhir yang dicari
Baris :
lcari = Sheets("data"
matchcase:=true*
Wassalam,
Kid.
2012/10/16 sapicumi <sapicumi@rocketmail
> **
>
>
> selamat malam sekaliaaan malam hari ini saya ada kasus dalam pencarian
> berdasarkan kode yg bersyarat sbb:
> -pencarian hanya dilakukan dengan menggunan 3 digit paling belakang
> -kl memungkinan menggunakan juga case sensitifiti
> -saya pernah menggunakan code UCase tp sprti tidak berpengaruh
> mohon kiranya master2 mau membantu memecahkan masalah ini
> selama ini saya menggunakan sistem pencarian yg sederhana contoh begini
>
> Sub cari()
> Dim kode As String
> Dim lcari As Long
> kode = UCase(Trim(Range(
> lcari = 0
> lcari = Sheets("data"
> 'Jika pencarian gagal maka nilai variabel lCari akan tetap nol
> If lcari = 0 Then
> MsgBox "Kode Warga " & kode & " tidak ditemukan!!" & Chr(13) & _
> "Silahkan isikan yang lain", vbInformation, "Info"
> Range("E7").
> Range("E7").
> Exit Sub
> End If
> With Sheets("data"
> Range("C5").
> Range("C6").
> Range("C7").
> Range("C8").
> End With
> End Sub
>
> nah dalam kasus ini saya ingin pencarian dilakukan menggunakan 3 digit
> paling belakang untuk keterangan lebih lanjut bisa langsung dicoba pada
> file
> terlampir terimakasih
>
> search.xlsm
> <
> http://milis-
>
> jojo
>
> --
> View this message in context:
> http://milis-
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
Tue Oct 16, 2012 9:17 am (PDT) . Posted by:
"sapicumi" sapicumi@rocketmail.com
terimakasih tanggapanya pak kid
-namun apakah char "*" tsb dikenali di vba?
kode saya sebagai contoh seperti ini "WR-004-*002*" bagian bold saja yang
dicari string depanya di hiraukan
trimakasih
jojo
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/Search-Kode-3-Digit-Dari-Kanan-tp5712605p5712609.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
-namun apakah char "*" tsb dikenali di vba?
kode saya sebagai contoh seperti ini "WR-004-*002*
dicari string depanya di hiraukan
trimakasih
jojo
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Tue Oct 16, 2012 9:25 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
kode saya sebagai contoh seperti ini "WR-004-*002*" bagian bold saja yang
dicari string depanya di hiraukan
>> Asumsi :
- *variabel kode* berisi 3 karakter terakhir yang dicari
berarti *variabel kode* sudah berisi 002. Kalau belum, maka diproses dulu
supaya isinya 002 (3 karakter terakhir yang dicari)
Baris :
lcari = Sheets("data").Columns("B:B").Find( *"*" &* kode *,
matchcase:=true*).Row
>> jadi yang dicari nanti suatu teks berbunyi '*002' ketika varibel kode
bernilai '002'
-namun apakah char "*" tsb dikenali di vba?
>> Mestinya kenal.
Wassalam,
Kid.
2012/10/16 sapicumi <sapicumi@rocketmail.com >
> **
>
>
> terimakasih tanggapanya pak kid
> -namun apakah char "*" tsb dikenali di vba?
> kode saya sebagai contoh seperti ini "WR-004-*002*" bagian bold saja yang
> dicari string depanya di hiraukan
> trimakasih
> jojo
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/Search-Kode-3-Digit-Dari-Kanan-tp5712605p5712609.html
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
dicari string depanya di hiraukan
>> Asumsi :
- *variabel kode* berisi 3 karakter terakhir yang dicari
berarti *variabel kode* sudah berisi 002. Kalau belum, maka diproses dulu
supaya isinya 002 (3 karakter terakhir yang dicari)
Baris :
lcari = Sheets("data"
matchcase:=true*
>> jadi yang dicari nanti suatu teks berbunyi '*002' ketika varibel kode
bernilai '002'
-namun apakah char "*" tsb dikenali di vba?
>> Mestinya kenal.
Wassalam,
Kid.
2012/10/16 sapicumi <sapicumi@rocketmail
> **
>
>
> terimakasih tanggapanya pak kid
> -namun apakah char "*" tsb dikenali di vba?
> kode saya sebagai contoh seperti ini "WR-004-*002*
> dicari string depanya di hiraukan
> trimakasih
> jojo
>
> --
> View this message in context:
> http://milis-
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
Tue Oct 16, 2012 9:30 am (PDT) . Posted by:
"sapicumi" sapicumi@rocketmail.com
terimakasih pak kid
sudah saya coba memasukan coding sbb:
lcari = Sheets("data").Columns("B:B").Find( *"*" &* kode *,
matchcase:=true*).Row
namun keluar eror bertuliskan "expected expression" dengan coding diblok
merah
terimakasih
jojo
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/Search-Kode-3-Digit-Dari-Kanan-tp5712605p5712611.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
sudah saya coba memasukan coding sbb:
lcari = Sheets("data"
matchcase:=true*
namun keluar eror bertuliskan "expected expression" dengan coding diblok
merah
terimakasih
jojo
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Tue Oct 16, 2012 6:33 am (PDT) . Posted by:
"Emi" emilestariklcc
Terima kasih Pak Kid di atas bantuan.
Untuk sharing kepada teman teman di milis BeExcel,
-Emi Lestari
----- Forwarded Message -----
From: Mr. Kid <mr.nmkid@gmail.com >
To: Emi <emilestariklcc@yahoo.com >
Sent: Tuesday, October 16, 2012 10:14 AM
Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
Oh begitu, kok bisa tiba-tiba ?
Jadi penasaran tentang penyebabnya.
btw,
untuk persentase yang tampak kecil, disebabkan karena dibuat fit.
File terlampir dibuat zoom 90% dan bisa diatur melalui printpreview yag muncul setiap akhir proses penekanan tombol susun data.
Wassalam,
Kid.
2012/10/16 Emi <emilestariklcc@yahoo.com >
Pak Kid,
>
>Semuanya sudah ok, cuma mau tanya gimana kalau saya mau tukar scale pada previewnya. Kalau yang sekarang hanya 27%.,
>
>Jadi printingnya kecil.
>
>Terima kasih
>
>
>
>
>From: Mr. Kid <mr.nmkid@gmail.com >
>To: Emi <emilestariklcc@yahoo.com >
>Sent: Tuesday, October 16, 2012 12:05 AM
>
>Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
>
>
>Berikut contoh dengan data 2 baris.
>
>Kid.
>
>
>2012/10/15 Mr. Kid <mr.nmkid@gmail.com >
>
>Ya Bu.
>>Semua data di sheet data akan disusun hasilnya di sheet output dengan cara menekan tombol di sheet output itu
>>Semua versi Excel (2003,2007,2010) yang 32 Bit bisa jalan. Mungkinkah komputer ibu dengan office 2010 64 bit ?
>>
>>
>>Kid.
>>
>>
>>
>>2012/10/15 Emi <emilestariklcc@yahoo.com >
>>
>>Makronya mungkin sudah bagus. Mungkin saya yang kurang faham cara operasinya.
>>>Mau tanya, apakah output nya dihasilkan oleh makro?
>>>Apabila saya kurangkan data di sheet1, lalu diklik pada tombol, output nya malah jadi kosong.
>>>
>>>
>>>Terima kasih karena udah banyak membantu.
>>>
>>>
>>>Besok saya akan coba lagi, kalau masih kurang jelas saya akan tanyakan lagi.
>>>
>>>
>>>Wassalam.
>>>
>>>
>>>
>>>
>>>From: Mr. Kid <mr.nmkid@gmail.com >
>>>To: emilestariklcc@yahoo.com
>>>Sent: Monday, October 15, 2012 11:41 PM
>>>
>>>Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
>>>
>>>
>>>
>>>Sorry lewat japri dulu. Nanti ndak dikira spam sama YahooGroups.
>>>File terlampir adalah contoh ketika tombol di sheet Output di pencet.
>>>
>>>Jadi, begitu buka filenya, jika ada pertanyaan tentang Macro atau jika muncul tombol Options dengan warning tentang security di atas header kolom-kolom Excel tekan tombol Options.
>>>Kemudian pilih Enable Macro,
>>>kemudian ke sheet output,
>>>dan pencet tombol Susun Data yang ada di sheet Output
>>>
>>>Wassalam,
>>>Kid.
>>>
>>>
>>>2012/10/15 Mr. Kid <mr.nmkid@gmail.com >
>>>
>>>boleh dikirim file yang gak bisa itu ?
>>>>Kid
>>>>
>>>>
>>>>
>>>>2012/10/15 Emi <emilestariklcc@yahoo.com >
>>>>
>>>>
>>>>>
>>>>>Masih gak bisa Pak.
>>>>>Mungkin di sheet output pake formula aja ganti makro. Untuk mencetak aja buatkan makro.
>>>>>
>>>>>
>>>>>Makasih.
>>>>>
>>>>>
>>>>>From: Mr. Kid <mr.nmkid@gmail.com >
>>>>>To: belajar-excel@yahoogroups.com
>>>>>Sent: Monday, October 15, 2012 10:54 PM
>>>>>
>>>>>Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>Sekarang coba pakai formula saja konversinya.
>>>>>Kalau masih gak bisa, berarti ada yang aneh.
>>>>>File terlampir sudah disertai contoh hasilnya.
>>>>>Cukup tekan tombol saja.
>>>>>
>>>>>Wassalam,
>>>>>Kid.
>>>>>
>>>>>
>>>>>2012/10/15 Emi <emilestariklcc@yahoo.com >
>>>>>
>>>>>
>>>>>>
>>>>>>Setelah dihapus datanya kosong.
>>>>>>
>>>>>>
>>>>>>Bisa saja tidak dikonversi asalkan bisa di sort descending.
>>>>>>From: Mr. Kid <mr.nmkid@gmail.com >
>>>>>>To: belajar-excel@yahoogroups.com
>>>>>>Sent: Monday, October 15, 2012 9:55 PM
>>>>>>
>>>>>>Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>Justru yang bikin error adalah proses pengkonversian kolom amount dari text menjadi numerik.
>>>>>>Bagaimana jika tidak usah dikonversi ?
>>>>>>Gak mungkin kan ya...
>>>>>>Sekarang coba hapus bagian :
>>>>>> 'tambahkan nilai 0 pada kolom nilai agar pasti jadi numerik
>>>>>> 'kadang-kadang hasil replace tidak mengubah tipedata
>>>>>> Sheet2.Range("i8").Value = 0
>>>>>> Sheet2.Range("i8").Copy
>>>>>> .PasteSpecial
xlPasteValues ', xlPasteSpecialOperationAdd
>>>>>> Sheet2.Range("i8").ClearContents
>>>>>>Asumsinya, hasil replace akan konsisten mengubah tipedata.
>>>>>>
>>>>>>Wassalam
>>>>>>Kid.
>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>
>>>
>>>
>>
>
>
>
Untuk sharing kepada teman teman di milis BeExcel,
-Emi Lestari
----- Forwarded Message -----
From: Mr. Kid <mr.nmkid@gmail.
To: Emi <emilestariklcc@
Sent: Tuesday, October 16, 2012 10:14 AM
Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
Oh begitu, kok bisa tiba-tiba ?
Jadi penasaran tentang penyebabnya.
btw,
untuk persentase yang tampak kecil, disebabkan karena dibuat fit.
File terlampir dibuat zoom 90% dan bisa diatur melalui printpreview yag muncul setiap akhir proses penekanan tombol susun data.
Wassalam,
Kid.
2012/10/16 Emi <emilestariklcc@
Pak Kid,
>
>Semuanya sudah ok, cuma mau tanya gimana kalau saya mau tukar scale pada previewnya. Kalau yang sekarang hanya 27%.,
>
>Jadi printingnya kecil.
>
>Terima kasih
>
>
>
>
>From: Mr. Kid <mr.nmkid@gmail.
>To: Emi <emilestariklcc@
>Sent: Tuesday, October 16, 2012 12:05 AM
>
>Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
>
>
>Berikut contoh dengan data 2 baris.
>
>Kid.
>
>
>2012/10/15 Mr. Kid <mr.nmkid@gmail.
>
>Ya Bu.
>>Semua data di sheet data akan disusun hasilnya di sheet output dengan cara menekan tombol di sheet output itu
>>Semua versi Excel (2003,2007,2010) yang 32 Bit bisa jalan. Mungkinkah komputer ibu dengan office 2010 64 bit ?
>>
>>
>>Kid.
>>
>>
>>
>>2012/10/15 Emi <emilestariklcc@
>>
>>Makronya mungkin sudah bagus. Mungkin saya yang kurang faham cara operasinya.
>>>Mau tanya, apakah output nya dihasilkan oleh makro?
>>>Apabila saya kurangkan data di sheet1, lalu diklik pada tombol, output nya malah jadi kosong.
>>>
>>>
>>>Terima kasih karena udah banyak membantu.
>>>
>>>
>>>Besok saya akan coba lagi, kalau masih kurang jelas saya akan tanyakan lagi.
>>>
>>>
>>>Wassalam.
>>>
>>>
>>>
>>>
>>>From: Mr. Kid <mr.nmkid@gmail.
>>>To: emilestariklcc@
>>>Sent: Monday, October 15, 2012 11:41 PM
>>>
>>>Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
>>>
>>>
>>>
>>>Sorry lewat japri dulu. Nanti ndak dikira spam sama YahooGroups.
>>>File terlampir adalah contoh ketika tombol di sheet Output di pencet.
>>>
>>>Jadi, begitu buka filenya, jika ada pertanyaan tentang Macro atau jika muncul tombol Options dengan warning tentang security di atas header kolom-kolom Excel tekan tombol Options.
>>>Kemudian pilih Enable Macro,
>>>kemudian ke sheet output,
>>>dan pencet tombol Susun Data yang ada di sheet Output
>>>
>>>Wassalam,
>>>Kid.
>>>
>>>
>>>2012/10/15 Mr. Kid <mr.nmkid@gmail.
>>>
>>>boleh dikirim file yang gak bisa itu ?
>>>>Kid
>>>>
>>>>
>>>>
>>>>2012/10/
>>>>
>>>>
>>>>>
>>>>>Masih gak bisa Pak.
>>>>>Mungkin di sheet output pake formula aja ganti makro. Untuk mencetak aja buatkan makro.
>>>>>
>>>>>
>>>>>Makasih.
>>>>>
>>>>>
>>>>>From: Mr. Kid <mr.nmkid@gmail.
>>>>>To: belajar-excel@
>>>>>Sent: Monday, October 15, 2012 10:54 PM
>>>>>
>>>>>Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>Sekarang coba pakai formula saja konversinya.
>>>>>Kalau masih gak bisa, berarti ada yang aneh.
>>>>>File terlampir sudah disertai contoh hasilnya.
>>>>>Cukup tekan tombol saja.
>>>>>
>>>>>Wassalam,
>>>>>Kid.
>>>>>
>>>>>
>>>>>2012/10/
>>>>>
>>>>>
>>>>>>
>>>>>>Setelah dihapus datanya kosong.
>>>>>>
>>>>>>
>>>>>>Bisa saja tidak dikonversi asalkan bisa di sort descending.
>>>>>>From: Mr. Kid <mr.nmkid@gmail.
>>>>>>To: belajar-excel@
>>>>>>Sent: Monday, October 15, 2012 9:55 PM
>>>>>>
>>>>>>Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>Justru yang bikin error adalah proses pengkonversian kolom amount dari text menjadi numerik.
>>>>>>Bagaimana jika tidak usah dikonversi ?
>>>>>>Gak mungkin kan ya...
>>>>>>Sekarang coba hapus bagian :
>>>>>> 'tambahkan nilai 0 pada kolom nilai agar pasti jadi numerik
>>>>>> 'kadang-kadang hasil replace tidak mengubah tipedata
>>>>>> Sheet2.Range(
>>>>>> Sheet2.Range(
>>>>>> .PasteSpecial
xlPasteValues ', xlPasteSpecialOpera
>>>>>> Sheet2.Range(
>>>>>>Asumsinya, hasil replace akan konsisten mengubah tipedata.
>>>>>>
>>>>>>Wassalam
>>>>>>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