Không nhập được dữ liệu từ listbox sang sheet

[HDr_92]

Em có 1 sheet thứ tự các cột cần chèn dữ liệu là từ 4 đến 10
nhờ ace giúp đỡ với ạ :'(



Private Sub cmdluuthaydoi_Click()
Dim z As Integer, vungcot
With thaydoithongtincam
If txttencam = "" Then Exit Sub
' ???????????????????????????????????????
For z = 4 To 10
vungcot = Choose(z, txtipcam.Text, cbbline.Text, cbbcongdoan.Text, cbbcoorkhong.Text, txtghichu.Text)
With Sheet2
Sheet2.Cells(sRow, z) = vungcot
End With
Next z
End With
sRow = 0
MsgBox "Cap Nhat Thanh Cong"
End Sub

 

[BuiQuangThuan]

Không thấy hình thù cái file đâu thì không biết nên giúp thế nào

 

[HDr_92]

Không thấy hình thù cái file đâu thì không biết nên giúp thế nào

file đây anh,anh kiểm tra giúp em với ạ !

 

[BuiQuangThuan]

file đây anh,anh kiểm tra giúp em với ạ !

Hãy nói rõ bạn đang muốn gì. Code trong file 1 kiểu. Bài 1 một kiểu. Thật khó hiểu

 

[HDr_92]

Hãy nói rõ bạn đang muốn gì. Code trong file 1 kiểu. Bài 1 một kiểu. Thật khó hiểu

em đang muốn khi click 1 dữ liệu muốn thay đổi thông tin trên listbox
các thông tin cũ sẽ hiển thị trên các combobox,textbox, và thay đổi thông tin mới rồi click button lưu thay đổi ạ

 

[HDr_92]

Hãy nói rõ bạn đang muốn gì. Code trong file 1 kiểu. Bài 1 một kiểu. Thật khó hiểu

Cái listbox em để chỉ view với sheet ạ

 

[batman1]

Thay toàn bộ code cũ bằng

Private Sub cmdluuthaydoi_Click()
Dim dong_sua As Long
    If txttencam = "" Or LBthongtincam.ListIndex < 0 Then Exit Sub
    dong_sua = LBthongtincam.ListIndex + 2
    LBthongtincam.Tag = "khong lam"             ' khi LBthongtincam.Tag = "khong lam" thi khong thuc hien LBthongtincam_Change
    With Sheet1
        .Cells(dong_sua, 5) = txttencam.Value
        .Cells(dong_sua, 6) = txtipcam.Value
        .Cells(dong_sua, 7) = cbbline.Value
        .Cells(dong_sua, 8) = cbbcongdoan.Value
        .Cells(dong_sua, 9) = cbbcoorkhong.Value
        .Cells(dong_sua, 10) = txtghichu.Value
    End With
    LBthongtincam.Tag = ""
    MsgBox "Cap Nhat Thanh Cong"
End Sub

Private Sub LBthongtincam_Change()
    If LBthongtincam.ListIndex < 0 Or LBthongtincam.Tag = "khong lam" Then Exit Sub
    With LBthongtincam
        txttencam.Value = .List(.ListIndex, 4)
        txtipcam.Value = .List(.ListIndex, 5)
        cbbline.Value = .List(.ListIndex, 6)
        cbbcongdoan.Value = .List(.ListIndex, 7)
        cbbcoorkhong.Value = .List(.ListIndex, 8)
        txtghichu.Value = .List(.ListIndex, 9)
    End With
End Sub

 

[HDr_92]

được rồi ạ,em cảm ơn