Xin code tự thêm sản phẩm nếu chưa có trong Danh mục hàng hóa

[iloveit]

Xin chào mọi người.

Mình xin nêu vấn đề của mình như sau nhờ mọi người giúp mình đoạn code

- Tại vùng B4:G5 là form Nhập liệu. Trong đó
+ STT: tự động tăng (đã làm)
+ TEN_SP: Sử dụng Data Validation để chọn. Tuy nhiên mình muốn nếu tên sản phẩm nào chưa có trong Sheet DMHH thì tại ô C5 chữ sẽ tự đổi sang màu đỏ. Và khi nhấn nút Lưu thì nó cũng tự thêm tên hàng vào bên DMHH.
+ NHA_CC cũng tương tự như TEN_SP
+ NGAY_NHAP, IMEI, GIA_NHAP: thủ công.

Cám ơn mọi người đã xem.

 

[Hoàng Nhật Phương]

Xin chào mọi người.

Mình xin nêu vấn đề của mình như sau nhờ mọi người giúp mình đoạn code

- Tại vùng B4:G5 là form Nhập liệu. Trong đó
+ STT: tự động tăng (đã làm)
+ TEN_SP: Sử dụng Data Validation để chọn. Tuy nhiên mình muốn nếu tên sản phẩm nào chưa có trong Sheet DMHH thì tại ô C5 chữ sẽ tự đổi sang màu đỏ. Và khi nhấn nút Lưu thì nó cũng tự thêm tên hàng vào bên DMHH.
+ NHA_CC cũng tương tự như TEN_SP
+ NGAY_NHAP, IMEI, GIA_NHAP: thủ công.

Cám ơn mọi người đã xem.
View attachment 216469

Trong Sub Lenh_Luu của bạn, bạn gọi thêm sub sau để thêm tên sản phẩm nhé.

Sub AddList_DMHH()
    Dim dongcuoi As Long, i As Integer, dk As Range
    Set dk = Sheets("NHAP").Range("C5")
    With Sheets("DMHH")
        dongcuoi = .Cells(.Rows.count, "B").End(xlUp).Row
        i = WorksheetFunction.CountIf(.Range("B4:B" & dongcuoi), dk)
        If i = 0 Then .Range("B" & dongcuoi + 1).Value = dk
    End With
    Set dk = Sheets("NHAP").Range("F5")
    With Sheets("NHACC")
        dongcuoi = .Cells(.Rows.count, "B").End(xlUp).Row
        i = WorksheetFunction.CountIf(.Range("B4:B" & dongcuoi), dk)
        If i = 0 Then .Range("B" & dongcuoi + 1).Value = dk
    End With
End Sub

Còn phần màu đỏ bạn sử dụng conditional formatting,
cho C5:

=COUNTIF(OFFSET(DMHH!$B$4,,,COUNTA(DMHH!$B:$B)-1,1),C5)=0

cho F5:

=COUNTIF(OFFSET(NHACC!$B$4,,,COUNTA(NHACC!$B:$B)-1,1),F5)=0

 

[iloveit]

Trong Sub Lenh_Luu của bạn, bạn gọi thêm sub sau để thêm tên sản phẩm nhé.

Sub AddList_DMHH()
    Dim dongcuoi As Long, i As Integer, dk As Range
    Set dk = Sheets("NHAP").Range("C5")
    With Sheets("DMHH")
        dongcuoi = .Cells(.Rows.count, "B").End(xlUp).Row
        i = WorksheetFunction.CountIf(.Range("B4:B" & dongcuoi), dk)
        If i = 0 Then .Range("B" & dongcuoi + 1).Value = dk
    End With
    Set dk = Sheets("NHAP").Range("F5")
    With Sheets("NHACC")
        dongcuoi = .Cells(.Rows.count, "B").End(xlUp).Row
        i = WorksheetFunction.CountIf(.Range("B4:B" & dongcuoi), dk)
        If i = 0 Then .Range("B" & dongcuoi + 1).Value = dk
    End With
End Sub

Còn phần màu đỏ bạn sử dụng conditional formatting,
cho C5:

=COUNTIF(OFFSET(DMHH!$B$4,,,COUNTA(DMHH!$B:$B)-1,1),C5)=0

cho F5:

=COUNTIF(OFFSET(NHACC!$B$4,,,COUNTA(NHACC!$B:$B)-1,1),F5)=0

Cám ơn bạn đã giúp đỡ, kết quả đúng ý mình.