K
Kjellk
I would like to have this macro running not only when he workbook is opened
but also if it already is open:
Private Sub Workbook_Open()
Dim xR As Long
With Sheets("Databas")
For xR = 3 To .Cells(.Rows.Count, "F").End(xlUp).Row
If .Cells(xR, "F") > 4500 Then
.Rows(xR).EntireRow.Interior.Color = vbYellow
End If
If .Cells(xR, "K") > 1 Then
.Rows(xR).EntireRow.Interior.Color = vbRed
End If
If .Cells(xR, "M") > 1 Then
.Rows(xR).EntireRow.Interior.Color = 15773696
End If
Next
End With
End Sub
but also if it already is open:
Private Sub Workbook_Open()
Dim xR As Long
With Sheets("Databas")
For xR = 3 To .Cells(.Rows.Count, "F").End(xlUp).Row
If .Cells(xR, "F") > 4500 Then
.Rows(xR).EntireRow.Interior.Color = vbYellow
End If
If .Cells(xR, "K") > 1 Then
.Rows(xR).EntireRow.Interior.Color = vbRed
End If
If .Cells(xR, "M") > 1 Then
.Rows(xR).EntireRow.Interior.Color = 15773696
End If
Next
End With
End Sub