Tìm giá trị của textbox trong sheet

[nvthien1967]

- Nhờ các bạn thành viên tư vấn. Từ form nhập liệu với tên của textbox là "HH1" (hàng hóa thứ 1) ... "HHn" (hàng hóa thứ n), sau khi lệnh thủ tục sẽ tìm giá trị từng textbox (HH1...) trong sheet danh mục để nhập số lượng tăng hoặc giảm tồn kho.
- Đoạn code này chạy được nhưng phải chỉ đúng tên từng textbox (HH1, HH2,..) nên code rất dài
Sub CapNhatSoLieuKho ()
'Hang hoa thu 1
If HH1 <> "" Then
Selection.Find(What:=HH1, MatchCase:=True).Activate
ActiveCell.Offset(0, 8).Select: ActiveCell.Value = ActiveCell.Value + SL1.Value (Ghi giá trị cột phát sinh)
End If
'Hang hoa thu 2
If HH2 <> "" Then
Selection.Find(What:=HH2, MatchCase:=True).Activate
ActiveCell.Offset(0, 8).Select: ActiveCell.Value = ActiveCell.Value + SL2.Value (Ghi giá trị cột phát sinh)
End If
...... n (hang hoa)
End Sub
- Tôi muốn dùng biến (r) nhưng code không tìm được (không biết sai ở đâu)
Sub CapNhatSoLieuKho ()
On Error Resume Next
Dim tx As TextBox
Dim r As Long
Set tx = HH
For r = 1 To 10
With Sheets("TON-KHO")
If tx & r <> "" Then
Selection.Find(What:="tx" & r, MatchCase:=True).Activate
ActiveCell.Offset(0, 8).Select: ActiveCell.Value = ActiveCell.Value + Me.Controls("SL" & r).Value
End If
End With
Next r
End Sub
- Cám ơn các bạn.

 

[anhdepjai]

Bạn nên post cái file lên đây

 

[nvthien1967]

Bạn nên post cái file lên đây

Nhờ các Thành viên hổ trợ.

 

[SA_DQ]

Với mình thì câu lệnh On Error Resume Next là con dao 2 lưỡi
Không phải lúc nào cũng cho qua khi gặp lỗi;
Phải biết là lỗi gì cụ thể mới cho qua, còn những lỗi khác phải xử lý khác
Ví dụ:

Sub BayLoi()
' . . . . .'
On Error Goto LoiCT
' . . . . .'
Err_:      Exit Sub
LoiCT:
 If Err=13 then
   Resume Next
 Else
    Goto Err_
 End if
End Sub

Chuyện thứ nhì mình muốn bày tỏ với chủ bài đăng:
Xài phương thức FIND() không nên xài tắt như vậy
mà nên là ví dụ sau:

Dim Rng As Range, sRng As Range
Set Rng=[B2].CurrentRegion
Set sRng = Rng.Find(. . . )
If sRng Is Nothing then
MsgBox "Nothing!"
Else

end if