Saturday, February 11, 2017

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.

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. 




7 komentar

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

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

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

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

Silahkan tuliskan emailnya Om.. Biar saya krimkan... !!!

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

dicoba ajha gan... Dengan mencobalah kita akan tau hasilnya...

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon