Nhờ AC tạo dùm code cho ListBox (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

thanhtam348

Thành viên thường trực
Tham gia
9/3/07
Bài viết
288
Được thích
62
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.

Mã:
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
 
Lần chỉnh sửa cuối:
"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)
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom