Anh chi nao chỉnh sửa giúp em cái listbox này với.

[baohan2006]

Private Sub xoa_Click()
Dim fRng As Range, sRng As Range
With Sheets("Boi Thuong")
Set sRng = .Range(.[A2], .[A65536].End(xlUp)).Resize(, 21)
Set fRng = .Range("A:A").Find(Me.ListBox1, , xlValues, xlWhole)
End With
ClearTextBox
If Not fRng Is Nothing Then
fRng.EntireRow.Delete
ComboBox1.Value = ""
ListBox1.List() = sFilter(sRng, "")
End If
End Sub

Private Sub sua_Click()
Dim fRng As Range, sRng As Range
Set fRng = Sheets("Boi Thuong").Range("A:A").Find(Me.ListBox1, , xlValues, xlWhole)
If Not fRng Is Nothing Then
With fRng
Set sRng = .Parent.Range(.Parent.[A2], .Parent.[A65536].End(xlUp)).Resize(, 21)
.Offset(, 0).Value = ComboBox1.Text
.Offset(, 1).Value = TextBox1.Text
.Offset(, 2).Value = TextBox2.Text
.Offset(, 3).Value = TextBox4.Text
.Offset(, 4).Value = TextBox10.Text
.Offset(, 5).Value = TextBox11.Text
.Offset(, 6).Value = TextBox12.Text
.Offset(, 8).Value = ComboBox5.Text
.Offset(, 10).Value = ComboBox8.Text
.Offset(, 11).Value = TextBox6.Text
.Offset(, 12).Value = TextBox19.Text
.Offset(, 13).Value = ComboBox7.Text
.Offset(, 14).Value = TextBox7.Text
.Offset(, 15).Value = TextBox18.Text
.Offset(, 16).Value = ComboBox6.Text
.Offset(, 17).Value = TextBox5.Text
.Offset(, 18).Value = TextBox17.Text
.Offset(, 19).Value = TextBox8.Text
.Offset(, 20).Value = TextBox9.Text
End With
ClearTextBox
ListBox1.List() = sFilter(sRng, "")
End If
End Sub

không biết code có vấn đề không, nhưng khi em click vào hàng nào đó để xóa thì không xóa hàng đó được mà nó xóa hàng khác, khi sửa cũng tương tự
mong các anh chị chỉ bảo giúp

 

[chibi]

To baohan2006: Bạn đưa đoạn code đó thì đọc khó theo dõi, hãy đưa cả file lên thì dễ cho mọi người muốn giúp bạn hơn.
To kholanh_1: Bạn chuyển bài sang vị trí khác. Hoặc mod chuyển bài đó về nơi quy định.

 

[baohan2006]

mọi người giúp cho về listbox

cảm ơn bạn chibi, đây là file của mình mong bạn và mọi người giúp cho

 

[sealand]

Lỗi nằm ngay trên sheet MC Record : Ref# bị trùng, do vậy lệnh Find sẽ tìm đến Ref# gặp đầu tiên mà thôi.
Để chính xác bạn phải kiểm tra tính duy nhất của cột A.

 

[baohan2006]

cảm ơn bạn nhiều, để mình làm thử nha