Chào các anh,
Đây là code em tự viết, mọng được anh góp ý kiến cách nào viết hiệu quả hơn.
Xin cảm ơn!
Sub INHTHDVD()
Sheets("1").Select
If Range("P4") = 1 Then
MsgBox "HOA DON DA HOAN THANH ROI, VUI LONG LIEN HE QUAN LY"
ElseIf Range("P4") <> 1 Then
If Range("H24") = 0 And Range("H25") <> 0 Then
MsgBox "CO O TRONG PHAI DIEN DAY DU VAO SO LUONG"
ElseIf Range("H25") = 0 And Range("H26") <> 0 Then
MsgBox "CO O TRONG PHAI DIEN DAY DU VAO SO LUONG"
ElseIf Range("H26") = 0 And Range("H27") <> 0 Then
MsgBox "CO O TRONG PHAI DIEN DAY DU VAO SO LUONG"
ElseIf Range("H27") = 0 And Range("H28") <> 0 Then
MsgBox "CO O TRONG PHAI DIEN DAY DU VAO SO LUONG"
ElseIf Range("H28") = 0 And Range("H29") <> 0 Then
MsgBox "CO O TRONG PHAI DIEN DAY DU VAO SO LUONG"
ElseIf Range("H29") = 0 And Range("H30") <> 0 Then
MsgBox "CO O TRONG PHAI DIEN DAY DU VAO SO LUONG"
ElseIf Range("H30") = 0 And Range("H31") <> 0 Then
MsgBox "CO O TRONG PHAI DIEN DAY DU VAO SO LUONG"
ElseIf Range("H31") = 0 And Range("H32") <> 0 Then
MsgBox "CO O TRONG PHAI DIEN DAY DU VAO SO LUONG"
ElseIf Range("H32") = 0 And Range("H33") <> 0 Then
MsgBox "CO O TRONG PHAI DIEN DAY DU VAO SO LUONG"
ElseIf Range("P4") <> 1 Then
Sheets("1").Select
Range("B24").Resize(Application.CountA(Range("H24:H33")), 18).Select
Selection.Copy
Sheets("XUATKHO").Select
Range("A2").Offset(Application.CountA(Range("G2:G1000"))).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("TONG NGAY").Select
Range("A4:CC4").Select
Selection.Copy
Sheets("DULIEUNGAY").Select
Range("A4").Offset(Application.CountA(Range("B4:B100"))).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TONG NGAY").Select
Range("B4,D4:E4").Select
Selection.Copy
Sheets("TTKHC").Select
Range("A3").Offset(Application.CountA(Range("A3:A50000"))).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("1").Select
Range("P4").Select
ActiveCell.FormulaR1C1 = "1"
End If
End If
End Sub
