Nhờ các bác sửa giúp em code này với ạ!

[banhchuoichien]

For i = 2 To NoCus + 2 Step 1
Range("H1") = Range("N" & i)
If WorksheetFunction.CountIf(Sheets("HD IN").Range("$L$3:$L$22"), Sheets("HD IN").Range("N" & i)) = 0 Then Next i ( lỗi ở đây ạ )
ElseIf Range("N" & i) = Empty Then
Exit For
ElseIf Range("H6") <= 15 Then
TONG = TONG + Range("F28").Value
ElseIf Range("H6") > 15 And Range("H6") <= 30 Then
TONG = TONG + Range("F60").Value
Else
TONG = TONG + Range("F92").Value
End If
Next i

( Bị lỗi next without for ạ )

 

[be_09]

For i = 2 To NoCus + 2 Step 1
Range("H1") = Range("N" & i)
If WorksheetFunction.CountIf(Sheets("HD IN").Range("$L$3:$L$22"), Sheets("HD IN").Range("N" & i)) = 0 Then Next i ( lỗi ở đây ạ )
ElseIf Range("N" & i) = Empty Then
Exit For
ElseIf Range("H6") <= 15 Then
TONG = TONG + Range("F28").Value
ElseIf Range("H6") > 15 And Range("H6") <= 30 Then
TONG = TONG + Range("F60").Value
Else
TONG = TONG + Range("F92").Value
End If
Next i

( Bị lỗi next without for ạ )

Thêm dòng này dưới tên Sub
Dim i, NoCus, TONG

Có 1 vòng lặp sao phải 2 cái Next i, thử xóa 1 cái chỗ bị lỗi đi.

 

[VetMini]

Sửa
If WorksheetFunction.CountIf(Sheets("HD IN").Range("$L$3:$L$22"), Sheets("HD IN").Range("N" & i)) = 0 Then Next i ( lỗi ở đây ạ )
ElseIf Range("N" & i) = Empty Then
Thành
If WorksheetFunction.CountIf(Sheets("HD IN").Range("$L$3:$L$22"), Sheets("HD IN").Range("N" & i)) = 0 Then
' không làm gì cả
ElseIf Range("N" & i) = Empty Then