[belajar-excel] kopi ke samping

classic Classic list List threaded Threaded
5 messages Options
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] kopi ke samping

fahmi syaifullah
 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 (33K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] kopi ke samping

Kid
Administrator
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 [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> 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 (82K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

Bls: [belajar-excel] kopi ke samping

fahmi syaifullah
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' [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]>:

      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 #yiv1014958516ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1014958516 #yiv1014958516ygrp-mkp #yiv1014958516hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1014958516 #yiv1014958516ygrp-mkp #yiv1014958516ads {margin-bottom:10px;}#yiv1014958516 #yiv1014958516ygrp-mkp .yiv1014958516ad {padding:0 0;}#yiv1014958516 #yiv1014958516ygrp-mkp .yiv1014958516ad p {margin:0;}#yiv1014958516 #yiv1014958516ygrp-mkp .yiv1014958516ad a {color:#0000ff;text-decoration:none;}#yiv1014958516 #yiv1014958516ygrp-sponsor #yiv1014958516ygrp-lc {font-family:Arial;}#yiv1014958516 #yiv1014958516ygrp-sponsor #yiv1014958516ygrp-lc #yiv1014958516hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1014958516 #yiv1014958516ygrp-sponsor #yiv1014958516ygrp-lc .yiv1014958516ad {margin-bottom:10px;padding:0 0;}#yiv1014958516 #yiv1014958516actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1014958516 #yiv1014958516activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1014958516 #yiv1014958516activity span {font-weight:700;}#yiv1014958516 #yiv1014958516activity span:first-child {text-transform:uppercase;}#yiv1014958516 #yiv1014958516activity span a {color:#5085b6;text-decoration:none;}#yiv1014958516 #yiv1014958516activity span span {color:#ff7900;}#yiv1014958516 #yiv1014958516activity span .yiv1014958516underline {text-decoration:underline;}#yiv1014958516 .yiv1014958516attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1014958516 .yiv1014958516attach div a {text-decoration:none;}#yiv1014958516 .yiv1014958516attach img {border:none;padding-right:5px;}#yiv1014958516 .yiv1014958516attach label {display:block;margin-bottom:5px;}#yiv1014958516 .yiv1014958516attach label a {text-decoration:none;}#yiv1014958516 blockquote {margin:0 0 0 4px;}#yiv1014958516 .yiv1014958516bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1014958516 .yiv1014958516bold a {text-decoration:none;}#yiv1014958516 dd.yiv1014958516last p a {font-family:Verdana;font-weight:700;}#yiv1014958516 dd.yiv1014958516last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1014958516 dd.yiv1014958516last p span.yiv1014958516yshortcuts {margin-right:0;}#yiv1014958516 div.yiv1014958516attach-table div div a {text-decoration:none;}#yiv1014958516 div.yiv1014958516attach-table {width:400px;}#yiv1014958516 div.yiv1014958516file-title a, #yiv1014958516 div.yiv1014958516file-title a:active, #yiv1014958516 div.yiv1014958516file-title a:hover, #yiv1014958516 div.yiv1014958516file-title a:visited {text-decoration:none;}#yiv1014958516 div.yiv1014958516photo-title a, #yiv1014958516 div.yiv1014958516photo-title a:active, #yiv1014958516 div.yiv1014958516photo-title a:hover, #yiv1014958516 div.yiv1014958516photo-title a:visited {text-decoration:none;}#yiv1014958516 div#yiv1014958516ygrp-mlmsg #yiv1014958516ygrp-msg p a span.yiv1014958516yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1014958516 .yiv1014958516green {color:#628c2a;}#yiv1014958516 .yiv1014958516MsoNormal {margin:0 0 0 0;}#yiv1014958516 o {font-size:0;}#yiv1014958516 #yiv1014958516photos div {float:left;width:72px;}#yiv1014958516 #yiv1014958516photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv1014958516 #yiv1014958516photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1014958516 #yiv1014958516reco-category {font-size:77%;}#yiv1014958516 #yiv1014958516reco-desc {font-size:77%;}#yiv1014958516 .yiv1014958516replbq {margin:4px;}#yiv1014958516 #yiv1014958516ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1014958516 #yiv1014958516ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1014958516 #yiv1014958516ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1014958516 #yiv1014958516ygrp-mlmsg select, #yiv1014958516 input, #yiv1014958516 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1014958516 #yiv1014958516ygrp-mlmsg pre, #yiv1014958516 code {font:115% monospace;}#yiv1014958516 #yiv1014958516ygrp-mlmsg * {line-height:1.22em;}#yiv1014958516 #yiv1014958516ygrp-mlmsg #yiv1014958516logo {padding-bottom:10px;}#yiv1014958516 #yiv1014958516ygrp-msg p a {font-family:Verdana;}#yiv1014958516 #yiv1014958516ygrp-msg p#yiv1014958516attach-count span {color:#1E66AE;font-weight:700;}#yiv1014958516 #yiv1014958516ygrp-reco #yiv1014958516reco-head {color:#ff7900;font-weight:700;}#yiv1014958516 #yiv1014958516ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1014958516 #yiv1014958516ygrp-sponsor #yiv1014958516ov li a {font-size:130%;text-decoration:none;}#yiv1014958516 #yiv1014958516ygrp-sponsor #yiv1014958516ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1014958516 #yiv1014958516ygrp-sponsor #yiv1014958516ov ul {margin:0;padding:0 0 0 8px;}#yiv1014958516 #yiv1014958516ygrp-text {font-family:Georgia;}#yiv1014958516 #yiv1014958516ygrp-text p {margin:0 0 1em 0;}#yiv1014958516 #yiv1014958516ygrp-text tt {font-size:120%;}#yiv1014958516 #yiv1014958516ygrp-vital ul li:last-child {border-right:none !important;}#yiv1014958516

   
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] kopi ke samping

Kid
Administrator
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 [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> 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' [hidden email]
> [belajar-excel]" <[hidden email]> 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 [hidden email]
> [belajar-excel] <[hidden email]>:
>
>
> 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
>
>
>
>
>
>
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] kopi ke samping

Sony Ario
In reply to this post by fahmi syaifullah
Halo Fahmi,

Saya cuma bantu sekedar nya saja atas dasar email Mr. Kid.

Di file terlampir datanya saya coba rapihkan sedikit. Sehingga berkaidah
database.
Lalu dibuat Pivot Table.

Kalau sudah jadi Pivot Table, kalau memisahkan per tanggal per sheet bisa
gunakan menu "Show Report Filter Pages" dibawah menu Analyze.

Maaf kalau masih belum terjawab.



*gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*

2018-02-14 9:56 GMT+07:00 Fahmi Syaifullah [hidden email]
[belajar-excel] <[hidden email]>:

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

CopyKeSamping_Rev1.xlsx (18K) Download Attachment
SheetPerTanggal.jpg (227K) Download Attachment
ShowReportFilter.jpg (120K) Download Attachment