Cara MengCopy/Mentransfer Data Dengan Kreteria Tertentu Ke Sheet Yang Berbeda Menurut Kreteria Masing-Masing

Sudah beberapa bulan tidak update pembahasan VBA Excel diblog tercinta ini, dikarena sedikit kesibukan, sehingga saya tidak menyisakan waktu sama sekali untuk berbagi di blog ini.

Rasa kangen terhadap blog ini saya luapkan dengan mengubah tampilan dengan template yang lebih ringan dari sebelumnya, Ya..!! biar mudah dan agar tidak lambat loading saat mengakses oleh pembaca yang mencari ilmu tentang Vba yang saya tuliskan disini.

Cara MengCopy/Mentransfer Data Dengan Kreteria 

Terimakasih kepada Master blogger musdeoranje.net Yang telah merekomendasikan template ini untuk saya pakai. Sebenarnya saya lebih menyukai tempilan sebelumnya. 

Namun untuk kenyamanan para pembaca saya merelakan selera saya untuk saya tinggalkan. Chiiee.. Chiiee...!! 

Kembali fokus ke Pembahasan VBA Excel..!! Pada kesempatan ini saya akan membeberkan Cara Copy Data atau Transfer Data Dengan Kreteria Tertentu Ke Sheet Yang Berbeda-beda menurut kreteria masing-masing. Anda dapat memperhatikan gambar format gif dibawah agar dapat lebih cepat memahami tujuan dari posting ini.

Pada gambar gif dibawah terdapat Sheet "Data" yang merupakan sumber data yang akan kita Copy. Perhatikan kolom dengan judul headernya Kelas, terdapat isian kelas 7-A, 8-A, dan 9-A dalam kolomnya. Berdasarkan isian kelas tersebut kita akan mengambil datanya dan mentranfer ke masing-masing sheet lain berdasarkan kelasnya.

Jadi Setiap data Kelas 7-A akan di Transfer ke Sheet dengan "7-A", data Kelas 8-A akan ditransfer ke Sheet "8-A" dan Kelas 9-A akan di transfer ke Sheet "9-A".


Langkah-langkah Cara Copy/Transfer Data Dengan Kreteria Tertentu Ke Sheet Yang Berbeda Menurut Kreteria Masing-Masing sebagai berikut :
  • Buka Excel, bikin table dan masukkan data seperti yang terlihat pada gambar dan ubah nama "Sheet1" menjadi "Data". Untuk sheet lainnya bikin nama sheet "7-A", "8-A" dan "9-A". Save File Excel dalam format Enable Macro atau Binary.
  • Selanjutnya Klik Developer, pilih Insert dan pilih Button di Form Controls dan sesuaikan ukuran dan letakknya. Edit nama button dengan nama "TRANFER DATA".
  • Klik kanan pada tombol TRANSFER DATA pilih New dan masukkan Code berikut ini di modulnya.

Sub copyPasteData()
 
    Dim strSourceSheet As String
    Dim strDestinationSheet As String
    Dim lastRow As Long
 
    strSourceSheet = "Data"
 
    Sheets(strSourceSheet).Visible = True
    Sheets(strSourceSheet).Select
 
    Range("C2").Select
    Do While ActiveCell.Value <> ""
        strDestinationSheet = ActiveCell.Value
        ActiveCell.Offset(0, -2).Resize(1, ActiveCell.CurrentRegion.Columns.Count).Select
        Selection.Copy
        Sheets(strDestinationSheet).Visible = True
        Sheets(strDestinationSheet).Select
        lastRow = LastRowInOneColumn("A")
        Cells(lastRow + 1, 1).Select
        Selection.PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Sheets(strSourceSheet).Select
        ActiveCell.Offset(0, 2).Select
        ActiveCell.Offset(1, 0).Select
    Loop
MsgBox ("Transfer Data Ke Masing-Masing Sheet Kelas Selesai")
End Sub


Public Function LastRowInOneColumn(col)
    Dim lastRow As Long
    With ActiveSheet
    lastRow = .Cells(.Rows.Count, col).End(xlUp).Row
    End With
    LastRowInOneColumn = lastRow
End Function


  • Selesai..!! Uji aplikasi dengan klik Run atau dengan menekan tombol F5 pada keyboard. Bila perancangan dan penempatan kode sudah anda ikuti dengan benar maka aplikasi akan berjalan seperti yang terlihat pada gambar gif diatas.

Demikian posting tentang Cara MengCopy/Mentransfer Data Dengan Kreteria Tertentu Ke Sheet Yang Berbeda Menurut Kreteria Masing-Masing.

Semoga dapat dijadikan acuan dan referensi dalam membuat aplikasi berbasis Excel Vba. 




Berlangganan update artikel terbaru via email:

14 Responses to "Cara MengCopy/Mentransfer Data Dengan Kreteria Tertentu Ke Sheet Yang Berbeda Menurut Kreteria Masing-Masing"

  1. ada file contoh gak om? sy coba error trus... :p

    ReplyDelete
    Replies
    1. File contoh ada kang..!! kirimkan alamat emailnya yeah..!! biar saya kirimkan.
      terimkasih sudahberkunjung..

      Delete
    2. seruiavolution@gmail.com
      makasih sebelumnya Bang... (o)

      Delete
  2. ada file contoh gak om? sy coba error trus...

    ReplyDelete
    Replies
    1. Silahkan tuliskan emailnya Om.. Biar saya krimkan... !!!

      Delete
  3. Gan mo tanya, klo pakai rumus ini apakah file yang dipindahkan itu jika ada ada penambahan data, dan jika dipindahkan akan masuk ke masing2 tempat dan menambah data sebelumnya?

    lalu apakah bia dibuatkan misalkan:
    jika dipindahkan stock, maka dari hasil pemindahan tersebut sudah tercantum otomatis total dari stock tersebut.
    maaf kata2nya mungkin kurang dimengerti :D

    ReplyDelete
    Replies
    1. dicoba ajha gan... Dengan mencobalah kita akan tau hasilnya...

      Delete
  4. gan, minta contohnya dong,, soalnya belum mudeng...

    ReplyDelete
    Replies
    1. Sudah ada tu link donwnlod filenya..!! silahkan disedot..

      Delete
  5. Gan bagaimana coding nya jika source datanya terletak pada file yang berbeda? Sedangkan buton Transfer Data terletak pada DestinationSheetnya.Mohon pencerahannya. Thx.

    ReplyDelete
  6. Gan minta pnjelasan scripnya dong, saya mau copy tapi kelasnya ada di kolom ke 5

    ReplyDelete
    Replies
    1. di coba Range("C2").Select diganti dengan range letak kelasnya.!!

      Delete
  7. Dear admin.. klo supaya header/judulnya ikut gimana caranya? Terus bisa ga otomatis bikin sheet baru dan langsung dinamai A-7 gitu..? Terima kasih

    ReplyDelete
    Replies
    1. bisa saja... Mungkin bisa digabung dengan kode create new workbook.. Namun bleom pernah nyoba..

      Delete

Komentar Anda Sangat Menentukan Kelangsungan Blog ini

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel