Salin Data Dari Listbox1 Ke Listbox2

Salin Data Dari Listbox1 ke Listbox2 - Seperti yang terlihat pada gambar berformat gif dibawah..!! dimana data yang tampil pada Listbox pertama disalin ke dalam Listbox ke dua.

Langkah-langkahnya sangatlah mudah. Caranya anda hanya mengcopy dan pastekan kode pada tempatnya. Ikuti langkahnya dan tempatkan kode pada lokasi yang tepat dan benar.

Salin Data Dari Listbox1 Ke Listbox2

Admin sangat menyarankan bagi yang mempelajari kode Vba Excel tahap pemula untuk dapat membuat file contoh penerapan sendiri. Dengan membuat file penerapan sendiri akan lebih cepat memahami dan mengetahui fungsi dan cara kerja kode yang diterapkan dalam aplikasi.Langkah-

langkah membuat Salin Data Dari Listbox1 Ke Listbox2 :

Download dulu Filenya : Salin Data Dari Listbox1 Ke Listbox2 supaya tidak capek lagi merancang userformnya.
Tempatkan Script dibawah ini untuk mengisi pilihan yang ada dalam Listbox1 pada Userform_Initialize

Userform_initialize()
With ListBox1
.AddItem "Data Siswa"
.AddItem "Data Guru"
.AddItem "Data Inventaris"
.AddItem "Data Keuangan"
End With
End Sub

Tempatkan Script Berikut pada ComandButton1 sebagai tombol yang berfungsi untuk menyalin data dari Listbox1 ke Listbox2

Private Sub CommandButton1_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i)
Next i
End Sub

Tempatkan Script dibawah ini pada CommandButton2 sebagai tombol yang berfungsi untuk menghapus data pada Listbox2

Private Sub CommandButton2_Click()
Dim counter As Integer
counter = 0
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i - counter) Then
ListBox2.RemoveItem (i - counter)
counter = counter + 1
End If
Next i
End Sub