If you really need a macro perhaps try
![]()
Option Explicit Sub ColorRow() Dim F As Range For Each F In Range([A1], Range("A" & Rows.Count).End(xlUp)) If (F.Value = 1) Then F.EntireRow.Interior.Color = 15773696 Next End Sub
If you really need a macro perhaps try
![]()
Option Explicit Sub ColorRow() Dim F As Range For Each F In Range([A1], Range("A" & Rows.Count).End(xlUp)) If (F.Value = 1) Then F.EntireRow.Interior.Color = 15773696 Next End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks