Xin giúp đỡ code vba áp dụng For i .. next i (Trong ... có 2 If ... then)! (2 người xem)

[pycckuu410]

Mong các bác giúp đỡ em sửa lại code vba ở file đính kèm với ạ!
Em cám ơn!

 

[vu_tuan_manh_linh]

Mong các bác giúp đỡ em sửa lại code vba ở file đính kèm với ạ!
Em cám ơn!

Vấn đề của bạn chỉ đơn giản là kiểm tra điều kiện thực thi. Tham khảo cách làm này xem thế nào nhé bạn!!

 

[pycckuu410]

Em cám ơn Em kiểm tra ngay ạ!

 

[pycckuu410]

Vấn đề của bạn chỉ đơn giản là kiểm tra điều kiện thực thi. Tham khảo cách làm này xem thế nào nhé bạn!!

Cám ơn anh nhé em đã sửa lại sub bác đưa và đã được như ý muốn!
Sub Test()
Range("G6:G20").ClearContents
For i = 6 To 20
If Application.WorksheetFunction.CountIf(Range("B24:B26"), Cells(i, 2).Value) > 0 Then
Cells(i, 7).Formula = "=Vlookup(RC[-5],Hang,2,0)"
Else
Cells(i, 7).Select
Cells(i, 7).Formula = "Chua co du leu"
With Selection.Font
.Color = -16776961
End With
End If
Next i
End Sub