11 New Messages
Digest #1980
Messages
Sat Dec 22, 2012 6:12 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Andree,
Bagaimana jika hasil filter oleh VBA ditampilkan dalam pivot table ?
Susunan output pivot table tergantung pada tabel data source-nya.
Membentuk uraian yang memiliki hirarki sistematis akan membuat pivot table
lebih tampak user friendly.
Wassalam,
Kid.
2012/12/22 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com >
> **
>
>
> Thanks ya sebelumnya pak Hilman atas coding vbanya, cuma yang mau saya
> tanyakan ternyata ada 30 kode cabang yang akan di isi datanya (KC_1, KC_2,
> s/d 30) kira2 codingnya seperti apa ya pak??
> mohon maaf sebelumnya ya pak masih baru belajar vba..
> mohon petunjuknya ya pak.. terima kasih
>
> Thanks
> Andree
>
> ------------------------------
> **
>
Bagaimana jika hasil filter oleh VBA ditampilkan dalam pivot table ?
Susunan output pivot table tergantung pada tabel data source-nya.
Membentuk uraian yang memiliki hirarki sistematis akan membuat pivot table
lebih tampak user friendly.
Wassalam,
Kid.
2012/12/22 Andre Rahmaidy Teeza <andre_teeza_
> **
>
>
> Thanks ya sebelumnya pak Hilman atas coding vbanya, cuma yang mau saya
> tanyakan ternyata ada 30 kode cabang yang akan di isi datanya (KC_1, KC_2,
> s/d 30) kira2 codingnya seperti apa ya pak??
> mohon maaf sebelumnya ya pak masih baru belajar vba..
> mohon petunjuknya ya pak.. terima kasih
>
> Thanks
> Andree
>
> ------------
> **
>
Sat Dec 22, 2012 6:39 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Imar,
Ada banyak cara untuk menyusun summary seperti ini, antara lain :
1. Formula :
>> misal hasil diletakkan pada kolom K (date) dan L (amount) dengan header
di baris 1.
-> Pada K1 tulis 1
-> klik kanan K1 -> format cells -> tab Number -> Custom -> tulis :
"Date"
-> pada K2 pasang array formula : (jangan lupa CTRL SHIFT ENTER)
=IF(N(K1),MIN(IF($B$2:$B$96>K1,$B$2:$B$96)),0)
-> klik kanan K2 -> format cells -> tab Number -> Custom -> tulis :
YYYY-MM-DD;; [bagian YYYY-MM-DD bisa diganti dengan
format lain]
-> copy K2 ke bawah sesuai kebutuhan
>> untuk amount (kolom L), pada L2 diberi formula :
=IF(K2,SUMIF($B$2:$B$96,K2,$C$2:$C$96),"")
atur format numbernya dan copy ke bawah
>> hati-hati jika :
-> jumlah recordnya banyak, akan terasa lambat kalkulasinya karena
array formula
-> ada data kolom date yang tidak bertipe datetime, hasil array
formula bisa salah
2. Pivot table
>> blok datanya (termasuk header)
>> ribbon Insert -> Pivot Table -> pilih area data -> pilih lokasi hasil ->
OK
>> drag field Date ke bagian Rows, drag field Amount ke bagian Values
Wassalam,
Kid.
2012/12/22 Imar Andre <imar.ap@gmail.com >
> **
>
>
> Be Exceler,
>
> Saya mempunyai masalah untuk men sort unique data,
> Tabel data ada di kolom A:C sedangkan hasil yang di inginkan di kolom G:H.
>
> Wassalam
> --
> imar
>
>
Ada banyak cara untuk menyusun summary seperti ini, antara lain :
1. Formula :
>> misal hasil diletakkan pada kolom K (date) dan L (amount) dengan header
di baris 1.
-> Pada K1 tulis 1
-> klik kanan K1 -> format cells -> tab Number -> Custom -> tulis :
"Date"
-> pada K2 pasang array formula : (jangan lupa CTRL SHIFT ENTER)
=IF(N(K1),MIN(
-> klik kanan K2 -> format cells -> tab Number -> Custom -> tulis :
YYYY-MM-DD;; [bagian YYYY-MM-DD bisa diganti dengan
format lain]
-> copy K2 ke bawah sesuai kebutuhan
>> untuk amount (kolom L), pada L2 diberi formula :
=IF(K2,SUMIF(
atur format numbernya dan copy ke bawah
>> hati-hati jika :
-> jumlah recordnya banyak, akan terasa lambat kalkulasinya karena
array formula
-> ada data kolom date yang tidak bertipe datetime, hasil array
formula bisa salah
2. Pivot table
>> blok datanya (termasuk header)
>> ribbon Insert -> Pivot Table -> pilih area data -> pilih lokasi hasil ->
OK
>> drag field Date ke bagian Rows, drag field Amount ke bagian Values
Wassalam,
Kid.
2012/12/22 Imar Andre <imar.ap@gmail.
> **
>
>
> Be Exceler,
>
> Saya mempunyai masalah untuk men sort unique data,
> Tabel data ada di kolom A:C sedangkan hasil yang di inginkan di kolom G:H.
>
> Wassalam
> --
> imar
>
>
Sat Dec 22, 2012 8:10 am (PST) . Posted by:
"Imar Andre" baz.giglo
Om Kid, thank's solusinya, kalau di kolom L mau di buat jumlah
akumulasi apakah ada formula lain selain
=SUMIF($B$2:$C$96,K2,$C$2:$C$96)+L1
Wassalam
On 12/22/12, Mr. Kid <mr.nmkid@gmail.com > wrote:
> Hai Imar,
>
> Ada banyak cara untuk menyusun summary seperti ini, antara lain :
> 1. Formula :
>>> misal hasil diletakkan pada kolom K (date) dan L (amount) dengan header
> di baris 1.
> -> Pada K1 tulis 1
> -> klik kanan K1 -> format cells -> tab Number -> Custom -> tulis :
> "Date"
> -> pada K2 pasang array formula : (jangan lupa CTRL SHIFT ENTER)
> =IF(N(K1),MIN(IF($B$2:$B$96>K1,$B$2:$B$96)),0)
> -> klik kanan K2 -> format cells -> tab Number -> Custom -> tulis :
> YYYY-MM-DD;; [bagian YYYY-MM-DD bisa diganti dengan
> format lain]
> -> copy K2 ke bawah sesuai kebutuhan
>>> untuk amount (kolom L), pada L2 diberi formula :
> =IF(K2,SUMIF($B$2:$B$96,K2,$C$2:$C$96),"")
> atur format numbernya dan copy ke bawah
>>> hati-hati jika :
> -> jumlah recordnya banyak, akan terasa lambat kalkulasinya karena
> array formula
> -> ada data kolom date yang tidak bertipe datetime, hasil array
> formula bisa salah
>
> 2. Pivot table
>>> blok datanya (termasuk header)
>>> ribbon Insert -> Pivot Table -> pilih area data -> pilih lokasi hasil ->
> OK
>>> drag field Date ke bagian Rows, drag field Amount ke bagian Values
>
> Wassalam,
> Kid.
>
>
>
> 2012/12/22 Imar Andre <imar.ap@gmail.com >
>
>> **
>>
>>
>> Be Exceler,
>>
>> Saya mempunyai masalah untuk men sort unique data,
>> Tabel data ada di kolom A:C sedangkan hasil yang di inginkan di kolom
>> G:H.
>>
>> Wassalam
>> --
>> imar
>>
>>
>
--
imar
akumulasi apakah ada formula lain selain
=SUMIF($B$2:
Wassalam
On 12/22/12, Mr. Kid <mr.nmkid@gmail.
> Hai Imar,
>
> Ada banyak cara untuk menyusun summary seperti ini, antara lain :
> 1. Formula :
>>> misal hasil diletakkan pada kolom K (date) dan L (amount) dengan header
> di baris 1.
> -> Pada K1 tulis 1
> -> klik kanan K1 -> format cells -> tab Number -> Custom -> tulis :
> "Date"
> -> pada K2 pasang array formula : (jangan lupa CTRL SHIFT ENTER)
> =IF(N(K1),MIN(
> -> klik kanan K2 -> format cells -> tab Number -> Custom -> tulis :
> YYYY-MM-DD;; [bagian YYYY-MM-DD bisa diganti dengan
> format lain]
> -> copy K2 ke bawah sesuai kebutuhan
>>> untuk amount (kolom L), pada L2 diberi formula :
> =IF(K2,SUMIF(
> atur format numbernya dan copy ke bawah
>>> hati-hati jika :
> -> jumlah recordnya banyak, akan terasa lambat kalkulasinya karena
> array formula
> -> ada data kolom date yang tidak bertipe datetime, hasil array
> formula bisa salah
>
> 2. Pivot table
>>> blok datanya (termasuk header)
>>> ribbon Insert -> Pivot Table -> pilih area data -> pilih lokasi hasil ->
> OK
>>> drag field Date ke bagian Rows, drag field Amount ke bagian Values
>
> Wassalam,
> Kid.
>
>
>
> 2012/12/22 Imar Andre <imar.ap@gmail.
>
>> **
>>
>>
>> Be Exceler,
>>
>> Saya mempunyai masalah untuk men sort unique data,
>> Tabel data ada di kolom A:C sedangkan hasil yang di inginkan di kolom
>> G:H.
>>
>> Wassalam
>> --
>> imar
>>
>>
>
--
imar
Sat Dec 22, 2012 8:19 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Bagaimana kalau dicoba begini :
1. yang dengan formula dulu
>> coba ubah formula dari :
=SUMIF($B$2:$C$96,K2,$C$2:$C$96)
menjadi :
=SUMIF($B$2:$C$96,*"<="&*K2,$C$2:$C$96)
Mungkin lebih enak kalau di kolom baru saja yang diberi formula :
=SUMIF($B$2:$C$96,*"<="&*K2,$C$2:$C$96)
2. dengan pivot table
>> klik kanan sebuah nilai amount dalam pivot table -> pilih Value field
setting
>> tab summarize by pilih Sum
>> tab show values as -> pilih Running total in -> pilih dari daftar field
untuk field bernama Date -> OK sampai kembali ke worksheet
Jika ingin mencoba diletakkan dikolom baru :
>> drag nama field Amount ke bagian Values (jadi nanti ada 2 field amount
dalam bagian values)
>> klik kanan field amount yang baru saja di drag -> pilih Value field
setting -> tab summarize : SUM -> tab show values as : Running total in
untuk field dipilih Date
Wassalam,
Kid.
2012/12/22 Imar Andre <imar.ap@gmail.com >
> **
>
>
> Om Kid, thank's solusinya, kalau di kolom L mau di buat jumlah
> akumulasi apakah ada formula lain selain
> =SUMIF($B$2:$C$96,K2,$C$2:$C$96)+L1
>
> Wassalam
>
>
> On 12/22/12, Mr. Kid <mr.nmkid@gmail.com > wrote:
> > Hai Imar,
> >
> > Ada banyak cara untuk menyusun summary seperti ini, antara lain :
> > 1. Formula :
> >>> misal hasil diletakkan pada kolom K (date) dan L (amount) dengan header
> > di baris 1.
> > -> Pada K1 tulis 1
> > -> klik kanan K1 -> format cells -> tab Number -> Custom -> tulis :
> > "Date"
> > -> pada K2 pasang array formula : (jangan lupa CTRL SHIFT ENTER)
> > =IF(N(K1),MIN(IF($B$2:$B$96>K1,$B$2:$B$96)),0)
> > -> klik kanan K2 -> format cells -> tab Number -> Custom -> tulis :
> > YYYY-MM-DD;; [bagian YYYY-MM-DD bisa diganti dengan
> > format lain]
> > -> copy K2 ke bawah sesuai kebutuhan
> >>> untuk amount (kolom L), pada L2 diberi formula :
> > =IF(K2,SUMIF($B$2:$B$96,K2,$C$2:$C$96),"")
> > atur format numbernya dan copy ke bawah
> >>> hati-hati jika :
> > -> jumlah recordnya banyak, akan terasa lambat kalkulasinya karena
> > array formula
> > -> ada data kolom date yang tidak bertipe datetime, hasil array
> > formula bisa salah
> >
> > 2. Pivot table
> >>> blok datanya (termasuk header)
> >>> ribbon Insert -> Pivot Table -> pilih area data -> pilih lokasi hasil
> ->
> > OK
> >>> drag field Date ke bagian Rows, drag field Amount ke bagian Values
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> > 2012/12/22 Imar Andre <imar.ap@gmail.com >
> >
> >> **
>
> >>
> >>
> >> Be Exceler,
> >>
> >> Saya mempunyai masalah untuk men sort unique data,
> >> Tabel data ada di kolom A:C sedangkan hasil yang di inginkan di kolom
> >> G:H.
> >>
> >> Wassalam
> >> --
> >> imar
> >>
> >>
> >
>
> --
> imar
>
>
>
1. yang dengan formula dulu
>> coba ubah formula dari :
=SUMIF($B$2:
menjadi :
=SUMIF($B$2:
Mungkin lebih enak kalau di kolom baru saja yang diberi formula :
=SUMIF($B$2:
2. dengan pivot table
>> klik kanan sebuah nilai amount dalam pivot table -> pilih Value field
setting
>> tab summarize by pilih Sum
>> tab show values as -> pilih Running total in -> pilih dari daftar field
untuk field bernama Date -> OK sampai kembali ke worksheet
Jika ingin mencoba diletakkan dikolom baru :
>> drag nama field Amount ke bagian Values (jadi nanti ada 2 field amount
dalam bagian values)
>> klik kanan field amount yang baru saja di drag -> pilih Value field
setting -> tab summarize : SUM -> tab show values as : Running total in
untuk field dipilih Date
Wassalam,
Kid.
2012/12/22 Imar Andre <imar.ap@gmail.
> **
>
>
> Om Kid, thank's solusinya, kalau di kolom L mau di buat jumlah
> akumulasi apakah ada formula lain selain
> =SUMIF($B$2:
>
> Wassalam
>
>
> On 12/22/12, Mr. Kid <mr.nmkid@gmail.
> > Hai Imar,
> >
> > Ada banyak cara untuk menyusun summary seperti ini, antara lain :
> > 1. Formula :
> >>> misal hasil diletakkan pada kolom K (date) dan L (amount) dengan header
> > di baris 1.
> > -> Pada K1 tulis 1
> > -> klik kanan K1 -> format cells -> tab Number -> Custom -> tulis :
> > "Date"
> > -> pada K2 pasang array formula : (jangan lupa CTRL SHIFT ENTER)
> > =IF(N(K1),MIN(
> > -> klik kanan K2 -> format cells -> tab Number -> Custom -> tulis :
> > YYYY-MM-DD;; [bagian YYYY-MM-DD bisa diganti dengan
> > format lain]
> > -> copy K2 ke bawah sesuai kebutuhan
> >>> untuk amount (kolom L), pada L2 diberi formula :
> > =IF(K2,SUMIF(
> > atur format numbernya dan copy ke bawah
> >>> hati-hati jika :
> > -> jumlah recordnya banyak, akan terasa lambat kalkulasinya karena
> > array formula
> > -> ada data kolom date yang tidak bertipe datetime, hasil array
> > formula bisa salah
> >
> > 2. Pivot table
> >>> blok datanya (termasuk header)
> >>> ribbon Insert -> Pivot Table -> pilih area data -> pilih lokasi hasil
> ->
> > OK
> >>> drag field Date ke bagian Rows, drag field Amount ke bagian Values
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> > 2012/12/22 Imar Andre <imar.ap@gmail.
> >
> >> **
>
> >>
> >>
> >> Be Exceler,
> >>
> >> Saya mempunyai masalah untuk men sort unique data,
> >> Tabel data ada di kolom A:C sedangkan hasil yang di inginkan di kolom
> >> G:H.
> >>
> >> Wassalam
> >> --
> >> imar
> >>
> >>
> >
>
> --
> imar
>
>
>
Sat Dec 22, 2012 6:54 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak Indra,
Kasus ini adalah tentang tipe data (seperti kasus Pak Heru beberapa waktu
lalu).
Pada baris VBA berikut ini :
db.Execute "INSERT INTO tbl_sample(st, nam, ket) " & _
"VALUES(" & rsXL.Fields("st").Value & "," & rsXL.Fields("nam").Value & ","
& "'" & rsXL.Fields("ket").Value & "'" & ");"
bagian rsXL.Fields("nam").Value bertipe text jadi butuh didahului dan
diakhiri dengan petik satu (')
seperti bagian rsXL.Fields("ket").Value yang berbunyi & "'" &
rsXL.Fields("ket").Value & "'"
Wassalam,
Kid.
2012/12/22 Indra Psr <indra.psr@gmail.com >
> **
>
>
> Dear,
>
> Saya ada liat-liat email terdahulu, eh nemu juga data spt terlampir..
> Menurut saya ini bagus untuk buat2 inputan data gitu ke access,,
> Tp setelah saya korek2 VBA yg ada,, akhirnya sharian penuh mencoba
> untuk nambahin data inputan jadi spt di access terlampir,,, gak
> berhasil bingung juga ama VBA yg udah di buat master.. hehehe..
> (piss.. maklum masih awam VBA)
> Gimana ya biar bisa masukin data yg ada di excel ke access spt file
> terlampir?
>
> Terimakasih..
>
> Indra
>
>
Kasus ini adalah tentang tipe data (seperti kasus Pak Heru beberapa waktu
lalu).
Pada baris VBA berikut ini :
db.Execute "INSERT INTO tbl_sample(st, nam, ket) " & _
"VALUES(" & rsXL.Fields(
& "'" & rsXL.Fields(
bagian rsXL.Fields(
diakhiri dengan petik satu (')
seperti bagian rsXL.Fields(
rsXL.Fields(
Wassalam,
Kid.
2012/12/22 Indra Psr <indra.psr@gmail.
> **
>
>
> Dear,
>
> Saya ada liat-liat email terdahulu, eh nemu juga data spt terlampir..
> Menurut saya ini bagus untuk buat2 inputan data gitu ke access,,
> Tp setelah saya korek2 VBA yg ada,, akhirnya sharian penuh mencoba
> untuk nambahin data inputan jadi spt di access terlampir,,, gak
> berhasil bingung juga ama VBA yg udah di buat master.. hehehe..
> (piss.. maklum masih awam VBA)
> Gimana ya biar bisa masukin data yg ada di excel ke access spt file
> terlampir?
>
> Terimakasih.
>
> Indra
>
>
Sat Dec 22, 2012 8:03 am (PST) . Posted by:
"Slamet" slametharto
Dear Mr Kid
Untuk data type Date bagaimana yaa?
Terima kasih
On 12/22/2012 9:53 PM, Mr. Kid wrote:
>
> Pak Indra,
>
> Kasus ini adalah tentang tipe data (seperti kasus Pak Heru beberapa
> waktu lalu).
> Pada baris VBA berikut ini :
> db.Execute "INSERT INTO tbl_sample(st, nam, ket) " & _
> "VALUES(" & rsXL.Fields("st").Value & "," & rsXL.Fields("nam").Value &
> "," & "'" & rsXL.Fields("ket").Value & "'" & ");"
>
> bagian rsXL.Fields("nam").Value bertipe text jadi butuh didahului dan
> diakhiri dengan petik satu (')
> seperti bagian rsXL.Fields("ket").Value yang berbunyi & "'" &
> rsXL.Fields("ket").Value & "'"
>
> Wassalam,
> Kid.
>
Untuk data type Date bagaimana yaa?
Terima kasih
On 12/22/2012 9:53 PM, Mr. Kid wrote:
>
> Pak Indra,
>
> Kasus ini adalah tentang tipe data (seperti kasus Pak Heru beberapa
> waktu lalu).
> Pada baris VBA berikut ini :
> db.Execute "INSERT INTO tbl_sample(st, nam, ket) " & _
> "VALUES(" & rsXL.Fields(
> "," & "'" & rsXL.Fields(
>
> bagian rsXL.Fields(
> diakhiri dengan petik satu (')
> seperti bagian rsXL.Fields(
> rsXL.Fields(
>
> Wassalam,
> Kid.
>
Sat Dec 22, 2012 8:09 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak Slamet,
Gimana kabarnya ? Moga-moga baik selalu.
Untuk tipe data datetime perlu didahului dan diakhiri dengan karakter # dan
usahakan penulisan datetime-nya dalam format YYYY-MM-DD agar tidak terjebak
oleh regional setting komputer setempat.
Wassalam,
Kid.
2012/12/22 Slamet <slametharto@gmail.com >
> **
>
>
> Dear Mr Kid
>
> Untuk data type Date bagaimana yaa?
>
> Terima kasih
>
> On 12/22/2012 9:53 PM, Mr. Kid wrote:
>
>
>
> Pak Indra,
>
> Kasus ini adalah tentang tipe data (seperti kasus Pak Heru beberapa waktu
> lalu).
> Pada baris VBA berikut ini :
> db.Execute "INSERT INTO tbl_sample(st, nam, ket) " & _
> "VALUES(" & rsXL.Fields("st").Value & "," & rsXL.Fields("nam").Value & ","
> & "'" & rsXL.Fields("ket").Value & "'" & ");"
>
> bagian rsXL.Fields("nam").Value bertipe text jadi butuh didahului dan
> diakhiri dengan petik satu (')
> seperti bagian rsXL.Fields("ket").Value yang berbunyi & "'" &
> rsXL.Fields("ket").Value & "'"
>
> Wassalam,
> Kid.
>
>
>
>
Gimana kabarnya ? Moga-moga baik selalu.
Untuk tipe data datetime perlu didahului dan diakhiri dengan karakter # dan
usahakan penulisan datetime-nya dalam format YYYY-MM-DD agar tidak terjebak
oleh regional setting komputer setempat.
Wassalam,
Kid.
2012/12/22 Slamet <slametharto@
> **
>
>
> Dear Mr Kid
>
> Untuk data type Date bagaimana yaa?
>
> Terima kasih
>
> On 12/22/2012 9:53 PM, Mr. Kid wrote:
>
>
>
> Pak Indra,
>
> Kasus ini adalah tentang tipe data (seperti kasus Pak Heru beberapa waktu
> lalu).
> Pada baris VBA berikut ini :
> db.Execute "INSERT INTO tbl_sample(st, nam, ket) " & _
> "VALUES(" & rsXL.Fields(
> & "'" & rsXL.Fields(
>
> bagian rsXL.Fields(
> diakhiri dengan petik satu (')
> seperti bagian rsXL.Fields(
> rsXL.Fields(
>
> Wassalam,
> Kid.
>
>
>
>
Sat Dec 22, 2012 7:38 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Bakul klengkeng,
Coba pada sheet Area cell D10 diberi formula :
=VLOOKUP($B10,KOnsolidasi!$B$4:$CW$9,MATCH(INDEX(D$9:D9,MATCH(*$B$8*,*
$B$8:$B10*,1)),KOnsolidasi!$B$3:$CW$3,0),0)
Bahasa manusia :
"Ambil nilai dengan pencarian berdasar kolom pertama sebagai kunci
[VLookUp] terhadap nilai nomor di area ke tabel konsolidasi yang
pencocokannya adalah exact. Kemudian ambil data di indeks kolom hasil
kalkulasi pencocokan kode cabang [Match] di area terkait pada header data
sheet konsolidasi baris kode cabang dengan cara pencocokan yang sama persis,
dimana kode cabang pada area terkait adalah pada index baris di kolom kerja
[INDEX(D$9:D9] pada baris ditemukannya nama header NOMOR [*$B$8*] pada
baris-baris diperluas di kolom nomor tersebut [*$B$8:$B10*] yang ditemukan
terakhir [,1]"
Bagian ,1 dalam formula bisa dihapus karena default fungsi match adalah ,1.
Copy ke semua cell yang butuh ambil nilai dari sheet konsolidasi.
Syarat : dikedua sheet
1. kolom Nomor bertipe numerik dan harus ada
2. kode cabang bertipe text dan harus ada
3. penulisan nama kolom Nomor adalah tetap disemua dataset, baik per area
maupun pada data konsolidasi
Sesuaikan rujukan range dan perhatikan penetapan absolute reference dalam
formula jika data struktur tabel data maupun struktur tabel-tabel per area
berbeda dengan contoh file lampiran yang pernah di-upload sebagai
attachment.
Wassalam,
Kid.
2012/12/22 Magung Klengkeng <klengkengmagung@yahoo.co.id >
> **
>
>
>
> Dear suhu dan rekan
>
> Mohon bantuannya utnuk solusi problem excel saya.
>
> Saya mempunyai data detail penjualan cabang sebanyak katakanlah 100 cabang
> secara konsolidasi.
>
> Nah data di masing-masing cabang ini dikelompokkan menjadi beberapa area.
>
> Nah di perjalanan waktu, terjadi perpindahan cabang dari area satu ke area
> lain.
>
> Dengan menggunakan fungsi vlookup hal ini menjadi repot karena harus
> mengulang membuat rumus.
>
> Adakah fungsi lain? saya denger ada fungsi match dll tapi saya masih
> kebingungan dalam aplikasinya.
>
> Data excel terlampir.
>
> Terimakasih atas bantuannya.
>
> Salam,
>
> Bakul klengkeng
>
>
>
Coba pada sheet Area cell D10 diberi formula :
=VLOOKUP($B10,
$B$8:$B10*,1)
Bahasa manusia :
"Ambil nilai dengan pencarian berdasar kolom pertama sebagai kunci
[VLookUp] terhadap nilai nomor di area ke tabel konsolidasi yang
pencocokannya adalah exact. Kemudian ambil data di indeks kolom hasil
kalkulasi pencocokan kode cabang [Match] di area terkait pada header data
sheet konsolidasi baris kode cabang dengan cara pencocokan yang sama persis,
dimana kode cabang pada area terkait adalah pada index baris di kolom kerja
[INDEX(D$9:D9] pada baris ditemukannya nama header NOMOR [*$B$8*] pada
baris-baris diperluas di kolom nomor tersebut [*$B$8:$B10*
terakhir [,1]"
Bagian ,1 dalam formula bisa dihapus karena default fungsi match adalah ,1.
Copy ke semua cell yang butuh ambil nilai dari sheet konsolidasi.
Syarat : dikedua sheet
1. kolom Nomor bertipe numerik dan harus ada
2. kode cabang bertipe text dan harus ada
3. penulisan nama kolom Nomor adalah tetap disemua dataset, baik per area
maupun pada data konsolidasi
Sesuaikan rujukan range dan perhatikan penetapan absolute reference dalam
formula jika data struktur tabel data maupun struktur tabel-tabel per area
berbeda dengan contoh file lampiran yang pernah di-upload sebagai
attachment.
Wassalam,
Kid.
2012/12/22 Magung Klengkeng <klengkengmagung@
> **
>
>
>
> Dear suhu dan rekan
>
> Mohon bantuannya utnuk solusi problem excel saya.
>
> Saya mempunyai data detail penjualan cabang sebanyak katakanlah 100 cabang
> secara konsolidasi.
>
> Nah data di masing-masing cabang ini dikelompokkan menjadi beberapa area.
>
> Nah di perjalanan waktu, terjadi perpindahan cabang dari area satu ke area
> lain.
>
> Dengan menggunakan fungsi vlookup hal ini menjadi repot karena harus
> mengulang membuat rumus.
>
> Adakah fungsi lain? saya denger ada fungsi match dll tapi saya masih
> kebingungan dalam aplikasinya.
>
> Data excel terlampir.
>
> Terimakasih atas bantuannya.
>
> Salam,
>
> Bakul klengkeng
>
>
>
Sat Dec 22, 2012 7:54 am (PST) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
Pak Agam,
Saya coba bantu tetapi dengan menggunakan macro.
'========================
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rgCriteria As Range, rgData As Range, rgTarget As Range
Set rgCriteria = Range("I1:I2")
'jika sheet terfilter, tampilkan semua data
With ActiveSheet
If .FilterMode Then
.ShowAllData
End If
End With
'jika ada perubahan di range kriteria jalankan proses filter
If Not Intersect(Target, rgCriteria) Is Nothing Then
'block database yang akan difilter
Set rgData = Range("A2:G" & Range("A2").End(xlDown).Row)
rgData.AdvancedFilter xlFilterInPlace, rgCriteria
End If
End Sub
'==============
Silakan dicoba file terlampir.
Thanks
-zainul-
Pada 22 Desember 2012 15:20, agam Tole <agam_tole@yahoo.com > menulis:
Dear Master Excel,
Mohon bantuan untuk jalan keluar permasalahan saya dalam Pembuatan rumus
pada File terlampir..
Pada Kolom pencarian, setelah kita ketik salah satu nama pada kolom
pencarian maka otomatis akan mengambil data dari database dan menginput data
sesuai dengan nama yg dicari di Tabel Filter berdasarkan nama,
Mohon kiranya dapat membantu, Terima Kasih Sebelumnya
Best Regard
Agam
Saya coba bantu tetapi dengan menggunakan macro.
'===========
Private Sub Worksheet_Change(
Dim rgCriteria As Range, rgData As Range, rgTarget As Range
Set rgCriteria = Range("I1:I2"
'jika sheet terfilter, tampilkan semua data
With ActiveSheet
If .FilterMode Then
.ShowAllData
End If
End With
'jika ada perubahan di range kriteria jalankan proses filter
If Not Intersect(Target, rgCriteria) Is Nothing Then
'block database yang akan difilter
Set rgData = Range("A2:G" & Range("A2").
rgData.AdvancedFilt
End If
End Sub
'===========
Silakan dicoba file terlampir.
Thanks
-zainul-
Pada 22 Desember 2012 15:20, agam Tole <agam_tole@yahoo.
Dear Master Excel,
Mohon bantuan untuk jalan keluar permasalahan saya dalam Pembuatan rumus
pada File terlampir..
Pada Kolom pencarian, setelah kita ketik salah satu nama pada kolom
pencarian maka otomatis akan mengambil data dari database dan menginput data
sesuai dengan nama yg dicari di Tabel Filter berdasarkan nama,
Mohon kiranya dapat membantu, Terima Kasih Sebelumnya
Best Regard
Agam
Sat Dec 22, 2012 9:08 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak Nor,
Untuk menerjemahkan kata per kata mungkin masih relatif bisa disusun
algoritmanya. Untuk menerjemahkan berdasar semantiknya tentulah tidak mudah.
Selain itu, diperlukan data kumpulan kata dari bahasa yang digunakan.
Wassalam,
Kid.
2012/12/21 <dayatshogun46@yahoo.co.id >
> Dear para teman excel semua
>
> Sejauh ini fungsi dan fitur excel sudah mengalami berbagai modifikasi dan
> pemecahan, baik dari segi rumus dan macro, dari excel lama sd excel 2007,
> bahkan sampai bisa dikembangkan menjadi mini game yang memang butuh talenta
> tinggi dan keahlian luar biasa untuk mengolah excel lebih dari sekedar
> perangkat sofware perhitungan, dari salah satunya sentar terbentuk suatu
> proses program excel yang menghasilkan rumus dan macro terbilang, hal itu
> merupakan suatu rangkaian pemikiran luar biasa dalam proses pembuatannya.
> Terimakasih para dermawan yang mau berbagi ilmu dan keiklasannya mau
> berbagi. Seperti siti-vi (alm), MR Kid dan kawan lainya yang banyak
> meluangkan waktu untuk memecahkan dan berbagi.
>
> Pada kesempatan ini bolehkan saya bertanya apakah excel juga bisa membuat
> rumus atau macro dalam hal translate bahasa Indonesi ke Ingris, dengan
> menuliskan kalimat kata-kata yang bisa dijadikan sumber alternatif selain
> penterjemah seperti google translate.
>
>
> Sekian dari saya
> Nor Hidayat
> Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung
> Teruuusss...!
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
Untuk menerjemahkan kata per kata mungkin masih relatif bisa disusun
algoritmanya. Untuk menerjemahkan berdasar semantiknya tentulah tidak mudah.
Selain itu, diperlukan data kumpulan kata dari bahasa yang digunakan.
Wassalam,
Kid.
2012/12/21 <dayatshogun46@
> Dear para teman excel semua
>
> Sejauh ini fungsi dan fitur excel sudah mengalami berbagai modifikasi dan
> pemecahan, baik dari segi rumus dan macro, dari excel lama sd excel 2007,
> bahkan sampai bisa dikembangkan menjadi mini game yang memang butuh talenta
> tinggi dan keahlian luar biasa untuk mengolah excel lebih dari sekedar
> perangkat sofware perhitungan, dari salah satunya sentar terbentuk suatu
> proses program excel yang menghasilkan rumus dan macro terbilang, hal itu
> merupakan suatu rangkaian pemikiran luar biasa dalam proses pembuatannya.
> Terimakasih para dermawan yang mau berbagi ilmu dan keiklasannya mau
> berbagi. Seperti siti-vi (alm), MR Kid dan kawan lainya yang banyak
> meluangkan waktu untuk memecahkan dan berbagi.
>
> Pada kesempatan ini bolehkan saya bertanya apakah excel juga bisa membuat
> rumus atau macro dalam hal translate bahasa Indonesi ke Ingris, dengan
> menuliskan kalimat kata-kata yang bisa dijadikan sumber alternatif selain
> penterjemah seperti google translate.
>
>
> Sekian dari saya
> Nor Hidayat
> Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung
> Teruuusss...
>
> ------------
>
> ------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-
>
> posting ke milis, kirimkan ke:
> belajar-excel@
>
> berkunjung ke web milis
> http://tech.
>
> melihat file archive / mendownload lampiran
> http://www.mail-
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-
>
> menghubungi moderators & owners: belajar-excel-
>
> keluar dari membership milis (UnSubscribe)
> kirim mail kosong ke belajar-excel-
> ------------
> Groups Links
>
>
>
>
Sat Dec 22, 2012 9:49 am (PST) . Posted by:
"Andre Rahmaidy Teeza" andre_teeza_bn
Malam Mr. Kid
Maaf ya Mr. Kid baru saya baca emailnya di milis, terima kasih banyak sebelumnya Mr atas solusi vba pakai pivot table.. memang yang Mr kid sarankan tepat dan mantap,
tetapi pada sheet DATA format n penyusunan laporannya sudah baku Mr. Kid ga bisa di rubah, karena format yang ada di sheet DATA sudah diatur oleh regulator, jadi saya diwajibkan mengisi
seluruh sandi per kantor cabang yang sesuai dengan format di sheet DATA. yang saya ingin kan adalah suatu proses otomatis pakai vba yang mengisi sesuai dengan sandi-sandi dan uraian pada sheet DATA dengan sumber data di sheet NCR_0000. yang saya mau tanyakan pada sheet DATA untuk pengisian berdasarkan kode cabang yang lebih dari satu misalkan (KC_1,KC_2 dan seterusnya 28 kantor)
seperti apa codingnya yang dituangkan dalam VBA. mohon petunjuknya Mr. Kid
sebelumnya saya ucapkan terima kasih
Regards
Andree
Maaf ya Mr. Kid baru saya baca emailnya di milis, terima kasih banyak sebelumnya Mr atas solusi vba pakai pivot table.. memang yang Mr kid sarankan tepat dan mantap,
tetapi pada sheet DATA format n penyusunan laporannya sudah baku Mr. Kid ga bisa di rubah, karena format yang ada di sheet DATA sudah diatur oleh regulator, jadi saya diwajibkan mengisi
seluruh sandi per kantor cabang yang sesuai dengan format di sheet DATA. yang saya ingin kan adalah suatu proses otomatis pakai vba yang mengisi sesuai dengan sandi-sandi dan uraian pada sheet DATA dengan sumber data di sheet NCR_0000. yang saya mau tanyakan pada sheet DATA untuk pengisian berdasarkan kode cabang yang lebih dari satu misalkan (KC_1,KC_2 dan seterusnya 28 kantor)
seperti apa codingnya yang dituangkan dalam VBA. mohon petunjuknya Mr. Kid
sebelumnya saya ucapkan terima kasih
Regards
Andree
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