Re: [belajar-excel] kopi ke samping

['Mr. Kid' mr.nm...@gmail.com [belajar-excel]]

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] :

>
>
> 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]"  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] :
>
>
> 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
> 

Bls: [belajar-excel] kopi ke samping

[Fahmi Syaifullah fahmisyaifulla...@yahoo.com [belajar-excel]]

assalamu'alaikum wr.wb
maaf om kid baru bisa respon emailnya.terima kasih om kid atas responya.saya 
butuh waktu untuk mencernanya . hheheesoalnya 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 Beexcelerwassalamu'alaikum wr.wbfahmi
 

Pada Rabu, 14 Februari 2018 11:50, "'Mr. Kid' mr.nm...@gmail.com 
[belajar-excel]"  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] :

  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   

  #yiv1014958516 #yiv1014958516 -- #yiv1014958516ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1014958516 

Re: [belajar-excel] kopi ke samping

['Mr. Kid' mr.nm...@gmail.com [belajar-excel]]

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] :

>
>
> 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

[belajar-excel] kopi ke samping

[Fahmi Syaifullah fahmisyaifulla...@yahoo.com [belajar-excel]]

 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

copyke sheet2.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12