Rabu, 30 September 2015

[belajar-excel] Digest Number 3583

15 Messages

Digest #3583
2a
Re: rekap data, auto copi sort by "imam cahyo yuwono"
5a
Re: HAL: [belajar-excel] Absensi by "De Premor" de.premor
6a
Re: Absensi [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

Messages

Wed Sep 30, 2015 2:13 am (PDT) . Posted by:

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

Cara yang saya sarankan juga pakai VBA (Macro) kok. Konsepnya malah lebih
terstruktur daripada yang Anda rancang.
Jadi, bukan masalah pakai VBA atau tidak. Tapi lebih cenderung ke
konsepnya, yaitu terstruktur atau tidak.

Kalau pertanyaannya ada cara lain atau tidak, tentu banyak, karena bisa
mengkombinasikan berbagai fitur Excel yang bisa diotomasi dengan VBA.

Tapi sebenarnya, pertanyaan Anda adalah ada konsep lainnya selain konsep
yang saya sarankan atau tidak...
Tentu jawabnya adalah banyak dan salah satunya adalah konsep yang Anda
rancang.

Pertanyaan berikutnya dari Anda adalah dengan konsep yang Anda rancang
tersebut bisa dibuatkan atau tidak...
Tentu jawabnya adalah tidak bisa, karena saya bisanya yang simpel-simpel
saja. Kalau yang rumit-rumit mah bikin kepala pening.
Tapi entah BeExceller yang lebih mampu berpening ria ya... ditunggu saja...

btw,
coba konsep Anda direnungkan kembali,
1. Kalau nanti berganti hari ada nota masuk lagi, dimana data nota yang
lama ? lalu seperti apa hasil rekapnya (menambahkan atau mengganti seluruh
nilai rekapan) ?
2. Bagaimana cara merekap nota per bulan, triwulan, jangka waktu tertentu
dsb... Tentu hal ini tidak dibutuhkan sekarang, tapi apa iya data akan
dibiarkan menguap begitu saja setelah di-input ? Apa wajar kalau setiap
inputan disimpan dalam 1 workbook yang berbeda (kalau sebulan ada 20 hari
kerja ada 20 file dong... gimana merekap gabungan per bulannya ? gabungkan
semua workbook ? cpd)
3. Apakah data ini berdiri sendiri dan tidak ada kaitannya dengan kegiatan
lain dalam perusahaan ? Bagaimana cara menghubungkannya dengan kegiatan
lain tersebut (jika ada kegiatan lainnya) ?
4. Kalau data nota ini sebenarnya hasil output dari suatu sistem, kenapa
ada proses input manual lagi yang lalu di pindah ke cetak ?

kira-kira segitu saja deh...
dari yang 4 itu saja kan sudah bikin pening kalau suatu saat nanti
dibutuhkan...
apa iya harus bangun dari nol lagi...

;)

met mencoba dan menunggu...

Wassalam,
Kid

On Wed, Sep 30, 2015 at 3:51 PM, Ivan Sebastian layonardo@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> terima kasih atas sarannya mr kidz... tapi apa ada cara lain selain itu?
> semisal pakai makro gt..
> ini file updatenya.. saya tambahkan rumus di bagian rekap nota...
> dan limit untuk sheet cetak nota saya bikin maks 24 nota untuk satu file...
>
>
>
>
> Pada Selasa, 29 September 2015 20:00, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hai Ivan,
>
> Sebaiknya Anda membuat sebuah sheet yang menampung seluruh data inputan
> berupa sebuah tabel yang baik.
>
> Misal Anda punya sheet inputan Nota berbentuk :
> No Nota 12345
> Nama a
> Alamat fffff
> Bla gjye
> tanggal 2015-09-29
>
> No pesanan kode barang kuantitas nilai
> 1 x 10 50
> 2 y 1 100
> 3 z 345 12345
>
> (nomor pesanan tentu ada maksimalnya per lembar nota)
>
>
> maka di sheet inputan sejajar dengan baris nomor pesanan di kolom yang tak
> terlihat dikanan sana dibuatkan formula untuk mengisi kolom berikut : susun
> kekanan dengan tampilan hasil formula yang Anda susun menjadi seperti ini
> (untuk contoh di atas)
> No Nota Nama Alamat Bla tanggal No Pesanan Kode
> Barang Kuantitas Nilai
> 12345 a fffff gjye 2015-09-29
> 1 x 10 50
> 12345 a fffff gjye 2015-09-29
> 2 y 1 100
> 12345 a fffff gjye 2015-09-29
> 3 z 345 12345
>
> Buat sebuah sheet baru bernama DATA berisi header :
> No Nota Nama Alamat Bla tanggal No Pesanan Kode
> Barang Kuantitas Nilai
>
>
> Nah, tombol yang ada di sheet input nota akan meng-copy area range
> berformula di sheet inputan nota (misal area yang dibiru) dan paste sepcial
> values ke baris kosong baru di sheet data.
>
> Setelah itu, output yang dibuat :
> 1. sheet Cetak Nota bisa mengambil dari sheet Data dengan formula
> 2. sheet Rekap Barang bisa mengmabil dari sheet Data dengan formula
>
> btw,
> Hal diatas sekedar saran agar pengolahan datanya lebih luwes, dan dapat
> terus dikembangkan secara baik, cepat, tepat, dan mudah
> Tidak ada paksaan untuk menerima saran diatas, karena hal pertama yang
> tampak adalah terasa ribet dan sulit.
> Sayangnya, sudah ditetapkan bahwa kemudahan itu adanya setelah kesulitan
>
> Wassalam,
> Kid
>
>
>
>
>
>
>
>
>
>
> 2015-09-29 19:35 GMT+07:00 Ivan Sebastian layonardo@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> data saya lampirkan... mohon bantuannya para master2 excel... thx..
>
>
>
>
>
>

Wed Sep 30, 2015 3:23 am (PDT) . Posted by:

"Ivan Sebastian" layonardo

roger that,kalo memang ga ada jalan lain, akan saya coba sesuai anjuran mr kidz.. thx

untuk jawaban no 1-3 diatasnota saya pastikan tidak akan bertambah.. karena memang sengaja saya buat seperti itu karena harga yg ada pada sheet pricelist tiap hari bisa berubah ubah setiap kali ada barang masuk pada hari itu... istilahnya nota harian lepas, begitu berganti hari buka file baru dan file data lama akan saya rename sesuai tanggal nota.. sehingga file baru akan selalu kosong isi awalnya.. benar seperti yg anda bilang.. 20 hari otomatis 20 nota.. rekap gabungan sudah ada bagiannya masing2 yg menanganinya....4. Kalau data nota ini sebenarnya hasil output dari suatu sistem, kenapa ada proses input manual lagi yang lalu di pindah ke cetak ?untuk jawaban no 4 ini..karena prosesnya seperti ini...orang beli barang kasih list item yg diminta apa... saya inputkan semua lalu saya tekan tombol next ke bagian sheet cetak nota dan nota saya cetak lalu saya kirimkan ke pegawai untuk menyiapkan barang2 sesuai dengan notanya.. semisal barangnya ternyata ada yg kurang maka nota yg ada di sheet cetak akan saya ubah sesuai dengan kondisi stock saat itu...jadi bila ada 2 org pembeli ... kalo saya tidak ada sheet input dan sheet cetak maka saya harus ketik ulank dari awal,dan customer ke2 harus menunggu customer 1 sampe bener2 selesai transaksinya...

Pada Rabu, 30 September 2015 16:14, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Cara yang saya sarankan juga pakai VBA (Macro) kok. Konsepnya malah lebih terstruktur daripada yang Anda rancang.
Jadi, bukan masalah pakai VBA atau tidak. Tapi lebih cenderung ke konsepnya, yaitu terstruktur atau tidak.

Kalau pertanyaannya ada cara lain atau tidak, tentu banyak, karena bisa mengkombinasikan berbagai fitur Excel yang bisa diotomasi dengan VBA.

Tapi sebenarnya, pertanyaan Anda adalah ada konsep lainnya selain konsep yang saya sarankan atau tidak...
Tentu jawabnya adalah banyak dan salah satunya adalah konsep yang Anda rancang.

Pertanyaan berikutnya dari Anda adalah dengan konsep yang Anda rancang tersebut bisa dibuatkan atau tidak...
Tentu jawabnya adalah tidak bisa, karena saya bisanya yang simpel-simpel saja. Kalau yang rumit-rumit mah bikin kepala pening.
Tapi entah BeExceller yang lebih mampu berpening ria ya... ditunggu saja...

btw,
coba konsep Anda direnungkan kembali,
1. Kalau nanti berganti hari ada nota masuk lagi, dimana data nota yang lama ? lalu seperti apa hasil rekapnya (menambahkan atau mengganti seluruh nilai rekapan) ?
2. Bagaimana cara merekap nota per bulan, triwulan, jangka waktu tertentu dsb... Tentu hal ini tidak dibutuhkan sekarang, tapi apa iya data akan dibiarkan menguap begitu saja setelah di-input ? Apa wajar kalau setiap inputan disimpan dalam 1 workbook yang berbeda (kalau sebulan ada 20 hari kerja ada 20 file dong... gimana merekap gabungan per bulannya ? gabungkan semua workbook ? cpd)
3. Apakah data ini berdiri sendiri dan tidak ada kaitannya dengan kegiatan lain dalam perusahaan ? Bagaimana cara menghubungkannya dengan kegiatan lain tersebut (jika ada kegiatan lainnya) ?

4. Kalau data nota ini sebenarnya hasil output dari suatu sistem, kenapa ada proses input manual lagi yang lalu di pindah ke cetak ?

kira-kira segitu saja deh...
dari yang 4 itu saja kan sudah bikin pening kalau suatu saat nanti dibutuhkan...
apa iya harus bangun dari nol lagi...

;)

met mencoba dan menunggu...

Wassalam,
Kid

On Wed, Sep 30, 2015 at 3:51 PM, Ivan Sebastian layonardo@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  terima kasih atas sarannya mr kidz...  tapi apa ada cara lain selain itu? semisal pakai makro gt..ini file updatenya.. saya tambahkan rumus di bagian rekap nota...dan limit untuk sheet cetak nota saya bikin maks 24 nota untuk satu file...


Pada Selasa, 29 September 2015 20:00, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Hai Ivan,

Sebaiknya Anda membuat sebuah sheet yang menampung seluruh data inputan berupa sebuah tabel yang baik.

Misal Anda punya sheet inputan Nota berbentuk :
No Nota  12345
Nama      a
Alamat    fffff
Bla          gjye
tanggal    2015-09-29         

No pesanan    kode barang    kuantitas    nilai
1                     x                       10            50
2                     y                       1             100
3                     z                       345          12345

(nomor pesanan tentu ada maksimalnya per lembar nota)

maka di sheet inputan sejajar dengan baris nomor pesanan di kolom yang tak terlihat dikanan sana dibuatkan formula untuk mengisi kolom berikut : susun kekanan dengan tampilan hasil formula yang Anda susun menjadi seperti ini (untuk contoh di atas)
No Nota     Nama    Alamat    Bla    tanggal         No Pesanan    Kode Barang    Kuantitas    Nilai
12345        a           fffff           gjye  2015-09-29     1                   x                        10                50
12345        a           fffff           gjye  2015-09-29     2                   y                          1              100
12345        a           fffff           gjye  2015-09-29     3                   z                      345           12345

Buat sebuah sheet baru bernama DATA berisi header :
No Nota     Nama    Alamat    Bla    tanggal         No Pesanan    Kode Barang    Kuantitas    Nilai

Nah, tombol yang ada di sheet input nota akan meng-copy area range berformula di sheet inputan nota (misal area yang dibiru) dan paste sepcial values ke baris kosong baru di sheet data.

Setelah itu, output yang dibuat :
1. sheet Cetak Nota bisa mengambil dari sheet Data dengan formula
2. sheet Rekap Barang bisa mengmabil dari sheet Data dengan formula

btw,
Hal diatas sekedar saran agar pengolahan datanya lebih luwes, dan dapat terus dikembangkan secara baik, cepat, tepat, dan mudah
Tidak ada paksaan untuk menerima saran diatas, karena hal pertama yang tampak adalah terasa ribet dan sulit.
Sayangnya, sudah ditetapkan bahwa kemudahan itu adanya setelah kesulitan

Wassalam,
Kid

2015-09-29 19:35 GMT+07:00 Ivan Sebastian layonardo@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

  data saya lampirkan... mohon bantuannya para master2 excel... thx..


#yiv4806722870 #yiv4806722870 -- #yiv4806722870ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4806722870 #yiv4806722870ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4806722870 #yiv4806722870ygrp-mkp #yiv4806722870hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4806722870 #yiv4806722870ygrp-mkp #yiv4806722870ads {margin-bottom:10px;}#yiv4806722870 #yiv4806722870ygrp-mkp .yiv4806722870ad {padding:0 0;}#yiv4806722870 #yiv4806722870ygrp-mkp .yiv4806722870ad p {margin:0;}#yiv4806722870 #yiv4806722870ygrp-mkp .yiv4806722870ad a {color:#0000ff;text-decoration:none;}#yiv4806722870 #yiv4806722870ygrp-sponsor #yiv4806722870ygrp-lc {font-family:Arial;}#yiv4806722870 #yiv4806722870ygrp-sponsor #yiv4806722870ygrp-lc #yiv4806722870hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4806722870 #yiv4806722870ygrp-sponsor #yiv4806722870ygrp-lc .yiv4806722870ad {margin-bottom:10px;padding:0 0;}#yiv4806722870 #yiv4806722870actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4806722870 #yiv4806722870activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4806722870 #yiv4806722870activity span {font-weight:700;}#yiv4806722870 #yiv4806722870activity span:first-child {text-transform:uppercase;}#yiv4806722870 #yiv4806722870activity span a {color:#5085b6;text-decoration:none;}#yiv4806722870 #yiv4806722870activity span span {color:#ff7900;}#yiv4806722870 #yiv4806722870activity span .yiv4806722870underline {text-decoration:underline;}#yiv4806722870 .yiv4806722870attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4806722870 .yiv4806722870attach div a {text-decoration:none;}#yiv4806722870 .yiv4806722870attach img {border:none;padding-right:5px;}#yiv4806722870 .yiv4806722870attach label {display:block;margin-bottom:5px;}#yiv4806722870 .yiv4806722870attach label a {text-decoration:none;}#yiv4806722870 blockquote {margin:0 0 0 4px;}#yiv4806722870 .yiv4806722870bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4806722870 .yiv4806722870bold a {text-decoration:none;}#yiv4806722870 dd.yiv4806722870last p a {font-family:Verdana;font-weight:700;}#yiv4806722870 dd.yiv4806722870last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4806722870 dd.yiv4806722870last p span.yiv4806722870yshortcuts {margin-right:0;}#yiv4806722870 div.yiv4806722870attach-table div div a {text-decoration:none;}#yiv4806722870 div.yiv4806722870attach-table {width:400px;}#yiv4806722870 div.yiv4806722870file-title a, #yiv4806722870 div.yiv4806722870file-title a:active, #yiv4806722870 div.yiv4806722870file-title a:hover, #yiv4806722870 div.yiv4806722870file-title a:visited {text-decoration:none;}#yiv4806722870 div.yiv4806722870photo-title a, #yiv4806722870 div.yiv4806722870photo-title a:active, #yiv4806722870 div.yiv4806722870photo-title a:hover, #yiv4806722870 div.yiv4806722870photo-title a:visited {text-decoration:none;}#yiv4806722870 div#yiv4806722870ygrp-mlmsg #yiv4806722870ygrp-msg p a span.yiv4806722870yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4806722870 .yiv4806722870green {color:#628c2a;}#yiv4806722870 .yiv4806722870MsoNormal {margin:0 0 0 0;}#yiv4806722870 o {font-size:0;}#yiv4806722870 #yiv4806722870photos div {float:left;width:72px;}#yiv4806722870 #yiv4806722870photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv4806722870 #yiv4806722870photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4806722870 #yiv4806722870reco-category {font-size:77%;}#yiv4806722870 #yiv4806722870reco-desc {font-size:77%;}#yiv4806722870 .yiv4806722870replbq {margin:4px;}#yiv4806722870 #yiv4806722870ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4806722870 #yiv4806722870ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4806722870 #yiv4806722870ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4806722870 #yiv4806722870ygrp-mlmsg select, #yiv4806722870 input, #yiv4806722870 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4806722870 #yiv4806722870ygrp-mlmsg pre, #yiv4806722870 code {font:115% monospace;}#yiv4806722870 #yiv4806722870ygrp-mlmsg * {line-height:1.22em;}#yiv4806722870 #yiv4806722870ygrp-mlmsg #yiv4806722870logo {padding-bottom:10px;}#yiv4806722870 #yiv4806722870ygrp-msg p a {font-family:Verdana;}#yiv4806722870 #yiv4806722870ygrp-msg p#yiv4806722870attach-count span {color:#1E66AE;font-weight:700;}#yiv4806722870 #yiv4806722870ygrp-reco #yiv4806722870reco-head {color:#ff7900;font-weight:700;}#yiv4806722870 #yiv4806722870ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4806722870 #yiv4806722870ygrp-sponsor #yiv4806722870ov li a {font-size:130%;text-decoration:none;}#yiv4806722870 #yiv4806722870ygrp-sponsor #yiv4806722870ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4806722870 #yiv4806722870ygrp-sponsor #yiv4806722870ov ul {margin:0;padding:0 0 0 8px;}#yiv4806722870 #yiv4806722870ygrp-text {font-family:Georgia;}#yiv4806722870 #yiv4806722870ygrp-text p {margin:0 0 1em 0;}#yiv4806722870 #yiv4806722870ygrp-text tt {font-size:120%;}#yiv4806722870 #yiv4806722870ygrp-vital ul li:last-child {border-right:none !important;}#yiv4806722870

Wed Sep 30, 2015 2:13 am (PDT) . Posted by:

"imam cahyo yuwono"

terima kasih Mr. Kid saya coba dulu. klo banayak tanya jangan marah ya.....

On Tuesday, September 29, 2015 7:32 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Wa'alaikumussalam wr wb

Hai Cahyo,

1. membuat combo box atau list (seperti search engine) yang saling berkaitan bagaimana pada sheet input kode dan nama penyakit kita bisa milih ( saya tidak bisa mengingat semua kode ICD maklum banyak, di cari dari nama penyakit)
> combobox memiliki properti bernama ColumnCount yang bisa menampilkan banyak kolom dalam daftar, untuk sumber daftar berisi banyak kolom. Properti BoundColumn adalah nomor indeks kolom yang akan menjadi isian properti Values. Properti TextColumn adalah indeks kolom dari daftar yang akan ditulis dalam combobox untuk item terpilih (isian properti Text).
> silakan diatur properti-ptoperti tersebut.
> Penggunaan ColumnCount lebih dari 1 terkadang membutuhkan pengaturan lebar kolom dalam daftar melalui properti ColumnWidth. Isiannya berurutan dari indeks kolom 1 sampai sejumlah isi ColumnCount. Contoh : 50pt;100pt berarti kolom ke-1 dalam daftar selebar 50pt dan kolom ke-2 selebar 100pt.

2. bagaimana sintax untuk macro perhitungan apa menggunakan sumproduct atau sumifs atau perhitungan lain karena yang menjadi patokan bulan, tempat, kriteria umur dan kode penyakit, mohon contoh (saya sudah coba dari beberappa referensi tapi gagal) referensi banyak tapi belum paham fungsi nya
> Fungsi SumIF sheet REKAP BULAN RI range E11 :
    =SUMIFS(INDEX(Table1,0,COLUMNS('REKAP ALL'!$A$4:F$4)),INDEX(Table1,0,3),$C$4,INDEX(Table1,0,29),$C$5,INDEX(Table1,0,4),$C11)
> formula bisa di-copy ke baris dan kolom lain.

> untuk kolom tertentu yang tidak berurutan, lakukan penyesuaian rujukan nomor kolom (BUKAN NAMA KOLOM) dalam Table1yang akan dipakai untuk kalkulasi (yang akan di-sum), yaitu menggantikan bagian : COLUMNS('REKAP ALL'!$A$4:F$4)
> Jika akan diotomasi dengan VBA untuk mem-values-ken, formula di atas akan dipasang di E11:V20, baris kodenya :
   application.calculation=xlcalculationautomatic
   sheets("rekap bulan ini").range("e11:v20").formula="=SUMIFS(INDEX(Table1,0,COLUMNS('REKAP ALL'!$A$4:F$4)),INDEX(Table1,0,3),$C$4,INDEX(Table1,0,29),$C$5,INDEX(Table1,0,4),$C11)"
   sheets("rekap bulan ini").range("e11:v20").value=sheets("rekap bulan ini").range("e11:v20").value> terapkan untuk area range lain dengan bunyi formula yang berbeda.

--------------
CATATAN :
1. susun formula universal yang bisa digunakan suatu area tertentu (misal area range SATU) pada sebuah cell dalam area tersebut
2. coba copy paste manual formula ke seluruh area range tertentu tersebut
3. jika sudah sesuai, maka usaha mem-values-ken dengan VBA bisa disusun dengan menyesuaikan rujukan sheet, range yang akan dipasangi formula dan bunyi formula yang akan dipasang.

4. sumif(s), CountIF(s), dsb bisa menerima wildcard character * dan ? yang bisa menjumlahkan dengan pattern tertentu.
5. jika kode memiliki pattern root dan child yang pasti, maka wildcard character bisa dimanfaatkan untuk mengkalkulasi total root.
    Contoh : untuk menjumlah semua yang rootnya berkode A01  (bisa A01, A01.blablabla, A01.blublabli), maka bagian $C11 bisa diubah menjadi $C11&"*"
6. setiap 1 karakter " (petik dua) dalam formula disuatu cells harus diubah menjadi 2 buah karakter " (petik dua) ketika akan dimanfaatkan dalam VBA di atas.
--------------

3. pada sheet rekap dan rekap total, ingin buat auto copy code dan nama penyakit  (baru bisa buat tombol filter aja he... he... )
> Lakukan usaha dengan cara manual lebih dulu. Jika sukses, barulah mencoba record macro. Kemudian ubah bagian tertentu hasil record macro agar mendapat suplai nilai dari cells yang menjadi area inputan user.
> Excel memiliki fitur Goto Special. Jadi, coba filter data sumber, blok area yang akan di-copy, CTRL G (Goto) -> tekan Special -> pilih visible cells -> OK, kemudian lakukan Copy (tekan CTRL C), lalu ke sheet tujuan, klik cell target paste, lakukan paste (tekan CTRL V).

3. untuk rekap triwulan, semester dan tahunan bagaiamana sudah cari di mbah google tapi belum nemu)
> Anda sudah bisa membuat data harian (sheet REKAP ALL) menjadi rekap bulanan (sheet REKAP BULAN INI) dengan bantuan kolom nama-nama bulan.
> Bukankah Anda bisa menerapkannya untuk triwulan dan segala macam pengelompokan yang dibutuhkan ? Dengan cara bagaimana hayo ?

4. pada sheet RL 4a dan 4b ada kelompok kode penyakit bagaimana cara menjumlahnya dengan macro contoh cell dengan isi kode A21.24-28. A31-32, 38-42-49 artinya kode A21 + A24 sampai dengan A28 + A31 sampai A32 + A38 + A42 sampai dengan A49 (itu kode urut ada di sheet ICD X ) kalo sulit ga apa apa paling di manual dulu yang penting untuk rekap saja untuk form RL bisa nyusul
> Masih ingat tentang rekap bulanan ? Kenapa kok bisa data harian yang bermacam-macam nilai tanggalnya menjadi terkumpul menyatu berdasar bulan tertentu ?

> Pada rekap bulanan, yang diproses untuk dibentuk pengelompokannya adalah berdasar kolom tanggal dan nama kelompoknya bisa disusun dengan formula.
> Pada kasus RL ini, Anda bisa menyusun kelompoknya juga, tetapi berdasar kolom kode. Jadi di REKAP ALL ada kolom yang menjelaskan kode tersebut akan masuk kelompok bernama apa (seperti tanggal tersebut masuk kelompok bernama bulan x misalnya)
> Pada sheet RL nya juga diperlukan nama kelompoknya disetiap baris data sheet RL.
> Fungsi SumIFs seperti di atas sana bisa Anda sesuaikan untuk kebutuhan penjumlahannya.

5. contoh contoh saja selanjut saya ingin belajar meneruskan
> coba deh Anda buat contohnya sendiri dengan mengikuti alur dongengan di atas...

Selamat mencoba.

Wassalamu'alaikum wr wb
Kid

On Mon, Sep 28, 2015 at 4:57 PM, imam cahyo yuwono chyywn@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  saya kirim ulang kembali data ada yang di delete hanya sebagian saja yang di munculkan
terima kasih

On Sunday, September 27, 2015 9:28 PM, "imam cahyo yuwono chyywn@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  --- Mods ---
File lampiran yang melebihi 250KB dilepas dari email. Silakan penanya mengirim ulang file lampiran yang berisi data contoh dengan ukuran file yang diusahakan maksimal 250 KB dengan cara me-reply email ini.
----------------

Assalamualaikum Wr. Wb 

Dear para master saya dapat tugas merekap data, sudah buat format untuk perhitungan saya menggunakan rumus sumproduct tapi file menjadi besar coba macro tapi tidak jalan yang saya tanyakan :
1. membuat combo box atau list (seperti search engine) yang saling berkaitan bagaimana pada sheet input kode dan nama penyakit kita bisa milih ( saya tidak bisa mengingat semua kode ICD maklum banyak, di cari dari nama penyakit)
2. bagaimana sintax untuk macro perhitungan apa menggunakan sumproduct atau sumifs atau perhitungan lain karena yang menjadi patokan bulan, tempat, kriteria umur dan kode penyakit, mohon contoh (saya sudah coba dari beberappa referensi tapi gagal) referensi banyak tapi belum paham fungsi nya 
3. pada sheet rekap dan rekap total, ingin buat auto copy code dan nama penyakit  (baru bisa buat tombol filter aja he... he... )

3. untuk rekap triwulan, semester dan tahunan bagaiamana sudah cari di mbah google tapi belum nemu) 

4. pada sheet RL 4a dan 4b ada kelompok kode penyakit bagaimana cara menjumlahnya dengan macro contoh cell dengan isi kode A21.24-28. A31-32, 38-42-49 artinya kode A21 + A24 sampai dengan A28 + A31 sampai A32 + A38 + A42 sampai dengan A49 (itu kode urut ada di sheet ICD X ) kalo sulit ga apa apa paling di manual dulu yang penting untuk rekap saja untuk form RL bisa nyusul
5. contoh contoh saja selanjut saya ingin belajar meneruskan

mohon bantuannya maklum masih nubie 
Wassalamualaikum Wr. Wb.


#yiv1258706507 #yiv1258706507 -- #yiv1258706507ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1258706507 #yiv1258706507ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1258706507 #yiv1258706507ygrp-mkp #yiv1258706507hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1258706507 #yiv1258706507ygrp-mkp #yiv1258706507ads {margin-bottom:10px;}#yiv1258706507 #yiv1258706507ygrp-mkp .yiv1258706507ad {padding:0 0;}#yiv1258706507 #yiv1258706507ygrp-mkp .yiv1258706507ad p {margin:0;}#yiv1258706507 #yiv1258706507ygrp-mkp .yiv1258706507ad a {color:#0000ff;text-decoration:none;}#yiv1258706507 #yiv1258706507ygrp-sponsor #yiv1258706507ygrp-lc {font-family:Arial;}#yiv1258706507 #yiv1258706507ygrp-sponsor #yiv1258706507ygrp-lc #yiv1258706507hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1258706507 #yiv1258706507ygrp-sponsor #yiv1258706507ygrp-lc .yiv1258706507ad {margin-bottom:10px;padding:0 0;}#yiv1258706507 #yiv1258706507actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1258706507 #yiv1258706507activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1258706507 #yiv1258706507activity span {font-weight:700;}#yiv1258706507 #yiv1258706507activity span:first-child {text-transform:uppercase;}#yiv1258706507 #yiv1258706507activity span a {color:#5085b6;text-decoration:none;}#yiv1258706507 #yiv1258706507activity span span {color:#ff7900;}#yiv1258706507 #yiv1258706507activity span .yiv1258706507underline {text-decoration:underline;}#yiv1258706507 .yiv1258706507attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1258706507 .yiv1258706507attach div a {text-decoration:none;}#yiv1258706507 .yiv1258706507attach img {border:none;padding-right:5px;}#yiv1258706507 .yiv1258706507attach label {display:block;margin-bottom:5px;}#yiv1258706507 .yiv1258706507attach label a {text-decoration:none;}#yiv1258706507 blockquote {margin:0 0 0 4px;}#yiv1258706507 .yiv1258706507bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1258706507 .yiv1258706507bold a {text-decoration:none;}#yiv1258706507 dd.yiv1258706507last p a {font-family:Verdana;font-weight:700;}#yiv1258706507 dd.yiv1258706507last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1258706507 dd.yiv1258706507last p span.yiv1258706507yshortcuts {margin-right:0;}#yiv1258706507 div.yiv1258706507attach-table div div a {text-decoration:none;}#yiv1258706507 div.yiv1258706507attach-table {width:400px;}#yiv1258706507 div.yiv1258706507file-title a, #yiv1258706507 div.yiv1258706507file-title a:active, #yiv1258706507 div.yiv1258706507file-title a:hover, #yiv1258706507 div.yiv1258706507file-title a:visited {text-decoration:none;}#yiv1258706507 div.yiv1258706507photo-title a, #yiv1258706507 div.yiv1258706507photo-title a:active, #yiv1258706507 div.yiv1258706507photo-title a:hover, #yiv1258706507 div.yiv1258706507photo-title a:visited {text-decoration:none;}#yiv1258706507 div#yiv1258706507ygrp-mlmsg #yiv1258706507ygrp-msg p a span.yiv1258706507yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1258706507 .yiv1258706507green {color:#628c2a;}#yiv1258706507 .yiv1258706507MsoNormal {margin:0 0 0 0;}#yiv1258706507 o {font-size:0;}#yiv1258706507 #yiv1258706507photos div {float:left;width:72px;}#yiv1258706507 #yiv1258706507photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv1258706507 #yiv1258706507photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1258706507 #yiv1258706507reco-category {font-size:77%;}#yiv1258706507 #yiv1258706507reco-desc {font-size:77%;}#yiv1258706507 .yiv1258706507replbq {margin:4px;}#yiv1258706507 #yiv1258706507ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1258706507 #yiv1258706507ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1258706507 #yiv1258706507ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1258706507 #yiv1258706507ygrp-mlmsg select, #yiv1258706507 input, #yiv1258706507 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1258706507 #yiv1258706507ygrp-mlmsg pre, #yiv1258706507 code {font:115% monospace;}#yiv1258706507 #yiv1258706507ygrp-mlmsg * {line-height:1.22em;}#yiv1258706507 #yiv1258706507ygrp-mlmsg #yiv1258706507logo {padding-bottom:10px;}#yiv1258706507 #yiv1258706507ygrp-msg p a {font-family:Verdana;}#yiv1258706507 #yiv1258706507ygrp-msg p#yiv1258706507attach-count span {color:#1E66AE;font-weight:700;}#yiv1258706507 #yiv1258706507ygrp-reco #yiv1258706507reco-head {color:#ff7900;font-weight:700;}#yiv1258706507 #yiv1258706507ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1258706507 #yiv1258706507ygrp-sponsor #yiv1258706507ov li a {font-size:130%;text-decoration:none;}#yiv1258706507 #yiv1258706507ygrp-sponsor #yiv1258706507ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1258706507 #yiv1258706507ygrp-sponsor #yiv1258706507ov ul {margin:0;padding:0 0 0 8px;}#yiv1258706507 #yiv1258706507ygrp-text {font-family:Georgia;}#yiv1258706507 #yiv1258706507ygrp-text p {margin:0 0 1em 0;}#yiv1258706507 #yiv1258706507ygrp-text tt {font-size:120%;}#yiv1258706507 #yiv1258706507ygrp-vital ul li:last-child {border-right:none !important;}#yiv1258706507

Wed Sep 30, 2015 3:36 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Dear Be-Excelers,
Berikut adalah perintah Macro yang saya dapat dari internet (file terlampir) untuk menggabungkan data (non unique) dari beberapa file yang ada dalam satu folder (Path),
Sub Consolidate()
    Dim sSQL As String      'SQL String    Dim oLr  As ListRow     'Worksheets Row    Dim cn   As Object      'Connection    Dim rs   As Object      'Recordset
'   Create SQL    For Each oLr In Sheet1.ListObjects("Worksheets").ListRows        If sSQL <> "" Then sSQL = sSQL & vbCr & "Union All" & vbCr 'tidak unik        sSQL = sSQL & "Select * From " & oLr.Range(1)    Next    sSQL = Replace(sSQL, "<Path>", ThisWorkbook.Path)    '   Create Connection Objects    Set cn = CreateObject("ADODB.Connection")    Set rs = CreateObject("ADODB.Recordset")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _            "Data Source=" & ThisWorkbook.FullName & ";" & _            "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"    rs.Open sSQL, cn    Debug.Print sSQL
    If Sheet1.ListObjects.Count > 1 Then Sheet1.ListObjects(2).Delete    Sheet1.ListObjects.Add( _        SourceType:=xlSrcQuery, _        Source:=rs, _        Destination:=Sheet1.Range("C6")).QueryTable.Refresh
    rs.Close    cn.Close
    Set rs = Nothing    Set cn = Nothing
End Sub
Yang ingin saya tanyakan adalah bagaimana bunyi perintah SQL nya (warna biru) jika yang ingin ditampilkan adalah total per no rek (bukan detailnya).
Terima kasih.
Salam,HK

Wed Sep 30, 2015 6:58 pm (PDT) . Posted by:

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

Hai Pak HK,

1. Query dasar agregat yang memiliki keys (agregat per anything) tanpa
filter terhadap hasil agregat
SELECT your_key_columns, your_aggregat_ecpression
FROM your_source
GROUP BY your_key_columns_without_columns_aliasses

contoh : total penjualan per tahun (berdasar tanggal invoice) per produk
SELECT produk_id, year(tgl_invoice) as tahun, sum(penjualan) as total_jual
FROM dataINV
GROUP BY produk_id, year(tgl_invoice) --> tanpa aliasses

2. Query dasar UNION [ALL]
Query1
UNION [ALL]
Query2
UNION [ALL]
.
.
UNION [ALL]
QueryN

dengan setiap Query# berupa select query yang memiliki susunan sesuai
kebutuhan.
Urutan kolom dan *tipe datanya *dari setiap Query# adalah tetap, dengan
definisi kolom di Query1 yang menjadi nama kolom output

3. Susunan select query dasar
SELECT your_columns [, your_aggregate_expressions]
FROM your_source
[
[JOIN your_join1 ON your_join1_relations]
.
.
[JOIN your_joinN ON your_joinN_relations]
]
[
WHERE your_filter_expressions
]
[
GROUP BY
your_columns_except_aggregate_expressions_without_columns_aliasses
[HAVING your_aggregate_filter_expressions] --> berisi filter
terhadap kolom-kolom agregat, dan bukan terhadap key columns
]

[
UNION [ALL]
your_another_query2
.
.
UNION [ALL]
your_another_queryN
]
[
ORDER BY your_sort_expressions
]

gunakan klausa ORDER BY secara bijak dan usahakan dihindari kecuali penting
sekali diseakhir mungkin suatu proses, karena klausa ORDER BY termasuk
computer resources eater

4. source dari query lain (subquery di bagian FROM)
SELECT your_dataset_alias#.your_columns
FROM
(
queryS
) as your_dataset_alias1
[another query clauses]

queryS bisa berisi select query dasar seperti di-nomor 3 tanpa klausa ORDER
BY
subquery suatu query seperti queryS juga bisa diletakkan pada bagian sumber
data yang di-JOIN
setiap Query# dalam UNION [ALL] bisa berisi subquery suatu query seperti
queryS

-----------------------
Prinsip dasar ber-query :
1. ketahui sumber data yang akan diproses
2. pahami alur komputasi yang dibutuhkan
3. susun query berdasar 1 dan 2
-----------------------

Jadi, *menggabungkan data hasil agregat* adalah hal yang berbeda
dengan *mengagregat
hasil gabungan data*
> *menggabungkan data hasil agregat *
SELECT your_key_columns, your_aggregate_expressions
FROM your_source1
GROUP BY your_key_columns_without_columns_aliasses

UNION [ALL]
SELECT your_key_columns, your_aggregate_expressions
FROM your_source2
GROUP BY your_key_columns_without_columns_aliasses
.
.
UNION [ALL]
SELECT your_key_columns, your_aggregate_expressions
FROM your_sourceN
GROUP BY your_key_columns_without_columns_aliasses

hasilnya bisa jadi ada your_columns yang sama dengan nilai your_aggregate
apa saja jika dengan [ALL] atau ada hasil aggregate yang hilang jika tanpa
[ALL]

> *mengagregat hasil gabungan data*
SELECT your_key_columns, your_aggregate_expressions
FROM
(

SELECT your_key_columns
FROM your_source1

UNION [ALL]
SELECT your_key_columns
FROM your_source2
.
.
UNION [ALL]
SELECT your_key_columns
FROM your_sourceN

) as your_dataset_alias
GROUP BY your_key_columns_without_columns_aliasses

Regard,
Kid

On Wed, Sep 30, 2015 at 5:36 PM, hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Dear Be-Excelers,
>
> Berikut adalah perintah Macro yang saya dapat dari internet (file
> terlampir) untuk menggabungkan data (non unique) dari beberapa file yang
> ada dalam satu folder (Path),
>
> Sub Consolidate()
>
> Dim sSQL As String 'SQL String
> Dim oLr As ListRow 'Worksheets Row
> Dim cn As Object 'Connection
> Dim rs As Object 'Recordset
>
> ' Create SQL
> For Each oLr In Sheet1.ListObjects("Worksheets").ListRows
> If sSQL <> "" Then sSQL = sSQL & vbCr & "Union All" & vbCr 'tidak
> unik
> * sSQL = sSQL & "Select * From " & oLr.Range(1)*
> Next
> sSQL = Replace(sSQL, "<Path>", ThisWorkbook.Path)
>
> ' Create Connection Objects
> Set cn = CreateObject("ADODB.Connection")
> Set rs = CreateObject("ADODB.Recordset")
>
> cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
> "Data Source=" & ThisWorkbook.FullName & ";" & _
> "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
> rs.Open sSQL, cn
> Debug.Print sSQL
>
> If Sheet1.ListObjects.Count > 1 Then Sheet1.ListObjects(2).Delete
> Sheet1.ListObjects.Add( _
> SourceType:=xlSrcQuery, _
> Source:=rs, _
> Destination:=Sheet1.Range("C6")).QueryTable.Refresh
>
> rs.Close
> cn.Close
>
> Set rs = Nothing
> Set cn = Nothing
>
> End Sub
>
> Yang ingin saya tanyakan adalah bagaimana bunyi perintah SQL nya (warna
> biru) jika yang ingin ditampilkan adalah *total* per no rek (*bukan
> detail*nya).
>
> Terima kasih.
>
> Salam,
> HK
>
>
>

Wed Sep 30, 2015 8:11 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Mr. Kid,
Terima kasih atas penjelasannya.
Saya coba ganti perintah :sSQL = sSQL & "Select * From " & oLr.Range(1)

dengan
sSQL = sSQL & "Select Account, Description, Sum(Debits) as Total_Debit, Sum(Credits) as Total_Credit From " & oLr.Range(1) & vbCrGROUP BY Account
Ketika macro dijalankan keluar message "Syntax Error" pada huruf yang berwarna merah. Dimana salahnya ya ?
Terima kasih.
Salam,HK

From: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Thursday, 1 October 2015, 8:58
Subject: Re: [belajar-excel] Perintah SQL untuk menggabungkan data sekaligus menjumlahkan

  Hai Pak HK,

1. Query dasar agregat yang memiliki keys (agregat per anything) tanpa filter terhadap hasil agregat
SELECT your_key_columns, your_aggregat_ecpression
FROM your_source
GROUP BY your_key_columns_without_columns_aliasses

contoh : total penjualan per tahun (berdasar tanggal invoice) per produk
SELECT  produk_id, year(tgl_invoice) as tahun, sum(penjualan) as total_jual
FROM dataINV
GROUP BY produk_id, year(tgl_invoice)          --> tanpa aliasses

2. Query dasar UNION [ALL]
Query1
UNION [ALL]
Query2
UNION [ALL]
.
.
UNION [ALL]
QueryN

dengan setiap Query# berupa select query yang memiliki susunan sesuai kebutuhan.
Urutan kolom dan tipe datanya dari setiap Query# adalah tetap, dengan definisi kolom di Query1 yang menjadi nama kolom output

3. Susunan select query dasar
SELECT your_columns [, your_aggregate_expressions]
FROM your_source
[
    [JOIN your_join1 ON your_join1_relations]
    .
    .
    [JOIN your_joinN ON your_joinN_relations]
]
[
    WHERE your_filter_expressions
]
[
    GROUP BY your_columns_except_aggregate_expressions_without_columns_aliasses
    [HAVING your_aggregate_filter_expressions]     --> berisi filter terhadap kolom-kolom agregat, dan bukan terhadap key columns
]

[
     UNION [ALL]
     your_another_query2
     .
     .
     UNION [ALL]
     your_another_queryN
]
[
    ORDER BY your_sort_expressions
]

gunakan klausa ORDER BY secara bijak dan usahakan dihindari kecuali penting sekali diseakhir mungkin suatu proses, karena klausa ORDER BY termasuk computer resources eater

4. source dari query lain (subquery di bagian FROM)
SELECT your_dataset_alias#.your_columns
FROM
     (
         queryS
     ) as your_dataset_alias1
[another query clauses]

queryS bisa berisi select query dasar seperti di-nomor 3 tanpa klausa ORDER BY
subquery suatu query seperti queryS juga bisa diletakkan pada bagian sumber data yang di-JOIN
setiap Query# dalam UNION [ALL] bisa berisi subquery suatu query seperti queryS

-----------------------
Prinsip dasar ber-query :
1. ketahui sumber data yang akan diproses
2. pahami alur komputasi yang dibutuhkan
3. susun query berdasar 1 dan 2
-----------------------

Jadi, menggabungkan data hasil agregat adalah hal yang berbeda dengan mengagregat hasil gabungan data
> menggabungkan data hasil agregat
SELECT your_key_columns, your_aggregate_expressions
FROM your_source1
GROUP BY your_key_columns_without_columns_aliasses

UNION [ALL]
SELECT your_key_columns, your_aggregate_expressions
FROM your_source2
GROUP BY your_key_columns_without_columns_aliasses
.
.
UNION [ALL]
SELECT your_key_columns, your_aggregate_expressions
FROM your_sourceN
GROUP BY your_key_columns_without_columns_aliasses

hasilnya bisa jadi ada your_columns yang sama dengan nilai your_aggregate apa saja jika dengan [ALL] atau ada hasil aggregate yang hilang jika tanpa [ALL]

> mengagregat hasil gabungan dataSELECT your_key_columns, your_aggregate_expressionsFROM
       (

SELECT your_key_columns
FROM your_source1

UNION [ALL]
SELECT your_key_columns
FROM your_source2
.
.
UNION [ALL]
SELECT your_key_columns
FROM your_sourceN

        ) as your_dataset_alias
GROUP BY your_key_columns_without_columns_aliasses
Regard,
Kid

On Wed, Sep 30, 2015 at 5:36 PM, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Dear Be-Excelers,
Berikut adalah perintah Macro yang saya dapat dari internet (file terlampir) untuk menggabungkan data (non unique) dari beberapa file yang ada dalam satu folder (Path),
Sub Consolidate()
    Dim sSQL As String      'SQL String    Dim oLr  As ListRow     'Worksheets Row    Dim cn   As Object      'Connection    Dim rs   As Object      'Recordset
'   Create SQL    For Each oLr In Sheet1.ListObjects("Worksheets").ListRows        If sSQL <> "" Then sSQL = sSQL & vbCr & "Union All" & vbCr 'tidak unik        sSQL = sSQL & "Select * From " & oLr.Range(1)    Next    sSQL = Replace(sSQL, "<Path>", ThisWorkbook.Path)    '   Create Connection Objects    Set cn = CreateObject("ADODB.Connection")    Set rs = CreateObject("ADODB.Recordset")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _            "Data Source=" & ThisWorkbook.FullName & ";" & _            "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"    rs.Open sSQL, cn    Debug.Print sSQL
    If Sheet1.ListObjects.Count > 1 Then Sheet1.ListObjects(2).Delete    Sheet1.ListObjects.Add( _        SourceType:=xlSrcQuery, _        Source:=rs, _        Destination:=Sheet1.Range("C6")).QueryTable.Refresh
    rs.Close    cn.Close
    Set rs = Nothing    Set cn = Nothing
End Sub
Yang ingin saya tanyakan adalah bagaimana bunyi perintah SQL nya (warna biru) jika yang ingin ditampilkan adalah total per no rek (bukan detailnya).
Terima kasih.
Salam,HK


#yiv0784936447 #yiv0784936447 -- #yiv0784936447ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0784936447 #yiv0784936447ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0784936447 #yiv0784936447ygrp-mkp #yiv0784936447hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0784936447 #yiv0784936447ygrp-mkp #yiv0784936447ads {margin-bottom:10px;}#yiv0784936447 #yiv0784936447ygrp-mkp .yiv0784936447ad {padding:0 0;}#yiv0784936447 #yiv0784936447ygrp-mkp .yiv0784936447ad p {margin:0;}#yiv0784936447 #yiv0784936447ygrp-mkp .yiv0784936447ad a {color:#0000ff;text-decoration:none;}#yiv0784936447 #yiv0784936447ygrp-sponsor #yiv0784936447ygrp-lc {font-family:Arial;}#yiv0784936447 #yiv0784936447ygrp-sponsor #yiv0784936447ygrp-lc #yiv0784936447hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0784936447 #yiv0784936447ygrp-sponsor #yiv0784936447ygrp-lc .yiv0784936447ad {margin-bottom:10px;padding:0 0;}#yiv0784936447 #yiv0784936447actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0784936447 #yiv0784936447activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0784936447 #yiv0784936447activity span {font-weight:700;}#yiv0784936447 #yiv0784936447activity span:first-child {text-transform:uppercase;}#yiv0784936447 #yiv0784936447activity span a {color:#5085b6;text-decoration:none;}#yiv0784936447 #yiv0784936447activity span span {color:#ff7900;}#yiv0784936447 #yiv0784936447activity span .yiv0784936447underline {text-decoration:underline;}#yiv0784936447 .yiv0784936447attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0784936447 .yiv0784936447attach div a {text-decoration:none;}#yiv0784936447 .yiv0784936447attach img {border:none;padding-right:5px;}#yiv0784936447 .yiv0784936447attach label {display:block;margin-bottom:5px;}#yiv0784936447 .yiv0784936447attach label a {text-decoration:none;}#yiv0784936447 blockquote {margin:0 0 0 4px;}#yiv0784936447 .yiv0784936447bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0784936447 .yiv0784936447bold a {text-decoration:none;}#yiv0784936447 dd.yiv0784936447last p a {font-family:Verdana;font-weight:700;}#yiv0784936447 dd.yiv0784936447last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0784936447 dd.yiv0784936447last p span.yiv0784936447yshortcuts {margin-right:0;}#yiv0784936447 div.yiv0784936447attach-table div div a {text-decoration:none;}#yiv0784936447 div.yiv0784936447attach-table {width:400px;}#yiv0784936447 div.yiv0784936447file-title a, #yiv0784936447 div.yiv0784936447file-title a:active, #yiv0784936447 div.yiv0784936447file-title a:hover, #yiv0784936447 div.yiv0784936447file-title a:visited {text-decoration:none;}#yiv0784936447 div.yiv0784936447photo-title a, #yiv0784936447 div.yiv0784936447photo-title a:active, #yiv0784936447 div.yiv0784936447photo-title a:hover, #yiv0784936447 div.yiv0784936447photo-title a:visited {text-decoration:none;}#yiv0784936447 div#yiv0784936447ygrp-mlmsg #yiv0784936447ygrp-msg p a span.yiv0784936447yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0784936447 .yiv0784936447green {color:#628c2a;}#yiv0784936447 .yiv0784936447MsoNormal {margin:0 0 0 0;}#yiv0784936447 o {font-size:0;}#yiv0784936447 #yiv0784936447photos div {float:left;width:72px;}#yiv0784936447 #yiv0784936447photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0784936447 #yiv0784936447photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0784936447 #yiv0784936447reco-category {font-size:77%;}#yiv0784936447 #yiv0784936447reco-desc {font-size:77%;}#yiv0784936447 .yiv0784936447replbq {margin:4px;}#yiv0784936447 #yiv0784936447ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0784936447 #yiv0784936447ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0784936447 #yiv0784936447ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0784936447 #yiv0784936447ygrp-mlmsg select, #yiv0784936447 input, #yiv0784936447 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0784936447 #yiv0784936447ygrp-mlmsg pre, #yiv0784936447 code {font:115% monospace;}#yiv0784936447 #yiv0784936447ygrp-mlmsg * {line-height:1.22em;}#yiv0784936447 #yiv0784936447ygrp-mlmsg #yiv0784936447logo {padding-bottom:10px;}#yiv0784936447 #yiv0784936447ygrp-msg p a {font-family:Verdana;}#yiv0784936447 #yiv0784936447ygrp-msg p#yiv0784936447attach-count span {color:#1E66AE;font-weight:700;}#yiv0784936447 #yiv0784936447ygrp-reco #yiv0784936447reco-head {color:#ff7900;font-weight:700;}#yiv0784936447 #yiv0784936447ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0784936447 #yiv0784936447ygrp-sponsor #yiv0784936447ov li a {font-size:130%;text-decoration:none;}#yiv0784936447 #yiv0784936447ygrp-sponsor #yiv0784936447ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0784936447 #yiv0784936447ygrp-sponsor #yiv0784936447ov ul {margin:0;padding:0 0 0 8px;}#yiv0784936447 #yiv0784936447ygrp-text {font-family:Georgia;}#yiv0784936447 #yiv0784936447ygrp-text p {margin:0 0 1em 0;}#yiv0784936447 #yiv0784936447ygrp-text tt {font-size:120%;}#yiv0784936447 #yiv0784936447ygrp-vital ul li:last-child {border-right:none !important;}#yiv0784936447

Wed Sep 30, 2015 8:43 pm (PDT) . Posted by:

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

Pak HK,

*sSQL = sSQL & "Select Account, Description, Sum(Debits) as Total_Debit,
Sum(Credits) as Total_Credit From " & oLr.Range(1) & vbCr & "GROUP BY
Account,Description"*

Regard,
Kid

2015-10-01 10:11 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Mr. Kid,
>
> Terima kasih atas penjelasannya.
>
> Saya coba ganti perintah :
> *sSQL = sSQL & "Select * From " & oLr.Range(1)*
>
> dengan
>
> *sSQL = sSQL & "Select Account, Description, Sum(Debits) as Total_Debit,
> Sum(Credits) as Total_Credit From " & oLr.Range(1) & vbCr*
> *GROUP BY Account*
>
> Ketika macro dijalankan keluar message "Syntax Error" pada huruf yang
> berwarna merah. Dimana salahnya ya ?
>
> Terima kasih.
>
> Salam,
> HK
>
>
> ------------------------------
> *From:* "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Thursday, 1 October 2015, 8:58
> *Subject:* Re: [belajar-excel] Perintah SQL untuk menggabungkan data
> sekaligus menjumlahkan
>
>
> Hai Pak HK,
>
> 1. Query dasar agregat yang memiliki keys (agregat per anything) tanpa
> filter terhadap hasil agregat
> SELECT your_key_columns, your_aggregat_ecpression
> FROM your_source
> GROUP BY your_key_columns_without_columns_aliasses
>
> contoh : total penjualan per tahun (berdasar tanggal invoice) per produk
> SELECT produk_id, year(tgl_invoice) as tahun, sum(penjualan) as total_jual
> FROM dataINV
> GROUP BY produk_id, year(tgl_invoice) --> tanpa aliasses
>
> 2. Query dasar UNION [ALL]
> Query1
> UNION [ALL]
> Query2
> UNION [ALL]
> .
> .
> UNION [ALL]
> QueryN
>
> dengan setiap Query# berupa select query yang memiliki susunan sesuai
> kebutuhan.
> Urutan kolom dan *tipe datanya *dari setiap Query# adalah tetap, dengan
> definisi kolom di Query1 yang menjadi nama kolom output
>
> 3. Susunan select query dasar
> SELECT your_columns [, your_aggregate_expressions]
> FROM your_source
> [
> [JOIN your_join1 ON your_join1_relations]
> .
> .
> [JOIN your_joinN ON your_joinN_relations]
> ]
> [
> WHERE your_filter_expressions
> ]
> [
> GROUP BY
> your_columns_except_aggregate_expressions_without_columns_aliasses
> [HAVING your_aggregate_filter_expressions] --> berisi filter
> terhadap kolom-kolom agregat, dan bukan terhadap key columns
> ]
>
> [
> UNION [ALL]
> your_another_query2
> .
> .
> UNION [ALL]
> your_another_queryN
> ]
> [
> ORDER BY your_sort_expressions
> ]
>
> gunakan klausa ORDER BY secara bijak dan usahakan dihindari kecuali
> penting sekali diseakhir mungkin suatu proses, karena klausa ORDER BY
> termasuk computer resources eater
>
> 4. source dari query lain (subquery di bagian FROM)
> SELECT your_dataset_alias#.your_columns
> FROM
> (
> queryS
> ) as your_dataset_alias1
> [another query clauses]
>
> queryS bisa berisi select query dasar seperti di-nomor 3 tanpa klausa
> ORDER BY
> subquery suatu query seperti queryS juga bisa diletakkan pada bagian
> sumber data yang di-JOIN
> setiap Query# dalam UNION [ALL] bisa berisi subquery suatu query seperti
> queryS
>
> -----------------------
> Prinsip dasar ber-query :
> 1. ketahui sumber data yang akan diproses
> 2. pahami alur komputasi yang dibutuhkan
> 3. susun query berdasar 1 dan 2
> -----------------------
>
> Jadi, *menggabungkan data hasil agregat* adalah hal yang berbeda dengan *mengagregat
> hasil gabungan data*
> > *menggabungkan data hasil agregat *
> SELECT your_key_columns, your_aggregate_expressions
> FROM your_source1
> GROUP BY your_key_columns_without_columns_aliasses
>
> UNION [ALL]
> SELECT your_key_columns, your_aggregate_expressions
> FROM your_source2
> GROUP BY your_key_columns_without_columns_aliasses
> .
> .
> UNION [ALL]
> SELECT your_key_columns, your_aggregate_expressions
> FROM your_sourceN
> GROUP BY your_key_columns_without_columns_aliasses
>
> hasilnya bisa jadi ada your_columns yang sama dengan nilai your_aggregate
> apa saja jika dengan [ALL] atau ada hasil aggregate yang hilang jika tanpa
> [ALL]
>
> > *mengagregat hasil gabungan data*
> SELECT your_key_columns, your_aggregate_expressions
> FROM
> (
>
> SELECT your_key_columns
> FROM your_source1
>
> UNION [ALL]
> SELECT your_key_columns
> FROM your_source2
> .
> .
> UNION [ALL]
> SELECT your_key_columns
> FROM your_sourceN
>
> ) as your_dataset_alias
> GROUP BY your_key_columns_without_columns_aliasses
>
> Regard,
> Kid
>
>
>
>
>
> On Wed, Sep 30, 2015 at 5:36 PM, hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Be-Excelers,
>
> Berikut adalah perintah Macro yang saya dapat dari internet (file
> terlampir) untuk menggabungkan data (non unique) dari beberapa file yang
> ada dalam satu folder (Path),
>
> Sub Consolidate()
>
> Dim sSQL As String 'SQL String
> Dim oLr As ListRow 'Worksheets Row
> Dim cn As Object 'Connection
> Dim rs As Object 'Recordset
>
> ' Create SQL
> For Each oLr In Sheet1.ListObjects("Worksheets").ListRows
> If sSQL <> "" Then sSQL = sSQL & vbCr & "Union All" & vbCr 'tidak
> unik
> * sSQL = sSQL & "Select * From " & oLr.Range(1)*
> Next
> sSQL = Replace(sSQL, "<Path>", ThisWorkbook.Path)
>
> ' Create Connection Objects
> Set cn = CreateObject("ADODB.Connection")
> Set rs = CreateObject("ADODB.Recordset")
>
> cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
> "Data Source=" & ThisWorkbook.FullName & ";" & _
> "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
> rs.Open sSQL, cn
> Debug.Print sSQL
>
> If Sheet1.ListObjects.Count > 1 Then Sheet1.ListObjects(2).Delete
> Sheet1.ListObjects.Add( _
> SourceType:=xlSrcQuery, _
> Source:=rs, _
> Destination:=Sheet1.Range("C6")).QueryTable.Refresh
>
> rs.Close
> cn.Close
>
> Set rs = Nothing
> Set cn = Nothing
>
> End Sub
>
> Yang ingin saya tanyakan adalah bagaimana bunyi perintah SQL nya (warna
> biru) jika yang ingin ditampilkan adalah *total* per no rek (*bukan
> detail*nya).
>
> Terima kasih.
>
> Salam,
> HK
>
>
>
>
>
>

Wed Sep 30, 2015 9:02 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Terima kasih Mr. Kid.
Berhasil....Jadi harus ada tambahan tanda &, ""(string) dan Description (untuk grupnya).
Salam.
HK
From: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Thursday, 1 October 2015, 10:42
Subject: Re: [belajar-excel] Perintah SQL untuk menggabungkan data sekaligus menjumlahkan

  Pak HK,

sSQL = sSQL & "Select Account, Description, Sum(Debits) as Total_Debit, Sum(Credits) as Total_Credit From " & oLr.Range(1) & vbCr & "GROUP BY Account,Description"
Regard,
Kid

2015-10-01 10:11 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Mr. Kid,
Terima kasih atas penjelasannya.
Saya coba ganti perintah :sSQL = sSQL & "Select * From " & oLr.Range(1)

dengan
sSQL = sSQL & "Select Account, Description, Sum(Debits) as Total_Debit, Sum(Credits) as Total_Credit From " & oLr.Range(1) & vbCrGROUP BY Account
Ketika macro dijalankan keluar message "Syntax Error" pada huruf yang berwarna merah. Dimana salahnya ya ?
Terima kasih.
Salam,HK

From: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Thursday, 1 October 2015, 8:58
Subject: Re: [belajar-excel] Perintah SQL untuk menggabungkan data sekaligus menjumlahkan

  Hai Pak HK,

1. Query dasar agregat yang memiliki keys (agregat per anything) tanpa filter terhadap hasil agregat
SELECT your_key_columns, your_aggregat_ecpression
FROM your_source
GROUP BY your_key_columns_without_columns_aliasses

contoh : total penjualan per tahun (berdasar tanggal invoice) per produk
SELECT  produk_id, year(tgl_invoice) as tahun, sum(penjualan) as total_jual
FROM dataINV
GROUP BY produk_id, year(tgl_invoice)          --> tanpa aliasses

2. Query dasar UNION [ALL]
Query1
UNION [ALL]
Query2
UNION [ALL]
.
.
UNION [ALL]
QueryN

dengan setiap Query# berupa select query yang memiliki susunan sesuai kebutuhan.
Urutan kolom dan tipe datanya dari setiap Query# adalah tetap, dengan definisi kolom di Query1 yang menjadi nama kolom output

3. Susunan select query dasar
SELECT your_columns [, your_aggregate_expressions]
FROM your_source
[
    [JOIN your_join1 ON your_join1_relations]
    .
    .
    [JOIN your_joinN ON your_joinN_relations]
]
[
    WHERE your_filter_expressions
]
[
    GROUP BY your_columns_except_aggregate_expressions_without_columns_aliasses
    [HAVING your_aggregate_filter_expressions]     --> berisi filter terhadap kolom-kolom agregat, dan bukan terhadap key columns
]

[
     UNION [ALL]
     your_another_query2
     .
     .
     UNION [ALL]
     your_another_queryN
]
[
    ORDER BY your_sort_expressions
]

gunakan klausa ORDER BY secara bijak dan usahakan dihindari kecuali penting sekali diseakhir mungkin suatu proses, karena klausa ORDER BY termasuk computer resources eater

4. source dari query lain (subquery di bagian FROM)
SELECT your_dataset_alias#.your_columns
FROM
     (
         queryS
     ) as your_dataset_alias1
[another query clauses]

queryS bisa berisi select query dasar seperti di-nomor 3 tanpa klausa ORDER BY
subquery suatu query seperti queryS juga bisa diletakkan pada bagian sumber data yang di-JOIN
setiap Query# dalam UNION [ALL] bisa berisi subquery suatu query seperti queryS

-----------------------
Prinsip dasar ber-query :
1. ketahui sumber data yang akan diproses
2. pahami alur komputasi yang dibutuhkan
3. susun query berdasar 1 dan 2
-----------------------

Jadi, menggabungkan data hasil agregat adalah hal yang berbeda dengan mengagregat hasil gabungan data
> menggabungkan data hasil agregat
SELECT your_key_columns, your_aggregate_expressions
FROM your_source1
GROUP BY your_key_columns_without_columns_aliasses

UNION [ALL]
SELECT your_key_columns, your_aggregate_expressions
FROM your_source2
GROUP BY your_key_columns_without_columns_aliasses
.
.
UNION [ALL]
SELECT your_key_columns, your_aggregate_expressions
FROM your_sourceN
GROUP BY your_key_columns_without_columns_aliasses

hasilnya bisa jadi ada your_columns yang sama dengan nilai your_aggregate apa saja jika dengan [ALL] atau ada hasil aggregate yang hilang jika tanpa [ALL]

> mengagregat hasil gabungan dataSELECT your_key_columns, your_aggregate_expressionsFROM
       (

SELECT your_key_columns
FROM your_source1

UNION [ALL]
SELECT your_key_columns
FROM your_source2
.
.
UNION [ALL]
SELECT your_key_columns
FROM your_sourceN

        ) as your_dataset_alias
GROUP BY your_key_columns_without_columns_aliasses
Regard,
Kid

On Wed, Sep 30, 2015 at 5:36 PM, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Dear Be-Excelers,
Berikut adalah perintah Macro yang saya dapat dari internet (file terlampir) untuk menggabungkan data (non unique) dari beberapa file yang ada dalam satu folder (Path),
Sub Consolidate()
    Dim sSQL As String      'SQL String    Dim oLr  As ListRow     'Worksheets Row    Dim cn   As Object      'Connection    Dim rs   As Object      'Recordset
'   Create SQL    For Each oLr In Sheet1.ListObjects("Worksheets").ListRows        If sSQL <> "" Then sSQL = sSQL & vbCr & "Union All" & vbCr 'tidak unik        sSQL = sSQL & "Select * From " & oLr.Range(1)    Next    sSQL = Replace(sSQL, "<Path>", ThisWorkbook.Path)    '   Create Connection Objects    Set cn = CreateObject("ADODB.Connection")    Set rs = CreateObject("ADODB.Recordset")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _            "Data Source=" & ThisWorkbook.FullName & ";" & _            "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"    rs.Open sSQL, cn    Debug.Print sSQL
    If Sheet1.ListObjects.Count > 1 Then Sheet1.ListObjects(2).Delete    Sheet1.ListObjects.Add( _        SourceType:=xlSrcQuery, _        Source:=rs, _        Destination:=Sheet1.Range("C6")).QueryTable.Refresh
    rs.Close    cn.Close
    Set rs = Nothing    Set cn = Nothing
End Sub
Yang ingin saya tanyakan adalah bagaimana bunyi perintah SQL nya (warna biru) jika yang ingin ditampilkan adalah total per no rek (bukan detailnya).
Terima kasih.
Salam,HK


#yiv6986166267 #yiv6986166267 -- #yiv6986166267ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6986166267 #yiv6986166267ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6986166267 #yiv6986166267ygrp-mkp #yiv6986166267hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6986166267 #yiv6986166267ygrp-mkp #yiv6986166267ads {margin-bottom:10px;}#yiv6986166267 #yiv6986166267ygrp-mkp .yiv6986166267ad {padding:0 0;}#yiv6986166267 #yiv6986166267ygrp-mkp .yiv6986166267ad p {margin:0;}#yiv6986166267 #yiv6986166267ygrp-mkp .yiv6986166267ad a {color:#0000ff;text-decoration:none;}#yiv6986166267 #yiv6986166267ygrp-sponsor #yiv6986166267ygrp-lc {font-family:Arial;}#yiv6986166267 #yiv6986166267ygrp-sponsor #yiv6986166267ygrp-lc #yiv6986166267hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6986166267 #yiv6986166267ygrp-sponsor #yiv6986166267ygrp-lc .yiv6986166267ad {margin-bottom:10px;padding:0 0;}#yiv6986166267 #yiv6986166267actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6986166267 #yiv6986166267activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6986166267 #yiv6986166267activity span {font-weight:700;}#yiv6986166267 #yiv6986166267activity span:first-child {text-transform:uppercase;}#yiv6986166267 #yiv6986166267activity span a {color:#5085b6;text-decoration:none;}#yiv6986166267 #yiv6986166267activity span span {color:#ff7900;}#yiv6986166267 #yiv6986166267activity span .yiv6986166267underline {text-decoration:underline;}#yiv6986166267 .yiv6986166267attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6986166267 .yiv6986166267attach div a {text-decoration:none;}#yiv6986166267 .yiv6986166267attach img {border:none;padding-right:5px;}#yiv6986166267 .yiv6986166267attach label {display:block;margin-bottom:5px;}#yiv6986166267 .yiv6986166267attach label a {text-decoration:none;}#yiv6986166267 blockquote {margin:0 0 0 4px;}#yiv6986166267 .yiv6986166267bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6986166267 .yiv6986166267bold a {text-decoration:none;}#yiv6986166267 dd.yiv6986166267last p a {font-family:Verdana;font-weight:700;}#yiv6986166267 dd.yiv6986166267last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6986166267 dd.yiv6986166267last p span.yiv6986166267yshortcuts {margin-right:0;}#yiv6986166267 div.yiv6986166267attach-table div div a {text-decoration:none;}#yiv6986166267 div.yiv6986166267attach-table {width:400px;}#yiv6986166267 div.yiv6986166267file-title a, #yiv6986166267 div.yiv6986166267file-title a:active, #yiv6986166267 div.yiv6986166267file-title a:hover, #yiv6986166267 div.yiv6986166267file-title a:visited {text-decoration:none;}#yiv6986166267 div.yiv6986166267photo-title a, #yiv6986166267 div.yiv6986166267photo-title a:active, #yiv6986166267 div.yiv6986166267photo-title a:hover, #yiv6986166267 div.yiv6986166267photo-title a:visited {text-decoration:none;}#yiv6986166267 div#yiv6986166267ygrp-mlmsg #yiv6986166267ygrp-msg p a span.yiv6986166267yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6986166267 .yiv6986166267green {color:#628c2a;}#yiv6986166267 .yiv6986166267MsoNormal {margin:0 0 0 0;}#yiv6986166267 o {font-size:0;}#yiv6986166267 #yiv6986166267photos div {float:left;width:72px;}#yiv6986166267 #yiv6986166267photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv6986166267 #yiv6986166267photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6986166267 #yiv6986166267reco-category {font-size:77%;}#yiv6986166267 #yiv6986166267reco-desc {font-size:77%;}#yiv6986166267 .yiv6986166267replbq {margin:4px;}#yiv6986166267 #yiv6986166267ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6986166267 #yiv6986166267ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6986166267 #yiv6986166267ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6986166267 #yiv6986166267ygrp-mlmsg select, #yiv6986166267 input, #yiv6986166267 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6986166267 #yiv6986166267ygrp-mlmsg pre, #yiv6986166267 code {font:115% monospace;}#yiv6986166267 #yiv6986166267ygrp-mlmsg * {line-height:1.22em;}#yiv6986166267 #yiv6986166267ygrp-mlmsg #yiv6986166267logo {padding-bottom:10px;}#yiv6986166267 #yiv6986166267ygrp-msg p a {font-family:Verdana;}#yiv6986166267 #yiv6986166267ygrp-msg p#yiv6986166267attach-count span {color:#1E66AE;font-weight:700;}#yiv6986166267 #yiv6986166267ygrp-reco #yiv6986166267reco-head {color:#ff7900;font-weight:700;}#yiv6986166267 #yiv6986166267ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6986166267 #yiv6986166267ygrp-sponsor #yiv6986166267ov li a {font-size:130%;text-decoration:none;}#yiv6986166267 #yiv6986166267ygrp-sponsor #yiv6986166267ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6986166267 #yiv6986166267ygrp-sponsor #yiv6986166267ov ul {margin:0;padding:0 0 0 8px;}#yiv6986166267 #yiv6986166267ygrp-text {font-family:Georgia;}#yiv6986166267 #yiv6986166267ygrp-text p {margin:0 0 1em 0;}#yiv6986166267 #yiv6986166267ygrp-text tt {font-size:120%;}#yiv6986166267 #yiv6986166267ygrp-vital ul li:last-child {border-right:none !important;}#yiv6986166267

Wed Sep 30, 2015 9:20 pm (PDT) . Posted by:

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

loh...

kan tentang datatype string ada disini
<http://b-excel.blogspot.co.id/2013/07/belajarvba-004-tipe-data-variabel.html>.
Mulai dari cara penyimpanan data teks (string) ke sebuah variabel,
menggabungkan (concatenate) banyak data teks (string), menggabungkan
(concatenate) variabel bertipe string dengan suatu data teks, dan berbagai
contoh lainnya. Termasuk untuk datatype lainnya.

sedangkan untuk penambahan Description, adalah sekedar mengikuti logika.

Coba deh dibayangkan, ada data produk dan tahun pembuatannya, beserta nilai
penjualannya.
Produk Th_Prod Nilai
A 1990 100
A 1990 500
A 2000 300
B 1990 250
B 2015 350
B 2015 150
C 2014 30
C 2014 10

1. Bagaimana hasil total nilai per produk ?
2. Bagaimana hasil total nilai per tahun pembuatan ?
3. Bagaimana hasil total nilai per produk per tahun pembuatan ?
4. Coba buat tabel outputnya secara manual, apa beda dari ke-3 output di
atas ?

5. Bisakah menampilkan total nilai per produk soal nomor 1 di atas tapi
disertai informasi tahun pembuatannya yang per record output nomor 1 hanya
memuat 1 nilai tahun pembuatan tertentu ?

6. Kenapa pada kasus Anda ditambahkan Description ?

dari alur logika di atas, maka muncullah struktur query group by yang
dengan tegas menyatakan bahwa bagian group by diisi dengan your_
*key_columns*_without_columns_aliasses dan *bukan* your_tables_or_views_keys

Regard,
Kid

2015-10-01 11:02 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Terima kasih Mr. Kid.
>
> Berhasil....
> Jadi harus ada tambahan tanda &, ""(string) dan Description (untuk
> grupnya).
>
> Salam.
> HK
>
> ------------------------------
> *From:* "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Thursday, 1 October 2015, 10:42
>
> *Subject:* Re: [belajar-excel] Perintah SQL untuk menggabungkan data
> sekaligus menjumlahkan
>
>
> Pak HK,
>
> *sSQL = sSQL & "Select Account, Description, Sum(Debits) as Total_Debit,
> Sum(Credits) as Total_Credit From " & oLr.Range(1) & vbCr & "GROUP BY
> Account,Description"*
>
> Regard,
> Kid
>
>
>
> 2015-10-01 10:11 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Mr. Kid,
>
> Terima kasih atas penjelasannya.
>
> Saya coba ganti perintah :
> *sSQL = sSQL & "Select * From " & oLr.Range(1)*
>
> dengan
>
> *sSQL = sSQL & "Select Account, Description, Sum(Debits) as Total_Debit,
> Sum(Credits) as Total_Credit From " & oLr.Range(1) & vbCr*
> *GROUP BY Account*
>
> Ketika macro dijalankan keluar message "Syntax Error" pada huruf yang
> berwarna merah. Dimana salahnya ya ?
>
> Terima kasih.
>
> Salam,
> HK
>
>
> ------------------------------
> *From:* "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Thursday, 1 October 2015, 8:58
> *Subject:* Re: [belajar-excel] Perintah SQL untuk menggabungkan data
> sekaligus menjumlahkan
>
>
> Hai Pak HK,
>
> 1. Query dasar agregat yang memiliki keys (agregat per anything) tanpa
> filter terhadap hasil agregat
> SELECT your_key_columns, your_aggregat_ecpression
> FROM your_source
> GROUP BY your_key_columns_without_columns_aliasses
>
> contoh : total penjualan per tahun (berdasar tanggal invoice) per produk
> SELECT produk_id, year(tgl_invoice) as tahun, sum(penjualan) as total_jual
> FROM dataINV
> GROUP BY produk_id, year(tgl_invoice) --> tanpa aliasses
>
> 2. Query dasar UNION [ALL]
> Query1
> UNION [ALL]
> Query2
> UNION [ALL]
> .
> .
> UNION [ALL]
> QueryN
>
> dengan setiap Query# berupa select query yang memiliki susunan sesuai
> kebutuhan.
> Urutan kolom dan *tipe datanya *dari setiap Query# adalah tetap, dengan
> definisi kolom di Query1 yang menjadi nama kolom output
>
> 3. Susunan select query dasar
> SELECT your_columns [, your_aggregate_expressions]
> FROM your_source
> [
> [JOIN your_join1 ON your_join1_relations]
> .
> .
> [JOIN your_joinN ON your_joinN_relations]
> ]
> [
> WHERE your_filter_expressions
> ]
> [
> GROUP BY
> your_columns_except_aggregate_expressions_without_columns_aliasses
> [HAVING your_aggregate_filter_expressions] --> berisi filter
> terhadap kolom-kolom agregat, dan bukan terhadap key columns
> ]
>
> [
> UNION [ALL]
> your_another_query2
> .
> .
> UNION [ALL]
> your_another_queryN
> ]
> [
> ORDER BY your_sort_expressions
> ]
>
> gunakan klausa ORDER BY secara bijak dan usahakan dihindari kecuali
> penting sekali diseakhir mungkin suatu proses, karena klausa ORDER BY
> termasuk computer resources eater
>
> 4. source dari query lain (subquery di bagian FROM)
> SELECT your_dataset_alias#.your_columns
> FROM
> (
> queryS
> ) as your_dataset_alias1
> [another query clauses]
>
> queryS bisa berisi select query dasar seperti di-nomor 3 tanpa klausa
> ORDER BY
> subquery suatu query seperti queryS juga bisa diletakkan pada bagian
> sumber data yang di-JOIN
> setiap Query# dalam UNION [ALL] bisa berisi subquery suatu query seperti
> queryS
>
> -----------------------
> Prinsip dasar ber-query :
> 1. ketahui sumber data yang akan diproses
> 2. pahami alur komputasi yang dibutuhkan
> 3. susun query berdasar 1 dan 2
> -----------------------
>
> Jadi, *menggabungkan data hasil agregat* adalah hal yang berbeda dengan *mengagregat
> hasil gabungan data*
> > *menggabungkan data hasil agregat *
> SELECT your_key_columns, your_aggregate_expressions
> FROM your_source1
> GROUP BY your_key_columns_without_columns_aliasses
>
> UNION [ALL]
> SELECT your_key_columns, your_aggregate_expressions
> FROM your_source2
> GROUP BY your_key_columns_without_columns_aliasses
> .
> .
> UNION [ALL]
> SELECT your_key_columns, your_aggregate_expressions
> FROM your_sourceN
> GROUP BY your_key_columns_without_columns_aliasses
>
> hasilnya bisa jadi ada your_columns yang sama dengan nilai your_aggregate
> apa saja jika dengan [ALL] atau ada hasil aggregate yang hilang jika tanpa
> [ALL]
>
> > *mengagregat hasil gabungan data*
> SELECT your_key_columns, your_aggregate_expressions
> FROM
> (
>
> SELECT your_key_columns
> FROM your_source1
>
> UNION [ALL]
> SELECT your_key_columns
> FROM your_source2
> .
> .
> UNION [ALL]
> SELECT your_key_columns
> FROM your_sourceN
>
> ) as your_dataset_alias
> GROUP BY your_key_columns_without_columns_aliasses
>
> Regard,
> Kid
>
>
>
>
>
> On Wed, Sep 30, 2015 at 5:36 PM, hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Be-Excelers,
>
> Berikut adalah perintah Macro yang saya dapat dari internet (file
> terlampir) untuk menggabungkan data (non unique) dari beberapa file yang
> ada dalam satu folder (Path),
>
> Sub Consolidate()
>
> Dim sSQL As String 'SQL String
> Dim oLr As ListRow 'Worksheets Row
> Dim cn As Object 'Connection
> Dim rs As Object 'Recordset
>
> ' Create SQL
> For Each oLr In Sheet1.ListObjects("Worksheets").ListRows
> If sSQL <> "" Then sSQL = sSQL & vbCr & "Union All" & vbCr 'tidak
> unik
> * sSQL = sSQL & "Select * From " & oLr.Range(1)*
> Next
> sSQL = Replace(sSQL, "<Path>", ThisWorkbook.Path)
>
> ' Create Connection Objects
> Set cn = CreateObject("ADODB.Connection")
> Set rs = CreateObject("ADODB.Recordset")
>
> cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
> "Data Source=" & ThisWorkbook.FullName & ";" & _
> "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
> rs.Open sSQL, cn
> Debug.Print sSQL
>
> If Sheet1.ListObjects.Count > 1 Then Sheet1.ListObjects(2).Delete
> Sheet1.ListObjects.Add( _
> SourceType:=xlSrcQuery, _
> Source:=rs, _
> Destination:=Sheet1.Range("C6")).QueryTable.Refresh
>
> rs.Close
> cn.Close
>
> Set rs = Nothing
> Set cn = Nothing
>
> End Sub
>
> Yang ingin saya tanyakan adalah bagaimana bunyi perintah SQL nya (warna
> biru) jika yang ingin ditampilkan adalah *total* per no rek (*bukan
> detail*nya).
>
> Terima kasih.
>
> Salam,
> HK
>
>
>
>
>
>
>
>
>

Wed Sep 30, 2015 4:33 am (PDT) . Posted by:

"Tjahya Hartono" tjahyahartono

 Dear Master Excel,

Bagaimana caranya mengganti name manager yang refers to nya terkunci seperti ini ya, sehingga pada pivot, nama muridnya yang udah terhapus bila direfresh datanya terupdate sesuai data yang ada, begitu pula dengan data "MENU" yang harusnya WR2 tidak ada masih ada karna tidak bisa dihapus. Mohon petunjuknya, berikut saya sertakan filenya terlampir

Terima kasih

Tjahya

Wed Sep 30, 2015 4:43 am (PDT) . Posted by:

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

Hai Tjahya,

Tentang hal ini ada di disini
<http://excel-mr-kid.blogspot.co.id/2013/04/pivot-table-1-kenalan.html>
pada bagian menata pivot table.
Di Pivot table options pada tab Data, terdapat opsi tentang retain field
yang defaultnya adalah automatic. Pivot table lebih nyaman digunakan jika
opsi ini di set None alias tidak perlu memelihara item yang sudah tidak ada
dalam data source.
Biasanya hal ini dilakukan saat pivot table masih berupa pivot cache alias
belum ada field yang dipasang di bagian Row, Column, Values, maupun Filter
atau Page.

Andaikan pengaturan di atas dilakukan setelah ada field yang diletakkan
pada bagian-bagian tersebut, maka diperlukan proses refresh pivot table.
Terkadang, proses refresh pun tidak berjalan sesuai rencana, sehingga
diperlukan pelepasan semua fields dari setiap bagian pivot, lalu me-refresh
pivot dan memasang kembali.

Wassalam,
Kid

2015-09-30 18:29 GMT+07:00 Tjahya Hartono tjahyahartono@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
>
> Dear Master Excel,
>
>
> Bagaimana caranya mengganti name manager yang refers to nya terkunci
> seperti ini ya, sehingga pada pivot, nama muridnya yang udah terhapus bila
> direfresh datanya terupdate sesuai data yang ada, begitu pula dengan data
> "MENU" yang harusnya WR2 tidak ada masih ada karna tidak bisa dihapus.
> Mohon petunjuknya, berikut saya sertakan filenya terlampir
>
>
>
> Terima kasih
>
>
> Tjahya
>
>
>

Wed Sep 30, 2015 10:23 pm (PDT) . Posted by:

"Tjahya Hartono" tjahyahartono

Mohon maaf Mr Kid saya udah coba hapus, trus belajar dari blog nya Mr, masih belum paham.Bisa dibuatkan urutan2nya membuat pivot yang dinamis, dan bs difilter seperti yang Mr Kid contohkan sebelumnya.sekali lagi, terima kasih atas bantuannya.

Tjahya Hartono
 


Pada Rabu, 30 September 2015 18:43, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Hai Tjahya,

Tentang hal ini ada di disini pada bagian menata pivot table.
Di Pivot table options pada tab Data, terdapat opsi tentang retain field yang defaultnya adalah automatic. Pivot table lebih nyaman digunakan jika opsi ini di set None alias tidak perlu memelihara item yang sudah tidak ada dalam data source.
Biasanya hal ini dilakukan saat pivot table masih berupa pivot cache alias belum ada field yang dipasang di bagian Row, Column, Values, maupun Filter atau Page.

Andaikan pengaturan di atas dilakukan setelah ada field yang diletakkan pada bagian-bagian tersebut, maka diperlukan proses refresh pivot table. Terkadang, proses refresh pun tidak berjalan sesuai rencana, sehingga diperlukan pelepasan semua fields dari setiap bagian pivot, lalu me-refresh pivot dan memasang kembali.

Wassalam,
Kid

2015-09-30 18:29 GMT+07:00 Tjahya Hartono tjahyahartono@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

   Dear Master Excel,

Bagaimana caranya mengganti name manager yang refers to nya terkunci seperti ini ya, sehingga pada pivot, nama muridnya yang udah terhapus bila direfresh datanya terupdate sesuai data yang ada, begitu pula dengan data "MENU" yang harusnya WR2 tidak ada masih ada karna tidak bisa dihapus. Mohon petunjuknya, berikut saya sertakan filenya terlampir

Terima kasih

Tjahya


#yiv2885270661 #yiv2885270661 -- #yiv2885270661ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2885270661 #yiv2885270661ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2885270661 #yiv2885270661ygrp-mkp #yiv2885270661hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2885270661 #yiv2885270661ygrp-mkp #yiv2885270661ads {margin-bottom:10px;}#yiv2885270661 #yiv2885270661ygrp-mkp .yiv2885270661ad {padding:0 0;}#yiv2885270661 #yiv2885270661ygrp-mkp .yiv2885270661ad p {margin:0;}#yiv2885270661 #yiv2885270661ygrp-mkp .yiv2885270661ad a {color:#0000ff;text-decoration:none;}#yiv2885270661 #yiv2885270661ygrp-sponsor #yiv2885270661ygrp-lc {font-family:Arial;}#yiv2885270661 #yiv2885270661ygrp-sponsor #yiv2885270661ygrp-lc #yiv2885270661hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2885270661 #yiv2885270661ygrp-sponsor #yiv2885270661ygrp-lc .yiv2885270661ad {margin-bottom:10px;padding:0 0;}#yiv2885270661 #yiv2885270661actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2885270661 #yiv2885270661activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2885270661 #yiv2885270661activity span {font-weight:700;}#yiv2885270661 #yiv2885270661activity span:first-child {text-transform:uppercase;}#yiv2885270661 #yiv2885270661activity span a {color:#5085b6;text-decoration:none;}#yiv2885270661 #yiv2885270661activity span span {color:#ff7900;}#yiv2885270661 #yiv2885270661activity span .yiv2885270661underline {text-decoration:underline;}#yiv2885270661 .yiv2885270661attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2885270661 .yiv2885270661attach div a {text-decoration:none;}#yiv2885270661 .yiv2885270661attach img {border:none;padding-right:5px;}#yiv2885270661 .yiv2885270661attach label {display:block;margin-bottom:5px;}#yiv2885270661 .yiv2885270661attach label a {text-decoration:none;}#yiv2885270661 blockquote {margin:0 0 0 4px;}#yiv2885270661 .yiv2885270661bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2885270661 .yiv2885270661bold a {text-decoration:none;}#yiv2885270661 dd.yiv2885270661last p a {font-family:Verdana;font-weight:700;}#yiv2885270661 dd.yiv2885270661last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2885270661 dd.yiv2885270661last p span.yiv2885270661yshortcuts {margin-right:0;}#yiv2885270661 div.yiv2885270661attach-table div div a {text-decoration:none;}#yiv2885270661 div.yiv2885270661attach-table {width:400px;}#yiv2885270661 div.yiv2885270661file-title a, #yiv2885270661 div.yiv2885270661file-title a:active, #yiv2885270661 div.yiv2885270661file-title a:hover, #yiv2885270661 div.yiv2885270661file-title a:visited {text-decoration:none;}#yiv2885270661 div.yiv2885270661photo-title a, #yiv2885270661 div.yiv2885270661photo-title a:active, #yiv2885270661 div.yiv2885270661photo-title a:hover, #yiv2885270661 div.yiv2885270661photo-title a:visited {text-decoration:none;}#yiv2885270661 div#yiv2885270661ygrp-mlmsg #yiv2885270661ygrp-msg p a span.yiv2885270661yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2885270661 .yiv2885270661green {color:#628c2a;}#yiv2885270661 .yiv2885270661MsoNormal {margin:0 0 0 0;}#yiv2885270661 o {font-size:0;}#yiv2885270661 #yiv2885270661photos div {float:left;width:72px;}#yiv2885270661 #yiv2885270661photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2885270661 #yiv2885270661photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2885270661 #yiv2885270661reco-category {font-size:77%;}#yiv2885270661 #yiv2885270661reco-desc {font-size:77%;}#yiv2885270661 .yiv2885270661replbq {margin:4px;}#yiv2885270661 #yiv2885270661ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2885270661 #yiv2885270661ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2885270661 #yiv2885270661ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2885270661 #yiv2885270661ygrp-mlmsg select, #yiv2885270661 input, #yiv2885270661 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2885270661 #yiv2885270661ygrp-mlmsg pre, #yiv2885270661 code {font:115% monospace;}#yiv2885270661 #yiv2885270661ygrp-mlmsg * {line-height:1.22em;}#yiv2885270661 #yiv2885270661ygrp-mlmsg #yiv2885270661logo {padding-bottom:10px;}#yiv2885270661 #yiv2885270661ygrp-msg p a {font-family:Verdana;}#yiv2885270661 #yiv2885270661ygrp-msg p#yiv2885270661attach-count span {color:#1E66AE;font-weight:700;}#yiv2885270661 #yiv2885270661ygrp-reco #yiv2885270661reco-head {color:#ff7900;font-weight:700;}#yiv2885270661 #yiv2885270661ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2885270661 #yiv2885270661ygrp-sponsor #yiv2885270661ov li a {font-size:130%;text-decoration:none;}#yiv2885270661 #yiv2885270661ygrp-sponsor #yiv2885270661ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2885270661 #yiv2885270661ygrp-sponsor #yiv2885270661ov ul {margin:0;padding:0 0 0 8px;}#yiv2885270661 #yiv2885270661ygrp-text {font-family:Georgia;}#yiv2885270661 #yiv2885270661ygrp-text p {margin:0 0 1em 0;}#yiv2885270661 #yiv2885270661ygrp-text tt {font-size:120%;}#yiv2885270661 #yiv2885270661ygrp-vital ul li:last-child {border-right:none !important;}#yiv2885270661

Wed Sep 30, 2015 10:28 pm (PDT) . Posted by:

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

Maaf, saya ndak paham...
Contoh pivot yang mana ya ?

On Thu, Oct 1, 2015 at 12:18 PM, Tjahya Hartono tjahyahartono@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Mohon maaf Mr Kid saya udah coba hapus, trus belajar dari blog nya Mr,
> masih belum paham.
> Bisa dibuatkan urutan2nya membuat pivot yang dinamis, dan bs difilter
> seperti yang Mr Kid contohkan sebelumnya.
> sekali lagi, terima kasih atas bantuannya.
>
>
> Tjahya Hartono
>
>
>
>
>
> Pada Rabu, 30 September 2015 18:43, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hai Tjahya,
>
> Tentang hal ini ada di disini
> <http://excel-mr-kid.blogspot.co.id/2013/04/pivot-table-1-kenalan.html>
> pada bagian menata pivot table.
> Di Pivot table options pada tab Data, terdapat opsi tentang retain field
> yang defaultnya adalah automatic. Pivot table lebih nyaman digunakan jika
> opsi ini di set None alias tidak perlu memelihara item yang sudah tidak ada
> dalam data source.
> Biasanya hal ini dilakukan saat pivot table masih berupa pivot cache alias
> belum ada field yang dipasang di bagian Row, Column, Values, maupun Filter
> atau Page.
>
> Andaikan pengaturan di atas dilakukan setelah ada field yang diletakkan
> pada bagian-bagian tersebut, maka diperlukan proses refresh pivot table.
> Terkadang, proses refresh pun tidak berjalan sesuai rencana, sehingga
> diperlukan pelepasan semua fields dari setiap bagian pivot, lalu me-refresh
> pivot dan memasang kembali.
>
> Wassalam,
> Kid
>
>
>
>
> 2015-09-30 18:29 GMT+07:00 Tjahya Hartono tjahyahartono@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear Master Excel,
>
>
> Bagaimana caranya mengganti name manager yang refers to nya terkunci
> seperti ini ya, sehingga pada pivot, nama muridnya yang udah terhapus bila
> direfresh datanya terupdate sesuai data yang ada, begitu pula dengan data
> "MENU" yang harusnya WR2 tidak ada masih ada karna tidak bisa dihapus.
> Mohon petunjuknya, berikut saya sertakan filenya terlampir
>
>
>
> Terima kasih
>
>
> Tjahya
>
>
>
>
>
>

Wed Sep 30, 2015 11:20 am (PDT) . Posted by:

"De Premor" de.premor

Cara yang sama dengan pak DD

cuman beda dikit aja :D

On 28/09/2015 11:55, Samsudin samsudin@bayan.com.sg [belajar-excel] wrote:
> Dear Mr. DD,
>
> Terima kasih atas pencerahannya dan hal sangat membantu.
>
>
> Hormat saya,
>
> Samsudin
> 08112810068
>
> Dikirim dari perangkat Samsung E7 saya
>
>
> -------- Pesan asli --------
> Dari: "'Dede Sulaeman' pmaho_log4@pinusmerahabadi.co.id
> [belajar-excel]" <belajar-excel@yahoogroups.com>
> Tanggal: 28/09/2015 12:37 (GMT+08:00)
> Ke: belajar-excel@yahoogroups.com
> Subjek: RE: [belajar-excel] Absensi [1 Attachment]
>
> Dear Mr Samsudin,
>
> See Attach, semoga dapat membantu.
>
> Salam,
>
> DD
>
> *From:*belajar-excel@yahoogroups.com
> [mailto:belajar-excel@yahoogroups.com]
> *Sent:* 26 September 2015 13:28
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] Absensi [1 Attachment]
>
> Dear Master Excel,
>
> Mohon bantuannya untuk masalah saya seperti file terlampir.
>
> Terima kasih atas pencerahannya.
>
> *Hormat saya,*
>
> **
>
> *Samsudin*
>
> ----------------------------------------------------------
>
>
> This message (including any attachments) contains confidential information intended
> for a specific individual and purpose, and is protected by law. If you are not the
> intended recipient, you should delete this message and hereby notified that any
> disclosure, copying, or distribution of this message (or any part thereof), or the
> taking of any action based on it, is strictly prohibited. No liability or responsibility
> is accepted if information or data is, for whatever reason corrupted or does not reach
> its intended recipient. No warranty is given that this email is free of viruses. The
> views expressed in this email are, unless otherwise stated, those of the author and
> not those of the Company or its management. The Company reserves the right to monitor,
> intercept and block emails addressed to its users or take any other action in accordance
> with its email use policy.
>
> ----------------------------------------------------------
>
> This message (including any attachments) contains confidential information intended
> for a specific individual and purpose, and is protected by law. If you are not the
> intended recipient, you should delete this message and hereby notified that any
> disclosure, copying, or distribution of this message (or any part thereof), or the
> taking of any action based on it, is strictly prohibited. No liability or responsibility
> is accepted if information or data is, for whatever reason corrupted or does not reach
> its intended recipient. No warranty is given that this email is free of viruses. The
> views expressed in this email are, unless otherwise stated, those of the author and
> not those of the Company or its management. The Company reserves the right to monitor,
> intercept and block emails addressed to its users or take any other action in accordance
> with its email use policy.
>
>

Wed Sep 30, 2015 6:20 pm (PDT) . Posted by:

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

Hai Samsudin,

File terlampir contoh penggunaan Left, Right, dan Substitute.
Syarat dan ketentuan berlaku.

Wassalam,
Kid

On Sat, Sep 26, 2015 at 1:27 PM, Samsudin samsudin@bayan.com.sg
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Dear Master Excel,
>
>
>
> Mohon bantuannya untuk masalah saya seperti file terlampir.
>
>
>
> Terima kasih atas pencerahannya.
>
>
>
> *Hormat saya,*
>
>
>
> *Samsudin*
>
>
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------
READ MORE....