Rabu, 16 Januari 2013

[belajar-excel] Digest Number 2027

15 New Messages

Digest #2027
1a
Re: Rumus tidak berjalan dengan baik by "adrian piter" petcures2003
1b
Re: Rumus tidak berjalan dengan baik by "Mr. Kid" nmkid.family@ymail.com
1c
Setting Excel 2007 by "Christina Herisatsiwi" ally251011
2a
5
Searching macro error by "Wasis Zain" wasis.zain
7a
Bls: [belajar-excel] Cara Membuat jadwal pelajaran perguru by "Muzakki Harun" muzakkiharun@ymail.com
8a
Setting Add In di Excel 2007 by "agesthahendra@ymail.com" agesthahendra@ymail.com
9
Max panjang karakter di sel Excel by "agesthahendra@ymail.com" agesthahendra@ymail.com

Messages

Tue Jan 15, 2013 5:47 pm (PST) . Posted by:

"adrian piter" petcures2003



Terima kasih banyak Mr. Kid..atas tanggapannya..rumus sudah berjalan dengan baik.
ternyata saya kurang teliti.

Salam
Piter.

________________________________
From: Mr. Kid mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, January 15, 2013 6:05 PM
Subject: Re: [belajar-excel] Rumus tidak berjalan dengan baik


 
Hai Adrian,

IF terhadap item bernama 'Hal' belum lengkap sampai penutup IFError dan IF nya.
=IF($G$1=1,
        IFERROR(SMALL(IF(ISNUMBER(IF(SEARCH(SUBSTITUTE($D$8,"=",""),No_Srt_Keluar)<=200-199*(LEFT($D$8)="="),)),ROW(No_Srt_Keluar)-10),ROW()-9),""),
IF($G$1=2,
        IFERROR(SMALL(IF(ISNUMBER(IF(SEARCH(SUBSTITUTE($D$8,"=",""),Tgl_Srt_Keluar)<=200-199*(LEFT($D$8)="="),)),ROW(Tgl_Srt_Keluar)-10),ROW()-9),""),
IF($G$1=3,
        IFERROR(SMALL(IF(ISNUMBER(IF(SEARCH(SUBSTITUTE($D$8,"=",""),Dikirim)<=200-199*(LEFT($D$8)="="),)),ROW(Dikirim)-10),ROW()-9),""),
IF($G$1=4,
       IFERROR(SMALL(IF(ISNUMBER(IF(SEARCH(SUBSTITUTE($D$8,"=",""),Hal_Keluar)<=200-199*(LEFT($D$8)="="),)),ROW(Hal_Keluar)-10),ROW()-9),
IF($G$1=5,
       IFERROR(SMALL(IF(ISNUMBER(IF(SEARCH(SUBSTITUTE($D$8,"=",""),Tgl_Kirim)<=200-199*(LEFT($D$8)="="),)),ROW(Tgl_Kirim)-10),ROW()-9),""),
IF($G$1=6,
       IFERROR(SMALL(IF(ISNUMBER(IF(SEARCH(SUBSTITUTE($D$8,"=",""),Pembuat)<=200-199*(LEFT($D$8)="="),)),ROW(Pembuat)-10),ROW()-9),""),
IFERROR(SMALL(IF(ISNUMBER(IF(SEARCH(SUBSTITUTE($D$8,"=",""),Surat_Terkait)<=200-199*(LEFT($D$8)="="),)),ROW(Surat_Terkait)-10),ROW()-9),""))))))))

Bagian kuning sepertinya butuh nilai hasil untuk fungsi IFError yang di blok kuning

Wassalam,
Kid.

2013/1/14 adrian piter petcures2003@yahoo.com>


>Salam Be-Excel.
>saya mohon bantuan untuk pemecahan masalah pekerjaan excel saya.
>saya membuat aplikasi Surat Keluar yang merupakan pengembangan dari solusi Mr. Kid atas permasalahan excel yang pernah dishare di forum ini.
>pada sheet pencarian untuk surat keluar, ada 7 pilihan kategori pencarian:
> 1. No Surat Keluar
> 2. Tanggal Surat Keluar
> 3. Dikirim Kepada
> 4. Perihal 
> 5. Tanggal Surat Dikirim
> 6. Pembuat Surat
> 7. Surat Terkait
> Pada saat pilihan untuk no 1 - 4 dicoba, rumus berjalan dengan baik.
>Namun pada saat pilihan no. 5 - 7 dicoba, rumus tidak berjalan dengan baik.
>untuk lebih jelasnya dapat dilihat pada file terlampir.
>
>
>terima kasih. 
>
>
>Piter.

Tue Jan 15, 2013 7:24 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Sama-sama Pak,

Coba juga array formula berikut ini :
=IFERROR(IF(($G$1=2)+($G$1=5),SMALL(IF(INDEX(_myData_,0,$G$1)=$D$8,ROW(INDEX(_myData_,0,$G$1))-ROW('Daftar
Surat
Keluar'!$A$10)),ROW()-ROW($D$9)),SMALL(IF(ISNUMBER(SEARCH(REPT("*",LEFT($D$8)<>"=")&MID($D$8,1+(LEFT($D$8)="="),99)&REPT("*",LEFT($D$8)<>"="),INDEX(_myData_,0,$G$1))),ROW(INDEX(_myData_,0,$G$1))-ROW('Daftar
Surat Keluar'!$A$10)),ROW()-ROW($D$9))),"")

Syarat :
Ada nama range bernama _myData_ yang bagian refers to -nya diisi formula
berikut :
='Daftar Surat Keluar'!$A$11:INDEX('Daftar Surat
Keluar'!$G:$G,COUNTA('Daftar Surat Keluar'!$B:$B)+1)

File terlampir.

Wassalam,
Kid.

2013/1/16 adrian piter petcures2003@yahoo.com>

> **
>
>
>
> Terima kasih banyak Mr. Kid..atas tanggapannya..rumus sudah berjalan
> dengan baik.
> ternyata saya kurang teliti.
>
> Salam
> Piter.
>
> ------------------------------
> *From:* Mr. Kid mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, January 15, 2013 6:05 PM
> *Subject:* Re: [belajar-excel] Rumus tidak berjalan dengan baik
>
>
> Hai Adrian,
>
> IF terhadap item bernama 'Hal' belum lengkap sampai penutup IFError dan IF
> nya.
> =IF($G$1=1,
>
> IFERROR(SMALL(IF(ISNUMBER(IF(SEARCH(SUBSTITUTE($D$8,"=",""),No_Srt_Keluar)<=200-199*(LEFT($D$8)="="),)),ROW(No_Srt_Keluar)-10),ROW()-9)
> *,""),*
> IF($G$1=2,
>
> IFERROR(SMALL(IF(ISNUMBER(IF(SEARCH(SUBSTITUTE($D$8,"=",""),Tgl_Srt_Keluar)<=200-199*(LEFT($D$8)="="),)),ROW(Tgl_Srt_Keluar)-10),ROW()-9),
> *""),*
> IF($G$1=3,
>
> IFERROR(SMALL(IF(ISNUMBER(IF(SEARCH(SUBSTITUTE($D$8,"=",""),Dikirim)<=200-199*(LEFT($D$8)="="),)),ROW(Dikirim)-10),ROW()-9),
> *""),*
> IF($G$1=4,
>
> IFERROR(SMALL(IF(ISNUMBER(IF(SEARCH(SUBSTITUTE($D$8,"=",""),Hal_Keluar)<=200-199*(LEFT($D$8)="="),)),ROW(Hal_Keluar)-10),ROW()-9),
> IF($G$1=5,
>
> IFERROR(SMALL(IF(ISNUMBER(IF(SEARCH(SUBSTITUTE($D$8,"=",""),Tgl_Kirim)<=200-199*(LEFT($D$8)="="),)),ROW(Tgl_Kirim)-10),ROW()-9),
> *""),*
> IF($G$1=6,
>
> IFERROR(SMALL(IF(ISNUMBER(IF(SEARCH(SUBSTITUTE($D$8,"=",""),Pembuat)<=200-199*(LEFT($D$8)="="),)),ROW(Pembuat)-10),ROW()-9),
> *""),*
>
> IFERROR(SMALL(IF(ISNUMBER(IF(SEARCH(SUBSTITUTE($D$8,"=",""),Surat_Terkait)<=200-199*(LEFT($D$8)="="),)),ROW(Surat_Terkait)-10),ROW()-9),
> *"")*)))))))
>
> Bagian kuning sepertinya butuh nilai hasil untuk fungsi IFError yang di
> blok kuning
>
> Wassalam,
> Kid.
>
> 2013/1/14 adrian piter petcures2003@yahoo.com>
>
> **
>
> Salam Be-Excel.
> saya mohon bantuan untuk pemecahan masalah pekerjaan excel saya.
> saya membuat aplikasi Surat Keluar yang merupakan pengembangan dari solusi
> Mr. Kid atas permasalahan excel yang pernah dishare di forum ini.
> pada sheet pencarian untuk surat keluar, ada 7 pilihan kategori pencarian:
> 1. No Surat Keluar
> 2. Tanggal Surat Keluar
> 3. Dikirim Kepada
> 4. Perihal
> 5. Tanggal Surat Dikirim
> 6. Pembuat Surat
> 7. Surat Terkait
> Pada saat pilihan untuk no 1 - 4 dicoba, rumus berjalan dengan baik.
> Namun pada saat pilihan no. 5 - 7 dicoba, rumus tidak berjalan dengan baik.
> untuk lebih jelasnya dapat dilihat pada file terlampir.
>
> terima kasih.
>
> Piter.
>
>
>
>
>
>

Wed Jan 16, 2013 2:50 pm (PST) . Posted by:

"Christina Herisatsiwi" ally251011

Dear Teman2,
Saya mau tanya solusi atas masalah saya. Aplikasi excel pada komputer saya tidak bisa berfungsi mengcopi cell yang ada rumusnya ke worksheet yang berbeda. Padahal isi dari kedua worksheet sama persis.Mohon bantuan mungkin setting excel saya ada yang salah.Atas perhatian teman2 saya ucapkan terima kasih
Salam,Ally

Tue Jan 15, 2013 5:47 pm (PST) . Posted by:

"Kelik Pitoyo"

Hai juga Mr. Kid,

Terima kasih Mr. Kid atas bantuannya,
Semoga Tuhan balas semua kebaikan Mr. Kid.
Di contoh yang saya kirim teryata datanya sudah saya delete satu satu, salah
ambil :)
Masih ada banyak data yang lainnya, Mr.Kid.

Thank's banyak, saya coba record macronya....

Salam,
Kelik

-----Original Message-----
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 15 Januari 2013 18:34
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menghapus berdasar daftar

Hai Kelik,

Prosesnya memanfaatkan :
1. advanced filter untuk memfilter data berdasar suatu kriteria tertentu
yang banyak 2. goto special untuk memilih cell-cell tertentu, yang dalam hal
ini adalah data yang tampak dari hasil advanced filter 3. delete entire row
untuk menghapus seluruh baris data yang terpilih Akhir proses memerlukan
kegiatan untuk Clear hasil advanced filter

Proses di atas dapat di otomasi dengan VBA melalui proses record macro.

Wassalam,
Kid.

2013/1/15 Kelik Pitoyo kelik@shindengen.co.id>




Selamat Pagi Be exeller,

Beberapa waktu lalu sempat ada yang bahas hal ini.
Namun saya masih belum tahu juga untuk aplikasikan ke file saya.
Saya ingin menghapus data yang ada di sheet database berdasar daftar
yang ada di sheet daf. Hapus.
Mohon bantuannya.

Terima kasih,
Salam,
Kelik

Your message is ready to be sent with the following file or link
attachments:

Hapus berdasar isi sel

Note: To protect against computer viruses, e-mail programs may
prevent sending or receiving certain types of file attachments. Check your
e-mail security settings to determine how attachments are handled.


Tue Jan 15, 2013 7:18 pm (PST) . Posted by:

"Nori Z" ordinarynori

Dear Mr Kid
Makasih yaa balasannya,,
emm tapi itu dimasukkan dimana? 
saya letakkan di Sheet1(Utama) dengan event selection change
tapi keluar pesan 'Compile Error : Wrong number of arguments or invalid property assignment&#39;
terus dia blok kuning nama prosedurnya  dan blok biru kata 'workbooks&#39; di baris 17..

saya salah dimana yaa?
makasih,

Best,
Nori.

________________________________
From: Mr. Kid mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, January 15, 2013 8:32 PM
Subject: Re: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .


 
Hai Nori,

Letakkan script berikut pada event yang anda sukai antara selection change atau before double click
dim rng as range    'range yang diproses
dim sFile as string  'nama workbook tujuan
dim sMsg as string  'wadah pesan ke user
dim wbk as workbook 'workbook tujuan
dim sht as worksheet  'nama sheet tujuan

on error resume next    'trap error agar jalan terus, karena proses akibat error diletakkan setelah baris error
set rng=target.resize(1,1)     'selalu ambil cell pertama yang diproses
with rng   'pada range yang diproses
   if lenb(.value)<>0 then     'ada isinya
       if .row>3 and .column>9 and .column<12 then   'dibaris setelah header pada kolom 10 sampai 11
               sfile="datapa.xlsx";      'simpan nama workbook
               set wbk=workbooks(sfile)     'set workbook dengan workbook yang bernama sesuai sfile
               if wbk is nothing then      'workbook belum dibuka
                     'buka file tanpa update link dan kondisi readonly
                      set wbk = workbooks( thisworkbook.path & "\" & sfile , false,true )   
                      if wbk is nothing then       'gak ada file yang bisa dibuka
                            smsg="tidak ada workbook bernama " & sfile & _
                                  " di folder bernama " & thisworkbook.path
                            goto keluar      'ke blok keluar dibawah sana
                      endif
               endif
      
               wbk.activate                                  'aktifkan workbook
               set sht=wbk.sheets( .value )        'set worksheet dalam workbook sesuai isi range yang diproses
               if sht is nothing then               'gak ada sheet dimaksud
                       smsg="tidak ada sheet bernama " & .value & " dalam workbook bernama " & sfile
                       wbk.close false               'tutup workbook tanpa di save
                       goto keluar                      'ke blok keluar dibawah sana
               endif
                sht.activate                            'aktifkan worksheet
       endif
   endif
end with

Keluar:
   err.clear
   on error goto 0
   if lenb(smsg)<>0 then
       msgbox smsg,vbcritical
   endif

Wassalam,
Kid.

2013/1/15 Nori Z ordinarynori@yahoo.com>


>Dear all,,
>Please help me.. hikss.. hikss..
>Gimana solusinya ? :(
>
>
>thanks...
>
>
>Best,
>Nori.
>
>
>
>
>________________________________
> From: Nori Z ordinarynori@yahoo.com>
>To: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
>Sent: Monday, January 14, 2013 11:18 AM
>Subject: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
>
>
>

>Dear All, 
>Sebelumnya saya pernah menanyakan topik 'Bagaimana agar bisa akses sel dari sheet yang berbeda dan dengan kode yang bersesuaian?'
>Saat itu saya mendapatkan pencerahan dari  Master zainul_ulum[at]yahoo[dot]com zainul_ulum@yahoo.com> .
>Saya ucapkan banyak terimakasih ..
>
>
>Namun saat ini saya ada sedikit kendala, ternyata permasalahannya agak sedikit kompleks bagi saya (hmm.. karena saya merasa sangat kesulitan menemukan solusinya :( ... )
>
>
>Pada file terlampir,
>Permasalahannya saya ingin merujuk pada workbook yang lain namun harus menuju/merujuk pada sheet yang bersesuaian dengan kode sel yang saya klik dari Tabel Utama. Penjelasan permasalahannya sudah saya lampirkan dalam file excel ini.
>Yang sangat mumet bagi saya karena form ini merupakan form master / awal yang mana nantinya akan dilakukan input data... makanya mesti melakukan perintah pencopyan master tabel dari sheet yang satu ke sheet yang lain (jika sheet tersebut kosong) pada workbook yang dituju dengan memperhatikan kode sel yang diklik sebelumnya... Selanjutnya jika sheet tersebut sudah terisi tabel dan data maka perintah yang dilakukan hanya mengakses/merujuk pada sheet dimaksud tersebut...

>Saya sangat mengharapkan bantuan dari para Master disini...
>Terimakasih,
>
>
>
>
>Best,
>Nori.
>
>
>

Tue Jan 15, 2013 7:22 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Coba copas dulu dari milis ke notepad dan pastikan notepad tidak di-word
wrap.
Kemudian copas dari notepad ke dalam prosedur pilihan Anda.

Wassalam,
Kid.

2013/1/16 Nori Z ordinarynori@yahoo.com>

> **
>
>
> Dear Mr Kid
> Makasih yaa balasannya,,
> emm tapi itu dimasukkan dimana?
> saya letakkan di Sheet1(Utama) dengan event selection change
> tapi keluar pesan 'Compile Error : Wrong number of arguments or invalid
> property assignment&#39;
> terus dia blok kuning nama prosedurnya dan blok biru kata 'workbooks&#39; di
> baris 17..
>
> saya salah dimana yaa?
> makasih,
>
> Best,
> Nori.
>
> ------------------------------
> *From:* Mr. Kid mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, January 15, 2013 8:32 PM
> *Subject:* Re: [belajar-excel] Masih tentang bagaimana akses workbook
> yang lain dari sebuah workbook .
>
>
> Hai Nori,
>
> Letakkan script berikut pada event yang anda sukai antara selection change
> atau before double click
> dim rng as range 'range yang diproses
> dim sFile as string 'nama workbook tujuan
> dim sMsg as string 'wadah pesan ke user
> dim wbk as workbook 'workbook tujuan
> dim sht as worksheet 'nama sheet tujuan
>
> on error resume next 'trap error agar jalan terus, karena proses akibat
> error diletakkan setelah baris error
> set rng=target.resize(1,1) 'selalu ambil cell pertama yang diproses
> with rng 'pada range yang diproses
> if lenb(.value)<>0 then 'ada isinya
> if .row>3 and .column>9 and .column<12 then 'dibaris setelah
> header pada kolom 10 sampai 11
> sfile="datapa.xlsx"; 'simpan nama workbook
> set wbk=workbooks(sfile) 'set workbook dengan workbook
> yang bernama sesuai sfile
> if wbk is nothing then 'workbook belum dibuka
> 'buka file tanpa update link dan kondisi readonly
> set wbk = workbooks( thisworkbook.path & "\" & sfile
> , false,true )
> if wbk is nothing then 'gak ada file yang bisa
> dibuka
> smsg="tidak ada workbook bernama " & sfile & _
> " di folder bernama " & thisworkbook.path
> goto keluar 'ke blok keluar dibawah sana
> endif
> endif
>
> wbk.activate 'aktifkan
> workbook
> set sht=wbk.sheets( .value ) 'set worksheet dalam
> workbook sesuai isi range yang diproses
> if sht is nothing then 'gak ada sheet dimaksud
> smsg="tidak ada sheet bernama " & .value & " dalam
> workbook bernama " & sfile
> wbk.close false 'tutup workbook tanpa
> di save
> goto keluar 'ke blok keluar
> dibawah sana
> endif
> sht.activate 'aktifkan worksheet
> endif
> endif
> end with
>
> Keluar:
> err.clear
> on error goto 0
> if lenb(smsg)<>0 then
> msgbox smsg,vbcritical
> endif
>
> Wassalam,
> Kid.
>
> 2013/1/15 Nori Z ordinarynori@yahoo.com>
>
> **
>
> Dear all,,
> Please help me.. hikss.. hikss..
> Gimana solusinya ? :(
>
> thanks...
>
> Best,
> Nori.
>
> ------------------------------
> *From:* Nori Z ordinarynori@yahoo.com>
> *To:* "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
> *Sent:* Monday, January 14, 2013 11:18 AM
> *Subject:* [belajar-excel] Masih tentang bagaimana akses workbook yang
> lain dari sebuah workbook .
>
>
> Dear All,
> Sebelumnya saya pernah menanyakan topik 'Bagaimana agar bisa akses sel
> dari sheet yang berbeda dan dengan kode yang bersesuaian?'
> Saat itu saya mendapatkan pencerahan dari Master zainul_ulum[at]yahoo[dot]com
> zainul_ulum@yahoo.com> .
> Saya ucapkan banyak terimakasih ..
>
> Namun saat ini saya ada sedikit kendala, ternyata permasalahannya agak
> sedikit kompleks bagi saya (hmm.. karena saya merasa sangat kesulitan
> menemukan solusinya :( ... )
>
> Pada file terlampir,
> Permasalahannya saya ingin merujuk pada workbook yang lain namun harus
> menuju/merujuk pada sheet yang bersesuaian dengan kode sel yang saya klik
> dari Tabel Utama. Penjelasan permasalahannya sudah saya lampirkan dalam
> file excel ini.
> Yang sangat mumet bagi saya karena form ini merupakan form master / awal
> yang mana nantinya akan dilakukan input data... makanya mesti melakukan
> perintah pencopyan master tabel dari sheet yang satu ke sheet yang lain
> (jika sheet tersebut kosong) pada workbook yang dituju dengan memperhatikan
> kode sel yang diklik sebelumnya... Selanjutnya jika sheet tersebut sudah
> terisi tabel dan data maka perintah yang dilakukan hanya mengakses/merujuk
> pada sheet dimaksud tersebut...
>
> Saya sangat mengharapkan bantuan dari para Master disini...
> Terimakasih,
>
>
> Best,
> Nori.
>
>
>
>
>
>
>

Wed Jan 16, 2013 10:10 am (PST) . Posted by:

"Nori Z" ordinarynori

Dear Mr Kid,,
Udah nihh.. tapi tetep ajaa muncul error nya,,
Ini dia yang saya insertkan (dalam file terlampir)

Best,
Nori.

________________________________
From: Mr. Kid mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, January 16, 2013 10:21 AM
Subject: Re: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .


 
Coba copas dulu dari milis ke notepad dan pastikan notepad tidak di-word wrap.
Kemudian copas dari notepad ke dalam prosedur pilihan Anda.

Wassalam,
Kid.

2013/1/16 Nori Z ordinarynori@yahoo.com>


>Dear Mr Kid
>Makasih yaa balasannya,,
>emm tapi itu dimasukkan dimana? 
>saya letakkan di Sheet1(Utama) dengan event selection change
>tapi keluar pesan 'Compile Error : Wrong number of arguments or invalid property assignment&#39;
>terus dia blok kuning nama prosedurnya  dan blok biru kata 'workbooks&#39; di baris 17..
>
>
>saya salah dimana yaa?
>makasih,
>
>
>Best,
>Nori.
>
>
>
>________________________________
> From: Mr. Kid mr.nmkid@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, January 15, 2013 8:32 PM
>Subject: Re: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
>
>
>

>Hai Nori,
>
>Letakkan script berikut pada event yang anda sukai antara selection change atau before double click
>dim rng as range    'range yang diproses
>dim sFile as string  'nama workbook tujuan
>dim sMsg as string  'wadah pesan ke user
>dim wbk as workbook 'workbook tujuan
>dim sht as worksheet  'nama sheet tujuan
>
>on error resume next    'trap error agar jalan terus, karena proses akibat error diletakkan setelah baris error
>set rng=target.resize(1,1)     'selalu ambil cell pertama yang diproses
>with rng   'pada range yang diproses
>   if lenb(.value)<>0 then     'ada isinya
>       if .row>3 and .column>9 and .column<12 then   'dibaris setelah header pada kolom 10 sampai 11
>               sfile="datapa.xlsx";      'simpan nama workbook
>               set wbk=workbooks(sfile)     'set workbook dengan workbook yang bernama sesuai sfile
>               if wbk is nothing then      'workbook belum dibuka
>                     'buka file tanpa update link dan kondisi readonly
>                      set wbk = workbooks( thisworkbook.path & "\" & sfile , false,true )   
>                      if wbk is nothing then       'gak ada file yang bisa dibuka
>                            smsg="tidak ada workbook bernama " & sfile & _
>                                  " di folder bernama " & thisworkbook.path
>                            goto keluar      'ke blok keluar dibawah sana
>                      endif
>               endif
>      
>               wbk.activate                                  'aktifkan workbook
>               set sht=wbk.sheets( .value )        'set worksheet dalam workbook sesuai isi range yang diproses
>               if sht is nothing then               'gak ada sheet dimaksud
>                       smsg="tidak ada sheet bernama " & .value & " dalam workbook bernama " & sfile
>                       wbk.close false               'tutup workbook tanpa di save
>                       goto keluar                      'ke blok keluar dibawah sana
>               endif
>                sht.activate                            'aktifkan worksheet
>       endif
>   endif
>end with
>
>Keluar:
>   err.clear
>   on error goto 0
>   if lenb(smsg)<>0 then
>       msgbox smsg,vbcritical
>   endif
>
>Wassalam,
>Kid.
>
>
>2013/1/15 Nori Z ordinarynori@yahoo.com>
>
>
>> 
>>Dear all,,
>>Please help me.. hikss.. hikss..
>>Gimana solusinya ? :(
>>
>>
>>thanks...
>>
>>
>>Best,
>>Nori.
>>
>>
>>
>>
>>________________________________
>> From: Nori Z ordinarynori@yahoo.com>
>>To: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
>>Sent: Monday, January 14, 2013 11:18 AM
>>Subject: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
>>
>>
>>
>> 
>>Dear All, 
>>Sebelumnya saya pernah menanyakan topik 'Bagaimana agar bisa akses sel dari sheet yang berbeda dan dengan kode yang bersesuaian?'
>>Saat itu saya mendapatkan pencerahan dari  Master zainul_ulum[at]yahoo[dot]com zainul_ulum@yahoo.com> .
>>Saya ucapkan banyak terimakasih ..
>>
>>
>>Namun saat ini saya ada sedikit kendala, ternyata permasalahannya agak sedikit kompleks bagi saya (hmm.. karena saya merasa sangat kesulitan menemukan solusinya :( ... )
>>
>>
>>Pada file terlampir,
>>Permasalahannya saya ingin merujuk pada workbook yang lain namun harus menuju/merujuk pada sheet yang bersesuaian dengan kode sel yang saya klik dari Tabel Utama. Penjelasan permasalahannya sudah saya lampirkan dalam file excel ini.
>>Yang sangat mumet bagi saya karena form ini merupakan form master / awal yang mana nantinya akan dilakukan input data... makanya mesti melakukan perintah pencopyan master tabel dari sheet yang satu ke sheet yang lain (jika sheet tersebut kosong) pada workbook yang dituju dengan memperhatikan kode sel yang diklik sebelumnya... Selanjutnya jika sheet tersebut sudah terisi tabel dan data maka perintah yang dilakukan hanya mengakses/merujuk pada sheet dimaksud tersebut...
>> 
>>Saya sangat mengharapkan bantuan dari para Master disini...
>>Terimakasih,
>>
>>
>>
>>
>>Best,
>>Nori.
>>
>>
>>
>
>
>

Wed Jan 16, 2013 1:27 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Oh sorry, ternyata ada yang salah di baris berikut :
set wbk = workbooks( thisworkbook.path & "\" & sfile
, false,true )
harusnya :
set wbk = workbooks.open( thisworkbook.path & "\" &
sfile , false,true )

Maaf atas kekhilafan yang terjadi.
Moga-moga perbaikan diatas bisa menyelesaikan masalah error-nya.
Mohon kabarnya jika masih muncul error (belum sempet dicoba scriptnya)

Wassalam,
Kid.

2013/1/16 Mr. Kid mr.nmkid@gmail.com>

> Coba copas dulu dari milis ke notepad dan pastikan notepad tidak di-word
> wrap.
> Kemudian copas dari notepad ke dalam prosedur pilihan Anda.
>
> Wassalam,
> Kid.
>
>
>
> 2013/1/16 Nori Z ordinarynori@yahoo.com>
>
>> **
>>
>>
>> Dear Mr Kid
>> Makasih yaa balasannya,,
>> emm tapi itu dimasukkan dimana?
>> saya letakkan di Sheet1(Utama) dengan event selection change
>> tapi keluar pesan 'Compile Error : Wrong number of arguments or invalid
>> property assignment&#39;
>> terus dia blok kuning nama prosedurnya dan blok biru kata 'workbooks&#39; di
>> baris 17..
>>
>> saya salah dimana yaa?
>> makasih,
>>
>> Best,
>> Nori.
>>
>> ------------------------------
>> *From:* Mr. Kid mr.nmkid@gmail.com>
>> *To:* belajar-excel@yahoogroups.com
>> *Sent:* Tuesday, January 15, 2013 8:32 PM
>> *Subject:* Re: [belajar-excel] Masih tentang bagaimana akses workbook
>> yang lain dari sebuah workbook .
>>
>>
>> Hai Nori,
>>
>> Letakkan script berikut pada event yang anda sukai antara selection
>> change atau before double click
>> dim rng as range 'range yang diproses
>> dim sFile as string 'nama workbook tujuan
>> dim sMsg as string 'wadah pesan ke user
>> dim wbk as workbook 'workbook tujuan
>> dim sht as worksheet 'nama sheet tujuan
>>
>> on error resume next 'trap error agar jalan terus, karena proses
>> akibat error diletakkan setelah baris error
>> set rng=target.resize(1,1) 'selalu ambil cell pertama yang diproses
>> with rng 'pada range yang diproses
>> if lenb(.value)<>0 then 'ada isinya
>> if .row>3 and .column>9 and .column<12 then 'dibaris setelah
>> header pada kolom 10 sampai 11
>> sfile="datapa.xlsx"; 'simpan nama workbook
>> set wbk=workbooks(sfile) 'set workbook dengan workbook
>> yang bernama sesuai sfile
>> if wbk is nothing then 'workbook belum dibuka
>> 'buka file tanpa update link dan kondisi readonly
>> set wbk = workbooks( thisworkbook.path & "\" &
>> sfile , false,true )
>> if wbk is nothing then 'gak ada file yang
>> bisa dibuka
>> smsg="tidak ada workbook bernama " & sfile & _
>> " di folder bernama " &
>> thisworkbook.path
>> goto keluar 'ke blok keluar dibawah sana
>> endif
>> endif
>>
>> wbk.activate 'aktifkan
>> workbook
>> set sht=wbk.sheets( .value ) 'set worksheet dalam
>> workbook sesuai isi range yang diproses
>> if sht is nothing then 'gak ada sheet
>> dimaksud
>> smsg="tidak ada sheet bernama " & .value & " dalam
>> workbook bernama " & sfile
>> wbk.close false 'tutup workbook
>> tanpa di save
>> goto keluar 'ke blok keluar
>> dibawah sana
>> endif
>> sht.activate 'aktifkan
>> worksheet
>> endif
>> endif
>> end with
>>
>> Keluar:
>> err.clear
>> on error goto 0
>> if lenb(smsg)<>0 then
>> msgbox smsg,vbcritical
>> endif
>>
>> Wassalam,
>> Kid.
>>
>> 2013/1/15 Nori Z ordinarynori@yahoo.com>
>>
>> **
>>
>> Dear all,,
>> Please help me.. hikss.. hikss..
>> Gimana solusinya ? :(
>>
>> thanks...
>>
>> Best,
>> Nori.
>>
>> ------------------------------
>> *From:* Nori Z ordinarynori@yahoo.com>
>> *To:* "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
>> *Sent:* Monday, January 14, 2013 11:18 AM
>> *Subject:* [belajar-excel] Masih tentang bagaimana akses workbook yang
>> lain dari sebuah workbook .
>>
>>
>> Dear All,
>> Sebelumnya saya pernah menanyakan topik 'Bagaimana agar bisa akses sel
>> dari sheet yang berbeda dan dengan kode yang bersesuaian?'
>> Saat itu saya mendapatkan pencerahan dari Master zainul_ulum[at]yahoo[dot]com
>> zainul_ulum@yahoo.com> .
>> Saya ucapkan banyak terimakasih ..
>>
>> Namun saat ini saya ada sedikit kendala, ternyata permasalahannya agak
>> sedikit kompleks bagi saya (hmm.. karena saya merasa sangat kesulitan
>> menemukan solusinya :( ... )
>>
>> Pada file terlampir,
>> Permasalahannya saya ingin merujuk pada workbook yang lain namun harus
>> menuju/merujuk pada sheet yang bersesuaian dengan kode sel yang saya klik
>> dari Tabel Utama. Penjelasan permasalahannya sudah saya lampirkan dalam
>> file excel ini.
>> Yang sangat mumet bagi saya karena form ini merupakan form master / awal
>> yang mana nantinya akan dilakukan input data... makanya mesti melakukan
>> perintah pencopyan master tabel dari sheet yang satu ke sheet yang lain
>> (jika sheet tersebut kosong) pada workbook yang dituju dengan memperhatikan
>> kode sel yang diklik sebelumnya... Selanjutnya jika sheet tersebut sudah
>> terisi tabel dan data maka perintah yang dilakukan hanya mengakses/merujuk
>> pada sheet dimaksud tersebut...
>>
>> Saya sangat mengharapkan bantuan dari para Master disini...
>> Terimakasih,
>>
>>
>> Best,
>> Nori.
>>
>>
>>
>>
>>
>>
>>
>
>

Wed Jan 16, 2013 6:19 am (PST) . Posted by:

"Rachmad HIDAYAT"

Alhamdulillah... trima kasih solusinya Mr.Kid

Rachmad Hidayat

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
Sent: 15 January 2013 22:51
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Planning Berubah warna jika memenuhi criteria-conditional format

Pak Rachmat,

Conditional formatting tidak bisa merujuk langsung ke sheet lain. Oleh sebab itu dibutuhkan nama range.
Pada sheet data, buat nama range untuk :
1. Tag (misal bernama _dtTAG_)
2. User status _dtUserStatus_
3. Init text _dtInitTxt_
4. tanggal bas start _dtBasStart_

Pada sheet hasil :
1. Untuk ambil data dari kolom Init Text, pada cell C4 diberi formula :
=IFERROR(LOOKUP(2,1/((_dtTAG_=$B4)*(YEAR(_dtBasStart_)=C$3)),_dtInitTxt_),"")
lalu copy formula ke cell lain dikanan dan bawahnya

Bagian LookUp untuk mengambil nilai init text, dan bagian IFError untuk trap error ketika hasil lookup adalah #N/A

2. Conditional formatting
>> dibutuhkan 2 conditional formatting, 1 untuk kuning dan 1 lagi untuk hijau (buat 2 kali dengan formula dan format yang berbeda)
>> Dibuat dengan memblok area hasil mulai C4 dan memilih opsi Use Formula
>> bunyi formula untuk warna kuning :
=LEFT(LOOKUP(2,1/((_dtTAG_=$B4)*(YEAR(_dtBasStart_)=C$3)),_dtUserStatus_),3)="WIP"
>> bunyi formula untuk warna hijau :
=LEFT(LOOKUP(2,1/((_dtTAG_=$B4)*(YEAR(_dtBasStart_)=C$3)),_dtUserStatus_),3)<>"WIP"

File terlampir.

Wassalam,
Kid.

2013/1/15 Rachmad HIDAYAT rachmad.hidayat@external.total.comrachmad.hidayat@external.total.com>>

dear pakar Excel yang saya hormati,

Mohon pencerahannya, secerah pagi di kota saya :)
saya punya PLANNING EQUIPMENT yang di updated setiap bulannya untuk kerjaan tahun 2012 - 2018
Pertanyaan saya ;
- Bagaimana menggunakan formula atau conditional format yang nantinya jika terpenuhi, maka di Planning BERWARNA (HIJAU jika SELESAI, KUNING jika INPROGRESS)
syaratnya : Warna HIJAU jika di USER STATUS di temukan WECO atau TECO
Warna KUNING jika USER STATUS di temukan WIP
TAG, INITIAL SHORT TEXT, YEAR terpenuhi

Terima Kasih,
Rachmad Hidayat

Wed Jan 16, 2013 10:09 am (PST) . Posted by:

"Wasis Zain" wasis.zain

Dear Para Mater
saya mempunya sedikit masalah ini pada menu searching pada macro vba saya
saya tidak bisa menambah kolom hasil pencariannya yang 5 kolom saya jadikan 6 kolom, kodenya ini

codenya ni

Sub TampilkanSemua()

Set wsDtbsPlgn = Sheets("DatabasePelanggan")

listCari.Clear

With listCari
    .AddItem
    .List(.ListCount - 1, 0) = "NO. PO"
    .List(.ListCount - 1, 1) = "NO. PR"
    .List(.ListCount - 1, 2) = "NO. WO"
    .List(.ListCount - 1, 3) = "NAMA BARANG"
    .List(.ListCount - 1, 4) = "SPECIFICATION"
    .List(.ListCount - 1, 5) = "tes"
    .ColumnWidths = 70 & ";" & 70 & ";" & 70 & ";" & _
        150 & ";" & 170
End With

With wsDtbsPlgn
    Set rgTampil = wsDtbsPlgn.Range("KodePelanggan"). _
        SpecialCells(xlCellTypeVisible)
    For Each sTampil In rgTampil
        With listCari
            .AddItem sTampil.Value
            .List(.ListCount - 1, 0) = sTampil.Value
            .List(.ListCount - 1, 1) = sTampil.Offset(0, 1).Value
            .List(.ListCount - 1, 2) = sTampil.Offset(0, 2).Value
            .List(.ListCount - 1, 3) = sTampil.Offset(0, 3).Value
            .List(.ListCount - 1, 4) = _
                Format(sTampil.Offset(0, 5).Value, "#,##0")
            .List(.ListCount - 1, 5) = _
                Format(sTampil.Offset(0, 5).Value, "#,##0")
        End With
    Next sTampil
End With

End Sub

ketika saya tambah ";" & 300

With listCari
    .AddItem
    .List(.ListCount - 1, 0) = "NO. PO"
    .List(.ListCount - 1, 1) = "NO. PR"
    .List(.ListCount - 1, 2) = "NO. WO"
    .List(.ListCount - 1, 3) = "NAMA BARANG"
    .List(.ListCount - 1, 4) = "SPECIFICATION"
    .List(.ListCount - 1, 5) = "tes"
    .ColumnWidths = 70 & ";" & 70 & ";" & 70 & ";" & _
        150 & ";" & 170 ";" & 300
End With

ini malah eror

terimakasih

Wed Jan 16, 2013 11:01 am (PST) . Posted by:

"Mulki" mulki_akbar

Assalamu'alaikum wr. wb.

Selamat siang ...

Mohon bantuan pencerahanya dari rekan2 B-Xlers atas kasus saya, file terlampir.

Saya ingin membuat Laporan yg sumber datanya terdpt pada SHEET GS AMB_aop.
Terlihat Data pada Sheet tersbt di kelompokan ke dalam 3 Group Product yg TOTAL-nya bisa dilihat pada yg diarsir warna PINK spt : GS-AMB (AO-Cust) Conventional, GS-AMB (AO-Cust) MF JIS & GS-AMB (AO-Cust) MF DIN

1. Bagaimana cara menggabung ke-3 group product tersbt dlm 1 laporan di atas yg di urut berdasarkan nama negara, Quantity (PCS) dan Bulan ?
2. Data yg ingin di gabungkan adalah pada Data2 yg di arsir warna biru.

Note : Tadinya saya sudah membuat dg rumus SUMPRODUCT dan saya sudah buat kolom DUMMY AREA di SHEET GS AMB_aop juga field referensi QUANTITY (PCS) di sheet Report by QTY (lihat paling atas) tp hasilnya ERROR

Atas bantuan dan pencerahannya saya haturkan banyak terimakasih.

Wassalam,
Mulki

Wed Jan 16, 2013 11:55 am (PST) . Posted by:

"Muzakki Harun" muzakkiharun@ymail.com

Terimakasih Mr. Kid. Rumusnya Jalan dengan baik. Semoga Allah yang membalas kebaikan Mr. Kid.

________________________________
Dari: Mr. Kid mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 15 Januari 2013 19:59
Judul: Re: [belajar-excel] Cara Membuat jadwal pelajaran perguru


 
Wa'alaikumussalam Wr. Wb.

Pak Muzakki,

Coba pada cell C6 sheet jadwal per guru diberi formula :
=IFERROR(LOOKUP(2,1/(INDEX('Jadwal Umum'!$C$5:$AZ$52,SUMPRODUCT(('Jadwal Umum'!$A$5:$A$52=C$5)*('Jadwal Umum'!$B$5:$B$52=$B6)*(ROW('Jadwal Umum'!$C$5:$AZ$52)-ROW('Jadwal Umum'!$C$4))),0)=$C$4),'Jadwal Umum'!$B$3:$AY$3),0)

tapi ada syaratnya, yaitu :
1. kolom nama hari di sheet jadwal umum harus terisi semuanya (tidak ada yang blank)
2. nama-nama hari di sheet jadwal per guru harus sama dengan nama hari di sheet jadwal umum

atur format number cell c6 dengan custom berisi General;;
copy formula C6 ke cell lain dalam area guru tersebut.
penerapan ke area guru lainnya memerlukan penyesuaian rujukan kode guru

file terlampir.

Wassalamu'alaikum Wr. Wb.
Kid.

2013/1/15 Muzakki Harun muzakkiharun@ymail.com>


>Assalamu&#39;alaikum Wr. Wb.
> Dear All,
>Mohon bantuannya kepada Para Suhu Excel, Bagaimana caranya membuat jadwal Pelajaran perguru dengan merujuk pada jadwal umum yang ada di sheet Jadwal Umum? File terlampir
>
>Atas bantuan para suhu excel saya ucapkan terimakasih
>
>
>Wassalamu&#39;alaikum Wr. Wb.
>
>
>Best Regard
>
>
>Muzakki Harun

Wed Jan 16, 2013 5:10 pm (PST) . Posted by:

"agesthahendra@ymail.com" agesthahendra@ymail.com

Dear Be-Exceller,..

Saya ada file excel (2003) yang memakai add in terbilang, file add in saya taruh di folder yg sama dengan file excel tsb. Waktu saya pindah folder tsb ke kompi yg memakai excel 2007 maka formula =terbilang(Cel) semua erorr,...mohon bimbingannya..terima kasih

Regards
Hendra Agestha

Wed Jan 16, 2013 6:29 pm (PST) . Posted by:

jeliuw

Di excell 2007 diaktifkan dulu add ins terbilangnya. Semoga membantu.

Salam
j. Liuw
Powered by Telkomsel BlackBerry�

-----Original Message-----
From: "agesthahendra@ymail.com" agesthahendra@ymail.com>
Sender: belajar-excel@yahoogroups.com
Date: Wed, 16 Jan 2013 16:49:44
To: belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Setting Add In di Excel 2007

Dear Be-Exceller,..

Saya ada file excel (2003) yang memakai add in terbilang, file add in saya taruh di folder yg sama dengan file excel tsb. Waktu saya pindah folder tsb ke kompi yg memakai excel 2007 maka formula =terbilang(Cel) semua erorr,...mohon bimbingannya..terima kasih

Regards
Hendra Agestha


Wed Jan 16, 2013 6:29 pm (PST) . Posted by:

"agesthahendra@ymail.com" agesthahendra@ymail.com

Dear Be-Exceller..

Saya ada mentranfer sebuah tabel di Access ke excel (2003/xls), salah satu field di tabel Access itu ada yg bertype "Memo", hasil transfer utk field Memo tsb sepertinya terpotong, apakah memang ada limit untuk panjang karakter di sebuah sel Excel..? Mohon bimbingannya...terima kasih

Regards
Hendra Agestha

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

Tidak ada komentar:

Posting Komentar