Input Data dari ListBox ke Worksheet

Kali ini saya akan membahas bagaimana carai input data dari ListBox ke Worksheet dengan menggunakan tombol. Memasukan data atau input data dari listbox ke worksheet biasanya data sudah ada dan tersedia di listbox kemudian di pilih dan data yang terpilih dimasukan kedalam worksheet yang telah ditentukan. Tentunya pilihan data ini bisa satu data atau beberapa data dengan cara mendrag kemudian bari klik tombol nya.

Ok, langsung saja ini dia tutorial bagaimana cara input data dari listbox ke worksheet.
Langkah pertama silakan Anda buat data pada worksheet yang nantinya akan ditampillkan di list pada userform seperti tambel berikut ini. Oia tabel yang dientrikan berada pada Sheet1

Langkah berikutnya kita akan membuat Nama Range / Name Range dengan referensi rumus Offsetsilakan klik menu Formula kemudian klik Manager dan silakan tulis Name dengan nama "MyRange" lalu silakan ketikkan rumus berikut ini pada refer to

=OFFSET(Sheet1!$A$2;0;0;COUNTA(Sheet1!$A$2:$A$100);COUNTA(Sheet1!$A$1:$J$1))

Klik OK lalu klik Close

Langkah berikutnya silakan kita masuk ke VBA editor dengan menekan tombol ALT+F11 dan hal ini sudah saya bahas bagaimana cara menampilkan editor VBA.
Setelah Anda masuk silakan Insert 1 buah UserForm, 1 buah Listbox, dan 1 buah Commandbutton. untuk properties nya jangan diapa apain biarkan saja seadanya.

Setelah itu kita akan membuat script VBA untuk membuat coding nya. Silakan Anda double click pada Commandbutton1 kemudian tuliskan coding VBA berikut ini

Private Sub CommandButton1_Click()
Dim iListCount As Integer, iColCount As Integer
Dim iRow As Integer
Dim rStartCell As Range

Private Sub CommandButton1_Click()
Dim iListCount As Integer, iColCount As Integer
Dim iRow As Integer
Dim rStartCell As Range
Set rStartCell = Sheet2.Range("A65536").End(xlUp).Offset(1, 0)
  For iListCount = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(iListCount) = True Then
      ListBox1.Selected(iListCount) = False
      iRow = iRow + 1
      For iColCount = 0 To Range("MyRange").Columns.Count - 1
       rStartCell.Cells(iRow, iColCount + 1).Value = _
       ListBox1.List(iListCount, iColCount)
      Next iColCount
   End If
Next iListCount
Set rStartCell = Nothing
End Sub

Untuk menambahkan perintah menampilkan UserForm kita akan membuat satu buah Module dengan cara klik menu Insert kemudian pilik Module dan ketikkan coding berikut ini

Sub ShowTheForm()
UserForm1.Show
End Sub

Langkah selanjutnya silakan kembali ke worksheet dan buat satu buat tombol untuk memanggil Module yang telah dibuat tersebut

Langkah selanjutnya silakan buat tabel dengan hanya mengetikkan judul kolom nya saja pada sheet2 dan sheet2 ini nantinya akan dijadikan database hasil input data dari listbox.

Selesai.
Mari kita coba hasil coding VBA tadi dengan cara menekan tombol yang ada pada sheet1 sebenarnya kita bisa pindahkan tombol yang telah dibuat ke sheet 2 dan hal ini tidak akan berpengaruh terhadap coding tersebut.

 Jika kita pilih salah satu data pada listbox misalnya Farhan kemudian klik tombol simpan maka data akan secara otomatis dimasukan kedalam database hasil input.

Berhasil kan? lalu bagaimana jika data yang kita pilih lebih dari 1? Silakan anda grag listbox tersebut kemudian klik tombol simpan hasilnya akan sama listbox yang terpilih akan dimasukan juga ke database setelah tombol simpan di klik.

Ok, segitu saja tutorial singkat tentang Input data dari listbox ke worksheet, semoga bermanfaat dan selamat belajar.

Tweet