Minggu, 18 November 2012

[belajar-excel] Digest Number 1913

15 New Messages

Digest #1913
1a
Re: Verifikasi data - lanjutan by "Mr. Kid" nmkid.family@ymail.com
1b
Bls: [belajar-excel] Verifikasi data - lanjutan by "ngademin Thohari" ngademinth
1c
Re: Verifikasi data - lanjutan by "Mr. Kid" nmkid.family@ymail.com
1d
Bls: [belajar-excel] Verifikasi data - lanjutan by "ngademin Thohari" ngademinth
2a
Re: Fw: Booking Calender by "Mr. Kid" nmkid.family@ymail.com
2b
Re: Fw: Booking Calender by "hartini_80@yahoo.co.id" hartini_80
3a
Re: Absensi dengan Barcode by "Mr. Kid" nmkid.family@ymail.com
4a
Re: Pembagian ke masing masing sheet by "dhen.baguse" bagusejogja
4b
Re: Pembagian ke masing masing sheet by "Mr. Kid" nmkid.family@ymail.com
4c
Re: Pembagian ke masing masing sheet by "hendrik karnadi" hendrikkarnadi
5a
5b
Re: Menggantikan formula dengan makro by "Mr. Kid" nmkid.family@ymail.com
7
digit ribuan pada textbox by "Mardi" hekerkampoeng
8
verify data setiap 2 jam sekali by "ngademin Thohari" ngademinth

Messages

Sun Nov 18, 2012 12:35 am (PST) . Posted by:

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

diatur saja formula qty nya
yang bunyinya :
=IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C2," ",REPT("
",99)),(ROW($1:$5)-1)*99+1,99)*1),1*MID(SUBSTITUTE(D2," ",REPT("
",99)),100,99)),N(R2))

n(r2) nya diganti 0 saja
lalu buat if(n(r2),n(r2),iferror(iferror(blablabla,bla),0))

Wassalam,
Kid.

2012/11/18 ngademin Thohari <ngademinth@yahoo.co.id>

> **
>
>
> Mr. Kid
> Setelah solusi yang mr. kid berikan sangat membantu, dan beberapa
> kemungkinan input data
> saya simulasikan, ada data yang bila kita input manual di posisi R2 akan
> menggantikan data di Qty
> misal:
> Baris ke-30 : 140-001-002 5000, secara input harus masuk ke Qty. adalah
> 5000, tapi bila saya meng input data
> dengan manual, maka yang diinginkan adalah data yang masuk adalah input
> dengan manual
>
> contoh:
>
> Fdr time Part No Lot no/Qty Part Name
> qty
> a23 12:26 140-001-002 5000 3n2 100 123 chip 5000 ===> secara formula, tapi bila ada input manual (Kolom R2) kita input
> 1500
> maka yang terrecord adalah 1500, bukan 5000 lagi.
>
> Terima kasih
> Wassalam
>
> amin
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Minggu, 18 November 2012 10:27
> *Judul:* Re: [belajar-excel] Verifikasi data - lanjutan
>
>
> Ops kurang 1 :
> 4. buat formula di range S2 yang berisi kondisi jika statusnya NG, maka
> hasil untuk cell S2 adalah teks yang Anda inginkan. Jika status bukan NG,
> cell s2 diisi dengan nullstring saja.
>
> Wassalam,
> Kid.
>
> 2012/11/18 Mr. Kid <mr.nmkid@gmail.com>
>
> Coba langkah berikut :
> 1. ubah formula qty di baris 2 menjadi :
> =IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C2," ",REPT("
> ",99)),(ROW($1:$5)-1)*99+1,99)*1),1*MID(SUBSTITUTE(D2," ",REPT("
> ",99)),100,99)),N(R2))
>
> 2. set protection cell di range R2 menjadi unlocked (atur dari format cell
> -> tab protection -> uncheck locked)
> 3. tambahkan range R2 sebagai cell yang harus dihapus ketika selesai
> simpan.
>
> Wassalam,
> Kid.
>
>
> 2012/11/18 ngademin Thohari <ngademinth@yahoo.co.id>
>
> **
>
> Dear mr. kid
> terima kasih atas solusi-solusinya selama ini, berikut ada beberapa
> masalah yang masih ada.
> setelah saya simulasikan dan mengaplikasikan di line produksi ada beberapa
> yang masih belum ada value yang actual
> contohnya:
> 1. 3n2 1500 0000123456, yang saya harapkan adalah 1500 ke kolom qty, tapi
> yang masuk adalah 123456
> 2. Baris ke-19 hanya 2 data 3n2 12345a678 tapi Qty. tidak ada, yang
> diinginkan kalau ada value Qty=0 maka
> dimunculkan kolom bantu untuk input data dan masuk record tanpa
> merubah susunan recordnya
> 3. kalau ada input NG, dikolom result akan muncul error message
>
> Terima kasih atas bantuannya
> wassalam
>
> amin
>
>
>
>
>
>
>

Sun Nov 18, 2012 1:04 am (PST) . Posted by:

"ngademin Thohari" ngademinth

Mr. kid
apakah seperti ini,
IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C2," ",REPT(" ",99)),(ROW($1:$5)-1)*99+1,99)*1),1*MID(SUBSTITUTE(D2," ",REPT(" ",99)),100,99)),N(R2=0))  yang inin saya ndak ngerti if(n(r2),n(r2),iferror(iferror(blablabla,bla),0))

Wassalam

Amin

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 18 November 2012 15:35
Judul: Re: [belajar-excel] Verifikasi data - lanjutan


 
diatur saja formula qty nya
yang bunyinya :
=IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C2," ",REPT(" ",99)),(ROW($1:$5)-1)*99+1,99)*1),1*MID(SUBSTITUTE(D2," ",REPT(" ",99)),100,99)),N(R2))

n(r2) nya diganti 0 saja
lalu buat if(n(r2),n(r2),iferror(iferror(blablabla,bla),0))

Wassalam,
Kid.

2012/11/18 ngademin Thohari <ngademinth@yahoo.co.id>


>Mr. Kid
>Setelah solusi  yang mr. kid berikan sangat membantu, dan beberapa kemungkinan input data
>saya simulasikan, ada data yang bila kita input manual di posisi R2 akan menggantikan data di Qty
>misal:
>Baris ke-30 : 140-001-002 5000, secara input harus masuk ke Qty. adalah 5000, tapi bila saya  meng input data
>dengan manual, maka yang diinginkan adalah data  yang masuk adalah input dengan manual 
>
>
>contoh:
>
>
>Fdr    time     Part No                    Lot no/Qty      Part Name      qty
>a23   12:26   140-001-002 5000  3n2 100 123   chip                5000  ===> secara formula, tapi bila ada input manual (Kolom R2) kita  input 1500
>maka yang  terrecord adalah 1500, bukan 5000 lagi.
>
>
>Terima kasih
>Wassalam
>
>
>amin
>
>
>
>________________________________
> Dari: Mr. Kid <mr.nmkid@gmail.com>
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Minggu, 18 November 2012 10:27
>Judul: Re: [belajar-excel] Verifikasi data - lanjutan
>
>

>Ops kurang 1 :
>4. buat formula di range S2 yang berisi kondisi jika statusnya NG, maka hasil untuk cell S2 adalah teks yang Anda inginkan. Jika status bukan NG, cell s2 diisi dengan nullstring saja.
>
>Wassalam,
>Kid.
>
>
>2012/11/18 Mr. Kid <mr.nmkid@gmail.com>
>
>Coba langkah berikut :
>>1. ubah formula qty di baris 2 menjadi :
>>=IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C2," ",REPT(" ",99)),(ROW($1:$5)-1)*99+1,99)*1),1*MID(SUBSTITUTE(D2," ",REPT(" ",99)),100,99)),N(R2))
>>
>>2. set protection cell di range R2 menjadi unlocked (atur dari format cell -> tab protection -> uncheck locked)
>>3. tambahkan range R2 sebagai cell yang harus dihapus ketika selesai simpan.
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>2012/11/18 ngademin Thohari <ngademinth@yahoo.co.id>
>>
>>
>>> 
>>>Dear mr. kid
>>>terima kasih atas solusi-solusinya selama ini, berikut ada beberapa masalah yang masih ada.
>>>setelah saya simulasikan dan mengaplikasikan di line produksi ada beberapa yang masih belum ada value yang actual 
>>>contohnya:
>>>1. 3n2 1500 0000123456, yang saya harapkan adalah  1500 ke kolom qty, tapi yang masuk adalah  123456
>>>2. Baris ke-19 hanya 2 data  3n2 12345a678 tapi Qty. tidak ada, yang  diinginkan kalau ada value Qty=0  maka
>>>    dimunculkan  kolom bantu untuk input data  dan masuk record tanpa merubah susunan recordnya
>>>3. kalau ada input NG,  dikolom result  akan muncul error message
>>>
>>>
>>>Terima kasih atas bantuannya
>>>wassalam
>>>
>>>
>>>amin
>>>
>>>
>>
>
>
>

Sun Nov 18, 2012 1:12 am (PST) . Posted by:

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

ops... maaf, posting yang tadi kurang jelas ya...
(ceritanya mau disingkat, soalnya layar keyboardnya kecil vs jari saya yang
segede pisang, malah gak jelas)

mumpung ada mesin dengan keyboard yang sebanding dengan ukuran jari
Apapun yang Anda inginkan terhadap kolom qty, maka diatur saja bunyi
formula qty nya.

Misal ada formula yang berbunyi :
=IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C2," ",REPT("
",99)),(ROW($1:$5)-1)*99+1,99)*1),1*MID(SUBSTITUTE(D2," ",REPT("
",99)),100,99)),N(R2))
Langkah :
1. Bagian yang berbunyi n(r2) diganti nilai 0.
>> hasil bagian ini adalah sebuah formula baru. Anggap saja diistilahkan
siFormula

2. Lalu, ubah siFormula agar susunannya menjadi :
if(n(r2) , n(r2) , siFormula )

Wassalam,
Kid.

2012/11/18 ngademin Thohari <ngademinth@yahoo.co.id>

> **
>
>
> Mr. kid
> apakah seperti ini,
> IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C2," ",REPT("
> ",99)),(ROW($1:$5)-1)*99+1,99)*1),1*MID(SUBSTITUTE(D2," ",REPT("
> ",99)),100,99)),N(R2=0)) yang inin saya ndak ngerti
> if(n(r2),n(r2),iferror(iferror(blablabla,bla),0))
>
> Wassalam
>
>
> Amin
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Minggu, 18 November 2012 15:35
>
> *Judul:* Re: [belajar-excel] Verifikasi data - lanjutan
>
>
> diatur saja formula qty nya
> yang bunyinya :
> =IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C2," ",REPT("
> ",99)),(ROW($1:$5)-1)*99+1,99)*1),1*MID(SUBSTITUTE(D2," ",REPT("
> ",99)),100,99)),N(R2))
>
> n(r2) nya diganti 0 saja
> lalu buat if(n(r2),n(r2),iferror(iferror(blablabla,bla),0))
>
> Wassalam,
> Kid.
>
> 2012/11/18 ngademin Thohari <ngademinth@yahoo.co.id>
>
> **
>
> Mr. Kid
> Setelah solusi yang mr. kid berikan sangat membantu, dan beberapa
> kemungkinan input data
> saya simulasikan, ada data yang bila kita input manual di posisi R2 akan
> menggantikan data di Qty
> misal:
> Baris ke-30 : 140-001-002 5000, secara input harus masuk ke Qty. adalah
> 5000, tapi bila saya meng input data
> dengan manual, maka yang diinginkan adalah data yang masuk adalah input
> dengan manual
>
> contoh:
>
> Fdr time Part No Lot no/Qty Part Name
> qty
> a23 12:26 140-001-002 5000 3n2 100 123 chip 5000 ===> secara formula, tapi bila ada input manual (Kolom R2) kita input
> 1500
> maka yang terrecord adalah 1500, bukan 5000 lagi.
>
> Terima kasih
> Wassalam
>
> amin
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Minggu, 18 November 2012 10:27
> *Judul:* Re: [belajar-excel] Verifikasi data - lanjutan
>
>
> Ops kurang 1 :
> 4. buat formula di range S2 yang berisi kondisi jika statusnya NG, maka
> hasil untuk cell S2 adalah teks yang Anda inginkan. Jika status bukan NG,
> cell s2 diisi dengan nullstring saja.
>
> Wassalam,
> Kid.
>
> 2012/11/18 Mr. Kid <mr.nmkid@gmail.com>
>
> Coba langkah berikut :
> 1. ubah formula qty di baris 2 menjadi :
> =IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C2," ",REPT("
> ",99)),(ROW($1:$5)-1)*99+1,99)*1),1*MID(SUBSTITUTE(D2," ",REPT("
> ",99)),100,99)),N(R2))
>
> 2. set protection cell di range R2 menjadi unlocked (atur dari format cell
> -> tab protection -> uncheck locked)
> 3. tambahkan range R2 sebagai cell yang harus dihapus ketika selesai
> simpan.
>
> Wassalam,
> Kid.
>
>
> 2012/11/18 ngademin Thohari <ngademinth@yahoo.co.id>
>
> **
>
> Dear mr. kid
> terima kasih atas solusi-solusinya selama ini, berikut ada beberapa
> masalah yang masih ada.
> setelah saya simulasikan dan mengaplikasikan di line produksi ada beberapa
> yang masih belum ada value yang actual
> contohnya:
> 1. 3n2 1500 0000123456, yang saya harapkan adalah 1500 ke kolom qty, tapi
> yang masuk adalah 123456
> 2. Baris ke-19 hanya 2 data 3n2 12345a678 tapi Qty. tidak ada, yang
> diinginkan kalau ada value Qty=0 maka
> dimunculkan kolom bantu untuk input data dan masuk record tanpa
> merubah susunan recordnya
> 3. kalau ada input NG, dikolom result akan muncul error message
>
> Terima kasih atas bantuannya
> wassalam
>
> amin
>
>
>
>
>
>
>
>
>
>

Sun Nov 18, 2012 1:49 am (PST) . Posted by:

"ngademin Thohari" ngademinth



Mr. Kid
Dongengnya indah sekali nech,
saya jadi terbangun dari tidur, dicoba dibelakang eh taunya minta didepan di tambahin lagi jadinya error, jadi beginilah hasil akhirnya, mohon dikoreksi

IF(N(R2),N(R2),IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C2," ",REPT(" ",99)),(ROW($1:$5)-1)*99+1,99)*1),1*MID(SUBSTITUTE(D2," ",REPT(" ",99)),100,99)),0))

Terima kasih
Wassalam

amin

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 18 November 2012 16:12
Judul: Re: [belajar-excel] Verifikasi data - lanjutan


 
ops... maaf, posting yang tadi kurang jelas ya...
(ceritanya mau disingkat, soalnya layar keyboardnya kecil vs jari saya yang segede pisang, malah gak jelas)

mumpung ada mesin dengan keyboard yang sebanding dengan ukuran jari
Apapun yang Anda inginkan terhadap kolom qty, maka diatur saja bunyi formula qty nya.

Misal ada formula yang berbunyi :
=IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C2," ",REPT(" ",99)),(ROW($1:$5)-1)*99+1,99)*1),1*MID(SUBSTITUTE(D2," ",REPT(" ",99)),100,99)),N(R2))

Langkah :
1. Bagian yang berbunyi n(r2) diganti nilai 0.
>> hasil bagian ini adalah sebuah formula baru. Anggap saja diistilahkan siFormula

2. Lalu, ubah siFormula agar susunannya menjadi :
if(n(r2) , n(r2) , siFormula )
Wassalam,
Kid.

2012/11/18 ngademin Thohari <ngademinth@yahoo.co.id>


>Mr. kid
>apakah seperti ini,
>IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C2," ",REPT(" ",99)),(ROW($1:$5)-1)*99+1,99)*1),1*MID(SUBSTITUTE(D2," ",REPT(" ",99)),100,99)),N(R2=0))  yang inin saya ndak ngerti if(n(r2),n(r2),iferror(iferror(blablabla,bla),0))
>
>
>
>Wassalam
>
>
>
>
>Amin
>
>
>
>________________________________
> Dari: Mr. Kid <mr.nmkid@gmail.com>
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Minggu, 18 November 2012 15:35
>
>Judul: Re: [belajar-excel] Verifikasi data - lanjutan
>
>
>

>diatur saja formula qty nya
>yang bunyinya :
>=IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C2," ",REPT(" ",99)),(ROW($1:$5)-1)*99+1,99)*1),1*MID(SUBSTITUTE(D2," ",REPT(" ",99)),100,99)),N(R2))
>
>n(r2) nya diganti 0 saja
>lalu buat if(n(r2),n(r2),iferror(iferror(blablabla,bla),0))
>
>Wassalam,
>Kid.
>
>
>2012/11/18 ngademin Thohari <ngademinth@yahoo.co.id>
>
>
>> 
>>Mr. Kid
>>Setelah solusi  yang mr. kid berikan sangat membantu, dan beberapa kemungkinan input data
>>saya simulasikan, ada data yang bila kita input manual di posisi R2 akan menggantikan data di Qty
>>misal:
>>Baris ke-30 : 140-001-002 5000, secara input harus masuk ke Qty. adalah 5000, tapi bila saya  meng input data
>>dengan manual, maka yang diinginkan adalah data  yang masuk adalah input dengan manual 
>>
>>
>>contoh:
>>
>>
>>Fdr    time     Part No                    Lot no/Qty      Part Name      qty
>>a23   12:26   140-001-002 5000  3n2 100 123   chip                5000  ===> secara formula, tapi bila ada input manual (Kolom R2) kita  input 1500
>>maka yang  terrecord adalah 1500, bukan 5000 lagi.
>>
>>
>>Terima kasih
>>Wassalam
>>
>>
>>amin
>>
>>
>>
>>________________________________
>> Dari: Mr. Kid <mr.nmkid@gmail.com>
>>Kepada: belajar-excel@yahoogroups.com
>>Dikirim: Minggu, 18 November 2012 10:27
>>Judul: Re: [belajar-excel] Verifikasi data - lanjutan
>>
>>
>> 
>>Ops kurang 1 :
>>4. buat formula di range S2 yang berisi kondisi jika statusnya NG, maka hasil untuk cell S2 adalah teks yang Anda inginkan. Jika status bukan NG, cell s2 diisi dengan nullstring saja.
>>
>>Wassalam,
>>Kid.
>>
>>
>>2012/11/18 Mr. Kid <mr.nmkid@gmail.com>
>>
>>Coba langkah berikut :
>>>1. ubah formula qty di baris 2 menjadi :
>>>=IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C2," ",REPT(" ",99)),(ROW($1:$5)-1)*99+1,99)*1),1*MID(SUBSTITUTE(D2," ",REPT(" ",99)),100,99)),N(R2))
>>>
>>>2. set protection cell di range R2 menjadi unlocked (atur dari format cell -> tab protection -> uncheck locked)
>>>3. tambahkan range R2 sebagai cell yang harus dihapus ketika selesai simpan.
>>>
>>>Wassalam,
>>>Kid.
>>>
>>>
>>>
>>>2012/11/18 ngademin Thohari <ngademinth@yahoo.co.id>
>>>
>>>
>>>> 
>>>>Dear mr. kid
>>>>terima kasih atas solusi-solusinya selama ini, berikut ada beberapa masalah yang masih ada.
>>>>setelah saya simulasikan dan mengaplikasikan di line produksi ada beberapa yang masih belum ada value yang actual 
>>>>contohnya:
>>>>1. 3n2 1500 0000123456, yang saya harapkan adalah  1500 ke kolom qty, tapi yang masuk adalah  123456
>>>>2. Baris ke-19 hanya 2 data  3n2 12345a678 tapi Qty. tidak ada, yang  diinginkan kalau ada value Qty=0  maka
>>>>    dimunculkan  kolom bantu untuk input data  dan masuk record tanpa merubah susunan recordnya
>>>>3. kalau ada input NG,  dikolom result  akan muncul error message
>>>>
>>>>
>>>>Terima kasih atas bantuannya
>>>>wassalam
>>>>
>>>>
>>>>amin
>>>>
>>>>
>>>
>>
>>
>>
>
>
>

Sun Nov 18, 2012 12:47 am (PST) . Posted by:

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

Coba lihat sheet report1.
Disana akan ada banyak sekali cell yang berisi formula.
Salah satu fungsi yang digunakan dalam formula yang ada disana bernama
IsBookedDate.
Fungsi IsBookedDate meminta 3 inputan seperti :
=IsBookedDate($E3,F$2,*Jurnal!$B$2:$D$46*)
pada cell yang isinya formula berbunyi seperti itu :
>> bagian yang merujuk ke sheet Jurnal
diganti agar yang dirujuk *sampai kolom Ket* (*bukankah formula diatas
belum menyertakan kolom Ket yang ada di sheet jurnal ?*) di sheet Jurnal
>> *cell-cell yang berisi formula dengan fungsi IsBookedDate juga memiliki*C
*onditional formatting *
atur agar conditional formatting yang menggunakan :
- dari opsi cell value dengan kriteria equal bernilai TRUE
- menjadi beropsi cell value dengan kriteria not equal bernilai 0
>> *cell-cell yang berisi formula dengan fungsi IsBookedDate juga diatur
Format Number nya
*ubah format cell number (klik kanan cell -> format cells -> tab
number -> custom -> ubah isian textbox) :
- dari bertuliskan
;;;
- menjadi bertuliskan
;;;@

Wassalam,
Kid.

2012/11/18 <hartini_80@yahoo.co.id>

> **
>
>
> ** Mr Kid, point 2 saya kurang mengerti maksudnya, help dong
> Salam
> Tiny
> Powered by Telkomsel BlackBerry�
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Sun, 18 Nov 2012 11:05:35 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Fw: Booking Calender
>
>
>
> Bu Tiny,
>
>
> Sebaiknya kasus ditujukan ke seluruh BeExceller. Semakin banyak pihak yang
> dituju, maka akan terbuka peluang untuk bisa bertemu BeExceller yang lebih
> luang dalam memanfaatkan seluruh resources.
>
> Berikut kalau dari mod...
> 1. Ubah prosedur fungsi (function) bernama IsBookedDate (jangan lupa tulis
> tanggal pengubahannya dan yang mengubahnya) sebagai berikut :
> >> baris deklarasi fungsi (function blablabla) dari As Boolean menjadi As
> Variant
> >> baris pengisi variabel IsBookedDate (di nested if terdalam) dari
> IsBookedDate=true menjadi IsBookedDate=vdt(lrow,4)
>
> 2. pada sheet report1 (sheet ini terpusat pada pemanfaatan fungsi UDF
> bernama IsBookedDate), ubah seluruh cell yang berisi fungsi IsBookedDate
> sebagai berikut :
> >> bagian yang merujuk ke sheet Jurnal diganti agar yang dirujuk sampai
> kolom Ket di sheet Jurnal
> >> conditional formatting dari cell value equal TRUE menjadi cell value
> not equal 0
> >> format cell number dari ;;; menjadi ;;;@
>
> 3. pada sheet report2 (sheet ini terpusat pada array formula di kolom B
> yang berupa array formula block), ubah
> >> array formula block (45 baris x 1 kolom) di kolom B mulai B2 dari 1
> kondisi dalam IF berbunyi Jurnal!B2:B46=E3 menjadi
> (Jurnal!B2:B46=E3)*(Jurnal!e2:e46=g3)
> >> isi cell G3 dengan keterangan yang ingin ditampilkan
>
> Wassalam,
> Kid.
>
>
> On Sun, Nov 18, 2012 at 10:21 AM, <hartini_80@yahoo.co.id> wrote:
>
>> **
>>
>>
>> Dear Mod
>> Saya mendapat file booking calender milik P'onto Seno, saya ingin
>> menambahkan berapa keperluan tetapi kurang memahami VBA yg dibuat oleh
>> beliau, bisakah mod membantu, pertanyaan telah saya lampirkan di dalam file
>> Terima kasih
>> Salam
>> Tiny
>>
>> Powered by Telkomsel BlackBerry�
>>
>> -----Original Message-----
>> From: Hartini FIN <hartini.fin@bukitmakmur.com>
>> Date: Sun, 18 Nov 2012 03:11:15
>> To: hartini_80@yahoo.co.id<hartini_80@yahoo.co.id>
>> Subject: Booking Calender
>>
>>
>>
>
>

Sun Nov 18, 2012 12:58 am (PST) . Posted by:

"hartini_80@yahoo.co.id" hartini_80

Terima kasih Mr Kid, sudah bisa neh, sharing ilmunya bermanfaat sekali
Salam
Tiny
Powered by Telkomsel BlackBerry�

-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 18 Nov 2012 15:46:38
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Fw: Booking Calender

Coba lihat sheet report1.
Disana akan ada banyak sekali cell yang berisi formula.
Salah satu fungsi yang digunakan dalam formula yang ada disana bernama
IsBookedDate.
Fungsi IsBookedDate meminta 3 inputan seperti :
=IsBookedDate($E3,F$2,*Jurnal!$B$2:$D$46*)
pada cell yang isinya formula berbunyi seperti itu :
>> bagian yang merujuk ke sheet Jurnal
diganti agar yang dirujuk *sampai kolom Ket* (*bukankah formula diatas
belum menyertakan kolom Ket yang ada di sheet jurnal ?*) di sheet Jurnal
>> *cell-cell yang berisi formula dengan fungsi IsBookedDate juga memiliki*C
*onditional formatting *
atur agar conditional formatting yang menggunakan :
- dari opsi cell value dengan kriteria equal bernilai TRUE
- menjadi beropsi cell value dengan kriteria not equal bernilai 0
>> *cell-cell yang berisi formula dengan fungsi IsBookedDate juga diatur
Format Number nya
*ubah format cell number (klik kanan cell -> format cells -> tab
number -> custom -> ubah isian textbox) :
- dari bertuliskan
;;;
- menjadi bertuliskan
;;;@

Wassalam,
Kid.


2012/11/18 <hartini_80@yahoo.co.id>

> **
>
>
> ** Mr Kid, point 2 saya kurang mengerti maksudnya, help dong
> Salam
> Tiny
> Powered by Telkomsel BlackBerry�
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Sun, 18 Nov 2012 11:05:35 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Fw: Booking Calender
>
>
>
> Bu Tiny,
>
>
> Sebaiknya kasus ditujukan ke seluruh BeExceller. Semakin banyak pihak yang
> dituju, maka akan terbuka peluang untuk bisa bertemu BeExceller yang lebih
> luang dalam memanfaatkan seluruh resources.
>
> Berikut kalau dari mod...
> 1. Ubah prosedur fungsi (function) bernama IsBookedDate (jangan lupa tulis
> tanggal pengubahannya dan yang mengubahnya) sebagai berikut :
> >> baris deklarasi fungsi (function blablabla) dari As Boolean menjadi As
> Variant
> >> baris pengisi variabel IsBookedDate (di nested if terdalam) dari
> IsBookedDate=true menjadi IsBookedDate=vdt(lrow,4)
>
> 2. pada sheet report1 (sheet ini terpusat pada pemanfaatan fungsi UDF
> bernama IsBookedDate), ubah seluruh cell yang berisi fungsi IsBookedDate
> sebagai berikut :
> >> bagian yang merujuk ke sheet Jurnal diganti agar yang dirujuk sampai
> kolom Ket di sheet Jurnal
> >> conditional formatting dari cell value equal TRUE menjadi cell value
> not equal 0
> >> format cell number dari ;;; menjadi ;;;@
>
> 3. pada sheet report2 (sheet ini terpusat pada array formula di kolom B
> yang berupa array formula block), ubah
> >> array formula block (45 baris x 1 kolom) di kolom B mulai B2 dari 1
> kondisi dalam IF berbunyi Jurnal!B2:B46=E3 menjadi
> (Jurnal!B2:B46=E3)*(Jurnal!e2:e46=g3)
> >> isi cell G3 dengan keterangan yang ingin ditampilkan
>
> Wassalam,
> Kid.
>
>
> On Sun, Nov 18, 2012 at 10:21 AM, <hartini_80@yahoo.co.id> wrote:
>
>> **
>>
>>
>> Dear Mod
>> Saya mendapat file booking calender milik P'onto Seno, saya ingin
>> menambahkan berapa keperluan tetapi kurang memahami VBA yg dibuat oleh
>> beliau, bisakah mod membantu, pertanyaan telah saya lampirkan di dalam file
>> Terima kasih
>> Salam
>> Tiny
>>
>> Powered by Telkomsel BlackBerry�
>>
>> -----Original Message-----
>> From: Hartini FIN <hartini.fin@bukitmakmur.com>
>> Date: Sun, 18 Nov 2012 03:11:15
>> To: hartini_80@yahoo.co.id<hartini_80@yahoo.co.id>
>> Subject: Booking Calender
>>
>>
>>
>
>

Sun Nov 18, 2012 12:52 am (PST) . Posted by:

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

Pak Dadang Yth,

Coba jelaskan secara rinci tentang :
1. Data yang sudah ada apa saja
2. Data yang sudah ada didapat dari mana saja (misal kolom ini di entry,
kolom ini dari mesin langsung masuk sini tinggal pakai, kolom ini akan
dihitung pakai formula, dsb)
3. bentuk tabel output yang diinginkan seperti apa (disertai angka-angka
hasil kerja manual disertai penjelasan, nilai kolom ini dari sana ya, kalau
yang ini dari sini, dsb)

Moga-moga penjelasan yang tersusun seperti hal-hal tersebut di atas, bisa
lebih menarik calon penanggap.

Wassalam,
Kid.

2012/11/17 dadang <cep_dadangs@yahoo.com>

> **
>
>
> salam excel,
>
> mohon bantuan friend-friend exceler, saya mau input absensi dengan barcode
> dengan File terlampir
>
> terima kasih,
> Powered by Telkomsel BlackBerry®
>
>

Sun Nov 18, 2012 12:53 am (PST) . Posted by:

"dhen.baguse" bagusejogja

Salam Mas Hendri Karnadi khususnya dan master master lainnya umumnya, 
mungkin saya salah menafsirkan pikiran saya dengan apa yang saya tuliskan. Kalau yang di lampirkan mas Hendri itu menhapus sheet dan yang saya tanyakan menghapus isi sheet yang lebih dari 1 sheet dalam workbook. Coding yang sudah ada (sharing dari Miss Jan di milis belajar excel juga) sbb :

If ws.Name <> "Input" Then

Kalau dari sepenggal koding tersebut menerangkan bahwa data yang akan dihapus selain sheet "input", nah... bagimana menambahi di coding tersebut agar tidak hanya sheet "input" saja, melaninkan ada sheet lainnya. saya coba menambahkan tetapi pasti erorr:)

terimakasih atas semuanya

________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Sunday, November 18, 2012 2:07 PM
Subject: Re: [belajar-excel] Pembagian ke masing masing sheet


 
Dear dhen.baguse,

Mencoba menjawab sebagian pertanyaan anda (warna merah), kebetulan saya sedang mengutak atik macro yang mungkin mirip dengan kebutuhan anda.
Macro dalam file terlampir terdiri dari dua bagian:

1. Membuat daftar sheet dalam suatu file (Range("A1:A8"))

2. Menghapus sheet selain sheet yang disebut dalam Range("B1:B3")

Semoga dapat menjadi bahan renungan untuk pengembangan lebih lanjut.

Salam,
Hendrik Karnadi

________________________________

Sun Nov 18, 2012 1:02 am (PST) . Posted by:

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

Den Bagus,

If ws.Name <> "Input" Then
Bahasa manusianya : "Jika (IF) nama sheet (.Name) dalam variabel ws bukan
teks berbunyi 'input' maka (Then)"

Jika akan ada sheet lainnya yang masuk pengecualian seperti si sheet input,
bahasa manusianya :
"jika nama sheetnya bukan input dan juga bukan bernama anu dan juga bernama
ani dan juga seterusnya maka"
if ws.name <>"Input" AND ws.name<>"anu" AND ws.name<>"ani" then
'seterusnya disusun sendiri

Jika dengan caranya Pak Hendrik, maka Anda cukup memanfaatkan daftar nama
sheet yang akan dihapus.
Pak Hendrik pakai proses buang sheetnya (sht.delete). Anda ubah proses yang
buang itu jadi hapus isi cell nya (sht.cells.clearcontents). Object bernama
sht disini adalah sebuah variabel object worksheet seperti variabel ws
milik Anda.

Wassalam,
Kid.

2012/11/18 dhen.baguse <bagusejogja@yahoo.com>

> If ws.Name <> "Input" Then

Sun Nov 18, 2012 5:56 am (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Petunjuk Mr. Kid ini patut untuk direnungkan.
Jika petunjuk ini betul2 kita renungkan maka manfaatnya akan luar biasa.
Kita bukan hanya dapat menjawab pertanyaan2 kita sendiri melainkan juga dapat menjawab pertanyaan2 yang dilontarkan oleh anggota milis lainnya.

Salam,
Hendrik Karnadi

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Sunday, 18 November 2012, 16:01
Subject: Re: [belajar-excel] Pembagian ke masing masing sheet


 
Den Bagus,

If ws.Name <> "Input" Then
Bahasa manusianya : "Jika (IF) nama sheet (.Name) dalam variabel ws bukan teks berbunyi 'input' maka (Then)"

Jika akan ada sheet lainnya yang masuk pengecualian seperti si sheet input, bahasa manusianya :
"jika nama sheetnya bukan input dan juga bukan bernama anu dan juga bernama ani dan juga seterusnya maka"
if ws.name <>"Input" AND ws.name<>"anu" AND ws.name<>"ani" then   'seterusnya disusun sendiri

Jika dengan caranya Pak Hendrik, maka Anda cukup memanfaatkan daftar nama sheet yang akan dihapus.
Pak Hendrik pakai proses buang sheetnya (sht.delete). Anda ubah proses yang buang itu jadi hapus isi cell nya (sht.cells.clearcontents). Object bernama sht disini adalah sebuah variabel object worksheet seperti variabel ws milik Anda.

Wassalam,
Kid.

2012/11/18 dhen.baguse <bagusejogja@yahoo.com>

If ws.Name <> "Input" Then

Sun Nov 18, 2012 2:10 am (PST) . Posted by:

"Emi" emilestariklcc

Pak Kid,

Makro ini tidak berhasil jika sheet tujuan belum pernah diiisi., kecuali ada value di cell B2.

Diharapkan dapat dijelaskan apakah maksud offset dan lastRow dalam kasus ini.

Terima kasih

Emi Lestari

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Sunday, November 18, 2012 12:05 PM
Subject: Re: [belajar-excel] Menggantikan formula dengan makro


 
Coba setelah set lastrow diberi :
    If Sheet15.Range("c28").Value <> Sheet15.Range("b28").Value Then
        LastRow.Offset(1, -1).Value = Application.WorksheetFunction.Max( _
                                        LastRow.Offset(1 - LastRow.Row, -1).Resize(LastRow.Row - 1, 1) _
                                        ) + 1
        Sheet15.Range("c28").Value = "'" & Sheet15.Range("b28").Value
    End If

Wassalam,
Kid.

2012/11/18 Emi <emilestariklcc@yahoo.com>


>Dear Teman dan Guru BeExcel,
>
>
>Saya ingin mempelajari bagaimana No Urut di Kolom A tidak lagi bergantung kepada kolom bantu, tetapi otomatis muncul di saat data ini di transfer dari sheet data entry.
>
>Filenya dilampirkan.
>
>
>Terima kasih.
>
>
>Emi Lestari
>
>
>
>No Urut Doc Date Post Date DT Currency
>1 02112012 18112012 KA USD
>  02112012 18112012    
>  02112012 18112012    
>  02112012 18112012    
>  02112012 18112012    
>2 02112012 18112012 SJ  
>  02112012 18112012    
>3 02112012 18112012 SJ USD
>  02112012 18112012    
>  02112012 18112012    
>  02112012 18112012    
>4 08112012 16112012 KA USD
>  08112012 16112012    
>,=IF( LEFT(AA15, LEN(AA15) -1 )<>LEFT( AA14, LEN( AA14 )-1 ), MAX( A$1:A14 ) +1, "" )        

Sun Nov 18, 2012 2:22 am (PST) . Posted by:

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

Ops sorry, ternyata lastwor beneran lastrow yang sudah ada datanya.
Kalau gitu ubah dari :
If Sheet15.Range("c28").Value <> Sheet15.Range("b28").Value Then
LastRow.Offset(1, -1).Value = Application.WorksheetFunction.Max( _
LastRow.Offset(1 - LastRow.Row,
-1).Resize(LastRow.Row - 1, 1) _
) + 1
Sheet15.Range("c28").Value = "'" & Sheet15.Range("b28").Value
End If
jadi :
If Sheet15.Range("c28").Value <> Sheet15.Range("b28").Value Then
LastRow.Offset(1, -1).Value = Application.WorksheetFunction.Max( _
LastRow.Offset(1 - LastRow.Row,
-1).Resize(LastRow.Row, 1) _
) + 1
Sheet15.Range("c28").Value = "'" & Sheet15.Range("b28").Value
End If

Baris itu digunakan untuk hitung nilai maksimum nomor urut sheet16 mulai
baris 1 excel sampai baris terakhir data lalu ditambah dengan 1, ketika di
sheet15 ada perbedaan isi antara c28 dengan b28.

Wassalam,
Kid.

2012/11/18 Emi <emilestariklcc@yahoo.com>

> **
>
>
> Pak Kid,
>
> Makro ini tidak berhasil jika sheet tujuan belum pernah diiisi., kecuali
> ada value di cell B2.
>
> Diharapkan dapat dijelaskan apakah maksud offset dan lastRow dalam kasus
> ini.
>
> Terima kasih
>
> Emi Lestari
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Sunday, November 18, 2012 12:05 PM
> *Subject:* Re: [belajar-excel] Menggantikan formula dengan makro
>
>
> Coba setelah set lastrow diberi :
> If Sheet15.Range("c28").Value <> Sheet15.Range("b28").Value Then
> LastRow.Offset(1, -1).Value = Application.WorksheetFunction.Max( _
> LastRow.Offset(1 - LastRow.Row,
> -1).Resize(LastRow.Row - 1, 1) _
> ) + 1
> Sheet15.Range("c28").Value = "'" & Sheet15.Range("b28").Value
> End If
>
>
> Wassalam,
> Kid.
>
> 2012/11/18 Emi <emilestariklcc@yahoo.com>
>
> **
>
> Dear Teman dan Guru BeExcel,
>
> Saya ingin mempelajari bagaimana No Urut di Kolom A tidak lagi bergantung
> kepada kolom bantu, tetapi otomatis muncul di saat data ini di transfer
> dari sheet data entry.
> Filenya dilampirkan.
>
> Terima kasih.
>
> Emi Lestari
>
> No Urut Doc Date Post Date DT Currency 1 02112012 18112012 KA USD
> 02112012 18112012 02112012 18112012 02112012 18112012
> 02112012 18112012 2 02112012 18112012 SJ 02112012 18112012
> 3 02112012 18112012 SJ USD 02112012 18112012 02112012 18112012
> 02112012 18112012 4 08112012 16112012 KA USD 08112012
> 16112012 ,=IF( LEFT(AA15, LEN(AA15) -1 )<>LEFT( AA14, LEN( AA14 )-1
> ), MAX( A$1:A14 ) +1, "" )
>
>
>
>
>
>

Sun Nov 18, 2012 4:09 am (PST) . Posted by:

"Harry" hariansyahptk

Dear BeExceller,

Pada UserForm yang sudah kita buat biasanya ada tombol "SAVE" dan "CLOSE". Jika Workbook yang kita buat digunakan oleh banyak user, sering kali user tidak meng-click salah satu tombol tersebut ("SAVE" dan "CLOSE") tetapi user meng-click tanda "X" pada sisi kanan  UserForm terebut yang dapat mengakibatkan Worksheet tidak otomatis terpassword seperti yang sudah kita siapkan.
Mohon informasi bagaimana caranya jika user meng-click tanda "X" tersebut diatas, otomatis atau sama dengan user meng-click tombol "CLOSE".

Terima kasih atas bekenan informasinya.

Wasalam,

Harry

Sent from Yahoo! Mail on Android

Sun Nov 18, 2012 5:14 am (PST) . Posted by:

"Mardi" hekerkampoeng

Dear all master excel,
Mardi lagi nih biasa nanya melulu..he..
Bisakah textbox di vba dibuat pemisah digit ribuan,dengan titik atau
koma juga boleh ? Jadi kalo kursor kita pindah ketempat lain,angka di
textbox itu sudah dipisahkan digit ribuan ,ataupun begitu nulis langsung
muncul pemisah .Maklum kalo dah lihat 0000000 suka salah input....he..he..
Suwun
mardi

Sun Nov 18, 2012 5:34 am (PST) . Posted by:

"ngademin Thohari" ngademinth

Be-exceller

Melanjutkan yang telah di advice dan di ajarkan oleh mr. kid,
data yang diinginkan
fungsi kolom verify akan aktif setelah 2 jam sekali, kalau 24 jam akan aktif selama 12 kali, yang aktif adalah kolom I (verify by), bila belum diinput semua data yang di kolom I, maka data yang lain tidak bisa diinput, apakah ini memakai fungsi timer ?
berikut lampirannya.

terima kasih

amin
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