Lỗi trong quá trình nhập liệu

[hoangphong76]

Mình mong các bạn giúp mình vấn đề này nhé. Mình đang bị lỗi trong quá trình nhập liệu của file excel nhập hàng. Các bạn sử lý giùm mình nhé
Mình cám ơn các bạn rất nhiều

 

[nghiaphuc]

Bạn sửa lại Sub NhapLieu như sau:

Sub NhapLieu()
    If WorksheetFunction.CountBlank([B3:B7]) > 0 Then
        MsgBox "Nhap chua du thong tin", , "Thong bao"
    Else
        [B3.B7].Copy
        [A705].End(xlUp).Offset(1).PasteSpecial Paste:=xlValues, Transpose:=True
        [B3:B7].ClearContents
    End If
    [B3].Select
End Sub

Còn trong code của Sheet Nhat ky giao hang, bạn chỉ cần Sub này là đủ:

Private Sub NL_Click()
    NhapLieu
End Sub

 

[hoangphong76]

Mình muốn sau mỗi lần nhập liệu mà tại địa chỉ chứa công thức vẫn cố định thì phải làm thế nào hả bạn?
VD: Mình chỉ nhập số lệnh còn tên tiếp thị thì mình dùng hàm vlookup để tìm kiếm. Nhưng khi nhập số lệnh khác thì hàm vlookup vần giữ nguyên mà không mất đi
Giúp mình với nhé.

 

[huuthang_bd]

Mình muốn sau mỗi lần nhập liệu mà tại địa chỉ chứa công thức vẫn cố định thì phải làm thế nào hả bạn?
VD: Mình chỉ nhập số lệnh còn tên tiếp thị thì mình dùng hàm vlookup để tìm kiếm. Nhưng khi nhập số lệnh khác thì hàm vlookup vần giữ nguyên mà không mất đi
Giúp mình với nhé.

Thay dòng

[B3:B7].ClearContents

Bằng dòng

[B3:B7].SpecialCells(xlCellTypeConstants, 23).ClearContents

 

[hoangphong76]

Cám ơn bạn nhiều lắm. Bạn giúp mình việc này nữa nhé. Nếu khi mình nhập số lệnh mà số lệnh này đã nhập rồi thì có cảnh báo không cho nhập lệnh này nữa.
Giúp mình nhé
Cám ơn bạn nhiều

Mình gửi file bạn xem giúp nhé

 

[sealand]

Bạn tìm xem doạn code sau của bạn ở đâu:

Private Sub NL_Click()
    NhapLieu
End Sub

Thì bạn thêm đoạn code sau xuống phía dưới

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" And Target.Address = "$B$4" And _
Application.WorksheetFunction.CountIf(Range("b10:b" _
& [b56536].End(xlUp).Row), "=" & Target) > 0 Then
MsgBox "Da co lenh"
Target = ""
Target.Select
End If
End Sub

 

[hoangphong76]

Giúp mình với nhé. Khi mình nhập dữ liệu vào ô " Số lệnh", nếu số lệnh đó đã có trong bảng dữ liệu thì sẽ được thay thế bằng dữ liệu mới.
Cám ơn các bạn nhiều
Mình có gửi kèm theo file đây: View attachment Book3.xls