Code Excel ẩn dòng có điều kiện (1 người xem)

[thanhysong]

Sub AN()
Y = [S7]
For i = 0 To Y - 7
If Cells(8 + i, "G") = "" And Cells(8 + i, "F") = "" Then
Cells(8 + i, "G").EntireRow.Hidden = True
End If
Next i
End Sub

Mong các bạn check giúp mình code ẩn dòng này với ạ? không chạy cũng không báo lỗi ạ

 

[giaiphap]

Sub AN()
Y = [S7]
For i = 0 To Y - 7
If Cells(8 + i, "G") = "" And Cells(8 + i, "F") = "" Then
Cells(8 + i, "G").EntireRow.Hidden = True
End If
Next i
End Sub

Mong các bạn check giúp mình code ẩn dòng này với ạ? không chạy cũng không báo lỗi ạ

Chạy ngon luôn bạn.

 

[thanhysong]

Chạy ngon luôn bạn.

cảm ơn bạn nhiều ạ

 

[VetMini]

Ẩn/xoá dòng thì làm từ dưới lên trên chứ.