I may have misunderstood, formuultiple columns select the topmost row (say
row 1) and drag down on the row numbers to select multiple columns then
proceed as in my other reply but modify the formula to
Hi and thankyou for your fast respons. I was not clear enough when writing my
question. I will try to clarify:
When I open the worksheet I want the macro automatically to identify all
values in column F which are >4500 and colur those rows with yellow (if the
macro not already have done it earlier). Mostly it will be only one row. The
conditional format does what I wont but is only colouring the cell with the
value. I want it extened to colour the whole row.
Private Sub Worksheet_Activate()
mc = "f"
lr = Cells(Rows.Count, mc).End(xlUp).Row
For Each c In Range(Cells(20, mc), Cells(lr, mc))
If c < 4500 Then
c.EntireRow.Interior.ColorIndex = 36
Else
c.EntireRow.Interior.ColorIndex = 0
End If
Next
End Sub
Private Sub Workbook_Open()
Dim xR As Long
With Sheets("Sheet1")
For xR = 1 To .Cells(.Rows.Count, "F").End(xlUp).Row
If .Cells(xR, "F") > 4500 Then
.Rows(xR).EntireRow.Interior.Color = vbYellow
End If
Next
End With
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.
