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
>
>
>
re-copyke sheet2.xlsx
Description: MS-Excel 2007 spreadsheet
