15 New Messages
Digest #2687
2.2
Re: Bls: [belajar-excel] Membuat Rekap Invoice secara Otomatis by "Ahmad Syaifullah Lubis" syaifullah
2.4
Re: Bls: [belajar-excel] Membuat Rekap Invoice secara Otomatis [1 At by "dwi mulyaningsih" upiet29
Messages
Mon Dec 9, 2013 9:10 pm (PST) . Posted by:
"heru mulyono"
Yth Master Excel
Mohon pencerahannya....
Ani lahir tgl 10 Jannuari 2000, tahun berapakah ia berumur 60 th.
(jawabannya 10 Januari 2060)
Mohon bagaimana membuat rumusnya...?
trimakasih
Mohon pencerahannya.
Ani lahir tgl 10 Jannuari 2000, tahun berapakah ia berumur 60 th.
(jawabannya 10 Januari 2060)
Mohon bagaimana membuat rumusnya...?
trimakasih
Mon Dec 9, 2013 9:14 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Heru,
Misal di A1 adalah tanggal lahir bertipe datetime (di entry dengan format
YYYY-MM-DD)
Pada B1 diberi formula tanggal ulang tahun ke-60 berbunyi : (bertipe
datetine)
=edate( a1 , 12 * 60 ) -> pada xl2003 kebawah harus mengaktifkan
addin analysis toolpak
atau
=date( year( a1 ) + 60 , month( a1 ) , day( a1 ) ) ->
disemua versi Excel tanpa perlu addin
Jika ingin nilai tahunnya saja, manfaatkan fungsi Year terhadap hasil
formula di atas atau cell B1 diatur format numbernya menjadi custom YYYY
Wassalam,
Kid.
2013/12/10 heru mulyono <hmulyono24@gmail.com>
>
>
> Yth Master Excel
>
> Mohon pencerahannya....
>
>
> Ani lahir tgl 10 Jannuari 2000, tahun berapakah ia berumur 60 th.
> (jawabannya 10 Januari 2060)
>
> Mohon bagaimana membuat rumusnya...?
> trimakasih
>
>
>
Misal di A1 adalah tanggal lahir bertipe datetime (di entry dengan format
YYYY-MM-DD)
Pada B1 diberi formula tanggal ulang tahun ke-60 berbunyi : (bertipe
datetine)
=edate( a1 , 12 * 60 ) -> pada xl2003 kebawah harus mengaktifkan
addin analysis toolpak
atau
=date( year( a1 ) + 60 , month( a1 ) , day( a1 ) ) ->
disemua versi Excel tanpa perlu addin
Jika ingin nilai tahunnya saja, manfaatkan fungsi Year terhadap hasil
formula di atas atau cell B1 diatur format numbernya menjadi custom YYYY
Wassalam,
Kid.
2013/12/10 heru mulyono <hmulyono24@gmail.
>
>
> Yth Master Excel
>
> Mohon pencerahannya.
>
>
> Ani lahir tgl 10 Jannuari 2000, tahun berapakah ia berumur 60 th.
> (jawabannya 10 Januari 2060)
>
> Mohon bagaimana membuat rumusnya...?
> trimakasih
>
>
>
Mon Dec 9, 2013 9:39 pm (PST) . Posted by:
"heru mulyono"
Terimakasih Mr Kid,
Jawaban sesuai keinginan saya
Pada 10 Desember 2013 12.14, Mr. Kid <mr.nmkid@gmail.com> menulis:
>
>
> Hai Heru,
>
> Misal di A1 adalah tanggal lahir bertipe datetime (di entry dengan format
> YYYY-MM-DD)
> Pada B1 diberi formula tanggal ulang tahun ke-60 berbunyi : (bertipe
> datetine)
> =edate( a1 , 12 * 60 ) -> pada xl2003 kebawah harus mengaktifkan
> addin analysis toolpak
> atau
> =date( year( a1 ) + 60 , month( a1 ) , day( a1 ) ) ->
> disemua versi Excel tanpa perlu addin
>
> Jika ingin nilai tahunnya saja, manfaatkan fungsi Year terhadap hasil
> formula di atas atau cell B1 diatur format numbernya menjadi custom YYYY
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
> 2013/12/10 heru mulyono <hmulyono24@gmail.com>
>
>>
>>
>> Yth Master Excel
>>
>> Mohon pencerahannya....
>>
>>
>> Ani lahir tgl 10 Jannuari 2000, tahun berapakah ia berumur 60 th.
>> (jawabannya 10 Januari 2060)
>>
>> Mohon bagaimana membuat rumusnya...?
>> trimakasih
>>
>>
>
>
Jawaban sesuai keinginan saya
Pada 10 Desember 2013 12.14, Mr. Kid <mr.nmkid@gmail.
>
>
> Hai Heru,
>
> Misal di A1 adalah tanggal lahir bertipe datetime (di entry dengan format
> YYYY-MM-DD)
> Pada B1 diberi formula tanggal ulang tahun ke-60 berbunyi : (bertipe
> datetine)
> =edate( a1 , 12 * 60 ) -> pada xl2003 kebawah harus mengaktifkan
> addin analysis toolpak
> atau
> =date( year( a1 ) + 60 , month( a1 ) , day( a1 ) ) ->
> disemua versi Excel tanpa perlu addin
>
> Jika ingin nilai tahunnya saja, manfaatkan fungsi Year terhadap hasil
> formula di atas atau cell B1 diatur format numbernya menjadi custom YYYY
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
> 2013/12/10 heru mulyono <hmulyono24@gmail.
>
>>
>>
>> Yth Master Excel
>>
>> Mohon pencerahannya.
>>
>>
>> Ani lahir tgl 10 Jannuari 2000, tahun berapakah ia berumur 60 th.
>> (jawabannya 10 Januari 2060)
>>
>> Mohon bagaimana membuat rumusnya...?
>> trimakasih
>>
>>
>
>
Mon Dec 9, 2013 9:59 pm (PST) . Posted by:
"dwi mulyaningsih" upiet29
Dear All,
Akhirnya filenya sudah bisa berjalan. Terima kasih semuanya
Terima kasih Mr. Kid, dan juga terima kasih banyak untuk Bapak Hendrik.
Sedikit koreksi untuk proses loopnya di kolom 9 dan 10 prosedurnya terbalik, seharusnya 9 untuk satuan dan 10 untuk harga.
Terima kasih atas bantuannya.
Salam
Dwi
On Tuesday, December 10, 2013 6:24 AM, Mr. Kid <mr.nmkid@gmail.com> wrote:
Hai Dwi,
Mestinya bagian yang menimbulkan error tersebut tidak dibutuhkan karena
definisi range subtbl cukup sampai baris subtbl.offset(blabla
Jadi 2 baris Set Subtbl setelahnya bisa dihapus.
Jika enggan menghapusnya, coba tambahkan Sheets("datasub"). sebelum range(subtbl blabla
Pastikan pada sheet datasub, semua baris dikolom B terisi penuh (tidak ada yang blank).
Pada prosedur yang digunakan untuk menyimpan data anak, sepertinya proses loop harus diperbaiki menjadi :
For r = 1 To JmlItem
If .[a12:a30].Cells(r, 1) <> vbnullstring Then
TblSub(NewSub + r, 0) = NewSub + r '# urut
TblSub(NewSub + r, 1) = .[I3] ' Nr Inv
TblSub(NewSub + r, 2) = .[I5] ' Tgl Inv
TblSub(NewSub + r, 2).NumberFormat = "dd mmm yy"
TblSub(NewSub + r, 3) = .[P4] ' No Faktur Pajak
TblSub(NewSub + r, 4) = .[B3] ' Nm Cust
TblSub(NewSub + r, 5) = .cells(11+r,4).value ' Nm Produk
TblSub(NewSub + r, 8) = .cells(11+r,2).value ' Quantity
TblSub(NewSub + r, 9) = .cells(11+r,8) ' Harga
TblSub(NewSub + r, 10) = .cells(11+r,3) ' satuan
TblSub(NewSub + r, 11) = .cells(11+r,10) ' Jumlah
TblSub(NewSub + r, 14) = .cells(11+r,14) ' Kurs
endif
Next r
Wassalam,
Kid.
2013/12/9 dwi mulyaningsih <upiet29@yahoo.com>
>
>Terlampir error reportnya
>
>
>
>On , dwi mulyaningsih <upiet29@yahoo.com> wrote:
>
>Dear pakar excel,
>
>
>File warisan yang saya dapat sudah saya modif, dan akhirnya saya buat seperti terlampir.
>Akan tetapi pada saat rekam data ke tabel masih ada debugnya, mohon solusinya.
>terlampir error reportnya.
>Terima kasih
>
>
>Salam
>DM
>
>
>
>
>
Akhirnya filenya sudah bisa berjalan. Terima kasih semuanya
Terima kasih Mr. Kid, dan juga terima kasih banyak untuk Bapak Hendrik.
Sedikit koreksi untuk proses loopnya di kolom 9 dan 10 prosedurnya terbalik, seharusnya 9 untuk satuan dan 10 untuk harga.
Terima kasih atas bantuannya.
Salam
Dwi
On Tuesday, December 10, 2013 6:24 AM, Mr. Kid <mr.nmkid@gmail.
Hai Dwi,
Mestinya bagian yang menimbulkan error tersebut tidak dibutuhkan karena
definisi range subtbl cukup sampai baris subtbl.offset(
Jadi 2 baris Set Subtbl setelahnya bisa dihapus.
Jika enggan menghapusnya, coba tambahkan Sheets("
Pastikan pada sheet datasub, semua baris dikolom B terisi penuh (tidak ada yang blank).
Pada prosedur yang digunakan untuk menyimpan data anak, sepertinya proses loop harus diperbaiki menjadi :
For r = 1 To JmlItem
If .[a12:a30].Cells(
TblSub(NewSub + r, 0) = NewSub + r '# urut
TblSub(NewSub + r, 1) = .[I3] ' Nr Inv
TblSub(NewSub + r, 2) = .[I5] ' Tgl Inv
TblSub(NewSub + r, 2).NumberFormat = "dd mmm yy"
TblSub(NewSub + r, 3) = .[P4] ' No Faktur Pajak
TblSub(NewSub + r, 4) = .[B3] ' Nm Cust
TblSub(NewSub + r, 5) = .cells(11+r,
TblSub(NewSub + r, 8) = .cells(11+r,
TblSub(NewSub + r, 9) = .cells(11+r,
TblSub(NewSub + r, 10) = .cells(11+r,
TblSub(NewSub + r, 11) = .cells(11+r,
TblSub(NewSub + r, 14) = .cells(11+r,
endif
Next r
Wassalam,
Kid.
2013/12/9 dwi mulyaningsih <upiet29@yahoo.
>
>Terlampir error reportnya
>
>
>
>On , dwi mulyaningsih <upiet29@yahoo.
>
>Dear pakar excel,
>
>
>File warisan yang saya dapat sudah saya modif, dan akhirnya saya buat seperti terlampir.
>Akan tetapi pada saat rekam data ke tabel masih ada debugnya, mohon solusinya.
>terlampir error reportnya.
>Terima kasih
>
>
>Salam
>DM
>
>
>
>
>
Tue Dec 10, 2013 12:44 am (PST) . Posted by:
"Ahmad Syaifullah Lubis" syaifullah
Dear Dwi,
bolehkah disharing file rekap invoice tsb, untuk referensi bahan pembuatan invoice yang saya sedang kerjakan.
terima kasih.
ASL
From: upiet29@yahoo.com
To: belajar-excel@yahoogroups.com
Date: Mon, 9 Dec 2013 21:58:18 -0800
Subject: Re: Bls: [belajar-excel] Membuat Rekap Invoice secara Otomatis
Dear All,
Akhirnya filenya sudah bisa berjalan. Terima kasih semuanya Terima kasih Mr. Kid, dan juga terima kasih banyak untuk Bapak
Hendrik.Sedikit koreksi untuk proses loopnya di kolom 9 dan 10 prosedurnya terbalik, seharusnya 9 untuk satuan dan 10 untuk harga.Terima kasih atas bantuannya.
SalamDwi
On Tuesday, December 10, 2013 6:24 AM, Mr. Kid <mr.nmkid@gmail.com> wrote:
Hai Dwi,Mestinya bagian yang menimbulkan error tersebut tidak dibutuhkan karena
definisi range subtbl cukup sampai baris subtbl.offset(blablaJadi 2 baris Set Subtbl setelahnya bisa dihapus.Jika enggan menghapusnya, coba tambahkan Sheets("datasub"). sebelum range(subtbl blabla
Pastikan pada sheet datasub, semua baris dikolom B terisi penuh (tidak ada yang blank).Pada prosedur yang digunakan untuk menyimpan data anak, sepertinya proses loop harus diperbaiki menjadi :
For r = 1 To JmlItem If .[a12:a30].Cells(r, 1) <> vbnullstring Then TblSub(NewSub + r, 0) = NewSub + r '# urut TblSub(NewSub + r, 1) = .[I3] ' Nr Inv
TblSub(NewSub + r, 2) = .[I5] ' Tgl Inv TblSub(NewSub + r, 2).NumberFormat = "dd mmm yy" TblSub(NewSub + r, 3) = .[P4] ' No Faktur Pajak TblSub(NewSub + r, 4) = .[B3] ' Nm Cust
TblSub(NewSub + r, 5) = .cells(11+r,4).value ' Nm Produk TblSub(NewSub + r, 8) = .cells(11+r,2).value ' Quantity TblSub(NewSub + r, 9) = .cells(11+r,8) ' Harga
TblSub(NewSub + r, 10) = .cells(11+r,3) ' satuan TblSub(NewSub + r, 11) = .cells(11+r,10) ' Jumlah TblSub(NewSub + r, 14) = .cells(11+r,14) ' Kurs
endif Next rWassalam,Kid.
2013/12/9 dwi mulyaningsih <upiet29@yahoo.com>
Terlampir error reportnya
On , dwi mulyaningsih <upiet29@yahoo.com> wrote:
Dear pakar excel,
File warisan yang saya dapat sudah saya modif, dan akhirnya saya buat seperti terlampir.Akan tetapi pada saat rekam data ke tabel masih ada debugnya, mohon solusinya.
terlampir error reportnya.Terima kasih
SalamDM
bolehkah disharing file rekap invoice tsb, untuk referensi bahan pembuatan invoice yang saya sedang kerjakan.
terima kasih.
ASL
From: upiet29@yahoo.
To: belajar-excel@
Date: Mon, 9 Dec 2013 21:58:18 -0800
Subject: Re: Bls: [belajar-excel] Membuat Rekap Invoice secara Otomatis
Dear All,
Akhirnya filenya sudah bisa berjalan. Terima kasih semuanya Terima kasih Mr. Kid, dan juga terima kasih banyak untuk Bapak
Hendrik.Sedikit koreksi untuk proses loopnya di kolom 9 dan 10 prosedurnya terbalik, seharusnya 9 untuk satuan dan 10 untuk harga.Terima kasih atas bantuannya.
SalamDwi
On Tuesday, December 10, 2013 6:24 AM, Mr. Kid <mr.nmkid@gmail.
Hai Dwi,Mestinya bagian yang menimbulkan error tersebut tidak dibutuhkan karena
definisi range subtbl cukup sampai baris subtbl.offset(
Pastikan pada sheet datasub, semua baris dikolom B terisi penuh (tidak ada yang blank).Pada prosedur yang digunakan untuk menyimpan data anak, sepertinya proses loop harus diperbaiki menjadi :
For r = 1 To JmlItem If .[a12:a30].Cells(
TblSub(NewSub + r, 2) = .[I5] ' Tgl Inv TblSub(NewSub + r, 2).NumberFormat = "dd mmm yy" TblSub(NewSub + r, 3) = .[P4] ' No Faktur Pajak TblSub(NewSub + r, 4) = .[B3] ' Nm Cust
TblSub(NewSub + r, 5) = .cells(11+r,
TblSub(NewSub + r, 10) = .cells(11+r,
endif Next rWassalam,Kid.
2013/12/9 dwi mulyaningsih <upiet29@yahoo.
Terlampir error reportnya
On , dwi mulyaningsih <upiet29@yahoo.
Dear pakar excel,
File warisan yang saya dapat sudah saya modif, dan akhirnya saya buat seperti terlampir.Akan tetapi pada saat rekam data ke tabel masih ada debugnya, mohon solusinya.
terlampir error reportnya.Terima kasih
SalamDM
Tue Dec 10, 2013 1:11 am (PST) . Posted by:
"dwi mulyaningsih" upiet29
Dear ASL,
Terlampir filenya. Bisa dijalankan kok, cuma nanti masih mau saya tambahkan lagi.
silahkan di copas
Salam
DM
On Tuesday, December 10, 2013 3:44 PM, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Dear Dwi,
bolehkah disharing file rekap invoice tsb, untuk referensi bahan pembuatan invoice yang saya sedang kerjakan.
terima kasih.
ASL
________________________________
From: upiet29@yahoo.com
To: belajar-excel@yahoogroups.com
Date: Mon, 9 Dec 2013 21:58:18 -0800
Subject: Re: Bls: [belajar-excel] Membuat Rekap Invoice secara Otomatis
Dear All,
Akhirnya filenya sudah bisa berjalan. Terima kasih semuanya
Terima kasih Mr. Kid, dan juga terima kasih banyak untuk Bapak Hendrik.
Sedikit koreksi untuk proses loopnya di kolom 9 dan 10 prosedurnya terbalik, seharusnya 9 untuk satuan dan 10 untuk harga.
Terima kasih atas bantuannya.
Salam
Dwi
On Tuesday, December 10, 2013 6:24 AM, Mr. Kid <mr.nmkid@gmail.com> wrote:
Hai Dwi,
Mestinya bagian yang menimbulkan error tersebut tidak dibutuhkan karena
definisi range subtbl cukup sampai baris subtbl.offset(blabla
Jadi 2 baris Set Subtbl setelahnya bisa dihapus.
Jika enggan menghapusnya, coba tambahkan Sheets("datasub"). sebelum range(subtbl blabla
Pastikan pada sheet datasub, semua baris dikolom B terisi penuh (tidak ada yang blank).
Pada prosedur yang digunakan untuk menyimpan data anak, sepertinya proses loop harus diperbaiki menjadi :
For r = 1 To JmlItem
If .[a12:a30].Cells(r, 1) <> vbnullstring Then
TblSub(NewSub + r, 0) = NewSub + r '# urut
TblSub(NewSub + r, 1) = .[I3] ' Nr Inv
TblSub(NewSub + r, 2) = .[I5] ' Tgl Inv
TblSub(NewSub + r, 2).NumberFormat = "dd mmm yy"
TblSub(NewSub + r, 3) = .[P4] ' No Faktur Pajak
TblSub(NewSub + r, 4) = .[B3] ' Nm Cust
TblSub(NewSub + r, 5) = .cells(11+r,4).value ' Nm Produk
TblSub(NewSub + r, 8) = .cells(11+r,2).value ' Quantity
TblSub(NewSub + r, 9) = .cells(11+r,8) ' Harga
TblSub(NewSub + r, 10) = .cells(11+r,3) ' satuan
TblSub(NewSub + r, 11) = .cells(11+r,10) ' Jumlah
TblSub(NewSub + r, 14) = .cells(11+r,14) ' Kurs
endif
Next r
Wassalam,
Kid.
2013/12/9 dwi mulyaningsih <upiet29@yahoo.com>
>
>Terlampir error reportnya
>
>
>
>On , dwi mulyaningsih <upiet29@yahoo.com> wrote:
>
>Dear pakar excel,
>
>
>File warisan yang saya dapat sudah saya modif, dan akhirnya saya buat seperti terlampir.
>Akan tetapi pada saat rekam data ke tabel masih ada debugnya, mohon solusinya.
>terlampir error reportnya.
>Terima kasih
>
>
>Salam
>DM
>
>
>
>
>
Terlampir filenya. Bisa dijalankan kok, cuma nanti masih mau saya tambahkan lagi.
silahkan di copas
Salam
DM
On Tuesday, December 10, 2013 3:44 PM, Ahmad Syaifullah Lubis <syaifullah@hotmail.
Dear Dwi,
bolehkah disharing file rekap invoice tsb, untuk referensi bahan pembuatan invoice yang saya sedang kerjakan.
terima kasih.
ASL
____________
From: upiet29@yahoo.
To: belajar-excel@
Date: Mon, 9 Dec 2013 21:58:18 -0800
Subject: Re: Bls: [belajar-excel] Membuat Rekap Invoice secara Otomatis
Dear All,
Akhirnya filenya sudah bisa berjalan. Terima kasih semuanya
Terima kasih Mr. Kid, dan juga terima kasih banyak untuk Bapak Hendrik.
Sedikit koreksi untuk proses loopnya di kolom 9 dan 10 prosedurnya terbalik, seharusnya 9 untuk satuan dan 10 untuk harga.
Terima kasih atas bantuannya.
Salam
Dwi
On Tuesday, December 10, 2013 6:24 AM, Mr. Kid <mr.nmkid@gmail.
Hai Dwi,
Mestinya bagian yang menimbulkan error tersebut tidak dibutuhkan karena
definisi range subtbl cukup sampai baris subtbl.offset(
Jadi 2 baris Set Subtbl setelahnya bisa dihapus.
Jika enggan menghapusnya, coba tambahkan Sheets("
Pastikan pada sheet datasub, semua baris dikolom B terisi penuh (tidak ada yang blank).
Pada prosedur yang digunakan untuk menyimpan data anak, sepertinya proses loop harus diperbaiki menjadi :
For r = 1 To JmlItem
If .[a12:a30].Cells(
TblSub(NewSub + r, 0) = NewSub + r '# urut
TblSub(NewSub + r, 1) = .[I3] ' Nr Inv
TblSub(NewSub + r, 2) = .[I5] ' Tgl Inv
TblSub(NewSub + r, 2).NumberFormat = "dd mmm yy"
TblSub(NewSub + r, 3) = .[P4] ' No Faktur Pajak
TblSub(NewSub + r, 4) = .[B3] ' Nm Cust
TblSub(NewSub + r, 5) = .cells(11+r,
TblSub(NewSub + r, 8) = .cells(11+r,
TblSub(NewSub + r, 9) = .cells(11+r,
TblSub(NewSub + r, 10) = .cells(11+r,
TblSub(NewSub + r, 11) = .cells(11+r,
TblSub(NewSub + r, 14) = .cells(11+r,
endif
Next r
Wassalam,
Kid.
2013/12/9 dwi mulyaningsih <upiet29@yahoo.
>
>Terlampir error reportnya
>
>
>
>On , dwi mulyaningsih <upiet29@yahoo.
>
>Dear pakar excel,
>
>
>File warisan yang saya dapat sudah saya modif, dan akhirnya saya buat seperti terlampir.
>Akan tetapi pada saat rekam data ke tabel masih ada debugnya, mohon solusinya.
>terlampir error reportnya.
>Terima kasih
>
>
>Salam
>DM
>
>
>
>
>
Tue Dec 10, 2013 3:42 am (PST) . Posted by:
"dwi mulyaningsih" upiet29
Dear ASL,
Filenya belum sempurna, untuk monthly report dan customer reportnya belum dicoba (karena bisa disesuaikan dengan kebutuhan)
mudah-mudahan bisa lancar dan tidak ada kendala.
Nanti kalau sudah benar-benar OK akan saya posting.
Salam
DM
On Tuesday, December 10, 2013 4:11 PM, dwi mulyaningsih <upiet29@yahoo.com> wrote:
Dear ASL,
Terlampir filenya. Bisa dijalankan kok, cuma nanti masih mau saya tambahkan lagi.
silahkan di copas
Salam
DM
On Tuesday, December 10, 2013 3:44 PM, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Dear Dwi,
bolehkah disharing file rekap invoice tsb, untuk referensi bahan pembuatan invoice yang saya sedang kerjakan.
terima kasih.
ASL
________________________________
From: upiet29@yahoo.com
To: belajar-excel@yahoogroups.com
Date: Mon, 9 Dec 2013 21:58:18 -0800
Subject: Re: Bls: [belajar-excel] Membuat Rekap Invoice secara Otomatis
Dear All,
Akhirnya filenya sudah bisa berjalan. Terima kasih semuanya
Terima kasih Mr. Kid, dan juga terima kasih banyak untuk Bapak Hendrik.
Sedikit koreksi untuk proses loopnya di kolom 9 dan 10 prosedurnya terbalik, seharusnya 9 untuk satuan dan 10 untuk harga.
Terima kasih atas bantuannya.
Salam
Dwi
On Tuesday, December 10, 2013 6:24 AM, Mr. Kid <mr.nmkid@gmail.com> wrote:
Hai Dwi,
Mestinya bagian yang menimbulkan error tersebut tidak dibutuhkan karena
definisi range subtbl cukup sampai baris subtbl.offset(blabla
Jadi 2 baris Set Subtbl setelahnya bisa dihapus.
Jika enggan menghapusnya, coba tambahkan Sheets("datasub"). sebelum range(subtbl blabla
Pastikan pada sheet datasub, semua baris dikolom B terisi penuh (tidak ada yang blank).
Pada prosedur yang digunakan untuk menyimpan data anak, sepertinya proses loop harus diperbaiki menjadi :
For r = 1 To JmlItem
If .[a12:a30].Cells(r, 1) <> vbnullstring Then
TblSub(NewSub + r, 0) = NewSub + r '# urut
TblSub(NewSub + r, 1) = .[I3] ' Nr Inv
TblSub(NewSub + r, 2) = .[I5] ' Tgl Inv
TblSub(NewSub + r, 2).NumberFormat = "dd mmm yy"
TblSub(NewSub + r, 3) = .[P4] ' No Faktur Pajak
TblSub(NewSub + r, 4) = .[B3] ' Nm Cust
TblSub(NewSub + r, 5) = .cells(11+r,4).value ' Nm Produk
TblSub(NewSub + r, 8) = .cells(11+r,2).value ' Quantity
TblSub(NewSub + r, 9) = .cells(11+r,8) ' Harga
TblSub(NewSub + r, 10) = .cells(11+r,3) ' satuan
TblSub(NewSub + r, 11) = .cells(11+r,10) ' Jumlah
TblSub(NewSub + r, 14) = .cells(11+r,14) ' Kurs
endif
Next r
Wassalam,
Kid.
2013/12/9 dwi mulyaningsih <upiet29@yahoo.com>
>
>Terlampir error reportnya
>
>
>
>On , dwi mulyaningsih <upiet29@yahoo.com> wrote:
>
>Dear pakar excel,
>
>
>File warisan yang saya dapat sudah saya modif, dan akhirnya saya buat seperti terlampir.
>Akan tetapi pada saat rekam data ke tabel masih ada debugnya, mohon solusinya.
>terlampir error reportnya.
>Terima kasih
>
>
>Salam
>DM
>
>
>
>
>
Filenya belum sempurna, untuk monthly report dan customer reportnya belum dicoba (karena bisa disesuaikan dengan kebutuhan)
mudah-mudahan bisa lancar dan tidak ada kendala.
Nanti kalau sudah benar-benar OK akan saya posting.
Salam
DM
On Tuesday, December 10, 2013 4:11 PM, dwi mulyaningsih <upiet29@yahoo.
Dear ASL,
Terlampir filenya. Bisa dijalankan kok, cuma nanti masih mau saya tambahkan lagi.
silahkan di copas
Salam
DM
On Tuesday, December 10, 2013 3:44 PM, Ahmad Syaifullah Lubis <syaifullah@hotmail.
Dear Dwi,
bolehkah disharing file rekap invoice tsb, untuk referensi bahan pembuatan invoice yang saya sedang kerjakan.
terima kasih.
ASL
____________
From: upiet29@yahoo.
To: belajar-excel@
Date: Mon, 9 Dec 2013 21:58:18 -0800
Subject: Re: Bls: [belajar-excel] Membuat Rekap Invoice secara Otomatis
Dear All,
Akhirnya filenya sudah bisa berjalan. Terima kasih semuanya
Terima kasih Mr. Kid, dan juga terima kasih banyak untuk Bapak Hendrik.
Sedikit koreksi untuk proses loopnya di kolom 9 dan 10 prosedurnya terbalik, seharusnya 9 untuk satuan dan 10 untuk harga.
Terima kasih atas bantuannya.
Salam
Dwi
On Tuesday, December 10, 2013 6:24 AM, Mr. Kid <mr.nmkid@gmail.
Hai Dwi,
Mestinya bagian yang menimbulkan error tersebut tidak dibutuhkan karena
definisi range subtbl cukup sampai baris subtbl.offset(
Jadi 2 baris Set Subtbl setelahnya bisa dihapus.
Jika enggan menghapusnya, coba tambahkan Sheets("
Pastikan pada sheet datasub, semua baris dikolom B terisi penuh (tidak ada yang blank).
Pada prosedur yang digunakan untuk menyimpan data anak, sepertinya proses loop harus diperbaiki menjadi :
For r = 1 To JmlItem
If .[a12:a30].Cells(
TblSub(NewSub + r, 0) = NewSub + r '# urut
TblSub(NewSub + r, 1) = .[I3] ' Nr Inv
TblSub(NewSub + r, 2) = .[I5] ' Tgl Inv
TblSub(NewSub + r, 2).NumberFormat = "dd mmm yy"
TblSub(NewSub + r, 3) = .[P4] ' No Faktur Pajak
TblSub(NewSub + r, 4) = .[B3] ' Nm Cust
TblSub(NewSub + r, 5) = .cells(11+r,
TblSub(NewSub + r, 8) = .cells(11+r,
TblSub(NewSub + r, 9) = .cells(11+r,
TblSub(NewSub + r, 10) = .cells(11+r,
TblSub(NewSub + r, 11) = .cells(11+r,
TblSub(NewSub + r, 14) = .cells(11+r,
endif
Next r
Wassalam,
Kid.
2013/12/9 dwi mulyaningsih <upiet29@yahoo.
>
>Terlampir error reportnya
>
>
>
>On , dwi mulyaningsih <upiet29@yahoo.
>
>Dear pakar excel,
>
>
>File warisan yang saya dapat sudah saya modif, dan akhirnya saya buat seperti terlampir.
>Akan tetapi pada saat rekam data ke tabel masih ada debugnya, mohon solusinya.
>terlampir error reportnya.
>Terima kasih
>
>
>Salam
>DM
>
>
>
>
>
Mon Dec 9, 2013 10:13 pm (PST) . Posted by:
"Liem Suliem" liemsuliem
tengkyu..mr kid
pertanyaan lagi mr.kid / miss jan.. sekarang selain prosetase saya pengen tau juga dalam bentuk angka.
misal adi minta barang A 20 = stok A ada 100 berarti permintaan barang adi untuk item A terpenui 20
budi
minta barang A 90 karena stock tinggal 80 setelah di kuraangi
permintaan adi maka permintaan budi hanya terpenui 80 bukan dalam bentuk persen.
maaf merepotkan..
Pada Selasa, 10 Desember 2013 11:57, Mr. Kid <mr.nmkid@gmail.com> menulis:
Formula miss Jan bisa disederhanakan menjadi : (untuk cell K4)
=MAX(MIN(VLOOKUP(E$3,$A$4:$B$8,2,0)-SUM(E$4:E4),0)+E4,0)/E4
Wassalam,
Kid.
2013/12/10 Jan Raisin <miss.jan.raisin@gmail.com>
>
>coba cek file terlampir,
>
>
>salam,
>
>
>-Miss Jan Raisin-
>
>
>Pada 10 Desember 2013 09.29, Liem Suliem <liemsuliem@yahoo.co.id> menulis:
>
>
>
>>
>>dear mr, mrs, sahabat, suhu-,etc Be exceler
>>
>>jika diketahui stock barang dan jumlah permintaan bagaimana menghitung dalam persen pelanggan yang bisa di prioritaskan untuk di kirim.
>>
>>misal adi minta barang A 20 = stok A ada 100 berarti permintaan barang adi untuk item A terpenui 100%
>>budi minta barang A 90 karena stock tinggal 80 setelah di kuraangi permintaan adi maka permintaan budi hanya terpenui sekitar 89%
>>
>>yang meenjadi pertanyaan bagaimaimana mengisi rumus K4:O8 agar menghasilkan prosentase yang di harapkan. (Jika memungkinkan)
>>
>>(untuk jelasnya file terlampir)
>>
>>
>>
>>WaSalam
>>
>>
>>Liem
>>
>>
pertanyaan lagi mr.kid / miss jan.. sekarang selain prosetase saya pengen tau juga dalam bentuk angka.
misal adi minta barang A 20 = stok A ada 100 berarti permintaan barang adi untuk item A terpenui 20
budi
minta barang A 90 karena stock tinggal 80 setelah di kuraangi
permintaan adi maka permintaan budi hanya terpenui 80 bukan dalam bentuk persen.
maaf merepotkan..
Pada Selasa, 10 Desember 2013 11:57, Mr. Kid <mr.nmkid@gmail.
Formula miss Jan bisa disederhanakan menjadi : (untuk cell K4)
=MAX(MIN(VLOOKUP(
Wassalam,
Kid.
2013/12/10 Jan Raisin <miss.jan.raisin@
>
>coba cek file terlampir,
>
>
>salam,
>
>
>-Miss Jan Raisin-
>
>
>Pada 10 Desember 2013 09.29, Liem Suliem <liemsuliem@yahoo.
>
>
>
>>
>>dear mr, mrs, sahabat, suhu-,etc Be exceler
>>
>>jika diketahui stock barang dan jumlah permintaan bagaimana menghitung dalam persen pelanggan yang bisa di prioritaskan untuk di kirim.
>>
>>misal adi minta barang A 20 = stok A ada 100 berarti permintaan barang adi untuk item A terpenui 100%
>>budi minta barang A 90 karena stock tinggal 80 setelah di kuraangi permintaan adi maka permintaan budi hanya terpenui sekitar 89%
>>
>>yang meenjadi pertanyaan bagaimaimana mengisi rumus K4:O8 agar menghasilkan prosentase yang di harapkan. (Jika memungkinkan)
>>
>>(untuk jelasnya file terlampir)
>>
>>
>>
>>WaSalam
>>
>>
>>Liem
>>
>>
Mon Dec 9, 2013 10:17 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Liem,
Persentase = *Nilai terpenuhi* / *Nilai Target*
yang diformulasikan :
=*MAX(MIN(VLOOKUP(E$3,$A$4:$B$8,2,0)-SUM(E$4:E4),0)+E4,0)*/*E4*
Berarti nilai terpenuhi adalah bagian *biru*.
*MAX(MIN(VLOOKUP(E$3,$A$4:$B$8,2,0)-SUM(E$4:E4),0)+E4,0)*
Begitu kan ya... ;)
Wassalam,
Kid.
2013/12/10 Liem Suliem <liemsuliem@yahoo.co.id>
>
>
> tengkyu..mr kid
> pertanyaan lagi mr.kid / miss jan.. sekarang selain prosetase saya pengen
> tau juga dalam bentuk angka.
>
> misal adi minta barang A 20 = stok A ada 100 berarti permintaan barang adi
> untuk item A terpenui 20
> budi minta barang A 90 karena stock tinggal 80 setelah di kuraangi
> permintaan adi maka permintaan budi hanya terpenui 80 bukan dalam bentuk
> persen.
>
> maaf merepotkan..
>
>
> Pada Selasa, 10 Desember 2013 11:57, Mr. Kid <mr.nmkid@gmail.com>
> menulis:
>
> Formula miss Jan bisa disederhanakan menjadi : (untuk cell K4)
> =MAX(MIN(VLOOKUP(E$3,$A$4:$B$8,2,0)-SUM(E$4:E4),0)+E4,0)/E4
>
> Wassalam,
> Kid.
>
>
>
> 2013/12/10 Jan Raisin <miss.jan.raisin@gmail.com>
>
>
> coba cek file terlampir,
>
> salam,
>
> -Miss Jan Raisin-
>
>
> Pada 10 Desember 2013 09.29, Liem Suliem <liemsuliem@yahoo.co.id> menulis:
>
>
> dear mr, mrs, sahabat, suhu-,etc Be exceler
>
> jika diketahui stock barang dan jumlah permintaan bagaimana menghitung
> dalam persen pelanggan yang bisa di prioritaskan untuk di kirim.
>
> misal adi minta barang A 20 = stok A ada 100 berarti permintaan barang adi
> untuk item A terpenui 100%
> budi minta barang A 90 karena stock tinggal 80 setelah di kuraangi
> permintaan adi maka permintaan budi hanya terpenui sekitar 89%
>
> yang meenjadi pertanyaan bagaimaimana mengisi rumus K4:O8 agar
> menghasilkan prosentase yang di harapkan. (Jika memungkinkan)
>
> (untuk jelasnya file terlampir)
>
>
>
> WaSalam
>
>
> Liem
>
>
>
>
>
>
Persentase = *Nilai terpenuhi* / *Nilai Target*
yang diformulasikan :
=*MAX(MIN(VLOOKUP(
Berarti nilai terpenuhi adalah bagian *biru*.
*MAX(MIN(VLOOKUP(
Begitu kan ya... ;)
Wassalam,
Kid.
2013/12/10 Liem Suliem <liemsuliem@yahoo.
>
>
> tengkyu..mr kid
> pertanyaan lagi mr.kid / miss jan.. sekarang selain prosetase saya pengen
> tau juga dalam bentuk angka.
>
> misal adi minta barang A 20 = stok A ada 100 berarti permintaan barang adi
> untuk item A terpenui 20
> budi minta barang A 90 karena stock tinggal 80 setelah di kuraangi
> permintaan adi maka permintaan budi hanya terpenui 80 bukan dalam bentuk
> persen.
>
> maaf merepotkan..
>
>
> Pada Selasa, 10 Desember 2013 11:57, Mr. Kid <mr.nmkid@gmail.
> menulis:
>
> Formula miss Jan bisa disederhanakan menjadi : (untuk cell K4)
> =MAX(MIN(VLOOKUP(
>
> Wassalam,
> Kid.
>
>
>
> 2013/12/10 Jan Raisin <miss.jan.raisin@
>
>
> coba cek file terlampir,
>
> salam,
>
> -Miss Jan Raisin-
>
>
> Pada 10 Desember 2013 09.29, Liem Suliem <liemsuliem@yahoo.
>
>
> dear mr, mrs, sahabat, suhu-,etc Be exceler
>
> jika diketahui stock barang dan jumlah permintaan bagaimana menghitung
> dalam persen pelanggan yang bisa di prioritaskan untuk di kirim.
>
> misal adi minta barang A 20 = stok A ada 100 berarti permintaan barang adi
> untuk item A terpenui 100%
> budi minta barang A 90 karena stock tinggal 80 setelah di kuraangi
> permintaan adi maka permintaan budi hanya terpenui sekitar 89%
>
> yang meenjadi pertanyaan bagaimaimana mengisi rumus K4:O8 agar
> menghasilkan prosentase yang di harapkan. (Jika memungkinkan)
>
> (untuk jelasnya file terlampir)
>
>
>
> WaSalam
>
>
> Liem
>
>
>
>
>
>
Mon Dec 9, 2013 10:53 pm (PST) . Posted by:
"Liem Suliem" liemsuliem
maaf mr.kid saya keburu2 tanya aja gak mau pelajari dulu..
hehehehe
iya pak kid paham maksudnya.
wasalam
liem
Pada Selasa, 10 Desember 2013 13:17, Mr. Kid <mr.nmkid@gmail.com> menulis:
Hai Liem,
Persentase = Nilai terpenuhi / Nilai Target
yang diformulasikan :
=MAX(MIN(VLOOKUP(E$3,$A$4:$B$8,2,0)-SUM(E$4:E4),0)+E4,0)/E4
Berarti nilai terpenuhi adalah bagian biru.
MAX(MIN(VLOOKUP(E$3,$A$4:$B$8,2,0)-SUM(E$4:E4),0)+E4,0)
Begitu kan ya... ;)
Wassalam,
Kid.
2013/12/10 Liem Suliem <liemsuliem@yahoo.co.id>
>
>tengkyu..mr kid
>pertanyaan lagi mr.kid / miss jan.. sekarang selain prosetase saya pengen tau juga dalam bentuk angka.
>
>
>misal adi minta barang A 20 = stok A ada 100 berarti permintaan barang adi untuk item A terpenui 20
>budi
minta barang A 90 karena stock tinggal 80 setelah di kuraangi
permintaan adi maka permintaan budi hanya terpenui 80 bukan dalam bentuk persen.
>
>
>maaf merepotkan..
>
>
>
>
>Pada Selasa, 10 Desember 2013 11:57, Mr. Kid <mr.nmkid@gmail.com> menulis:
>
>
>Formula miss Jan bisa disederhanakan menjadi : (untuk cell K4)
>=MAX(MIN(VLOOKUP(E$3,$A$4:$B$8,2,0)-SUM(E$4:E4),0)+E4,0)/E4
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/12/10 Jan Raisin <miss.jan.raisin@gmail.com>
>
>
>>
>>coba cek file terlampir,
>>
>>
>>salam,
>>
>>
>>-Miss Jan Raisin-
>>
>>
>>Pada 10 Desember 2013 09.29, Liem Suliem <liemsuliem@yahoo.co.id> menulis:
>>
>>
>>
>>>
>>>dear mr, mrs, sahabat, suhu-,etc Be exceler
>>>
>>>jika diketahui stock barang dan jumlah permintaan bagaimana menghitung dalam persen pelanggan yang bisa di prioritaskan untuk di kirim.
>>>
>>>misal adi minta barang A 20 = stok A ada 100 berarti permintaan barang adi untuk item A terpenui 100%
>>>budi minta barang A 90 karena stock tinggal 80 setelah di kuraangi permintaan adi maka permintaan budi hanya terpenui sekitar 89%
>>>
>>>yang meenjadi pertanyaan bagaimaimana mengisi rumus K4:O8 agar menghasilkan prosentase yang di harapkan. (Jika memungkinkan)
>>>
>>>(untuk jelasnya file terlampir)
>>>
>>>
>>>
>>>WaSalam
>>>
>>>
>>>Liem
>>>
>>>
>
>
>
hehehehe
iya pak kid paham maksudnya.
wasalam
liem
Pada Selasa, 10 Desember 2013 13:17, Mr. Kid <mr.nmkid@gmail.
Hai Liem,
Persentase = Nilai terpenuhi / Nilai Target
yang diformulasikan :
=MAX(MIN(VLOOKUP(
Berarti nilai terpenuhi adalah bagian biru.
MAX(MIN(VLOOKUP(
Begitu kan ya... ;)
Wassalam,
Kid.
2013/12/10 Liem Suliem <liemsuliem@yahoo.
>
>tengkyu.
>pertanyaan lagi mr.kid / miss jan.. sekarang selain prosetase saya pengen tau juga dalam bentuk angka.
>
>
>misal adi minta barang A 20 = stok A ada 100 berarti permintaan barang adi untuk item A terpenui 20
>budi
minta barang A 90 karena stock tinggal 80 setelah di kuraangi
permintaan adi maka permintaan budi hanya terpenui 80 bukan dalam bentuk persen.
>
>
>maaf merepotkan..
>
>
>
>
>Pada Selasa, 10 Desember 2013 11:57, Mr. Kid <mr.nmkid@gmail.
>
>
>Formula miss Jan bisa disederhanakan menjadi : (untuk cell K4)
>=MAX(MIN(
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/12/
>
>
>>
>>coba cek file terlampir,
>>
>>
>>salam,
>>
>>
>>-Miss Jan Raisin-
>>
>>
>>Pada 10 Desember 2013 09.29, Liem Suliem <liemsuliem@yahoo.
>>
>>
>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>
>
>
Tue Dec 10, 2013 12:13 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Respati,
Coba file terlampir.
Jika ada yang kurang pas atau kurang jelas, silakan ditanyakan kepada
BeExceller.
Wassalam,
Kid.
2013/12/10 Soengging respati naba <respati007@gmail.com>
>
>
> sudah di kurangi data nya...
>
>
> 2013/12/10 Mr. Kid <mr.nmkid@gmail.com>
>
>>
>>
>> :( kok tetap ndak bisa ya...
>>
>> Ada rekan BeExceller yang sudah bisa melihat filenya ?
>> Bagi dong... Jumlah record dan hambar yang ada dalam file dikurangi saja
>> supaya ukuran file menjadi kurang dari 250KB.
>>
>> Kid.
>>
>>
>>
>> 2013/12/9 Soengging respati naba <respati007@gmail.com>
>>
>>>
>>>
>>> maaf baru bisa respon pesan.. coba dengan file ini Mr. Kid..
>>>
>>>
>>> 2013/12/7 Mr. Kid <mr.nmkid@gmail.com>
>>>
>>>
>>>>
>>>> Kok filenya gak bisa dibuka ya.
>>>>
>>>> Kid.
>>>>
>>>>
>>>> 2013/12/6 <respati007@gmail.com>
>>>>
>>>>
>>>>>
>>>>> Dear All Para Master,
>>>>> Mohon Bantuan untuk permaslahan ini, Data terlampir...
>>>>>
>>>>> Untk copy paste dari 1 worksheet yg mempunyai banyak table yang
>>>>> terpisah dan saya ingin menjadikan satu dlam workbook baru.
>>>>>
>>>>>
>>>>
>>>
>>
>
>
Coba file terlampir.
Jika ada yang kurang pas atau kurang jelas, silakan ditanyakan kepada
BeExceller.
Wassalam,
Kid.
2013/12/10 Soengging respati naba <respati007@gmail.
>
>
> sudah di kurangi data nya...
>
>
> 2013/12/10 Mr. Kid <mr.nmkid@gmail.
>
>>
>>
>> :( kok tetap ndak bisa ya...
>>
>> Ada rekan BeExceller yang sudah bisa melihat filenya ?
>> Bagi dong... Jumlah record dan hambar yang ada dalam file dikurangi saja
>> supaya ukuran file menjadi kurang dari 250KB.
>>
>> Kid.
>>
>>
>>
>> 2013/12/9 Soengging respati naba <respati007@gmail.
>>
>>>
>>>
>>> maaf baru bisa respon pesan.. coba dengan file ini Mr. Kid..
>>>
>>>
>>> 2013/12/7 Mr. Kid <mr.nmkid@gmail.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
Tue Dec 10, 2013 12:45 am (PST) . Posted by:
"Soengging respati naba" respati007
Terima kasih Mr. Kid...
Saya tidak bisa melihat hasil ny setelah Klik Get Data,
koq coding ny di password yach, boleh minta password ny untuk di pelajari
alur coding nya
2013/12/10 Mr. Kid <mr.nmkid@gmail.com>
>
>
> Hai Respati,
>
> Coba file terlampir.
>
> Jika ada yang kurang pas atau kurang jelas, silakan ditanyakan kepada
> BeExceller.
>
> Wassalam,
> Kid.
>
>
>
> 2013/12/10 Soengging respati naba <respati007@gmail.com>
>
>>
>>
>> sudah di kurangi data nya...
>>
>>
>> 2013/12/10 Mr. Kid <mr.nmkid@gmail.com>
>>
>>>
>>>
>>> :( kok tetap ndak bisa ya...
>>>
>>> Ada rekan BeExceller yang sudah bisa melihat filenya ?
>>> Bagi dong... Jumlah record dan hambar yang ada dalam file dikurangi saja
>>> supaya ukuran file menjadi kurang dari 250KB.
>>>
>>> Kid.
>>>
>>>
>>>
>>> 2013/12/9 Soengging respati naba <respati007@gmail.com>
>>>
>>>>
>>>>
>>>> maaf baru bisa respon pesan.. coba dengan file ini Mr. Kid..
>>>>
>>>>
>>>> 2013/12/7 Mr. Kid <mr.nmkid@gmail.com>
>>>>
>>>>
>>>>>
>>>>> Kok filenya gak bisa dibuka ya.
>>>>>
>>>>> Kid.
>>>>>
>>>>>
>>>>> 2013/12/6 <respati007@gmail.com>
>>>>>
>>>>>
>>>>>>
>>>>>> Dear All Para Master,
>>>>>> Mohon Bantuan untuk permaslahan ini, Data terlampir...
>>>>>>
>>>>>> Untk copy paste dari 1 worksheet yg mempunyai banyak table yang
>>>>>> terpisah dan saya ingin menjadikan satu dlam workbook baru.
>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>
>
Saya tidak bisa melihat hasil ny setelah Klik Get Data,
koq coding ny di password yach, boleh minta password ny untuk di pelajari
alur coding nya
2013/12/10 Mr. Kid <mr.nmkid@gmail.
>
>
> Hai Respati,
>
> Coba file terlampir.
>
> Jika ada yang kurang pas atau kurang jelas, silakan ditanyakan kepada
> BeExceller.
>
> Wassalam,
> Kid.
>
>
>
> 2013/12/10 Soengging respati naba <respati007@gmail.
>
>>
>>
>> sudah di kurangi data nya...
>>
>>
>> 2013/12/10 Mr. Kid <mr.nmkid@gmail.
>>
>>>
>>>
>>> :( kok tetap ndak bisa ya...
>>>
>>> Ada rekan BeExceller yang sudah bisa melihat filenya ?
>>> Bagi dong... Jumlah record dan hambar yang ada dalam file dikurangi saja
>>> supaya ukuran file menjadi kurang dari 250KB.
>>>
>>> Kid.
>>>
>>>
>>>
>>> 2013/12/9 Soengging respati naba <respati007@gmail.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
Tue Dec 10, 2013 1:35 am (PST) . Posted by:
"ChordJR" indra_gustian
Heehee...jebakan betmen lagi dari Mr.Kid...
"jika ada yang kurang pas atau kurang jelas, silakan ditanyakan kepada
BeExceller."
Berarti Password : BeExceller
Untuk melihat Data yang telah di Copy silakan masuk ke developer/Alt+F11
pada explorer klik Sheet3 (Data) > tekan F4 > ubah visibility nya
menjadi xlSheetVisible...
Salam,
Indra
On 12/10/2013 3:44 PM, Soengging respati naba wrote:
> Terima kasih Mr. Kid...
> Saya tidak bisa melihat hasil ny setelah Klik Get Data,
> koq coding ny di password yach, boleh minta password ny untuk di
> pelajari alur coding nya
>
>
> 2013/12/10 Mr. Kid <mr.nmkid@gmail.com <mailto:mr.nmkid@gmail.com>>
>
> Hai Respati,
>
> Coba file terlampir.
>
> Jika ada yang kurang pas atau kurang jelas, silakan ditanyakan
> kepada BeExceller.
>
> Wassalam,
> Kid.
>
>
>
> 2013/12/10 Soengging respati naba <respati007@gmail.com
> <mailto:respati007@gmail.com>>
>
> sudah di kurangi data nya...
>
>
> 2013/12/10 Mr. Kid <mr.nmkid@gmail.com
> <mailto:mr.nmkid@gmail.com>>
>
> :( kok tetap ndak bisa ya...
>
> Ada rekan BeExceller yang sudah bisa melihat filenya ?
> Bagi dong... Jumlah record dan hambar yang ada dalam file
> dikurangi saja supaya ukuran file menjadi kurang dari 250KB.
>
> Kid.
>
>
>
> 2013/12/9 Soengging respati naba <respati007@gmail.com
> <mailto:respati007@gmail.com>>
>
> maaf baru bisa respon pesan.. coba dengan file ini Mr.
> Kid..
>
>
> 2013/12/7 Mr. Kid <mr.nmkid@gmail.com
> <mailto:mr.nmkid@gmail.com>>
>
> Kok filenya gak bisa dibuka ya.
>
> Kid.
>
>
> 2013/12/6 <respati007@gmail.com
> <mailto:respati007@gmail.com>>
>
> Dear All Para Master,
> Mohon Bantuan untuk permaslahan ini, Data
> terlampir...
>
> Untk copy paste dari 1 worksheet yg mempunyai
> banyak table yang terpisah dan saya ingin
> menjadikan satu dlam workbook baru.
>
>
>
>
>
>
>
>
"jika ada yang kurang pas atau kurang jelas, silakan ditanyakan kepada
BeExceller."
Berarti Password : BeExceller
Untuk melihat Data yang telah di Copy silakan masuk ke developer/Alt+
pada explorer klik Sheet3 (Data) > tekan F4 > ubah visibility nya
menjadi xlSheetVisible.
Salam,
Indra
On 12/10/2013 3:44 PM, Soengging respati naba wrote:
> Terima kasih Mr. Kid...
> Saya tidak bisa melihat hasil ny setelah Klik Get Data,
> koq coding ny di password yach, boleh minta password ny untuk di
> pelajari alur coding nya
>
>
> 2013/12/10 Mr. Kid <mr.nmkid@gmail.
>
> Hai Respati,
>
> Coba file terlampir.
>
> Jika ada yang kurang pas atau kurang jelas, silakan ditanyakan
> kepada BeExceller.
>
> Wassalam,
> Kid.
>
>
>
> 2013/12/10 Soengging respati naba <respati007@gmail.
> <mailto:respati007@gmail.
>
> sudah di kurangi data nya...
>
>
> 2013/12/10 Mr. Kid <mr.nmkid@gmail.
> <mailto:mr.nmkid@gmail.
>
> :( kok tetap ndak bisa ya...
>
> Ada rekan BeExceller yang sudah bisa melihat filenya ?
> Bagi dong... Jumlah record dan hambar yang ada dalam file
> dikurangi saja supaya ukuran file menjadi kurang dari 250KB.
>
> Kid.
>
>
>
> 2013/12/9 Soengging respati naba <respati007@gmail.
> <mailto:respati007@gmail.
>
> maaf baru bisa respon pesan.. coba dengan file ini Mr.
> Kid..
>
>
> 2013/12/7 Mr. Kid <mr.nmkid@gmail.
> <mailto:mr.nmkid@gmail.
>
> Kok filenya gak bisa dibuka ya.
>
> Kid.
>
>
> 2013/12/6 <respati007@gmail.
> <mailto:respati007@gmail.
>
> Dear All Para Master,
> Mohon Bantuan untuk permaslahan ini, Data
> terlampir...
>
> Untk copy paste dari 1 worksheet yg mempunyai
> banyak table yang terpisah dan saya ingin
> menjadikan satu dlam workbook baru.
>
>
>
>
>
>
>
>
Tue Dec 10, 2013 3:42 am (PST) . Posted by:
"Soengging respati naba" respati007
Tq Bro Indra...
Ooooo... Itu toch trik ny Mr.Kid... Oke2 Remember That's...
2013/12/10 ChordJR <vendeta_06@yahoo.co.id>
>
>
> Heehee...jebakan betmen lagi dari Mr.Kid...
>
> "jika ada yang kurang pas atau kurang jelas, silakan ditanyakan kepada
> BeExceller."
> Berarti Password : BeExceller
> Untuk melihat Data yang telah di Copy silakan masuk ke developer/Alt+F11
> pada explorer klik Sheet3 (Data) >� tekan F4 > ubah visibility nya
> menjadi xlSheetVisible...
>
> Salam,
>
> Indra
>
> On 12/10/2013 3:44 PM, Soengging respati naba wrote:
>
> �
> Terima kasih Mr. Kid...
> �
> Saya tidak bisa melihat hasil ny setelah Klik Get Data,
> koq coding ny di password yach, boleh minta password ny untuk di
> pelajari alur coding�nya
>
>
> 2013/12/10 Mr. Kid <mr.nmkid@gmail.com>
>
>> �
>> Hai Respati,
>>
>> Coba file terlampir.
>>
>> Jika ada yang kurang pas atau kurang jelas, silakan ditanyakan kepada
>> BeExceller.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2013/12/10 Soengging respati naba <respati007@gmail.com>
>>
>>> �
>>> sudah di kurangi data nya...
>>>
>>>
>>> 2013/12/10 Mr. Kid <mr.nmkid@gmail.com>
>>>
>>>> �
>>>> :( kok tetap ndak bisa ya...
>>>>
>>>> Ada rekan BeExceller yang sudah bisa melihat filenya ?
>>>> Bagi dong... Jumlah record dan hambar yang ada dalam file dikurangi
>>>> saja supaya ukuran file menjadi kurang dari 250KB.
>>>>
>>>> Kid.
>>>>
>>>>
>>>>
>>>> 2013/12/9 Soengging respati naba <respati007@gmail.com>
>>>>
>>>>> �
>>>>> maaf baru bisa respon pesan.. coba dengan file ini Mr. Kid..
>>>>>
>>>>>
>>>>> 2013/12/7 Mr. Kid <mr.nmkid@gmail.com>
>>>>>
>>>>> �
>>>>>> Kok filenya gak bisa dibuka ya.
>>>>>>
>>>>>> Kid.
>>>>>>
>>>>>>
>>>>>> 2013/12/6 <respati007@gmail.com>
>>>>>>
>>>>>> �
>>>>>>>
>>>>>>> Dear All Para Master,
>>>>>>> Mohon Bantuan untuk permaslahan ini, Data terlampir...
>>>>>>>
>>>>>>> Untk copy paste dari 1 worksheet yg mempunyai banyak table yang
>>>>>>> terpisah dan saya ingin menjadikan satu dlam workbook baru.
>>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>
>
>
Ooooo... Itu toch trik ny Mr.Kid... Oke2 Remember That's..
2013/12/10 ChordJR <vendeta_06@yahoo.
>
>
> Heehee...jebakan betmen lagi dari Mr.Kid...
>
> "jika ada yang kurang pas atau kurang jelas, silakan ditanyakan kepada
> BeExceller."
> Berarti Password : BeExceller
> Untuk melihat Data yang telah di Copy silakan masuk ke developer/Alt+
> pada explorer klik Sheet3 (Data) >� tekan F4 > ubah visibility nya
> menjadi xlSheetVisible.
>
> Salam,
>
> Indra
>
> On 12/10/2013 3:44 PM, Soengging respati naba wrote:
>
> �
> Terima kasih Mr. Kid...
> �
> Saya tidak bisa melihat hasil ny setelah Klik Get Data,
> koq coding ny di password yach, boleh minta password ny untuk di
> pelajari alur coding�nya
>
>
> 2013/12/10 Mr. Kid <mr.nmkid@gmail.
>
>> �
>> Hai Respati,
>>
>> Coba file terlampir.
>>
>> Jika ada yang kurang pas atau kurang jelas, silakan ditanyakan kepada
>> BeExceller.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2013/12/10 Soengging respati naba <respati007@gmail.
>>
>>> �
>>> sudah di kurangi data nya...
>>>
>>>
>>> 2013/12/10 Mr. Kid <mr.nmkid@gmail.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
>
Tue Dec 10, 2013 12:31 am (PST) . Posted by:
"Fachry Rizal" p4ch_m4n
sangat bermanfaat dan saya mendapat tambahan ilmu lagi, thank Mr Hendrik
dan teman2 smua...
2013/12/9 hendrik karnadi <hendrikkarnadi@yahoo.com>
>
>
> Coba tambahin kata False di belakangnya
> =IF(J3="","",VLOOKUP(J3,'Nama Cust'!B1:D18,2,FALSE))
> =IF(J3="","",VLOOKUP(J3,'Nama Cust'!B1:D18,3,FALSE))
> =IF(G10="","",VLOOKUP(G10,'Data Barang'!$A$1:$G$274,2,FALSE))
>
> Mungkin akan timbul prtanyaan lagi:
> Mengapa ?
> Karena default Functionnya True, jika ga ada padanannya maka diambil yang
> "terdekat"; tetapi kalau sudah dikasi False jika tidak ada padanannya maka
> akan keluar error.
>
> Semoga bermanfaat (pinjam istilah Pak Anton).
>
> Salam,
> HK
>
>
>
> On Monday, 9 December 2013, 16:41, Fachry Rizal <p4ch.m4n@gmail.com>
> wrote:
>
> siip mas hendrik... ternyata setelah melewati masalah 1 muncul masalah
> yg laiin lagii :((. Kenapa untuk rumus vlookup di alamat, telepon, nama
> barangnya harus urut by name atau by kode. Jika tidak urut maka kode barang
> dan nama barang yg menggunakan vlookup tidak sama, apakah ada rumus saya yg
> salah. File terlampir.
>
>
> 2013/12/9 hendrik karnadi <hendrikkarnadi@yahoo.com>
>
>
> Maaf, ikut nimbrung pada bagian akhir.
> Kalau ndak salah formula untuk No Invoicenya adalah =MAX(Rekapan!D:D)+1
>
> Yang berwarna hijau adalah titik awalnya.
>
> Jika no tidak dimulai dari 1 maka MAX(Rekapan!D:D) dapat diganti dengan sel
> rujukan yang berisi no invoice sebelumnya. Sel rujukan ini ditambah
> dengan 1 (dalam programnya) setiap kali data selesai disimpan.
>
> Semoga ndak salah menjawab.
>
> Salam,
> HK
>
>
>
> On Monday, 9 December 2013, 10:41, Fachry Rizal <p4ch.m4n@gmail.com>
> wrote:
>
> Makasih Ms Jan atas infonya.. Maksud saya bukan urutannya tapi no
> invoicenya, kalo yg sekarang mulai dari 001,dst. Sedangkan nomor faktur di
> tempat saya sudah 2365, pertanyaan saya bagaimana caranya merubah invoice
> yg awalnya dari 001 saya rubah menjadi 2365. Terima kasih atas bantuannya..
>
>
> 2013/12/9 Jan Raisin <miss.jan.raisin@gmail.com>
>
>
> untuk mendapatkan tanggal dan waktu, coba gunakan fungsi Now
>
> untuk mendapatkan skrip merubah urutan invoice, coba gunakan rekam macro,
> lalu urutkan invoice menggunakan urutan yang anda inginkan..
>
> Salam,
>
> -Miss Jan Raisin-
>
>
> Pada 8 Desember 2013 14.17, Fachry Rizal <p4ch.m4n@gmail.com> menulis:
>
>
> hehehe.. mau tanya lagi niiih, maaf yaaah banyak bertanya biar ga sesat
> di jalan :), gmn caranya agar ketika di print muncul tgl dan waktunya, saya
> coba menggunakan fungsi TODAY tp waktunya tidak berhasil munculnya
> 08/12/2013 00:00. Dan mohon pencerahannya untuk merubah urutan invoice... @
> Mr Ahmad kalo untuk menambah harganya tinggal ditambah aja di sheet data
> barang kemudian menggunakan vlookp. Thanx all.
>
>
>
>
>
>
>
>
>
>
>
dan teman2 smua...
2013/12/9 hendrik karnadi <hendrikkarnadi@
>
>
> Coba tambahin kata False di belakangnya
> =IF(J3="
> =IF(J3="
> =IF(G10="
>
> Mungkin akan timbul prtanyaan lagi:
> Mengapa ?
> Karena default Functionnya True, jika ga ada padanannya maka diambil yang
> "terdekat"
> akan keluar error.
>
> Semoga bermanfaat (pinjam istilah Pak Anton).
>
> Salam,
> HK
>
>
>
> On Monday, 9 December 2013, 16:41, Fachry Rizal <p4ch.m4n@gmail.
> wrote:
>
> siip mas hendrik... ternyata setelah melewati masalah 1 muncul masalah
> yg laiin lagii :((. Kenapa untuk rumus vlookup di alamat, telepon, nama
> barangnya harus urut by name atau by kode. Jika tidak urut maka kode barang
> dan nama barang yg menggunakan vlookup tidak sama, apakah ada rumus saya yg
> salah. File terlampir.
>
>
> 2013/12/9 hendrik karnadi <hendrikkarnadi@
>
>
> Maaf, ikut nimbrung pada bagian akhir.
> Kalau ndak salah formula untuk No Invoicenya adalah =MAX(Rekapan!
>
> Yang berwarna hijau adalah titik awalnya.
>
> Jika no tidak dimulai dari 1 maka MAX(Rekapan!
> rujukan yang berisi no invoice sebelumnya. Sel rujukan ini ditambah
> dengan 1 (dalam programnya) setiap kali data selesai disimpan.
>
> Semoga ndak salah menjawab.
>
> Salam,
> HK
>
>
>
> On Monday, 9 December 2013, 10:41, Fachry Rizal <p4ch.m4n@gmail.
> wrote:
>
> Makasih Ms Jan atas infonya.. Maksud saya bukan urutannya tapi no
> invoicenya, kalo yg sekarang mulai dari 001,dst. Sedangkan nomor faktur di
> tempat saya sudah 2365, pertanyaan saya bagaimana caranya merubah invoice
> yg awalnya dari 001 saya rubah menjadi 2365. Terima kasih atas bantuannya..
>
>
> 2013/12/9 Jan Raisin <miss.jan.raisin@
>
>
> untuk mendapatkan tanggal dan waktu, coba gunakan fungsi Now
>
> untuk mendapatkan skrip merubah urutan invoice, coba gunakan rekam macro,
> lalu urutkan invoice menggunakan urutan yang anda inginkan..
>
> Salam,
>
> -Miss Jan Raisin-
>
>
> Pada 8 Desember 2013 14.17, Fachry Rizal <p4ch.m4n@gmail.
>
>
> hehehe.. mau tanya lagi niiih, maaf yaaah banyak bertanya biar ga sesat
> di jalan :), gmn caranya agar ketika di print muncul tgl dan waktunya, saya
> coba menggunakan fungsi TODAY tp waktunya tidak berhasil munculnya
> 08/12/2013 00:00. Dan mohon pencerahannya untuk merubah urutan invoice... @
> Mr Ahmad kalo untuk menambah harganya tinggal ditambah aja di sheet data
> barang kemudian menggunakan vlookp. Thanx all.
>
>
>
>
>
>
>
>
>
>
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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