change colour of whole row dependant on cell value

[Patriot2879]

Hi good morning, hope you can help. I have the code below where if OOH is in a cell I want the whole row to change colour, but the code below is not working, hope you can help?

Private Sub Highlight()
Dim col As Range
Dim value(0) As Integer
Worksheets("Sheet1").Activate
Set col = Range("H5:h")
If col.value = OOH Then
ActiveSheet.Row.Select
With Selection.Interior
.Color = -19125255
.Font.Bold = True
        End With
                    End If
    End Sub

 

[James006]

Re: change colur of whole row dependant on cell value help

Hi,

Have a go with following ...

Private Sub ComboBox6_Change()
  With ThisWorkbook.Sheets("Handover")
     emptyRow = .Cells(Rows.Count, "H").End(xlUp).Row + 1
    If ComboBox6.Value = "OOH" Then Range(.Cells(emptyRow, 1), .Cells(emptyRow, 12)).Interior.Color = -19125255
  End With
End Sub

 

[Patriot2879]

Re: change colur of whole row dependant on cell value help

hiya thankyou again for the help I have put in the code below, but I am getting an error on the range it is highlighted in yellow

Private Sub ComboBox6_Change()
  With ThisWorkbook.Sheets("Sheet1")
    If ComboBox6.value = "OOH" Then Range(.Cells(emptyRow, 1), .Cells(emptyRow, 12)).Interior.Color = -19125255
  End With
End Sub

 

[Patriot2879]

Re: change colur of whole row dependant on cell value help

The error comes up as soon as I put OOH in my dropdown box (ComboBox6) in my userform when I am filling it in, hope you can help? thank you again for your time.

 

[Patriot2879]

Re: change colur of whole row dependant on cell value help

I don't know if this makes a difference but the row will go from A to N if that makes a difference with the code?

 

[James006]

Re: change colur of whole row dependant on cell value help

Please refer to my message # 11 ...

Within the code ... you do need to define the row ... which you are calling ' emptyrow '

[COLOR=#333333]emptyRow = .Cells(Rows.Count, "H").End(xlUp).Row + 1[/COLOR]

 

[Patriot2879]

Re: change colur of whole row dependant on cell value help

hi thanks, how would I add that into the code below? sorry with all the issues, I am still new to this and learning. Row H is the cell where 'OOH' will be and the row A-N is what I want to be coloured in.

Private Sub ComboBox6_Change()
  With ThisWorkbook.Sheets("Sheet1")
    If ComboBox6.value = "OOH" Then Range(.Cells(emptyRow, 1), .Cells(emptyRow, 12)).Interior.Color = -19125255
  End With
End Sub

 

[James006]

Re: change colur of whole row dependant on cell value help

Again... for your TEST ...

Why don't you simply Copy exactly ...the SIX instructions in message # 11 ... ???

 

[Patriot2879]

Re: change colur of whole row dependant on cell value help

I did it thank you phew finally.... thanks for the advise again

 

[James006]

Re: change colur of whole row dependant on cell value help

You are welcome ... :wink: