sửa lại code cho sheet dùng làm form nhập liệu (1 người xem)

[diemhuyenanh]

Chào các anh chi gpe! trước đây em có nhờ các anh chị trên gpe giúp viết code cho sheet dùng làm form nhập liệu sheet này đã hỗ trợ rất nhiều cho em trong khi làm việc.
trong quá trình làm việc thỉ phát sinh một yêu cầu em đã ghi rõ trong sheets form mong các anh chị trên gpe xem file đính kèm vá sửa giúp
Em chân thành cảm ơn các anh chị!

 

[nghiaphuc]

Chào các anh chi gpe! trước đây em có nhờ các anh chị trên gpe giúp viết code cho sheet dùng làm form nhập liệu sheet này đã hỗ trợ rất nhiều cho em trong khi làm việc.
trong quá trình làm việc thỉ phát sinh một yêu cầu em đã ghi rõ trong sheets form mong các anh chị trên gpe xem file đính kèm vá sửa giúp
Em chân thành cảm ơn các anh chị!

Bạn xem code này và tùy biến để đưa vào code của bạn nhé (tất nhiên để chạy code thì bạn phải đang chọn sheet FORM):
[GPECODE=vb]Sub Test()
If WorksheetFunction.CountA([C1:C3]) < 3 Then
MsgBox "Nhap so lenh va ngay nhap"
Exit Sub
End If
If WorksheetFunction.CountBlank([C615]) Then
MsgBox "Kiem tra lai du lieu nhe"
Exit Sub
End If
MsgBox "OK!"
End Sub[/GPECODE]

 

[diemhuyenanh]

cảm ơn bạn đã giúp
bạn sửa lại cho mình ở cái vùng c6:d15 ý không phải là vùng cố định như vậy vì đơn hàng có thể là 1 mặt hàng nhưng cũng có thể là 500 mặt hàng thì như vậy code sẽ không chạy đúng.

 

[nghiaphuc]

cảm ơn bạn đã giúp
bạn sửa lại cho mình ở cái vùng c6:d15 ý không phải là vùng cố định như vậy vì đơn hàng có thể là 1 mặt hàng nhưng cũng có thể là 500 mặt hàng thì như vậy code sẽ không chạy đúng.

Vậy thì sửa lại như thế này:
[GPECODE=vb]Sub Test()
If WorksheetFunction.CountBlank([C1:C3]) Then
MsgBox "Nhap so lenh va ngay nhap"
Exit Sub
End If
If WorksheetFunction.CountBlank(Range([B6], [B65000].End(xlUp)).Offset(, 1).Resize(, 2)) Then
MsgBox "Kiem tra lai du lieu nhe"
Exit Sub
End If
MsgBox "OK!"
End Sub[/GPECODE]