15 New Messages
Digest #1912
1a
Fw: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir by "hendrik karnadi" hendrikkarnadi
1b
Re: Fw: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir by "Mr. Kid" nmkid.family@ymail.com
1c
Re: Fw: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir by "hendrik karnadi" hendrikkarnadi
Messages
Sat Nov 17, 2012 8:47 am (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Setelah terbangun dari mimpi baru saya temukan solusinya, yaitu selalu kembali ke Sheet("GL").
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: Mr. Kid <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Saturday, 17 November 2012, 22:32
Subject: Re: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir
hehehe...
sebenarnya, kalau sejak awal dipandang rumit, biasanya akan ada banyak pintu solusi yang tertutup atau tak sadar jika pintu itu ada disitu. Jadinya malah jadi sedikit jumlah pilihan solusinya. Baris debug.print adalah salah satu usaha untuk mengembalikan cara pandang terhadap masalah agar jadi lebih simple dan tidak dipandang rumit.
Semoga kedepan akan makin banyak BeExceller yang bersedia dengan sukarela belajar mencari error beserta solusinya. Kemudian rajin posting solusi pada kasus-kasus tentang error di script VBA.
Wassalam,
Kid.
2012/11/17 dhen.baguse <bagusejogja@yahoo.com >
>
>wah ternyata rumit juga ya, tapi mantap bener nih para master-master excel. Saya coba pelajari, jika ada pertanyakan nanti saya "lempar" kemaster-master lagi...
>
>
>ayo kawan kita belajar bersama...tq para master...
>
>
>
>________________________________
>
>
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Saturday, 17 November 2012, 22:32
Subject: Re: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir
hehehe...
sebenarnya, kalau sejak awal dipandang rumit, biasanya akan ada banyak pintu solusi yang tertutup atau tak sadar jika pintu itu ada disitu. Jadinya malah jadi sedikit jumlah pilihan solusinya. Baris debug.print adalah salah satu usaha untuk mengembalikan cara pandang terhadap masalah agar jadi lebih simple dan tidak dipandang rumit.
Semoga kedepan akan makin banyak BeExceller yang bersedia dengan sukarela belajar mencari error beserta solusinya. Kemudian rajin posting solusi pada kasus-kasus tentang error di script VBA.
Wassalam,
Kid.
2012/11/17 dhen.baguse <bagusejogja@
>
>wah ternyata rumit juga ya, tapi mantap bener nih para master-master excel. Saya coba pelajari, jika ada pertanyakan nanti saya "lempar" kemaster-master lagi...
>
>
>ayo kawan kita belajar bersama...tq para master...
>
>
>
>___________
>
>
Sat Nov 17, 2012 8:18 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hehehe...
biasanya ada rasa puas tersendiri dalam menikmati hasil usaha sendiri.
mungkin Pak Hendrik bersedia menceritakan lebih lengkap kisah meminta
kembalinya si sheet GL.
Wassalam,
Kid.
2012/11/17 hendrik karnadi <hendrikkarnadi@yahoo.com >
> **
>
>
> Setelah terbangun dari mimpi baru saya temukan solusinya, yaitu selalu
> kembali ke Sheet("GL").
>
> Salam,
> Hendrik Karnadi
>
> ----- Forwarded Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Saturday, 17 November 2012, 22:32
> *Subject:* Re: [belajar-excel] Looping yang tidak ngeloop pada bagian
> akhir
>
>
> hehehe...
> sebenarnya, kalau sejak awal dipandang rumit, biasanya akan ada banyak
> pintu solusi yang tertutup atau tak sadar jika pintu itu ada disitu.
> Jadinya malah jadi sedikit jumlah pilihan solusinya. Baris debug.print
> adalah salah satu usaha untuk mengembalikan cara pandang terhadap masalah
> agar jadi lebih simple dan tidak dipandang rumit.
>
> Semoga kedepan akan makin banyak BeExceller yang bersedia dengan sukarela
> belajar mencari error beserta solusinya. Kemudian rajin posting solusi pada
> kasus-kasus tentang error di script VBA.
>
> Wassalam,
> Kid.
>
>
>
> 2012/11/17 dhen.baguse <bagusejogja@yahoo.com >
>
> **
>
> wah ternyata rumit juga ya, tapi mantap bener nih para master-master
> excel. Saya coba pelajari, jika ada pertanyakan nanti saya "lempar"
> kemaster-master lagi...
>
> ayo kawan kita belajar bersama...tq para master...
>
> ------------------------------
>
>
>
>
>
>
biasanya ada rasa puas tersendiri dalam menikmati hasil usaha sendiri.
mungkin Pak Hendrik bersedia menceritakan lebih lengkap kisah meminta
kembalinya si sheet GL.
Wassalam,
Kid.
2012/11/17 hendrik karnadi <hendrikkarnadi@
> **
>
>
> Setelah terbangun dari mimpi baru saya temukan solusinya, yaitu selalu
> kembali ke Sheet("GL").
>
> Salam,
> Hendrik Karnadi
>
> ----- Forwarded Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Saturday, 17 November 2012, 22:32
> *Subject:* Re: [belajar-excel] Looping yang tidak ngeloop pada bagian
> akhir
>
>
> hehehe...
> sebenarnya, kalau sejak awal dipandang rumit, biasanya akan ada banyak
> pintu solusi yang tertutup atau tak sadar jika pintu itu ada disitu.
> Jadinya malah jadi sedikit jumlah pilihan solusinya. Baris debug.print
> adalah salah satu usaha untuk mengembalikan cara pandang terhadap masalah
> agar jadi lebih simple dan tidak dipandang rumit.
>
> Semoga kedepan akan makin banyak BeExceller yang bersedia dengan sukarela
> belajar mencari error beserta solusinya. Kemudian rajin posting solusi pada
> kasus-kasus tentang error di script VBA.
>
> Wassalam,
> Kid.
>
>
>
> 2012/11/17 dhen.baguse <bagusejogja@
>
> **
>
> wah ternyata rumit juga ya, tapi mantap bener nih para master-master
> excel. Saya coba pelajari, jika ada pertanyakan nanti saya "lempar"
> kemaster-master lagi...
>
> ayo kawan kita belajar bersama...tq para master...
>
> ------------
>
>
>
>
>
>
Sat Nov 17, 2012 10:29 pm (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Kita coba tunggu rekan2 yang lain dulu Mr. Kid.
Insya Allah besok sore sudah akan saya sampaikan jawabannya.
Salam,
Hendrik Karnadi
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Sunday, 18 November 2012, 11:18
Subject: Re: Fw: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir
hehehe...
biasanya ada rasa puas tersendiri dalam menikmati hasil usaha sendiri.
mungkin Pak Hendrik bersedia menceritakan lebih lengkap kisah meminta kembalinya si sheet GL.
Wassalam,
Kid.
2012/11/17 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
>Setelah terbangun dari mimpi baru saya temukan solusinya, yaitu selalu kembali ke Sheet("GL").
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>----- Forwarded Message -----
>From: Mr. Kid <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>
>Sent: Saturday, 17 November 2012, 22:32
>Subject: Re: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir
>
>
>
>hehehe...
>sebenarnya, kalau sejak awal dipandang rumit, biasanya akan ada banyak pintu solusi yang tertutup atau tak sadar jika pintu itu ada disitu. Jadinya malah jadi sedikit jumlah pilihan solusinya. Baris debug.print adalah salah satu usaha untuk mengembalikan cara pandang terhadap masalah agar jadi lebih simple dan tidak dipandang rumit.
>
>Semoga kedepan akan makin banyak BeExceller yang bersedia dengan sukarela belajar mencari error beserta solusinya. Kemudian rajin posting solusi pada kasus-kasus tentang error di script VBA.
>
>Wassalam,
>Kid.
>
>
>
>
>2012/11/17 dhen.baguse <bagusejogja@yahoo.com >
>
>
>>
>>wah ternyata rumit juga ya, tapi mantap bener nih para master-master excel. Saya coba pelajari, jika ada pertanyakan nanti saya "lempar" kemaster-master lagi...
>>
>>
>>ayo kawan kita belajar bersama...tq para master...
>>
>>
>>
>>________________________________
>>
>>
>
>
>
Insya Allah besok sore sudah akan saya sampaikan jawabannya.
Salam,
Hendrik Karnadi
____________
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Sunday, 18 November 2012, 11:18
Subject: Re: Fw: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir
hehehe...
biasanya ada rasa puas tersendiri dalam menikmati hasil usaha sendiri.
mungkin Pak Hendrik bersedia menceritakan lebih lengkap kisah meminta kembalinya si sheet GL.
Wassalam,
Kid.
2012/11/17 hendrik karnadi <hendrikkarnadi@
>
>Setelah terbangun dari mimpi baru saya temukan solusinya, yaitu selalu kembali ke Sheet("GL").
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>----- Forwarded Message -----
>From: Mr. Kid <mr.nmkid@gmail.
>To: belajar-excel@
>
>Sent: Saturday, 17 November 2012, 22:32
>Subject: Re: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir
>
>
>
>hehehe...
>sebenarnya, kalau sejak awal dipandang rumit, biasanya akan ada banyak pintu solusi yang tertutup atau tak sadar jika pintu itu ada disitu. Jadinya malah jadi sedikit jumlah pilihan solusinya. Baris debug.print adalah salah satu usaha untuk mengembalikan cara pandang terhadap masalah agar jadi lebih simple dan tidak dipandang rumit.
>
>Semoga kedepan akan makin banyak BeExceller yang bersedia dengan sukarela belajar mencari error beserta solusinya. Kemudian rajin posting solusi pada kasus-kasus tentang error di script VBA.
>
>Wassalam,
>Kid.
>
>
>
>
>2012/11/17 dhen.baguse <bagusejogja@
>
>
>>
>>wah ternyata rumit juga ya, tapi mantap bener nih para master-master excel. Saya coba pelajari, jika ada pertanyakan nanti saya "lempar" kemaster-master lagi...
>>
>>
>>ayo kawan kita belajar bersama...tq para master...
>>
>>
>>
>>__________
>>
>>
>
>
>
Sat Nov 17, 2012 5:43 pm (PST) . Posted by:
"Emi" emilestariklcc
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, "" )
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, "" )
Sat Nov 17, 2012 8:06 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
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, "" )
>
>
>
If Sheet15.Range(
LastRow.Offset(
LastRow.Offset(
-1).Resize(LastRow.
) + 1
Sheet15.Range(
End If
Wassalam,
Kid.
2012/11/18 Emi <emilestariklcc@
> **
>
>
> 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, "" )
>
>
>
Sat Nov 17, 2012 7:14 pm (PST) . Posted by:
"ngademin Thohari" ngademinth
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
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
Sat Nov 17, 2012 7:26 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.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
>
>
>
1. ubah formula qty di baris 2 menjadi :
=IFERROR(IFERROR(
",99)),(ROW(
",99)),100,99)
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.
> **
>
>
> 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
>
>
>
Sat Nov 17, 2012 7:28 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
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
>>
>>
>>
>
>
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.
> Coba langkah berikut :
> 1. ubah formula qty di baris 2 menjadi :
> =IFERROR(IFERROR(
> ",99)),(ROW(
> ",99)),100,99)
>
> 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.
>
>> **
>>
>>
>> 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
>>
>>
>>
>
>
Sat Nov 17, 2012 11:03 pm (PST) . Posted by:
"ngademin Thohari" ngademinth
mr. kid
langsung ke- TKP,
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
>>
>>
>
langsung ke- TKP,
Wassalam
amin
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: belajar-excel@
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.
Coba langkah berikut :
>1. ubah formula qty di baris 2 menjadi :
>=IFERROR(IFERROR(
>
>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.
>
>
>>
>>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
>>
>>
>
Sat Nov 17, 2012 11:03 pm (PST) . Posted by:
"ngademin Thohari" ngademinth
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
>>
>>
>
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.
Kepada: belajar-excel@
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.
Coba langkah berikut :
>1. ubah formula qty di baris 2 menjadi :
>=IFERROR(IFERROR(
>
>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.
>
>
>>
>>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
>>
>>
>
Sat Nov 17, 2012 7:21 pm (PST) . Posted by:
"hartini_80@yahoo.co.id" hartini_80
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
CONFIDENTIAL NOTE: The information contained in this email is intended only for the use of the individual or entity named above and may contain information that is privileged, confidential and exempt from disclosure under applicable law. If the reader of this message is not the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete the mail. Thank you.
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@
Date: Sun, 18 Nov 2012 03:11:15
To: hartini_80@yahoo.
Subject: Booking Calender
CONFIDENTIAL NOTE: The information contained in this email is intended only for the use of the individual or entity named above and may contain information that is privileged, confidential and exempt from disclosure under applicable law. If the reader of this message is not the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete the mail. Thank you.
Sat Nov 17, 2012 8:05 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
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
>
>
>
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=
2. pada sheet report1 (sheet ini terpusat pada pemanfaatan fungsi UDF
bernama 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=
(Jurnal!B2:B46=
>> isi cell G3 dengan keterangan yang ingin ditampilkan
Wassalam,
Kid.
On Sun, Nov 18, 2012 at 10:21 AM, <hartini_80@yahoo.
> **
>
>
> 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@
> Date: Sun, 18 Nov 2012 03:11:15
> To: hartini_80@yahoo.
> Subject: Booking Calender
>
>
>
Sat Nov 17, 2012 8:32 pm (PST) . Posted by:
"hartini_80@yahoo.co.id" hartini_80
Wah penjelasannya panjang ya Mr Kid, harus dipahami lebih teliti neh,
thanks atas sarannya ya, kedepannya ditujukan ke semua rekan2 belajar excel group, untuk yang ingin membantu diharapkan dengan sangat berbagi ilmu hehehe
Dear All, bagi yang mau menanggapi boleh kok, malah diwajibkan :))
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 11:05:35
To: <belajar-excel@yahoogroups.com >
Reply-To: 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
>
>
>
thanks atas sarannya ya, kedepannya ditujukan ke semua rekan2 belajar excel group, untuk yang ingin membantu diharapkan dengan sangat berbagi ilmu hehehe
Dear All, bagi yang mau menanggapi boleh kok, malah diwajibkan :))
Salam
Tiny
Powered by Telkomsel BlackBerry�
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.
Sender: belajar-excel@
Date: Sun, 18 Nov 2012 11:05:35
To: <belajar-excel@
Reply-To: belajar-excel@
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=
2. pada sheet report1 (sheet ini terpusat pada pemanfaatan fungsi UDF
bernama 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=
(Jurnal!B2:B46=
>> isi cell G3 dengan keterangan yang ingin ditampilkan
Wassalam,
Kid.
On Sun, Nov 18, 2012 at 10:21 AM, <hartini_80@yahoo.
> **
>
>
> 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@
> Date: Sun, 18 Nov 2012 03:11:15
> To: hartini_80@yahoo.
> Subject: Booking Calender
>
>
>
Sat Nov 17, 2012 9:13 pm (PST) . Posted by:
"hartini_80@yahoo.co.id" hartini_80
Mr Kid, point 2 saya kurang mengerti maksudnya, help dong
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 11:05:35
To: <belajar-excel@yahoogroups.com >
Reply-To: 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
>
>
>
Salam
Tiny
Powered by Telkomsel BlackBerry�
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.
Sender: belajar-excel@
Date: Sun, 18 Nov 2012 11:05:35
To: <belajar-excel@
Reply-To: belajar-excel@
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=
2. pada sheet report1 (sheet ini terpusat pada pemanfaatan fungsi UDF
bernama 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=
(Jurnal!B2:B46=
>> isi cell G3 dengan keterangan yang ingin ditampilkan
Wassalam,
Kid.
On Sun, Nov 18, 2012 at 10:21 AM, <hartini_80@yahoo.
> **
>
>
> 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@
> Date: Sun, 18 Nov 2012 03:11:15
> To: hartini_80@yahoo.
> Subject: Booking Calender
>
>
>
Sun Nov 18, 2012 12:20 am (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
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
________________________________
From: dhen.baguse <bagusejogja@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Friday, 16 November 2012, 18:20
Subject: Re: [belajar-excel] Pembagian ke masing masing sheet
Salam para master-master
Di email sebelumnya saya sudah pernah menanyakan
di milis ini tentang mengahpus sebagian data di beberapa sheet dengan VBA dan ditanggapai
oleh miss Jan dengan menyisipkan coding antara lain sbb. :
' ===================================================================== '
' modified by Miss Jan Raisin '
' untuk millis Belajar Excel '
' 13 November 2012 '
' penambahan script untuk menghapus data lama sebelum menulis data baru '
' ===================================================================== '
' [AwalDariScriptTambahan]
' deklarasikan variabel untuk menyimpan objek berupa worksheet
Dim ws As Worksheet
' yang akan kita lakukan adalah menguji untuk setiap worksheet
' jika nama worksheet tidak sama dengan Input maka
' hapus data mulai dari cell B11 ke arah kanan dan ke bawah
' pertama-tama lakukan Loop terhadap semua worksheet
For Each ws In Worksheets
' lakukan pengujian nama worksheet menggunakan perintah .Name
If ws.Name <> "Input" Then
' hapus data dalam worksheet tersebut mulai dari cell B11
' untuk menunjuk gunakan perintah ws.Range("b11")
' sampai dengan baris paling bawah & paling kanan yang berisi data
' untuk menunjuk gunakan perintah ws.Range("b11").End(xlDown).End(xlToRight)
' perintah untuk menghapusnya adalah .ClearContents
Range(ws.Range("b11"), ws.Range("b11").End(xlDown).End(xlToRight)).ClearContents
' ini adalah penutup dari pengujian nama worksheet
End If
' ini adalah blok penutup dari loop
Next ws
' [/AkhirDariScriptTambahan]
Tetapi setelah saya menambahkan
sheet baru, dan sheet tersebut (master dan sado awal) seharunya tidak akan dihapus
seperti sheet input, bagimana caranya? Saya sudah mencoba menambahi dan sok tau
mengotak atik code tapi tidak berhasil J.. mohon bantuannya
para master
Saya coba memodifikasi rumus tapi belum sesuai
dengan yang saya maksud, saya minta masukkan para master agar coding nya
jalannya lebih ok
a. Coding pertama :
Tertulis :
.Offset(, 2).Value =
Sheets("Input").Cells(rData, 7).Value & " - " &
Sheets("Input").Cells(rData, 5).Value
Bagaimana tambahan coding baru jika
Sheet input kolom G tidak ada data (kosong) codingnya .Offset(, 2).Value =
Sheets("Input").Cells(rData, 5),
Sedangkan jika Sheet input kolom
G ada data codingnya .Offset(, 2).Value =
Sheets("Input").Cells(rData, 7).Value & " - " &
Sheets("Input").Cells(rData, 5).Value
b. Coding kedua :
Tertulis
.Offset(, 7).Value = Sheets("input").Cells(rData, 10).Value
.Offset(, 8).Value =
Sheets("input").Cells(rData, 11).Value
.Offset(, 9).Value =
Sheets("input").Cells(rData, 12).Value
.Offset(, 10).Value =
Sheets("input").Cells(rData, 13).Value
Tambahan Coding apa jika coding diataas hanya berlaku untuk sheet UP saja
sheet lain tidak menerima distribusi data dari coding tersebut.
Untuk yang terakhir saya belum mencoba dan saya minta
masukkan coding jika saya ingin memindahkan
kolom H sheet input yang terisi ke sheet pajak sesuai dengan jenis pajaknya,
semisal kolom H berisi PPh 21 maka data tersebut ditarik di sheet pajak kolom J
atau kolom PPh 21 begitu juga jika PPh 22,23 atau PPN.
terimaksih para master, semoga bisa membrikan banyak masukkan
wassalam
________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, November 13, 2012 8:07 PM
Subject: Re: [belajar-excel] Pembagian ke masing masing sheet
mas den bagus se jogja,
coba tambahkan script berikut ini di bawah deklarasi yang paling akhir, tetapi di atas script yang berbunyi Application.ScreenUpdating = False
' ===================================================================== '
' modified by Miss Jan Raisin '
' untuk millis Belajar Excel '
' 13 November 2012 '
' penambahan script untuk menghapus data lama sebelum menulis data baru '
' ===================================================================== '
' [AwalDariScriptTambahan]
' deklarasikan variabel untuk menyimpan objek berupa worksheet
Dim ws As Worksheet
' yang akan kita lakukan adalah menguji untuk setiap worksheet
' jika nama worksheet tidak sama dengan Input maka
' hapus data mulai dari cell B11 ke arah kanan dan ke bawah
' pertama-tama lakukan Loop terhadap semua worksheet
For Each ws In Worksheets
' lakukan pengujian nama worksheet menggunakan perintah .Name
If ws.Name <> "Input" Then
' hapus data dalam worksheet tersebut mulai dari cell B11
' untuk menunjuk gunakan perintah ws.Range("b11")
' sampai dengan baris paling bawah & paling kanan yang berisi data
' untuk menunjuk gunakan perintah ws.Range("b11").End(xlDown).End(xlToRight)
' perintah untuk menghapusnya adalah .ClearContents
Range(ws.Range("b11"), ws.Range("b11").End(xlDown).End(xlToRight)).ClearContents
' ini adalah penutup dari pengujian nama worksheet
End If
' ini adalah blok penutup dari loop
Next ws
' [/AkhirDariScriptTambahan]
semoga yang ini sudah sesuai dengan yang diharapkan, kalo masih ada yang kurang sesuai coba mas den bagus kutak-katik dulu, nanti kesulitannya silakan dishare lagi ke millis
Best Regard,
Jan Raisin
Pada 13 November 2012 05:00, dhen.baguse <bagusejogja@yahoo.com > menulis:
>
>wah walupun jan bukanlan programer tapi hasilnya sesuai yang diharapkan, ruar binasa dan top markotop seperti di bimbingan les private aje...:)
>mas atau mb jan mau tanya lagi, itu semisal tombol diklik yang ke 2 kalinya kan munculnya data yang sama dan menambahkan dibawahnya, agar tidak membuat tambahan data dibawahnya tapi penghapus yang lama dan menggantik data dari perintah yang baru itu tambahan codingnya gmna jan?
>
>terimakasih jan;)
>
>________________________________
>From: Jan Raisin <miss.jan.raisin@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Monday, November 12, 2012 1:26 PM
>Subject: Re: [belajar-excel] Pembagian ke masing masing sheet
>
>
>
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
____________
From: dhen.baguse <bagusejogja@
To: "belajar-excel@
Sent: Friday, 16 November 2012, 18:20
Subject: Re: [belajar-excel] Pembagian ke masing masing sheet
Salam para master-master
Di email sebelumnya saya sudah pernah menanyakan
di milis ini tentang mengahpus sebagian data di beberapa sheet dengan VBA dan ditanggapai
oleh miss Jan dengan menyisipkan coding antara lain sbb. :
' ============
' modified by Miss Jan Raisin '
' untuk millis Belajar Excel '
' 13 November 2012 '
' penambahan script untuk menghapus data lama sebelum menulis data baru '
' ============
' [AwalDariScriptTamb
' deklarasikan variabel untuk menyimpan objek berupa worksheet
Dim ws As Worksheet
' yang akan kita lakukan adalah menguji untuk setiap worksheet
' jika nama worksheet tidak sama dengan Input maka
' hapus data mulai dari cell B11 ke arah kanan dan ke bawah
' pertama-tama lakukan Loop terhadap semua worksheet
For Each ws In Worksheets
' lakukan pengujian nama worksheet menggunakan perintah .Name
If ws.Name <> "Input" Then
' hapus data dalam worksheet tersebut mulai dari cell B11
' untuk menunjuk gunakan perintah ws.Range("b11"
' sampai dengan baris paling bawah & paling kanan yang berisi data
' untuk menunjuk gunakan perintah ws.Range("b11"
' perintah untuk menghapusnya adalah .ClearContents
Range(ws.Range(
' ini adalah penutup dari pengujian nama worksheet
End If
' ini adalah blok penutup dari loop
Next ws
' [/AkhirDariScriptTa
Tetapi setelah saya menambahkan
sheet baru, dan sheet tersebut (master dan sado awal) seharunya tidak akan dihapus
seperti sheet input, bagimana caranya? Saya sudah mencoba menambahi dan sok tau
mengotak atik code tapi tidak berhasil J.. mohon bantuannya
para master
Saya coba memodifikasi rumus tapi belum sesuai
dengan yang saya maksud, saya minta masukkan para master agar coding nya
jalannya lebih ok
a. Coding pertama :
Tertulis :
.Offset(, 2).Value =
Sheets("Input"
Sheets("Input"
Bagaimana tambahan coding baru jika
Sheet input kolom G tidak ada data (kosong) codingnya .Offset(, 2).Value =
Sheets("Input"
Sedangkan jika Sheet input kolom
G ada data codingnya .Offset(, 2).Value =
Sheets("Input"
Sheets("Input"
b. Coding kedua :
Tertulis
.Offset(, 7).Value = Sheets("input"
.Offset(, 8).Value =
Sheets("input"
.Offset(, 9).Value =
Sheets("input"
.Offset(, 10).Value =
Sheets("input"
Tambahan Coding apa jika coding diataas hanya berlaku untuk sheet UP saja
sheet lain tidak menerima distribusi data dari coding tersebut.
Untuk yang terakhir saya belum mencoba dan saya minta
masukkan coding jika saya ingin memindahkan
kolom H sheet input yang terisi ke sheet pajak sesuai dengan jenis pajaknya,
semisal kolom H berisi PPh 21 maka data tersebut ditarik di sheet pajak kolom J
atau kolom PPh 21 begitu juga jika PPh 22,23 atau PPN.
terimaksih para master, semoga bisa membrikan banyak masukkan
wassalam
____________
From: Jan Raisin <miss.jan.raisin@
To: belajar-excel@
Sent: Tuesday, November 13, 2012 8:07 PM
Subject: Re: [belajar-excel] Pembagian ke masing masing sheet
mas den bagus se jogja,
coba tambahkan script berikut ini di bawah deklarasi yang paling akhir, tetapi di atas script yang berbunyi Application
' ============
' modified by Miss Jan Raisin '
' untuk millis Belajar Excel '
' 13 November 2012 '
' penambahan script untuk menghapus data lama sebelum menulis data baru '
' ============
' [AwalDariScriptTamb
' deklarasikan variabel untuk menyimpan objek berupa worksheet
Dim ws As Worksheet
' yang akan kita lakukan adalah menguji untuk setiap worksheet
' jika nama worksheet tidak sama dengan Input maka
' hapus data mulai dari cell B11 ke arah kanan dan ke bawah
' pertama-tama lakukan Loop terhadap semua worksheet
For Each ws In Worksheets
' lakukan pengujian nama worksheet menggunakan perintah .Name
If ws.Name <> "Input" Then
' hapus data dalam worksheet tersebut mulai dari cell B11
' untuk menunjuk gunakan perintah ws.Range("b11"
' sampai dengan baris paling bawah & paling kanan yang berisi data
' untuk menunjuk gunakan perintah ws.Range("b11"
' perintah untuk menghapusnya adalah .ClearContents
Range(ws.Range(
' ini adalah penutup dari pengujian nama worksheet
End If
' ini adalah blok penutup dari loop
Next ws
' [/AkhirDariScriptTa
semoga yang ini sudah sesuai dengan yang diharapkan, kalo masih ada yang kurang sesuai coba mas den bagus kutak-katik dulu, nanti kesulitannya silakan dishare lagi ke millis
Best Regard,
Jan Raisin
Pada 13 November 2012 05:00, dhen.baguse <bagusejogja@
>
>wah walupun jan bukanlan programer tapi hasilnya sesuai yang diharapkan, ruar binasa dan top markotop seperti di bimbingan les private aje...:)
>mas atau mb jan mau tanya lagi, itu semisal tombol diklik yang ke 2 kalinya kan munculnya data yang sama dan menambahkan dibawahnya, agar tidak membuat tambahan data dibawahnya tapi penghapus yang lama dan menggantik data dari perintah yang baru itu tambahan codingnya gmna jan?
>
>terimakasih jan;)
>
>___________
>From: Jan Raisin <miss.jan.raisin@
>To: belajar-excel@
>Sent: Monday, November 12, 2012 1:26 PM
>Subject: Re: [belajar-excel] Pembagian ke masing masing sheet
>
>
>
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