Cara Memindahkan data dari ListBox ke ListBox yang Lain

Salam sobat semua...,

Pada tutorial kali ini yang saya berikan bagaimana cara memindahkan data dari Listbox ke dalam Listbox yang lain ( Listbox Selection ) dengan pemograman VBA Ms.Excell.

Rancanglah sebuah Form dengan menambahkan Toolbox, 2 buah Commanbutton dan 2 buah Listbox, seperti tampilan gambar berikut ini :

- Double klik UserForm untuk masuk ke area coding, lalu pastekan Koding berikut :

Private Sub UserForm_Initialize()

With ListBox1

'data yang akan ada dalam Listbox1 pada saat Form dijalankan

    .AddItem "Sales"

    .AddItem "Produksi"

    .AddItem "Gudang"

    .AddItem "Personalia"

End With

End Sub

- Double klik Commandbutton1 untuk masuk ke area coding, lalu pastekan Koding berikut :

Private Sub CommandButton1_Click()

'perintah untuk memindahkan data dari ListBox1 kedalam ListBox2

For i = 0 To ListBox1.ListCount - 1

    If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i)

Next i

End Sub

- Double klik Commandbutton2 untuk masuk ke area coding, lalu pastekan Koding berikut :

Private Sub CommandButton2_Click()
'perintah untuk menghapus data dari dalam ListBox2

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

Jalankan Program nya, Klik salah satu data dalam ListBox1, lalu tekan Commanbutton1 ( perintah Pindah ), maka data akan berpindah kedalam ListBox2, seperti tampilan berikut,

Untuk menghapus data dari dalam ListBox2, Select salah satu data lalu tekan / klik perintah Hapus ( Commandbutton2 ).

Sekian dari saya untuk tutorial ListBox Selection cara memindahkan data dari LisBox ke dalam ListBox yang lain, silahkan Sobat kembang lagi.

Salam,