Nhờ AC tạo dùm code cho ListBox

[thanhtam348]

Tôi có tạo một Form sử dụng ListBox để nạp DL vào sổ theo trình tự nối nhau từ trên xắp xuống nhưng không biết tạo code.
Tôi có copy code của ComboBox ngoài Sheet nầy gán vào, nạp được nhưng nó bị lổi, vậy nhờ AC hay bạn nào sửa dùm tôi. Cám ơn.

rivate Sub ListBox1_Click()
  With Range("E65000").End(xlUp)
    .Offset(1, -1) = Date
    .Offset(1, 0) = ListBox1.Text
    .Offset(1, 1) = ListBox1.Column(1)
 End With
 [COLOR=#ff0000] ListBox1.Text = ""
[/COLOR]End Sub

 

[thanhtam348]

"Cầu cứu"
File giả lập nó đây! anh chị hay bạn nào xem có thể giúp dùm được không. Cám ơn

(File Book1 lúc nãy bị sai, xin thông cảm)