Code VBA So Sách TextBox vừa nhập

[minhhaioh34]

Chào cả nhà hiện mình đang làm 1 file quản lý spare part nhưng gặp vấn đề này chưa xử lý được nhờ các bạn tư vấn
1. Mình có làm 1 form nhập liêu cho sheet 2 giá trị lưu vào cột B ( Part No) và C ( Part Name).
2. Mình muốn so sanh giá trị PartNo (TBx1) vừa nhập vào với cột B của sheet 1
- Nếu giá trị vừa nhập vô chưa tồn tại cột B sheet 1 thì tự động thêm giá trị này vào cho cọt B sheet 1
- Nếu Giá trị vừa nhập vô đã tồn tại thì thôi

Nhờ các cao thủ vấn giúp qua file đính kèm
Cảm ơn Các cao thủ

 

[Gà Công Nghệ]

Chào cả nhà hiện mình đang làm 1 file quản lý spare part nhưng gặp vấn đề này chưa xử lý được nhờ các bạn tư vấn
1. Mình có làm 1 form nhập liêu cho sheet 2 giá trị lưu vào cột B ( Part No) và C ( Part Name).
2. Mình muốn so sanh giá trị PartNo (TBx1) vừa nhập vào với cột B của sheet 1
- Nếu giá trị vừa nhập vô chưa tồn tại cột B sheet 1 thì tự động thêm giá trị này vào cho cọt B sheet 1
- Nếu Giá trị vừa nhập vô đã tồn tại thì thôi

Nhờ các cao thủ vấn giúp qua file đính kèm
Cảm ơn Các cao thủ

Góp ý nhỏ: Trong diễn đàn này không có cao thủ bạn ơi, bạn xem lại nội quy diễn đàn xíu nữa nha.

 

[batman1]

2. Mình muốn so sanh giá trị PartNo (TBx1) vừa nhập vào với cột B của sheet 1
- Nếu giá trị vừa nhập vô chưa tồn tại cột B sheet 1 thì tự động thêm giá trị này vào cho cọt B sheet 1
- Nếu Giá trị vừa nhập vô đã tồn tại thì thôi

Nhờ các cao thủ vấn giúp qua file đính kèm

Rõ ràng code nhập vào Sheet2 mà mô tả lại là Sheet1. Thôi thì tự sửa theo ý, cả kiểm tra tồn tại ở đâu và nhập vào đâu.

Thế kỷ 21 rồi, xưng hô bình thường thôi. Thời nào mà cao nhân, sư phụ, huynh đệ, tỉ muội.

Có nhiều cách.

Nếu tôi hiểu ý thì ...

Private Sub OK_Click()
Dim EndRow As Long, count As Long
    EndRow = Sheet2.Range("B10000").End(xlUp).Row + 1
    count = Application.CountIf(Sheet2.Range("B4:B" & EndRow), TBx1.Text)
    If count = 0 Then
        Sheet2.Range("B" & EndRow) = TBx1.Text
        Sheet2.Range("C" & EndRow) = TBx2.Text
    End If
    Call resetform
    TBx1.SetFocus
End Sub

 

[minhhaioh34]

Rõ ràng code nhập vào Sheet2 mà mô tả lại là Sheet1. Thôi thì tự sửa theo ý, cả kiểm tra tồn tại ở đâu và nhập vào đâu.

Thế kỷ 21 rồi, xưng hô bình thường thôi. Thời nào mà cao nhân, sư phụ, huynh đệ, tỉ muội.

Có nhiều cách.

Nếu tôi hiểu ý thì ...

Private Sub OK_Click()
Dim EndRow As Long, count As Long
    EndRow = Sheet2.Range("B10000").End(xlUp).Row + 1
    count = Application.CountIf(Sheet2.Range("B4:B" & EndRow), TBx1.Text)
    If count = 0 Then
        Sheet2.Range("B" & EndRow) = TBx1.Text
        Sheet2.Range("C" & EndRow) = TBx2.Text
    End If
    Call resetform
    TBx1.SetFocus
End Sub

Thanks bạn cách này đơn giản mà OK nè