Anh/chị giúp em sửa code tô màu nếu thoả điều kiện trước khi in (1 người xem)

[AnhThu-1976]

Em chào anh/chị
Em có viết code như sau
Trong file em có 2 sheet là TH vả PGH
Trước khi in, nếu sheet TH có các ô từ ô thứ 9 trở xuống của cột B mà có giá trị giống giá trị ô F1 của sheet PGH thì tô chữ màu vàng
Em viết như sau

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Lr As Integer
Dim i As Long
With Sheets("TH")
Lr = Sheets("TH").Range("A" & Rows.Count).End(xlUp).Row
For i = 9 To Lr
If Sheets("TH").Cells(i, 2).Value = Sheets("PGH").Cells(1, 6).Value Then Sheets("TH").Cells(i, 2).Interior.ColorIndex = 6 'VANG
Next i
End With
End Sub

nhưng nó không tô màu được
Em nhờ anh/chị hướng dẫn. Em cảm ơn!
Nói thêm, khi in thì em đang đứng sheet PGH in

 

[AnhThu-1976]

Anh/ chị giúp em bài này với!

 

[HUONGHCKT]

Em chào anh/chị
Em có viết code như sau
Trong file em có 2 sheet là TH vả PGH
Trước khi in, nếu sheet TH có các ô từ ô thứ 9 trở xuống của cột B mà có giá trị giống giá trị ô F1 của sheet PGH thì tô chữ màu vàng
Em viết như sau

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Lr As Integer
Dim i As Long
With Sheets("TH")
Lr = Sheets("TH").Range("A" & Rows.Count).End(xlUp).Row
For i = 9 To Lr
If Sheets("TH").Cells(i, 2).Value = Sheets("PGH").Cells(1, 6).Value Then Sheets("TH").Cells(i, 2).Interior.ColorIndex = 6 'VANG
Next i
End With
End Sub

nhưng nó không tô màu được
Em nhờ anh/chị hướng dẫn. Em cảm ơn!
Nói thêm, khi in thì em đang đứng sheet PGH in

So với dữ liệu trong file đính kèm thử sửa lại

If Sheets("TH").Cells(i, 2).Value = Sheets("PGH").Cells(1, 6).Value Then Sheets("TH").Cells(i, 2).Interior.ColorIndex = 6 'VANG

thành

If Sheets("TH").Cells(i, 1.Value = Sheets("PGH").Cells(1, 6).Value Then Sheets("TH").Cells(i, 1).Interior.ColorIndex = 6 'VANG

Lần đầu tiên trông thấy Sub WorkSheet_BeforePrint(.......)

 

[Hoàng Tuấn 868]

So với dữ liệu trong file đính kèm thử sửa lại

If Sheets("TH").Cells(i, 2).Value = Sheets("PGH").Cells(1, 6).Value Then Sheets("TH").Cells(i, 2).Interior.ColorIndex = 6 'VANG

thành

If Sheets("TH").Cells(i, 1.Value = Sheets("PGH").Cells(1, 6).Value Then Sheets("TH").Cells(i, 1).Interior.ColorIndex = 6 'VANG

Lần đầu tiên trông thấy Sub WorkSheet_BeforePrint(.......)

Hình như có chỗ thiếu dấu ngoặc đơn anh ơi.

 

[HUONGHCKT]

Hình như có chỗ thiếu dấu ngoặc đơn anh ơi.

Đúng. Cảm ơn Anh nhé.
Dòng này :
If Sheets("TH").Cells(i, 1).Value = Sheets("PGH").Cells(1, 6).Value Then Sheets("TH").Cells(i, 1).Interior.ColorIndex = 6 'VANG
Bài của chủ thớt không thiếu, mà là tôi thiếu (do khi gõ số 1đã xóa thêm 1 dấu ")". Sơ xuất.