CARA Memasukkan isi ListBox Ke dalam Worksheet

CARA Memasukkan isi ListBox Ke dalam Worksheet

Private Sub CommandButton3_Click()
Set ws = Worksheets("Sheet1")
Dim Baris As Long
Dim Jumlah As Long
Jumlah = ListBox1.ListCount - 1
With ws
Baris = .Cells(.Rows.Count, "A").End(xlUp).Offset(0,
0).Row
For i = 1 To Jumlah
With .Cells(Baris + i, "A")
.Value = DTPicker1.Value
End With
.Cells(Baris + i, 2).Value = TextBox1.Value
.Cells(Baris + i, 3).Value = ListBox1.List(i, 0)
.Cells(Baris + i, 4).Value = ListBox1.List(i, 1)
.Cells(Baris + i, 5).Value = ListBox1.List(i, 2)
Next i
End With
UserForm_Activate
End Sub