√ Input Data Dari Listbox Ke Worksheet

Kali ini aku akan membahas bagaimana carai input data dari ListBox ke Worksheet dengan memakai 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 dapat satu data atau beberapa data dengan cara mendrag kemudian bari klik tombol nya.

Ok, pribadi saja ini beliau 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 menyerupai tambel berikut ini. Oia tabel yang dientrikan berada pada Sheet1

Langkah berikutnya kita akan menciptakan Nama Range / Name Range dengan rujukan rumus Offsetsilakan klik sajian Formula kemudian klik Manager dan silakan tulis Name dengan nama "MyRange" kemudian 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 kemudian klik Close

Langkah berikutnya silakan kita masuk ke VBA editor dengan menekan tombol ALT+F11 dan hal ini sudah aku 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 menciptakan script VBA untuk menciptakan 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 menciptakan satu buah Module dengan cara klik sajian 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 dibentuk 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 bekerjsama kita dapat pindahkan tombol yang telah dibentuk ke sheet 2 dan hal ini tidak akan kuat terhadap coding tersebut.

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

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

Ok, segitu saja tutorial singkat perihal Input data dari listbox ke worksheet, semoga bermanfaat dan selamat belajar.
Sumber http://www.excel-id.com/