Thuhanh1611
Thành viên hoạt động



- Tham gia
- 21/3/18
- Bài viết
- 105
- Được thích
- 2
- Giới tính
- Nữ
Thử:Mình muốn tự động tô màu những dòng thỏa điều kiện, nếu như cột ngày nhận có chứa dữ liệu nhưng cột ngày trả th trống không có dữ liệu thì sẽ tự động tô màu nh hình bên dưới
Sub abc()
Dim LR&, Cll As Range
LR = Cells(Rows.Count, 2).End(3).Row
For Each Cll In Range("F3:F" & LR).SpecialCells(xlCellTypeBlanks)
Cll.Offset(, -4).Resize(, 6).Interior.ColorIndex = 44
Next
End Sub