Wa'alaikumussalam wr wb
Hai Fahmi,
Semoga yang tercerna segera mendarah daging ya...
Bagaimana kalau bagian pivot table nya tidak dipikirkan dulu. Maksudnya,
seluruh output-nya tidak perlu dipikirkan dulu, karena sedang fokus mencoba
menyusun data yang baik.
Jadi, formula sederhana yang ada file lampiran tempo lalu di sheet RAW bisa
segera dipahami tujuannya bukan ?
Bagaimana kalau kemudian mencoba membuat VBA untuk proses :
> filter data di sheet RAW pada kolom terakhir, dengan kriteria yang
bernilai lebih dari 0.
* penataan agar kolom terakhir selalu menjadi acuan filter agar bisa
lebih fleksibel kedepannya ketika sumber data membutuhkan penambahan kolom,
kolom data hasil formula juga bertambah, tetapi kolom terakhir tetap
sebagai acuan filter
Bagian itu dulu deh...
Boleh di-share di milis.
Setelah itu nanti baru proses berikutnya untuk memilih area kolom yang
berformula pada hasil filter.
Wassalamu'alaikum wr wb
Kid
P.S.
Semua BeExceller boleh mencoba dan share ke milis hasil uji cobanya.
2018-02-15 8:31 GMT+07:00 Fahmi Syaifullah fahmisyaifulla...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> assalamu'alaikum wr.wb
>
> maaf om kid baru bisa respon emailnya.
> terima kasih om kid atas responya.
> saya butuh waktu untuk mencernanya . hhehee
> soalnya pivot table belum biasa om, saya biasa pakai rumus soalnya.
> kenapa database bisa berderet kebawah bgto karna memang saya menggunakan
> fungsi
> (small if) yang merujuk ke jurnal umumnya. sehingga satu2 akun bisa masuk
> ke d dan k nah menghilangkan data kosongnya yang diakibatkan oleh fungsi
> small if itu saya pakai filter (dengan mencek blanks).
> masih belom kenalanan sama pivot yang lebih mendalam om. hehee
>
> terima kasih om kid dan Beexceler
> wassalamu'alaikum wr.wb
> fahmi
>
>
>
> Pada Rabu, 14 Februari 2018 11:50, "'Mr. Kid' mr.nm...@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Fahmi,
>
> Bagaimana jika dari raw data tersebut disusun jadi tabel data berkaidah
> tabel database lebih dulu ?
> Excel table object dengan formula bisa membantu penyusunannya.
> Misal sheetnya diberi nama Raw
> Setelah itu, hasil Excel table object penyusun tabel data pada kolom
> tertentu yang berformula, di filter lalu di-copy. Paste values ke sheet
> data di record baru.
> Sebaiknya, tabel di sheet data juga dibentuk sebagai Excel Table object.
> Kemudian, pivot table yang sudah dibuat merujuk ke excel table object di
> sheet data bisa di-refresh.
> Contoh seperti file terlampir (tanpa otomasi).
> *** Kalau sudah bisa membuat proses tanpa otomasi yang cukup efisien,
> barulah memikirkan otomasinya.
> *** silakan diubah dan dikembangkan sesuai kebutuhan
> *** bisa jadi nantinya ada kebutuhan terhadap tabel-tabel referensi
>
> Lalu buat otomasinya berisi :
> 1. di sheet Raw, excel table object yang ada dibuang isinya.
> 2. buka file sumber data, copy data, paste values ke sheet raw di record
> pertama excel table object penyusun tabel data
> 3. copy record di kolom tertentu dari sheet raw, paste values ke baris
> kosong pertama di sheet data (menjadi record baru excel table object di
> sheet data)
> 4. refresh all workbook
> *** silakan dibuat sendiri ya...
> *** mode pelit ber-VBA ON (biar pada tambah pinter, bagi yang mau)
>
> Kalau saya,
> sheet raw adalah hasil get externnal data ke file sumber data yang lokasi
> (folder) dan nama filenya tetap.
> Jadi, ada file bernama sumber_data.xlsx sheet bernama 'apalah gitu yang
> tetap' berisi data seperti sheet1 Anda.
> Sheet raw dibuat data connection menggunakan fitur get external data.
> Lengkapi tabel hasil koneksi data dengan formula penyusun tabel data (toh
> cuma sekali buat untuk selamanya).
> Lalu buat sheet data dengan header yang sama dengan header kolom-kolom
> berformula di sheet raw tadi (ini juga sekali buat untuk selamanya)
> Lalu buat sheet baru untuk template report, berisi pivot table merujuk ke
> excel table di sheet data (ini juga sekali buat untuk selamanya)
>
> Setelah itu barulah buat otomasinya, yang berisi :
> 1. refresh query table di sheet raw (gak perlu bikin script buka workbook
> sumber_data.xlsx copy lalu tutup tanpa save)
> 2. filter sheet raw, copy hasil filter di kolom tertentu yang berisi
> formula tadi, paste values ke sheet data di cells kosong dibawah excel
> table data yang ada
> 3. refresh semua pivot tables (refresh all juga tidak mengapa, toh
> sumber_data.xlsx juga tidak besar.
>
> *** sila kalau mau dicoba...
>
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2018-02-14 9:56 GMT+07:00 Fahmi Syaifullah fahmisyaifulla...@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> assalamu'alaikum wr.wb
>
> selamat pagi BeExceler.
>
> mau tanya saya sudah membuat cekrip seperti dibawah ini
>
>
> On Error Resume Next
> Selection.Copy
> Worksheets.Add
> ActiveSheet.Name = "sheet2"
> Sheets("Sheet2").Select
> If Range("A2").Value = "" Then
> Range("A2").Select
> Else
> Range("A2").End(xlToRight). Select
> ActiveCell.Offset(0, 2).Select
> End If
> ActiveSheet.Paste
> Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
> SkipBlanks:=False, Transpose:=False
> Sheets("sheet1").Select
> Selection.Delete Shift:=xlUp
> End Sub
>
> niatnya saya ingin mengkopi data yang di sheet 1 ke sheet 2 dengan
> memisahkan perbulan (ada akun yang berbeda dan bulan) menjadikan 1 tahun
> dengan masing2 akun.
> sebelumnya ini pertanyaan saya yang lanjutan kemaren dengan om kid masalah
> filter dan delete itu.
> saya coba dengan menggunakan VBA . tapi saya belom bisa untuk mempaste ke
> samping terus2an
> saya ingin mencoba attribut *For Next* untuk perkalian yang warna biru
> (angka 2) " ActiveCell.Offset(0, 2).Select "
> agar data selalu menyamping kearah kanan . tapi nanti yang di ulang adalah
> bagian selection.copynya.
> karna selection.copy saya sesuaikan dengan data yang ingin saya copy.
> sebenarnya ada kreterianya hanya saja saya belum mahir.
>
> mohon bantuannya BeExceler.
> maaf mengganggu waktunya.
>
> wassalamu'alaikum wr.wb
>
> terima kasih.
> fahmi
>
>
>
>
>
>
