Highlight range of cells if one cell contains certain data

[bamaisgreat]

I was wandering if the code below could be changed in a way where if the target had G4496-9809 it would still highlight.
Also if it could highlight the entire row instead of just the one cell. Thanks Jamey

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "[COLOR=#FF0000]G4496" T[/COLOR]hen Target.Interior.ColorIndex = 3
If Target.Value = "G4222" Then Target.Interior.ColorIndex = 4
If Target.Value = "G4276" Then Target.Interior.ColorIndex = 6
End Sub

 

[sheetspread]

Just change G4496 to G4496-9809

and change Target.interior.colorindex to target.row.interior.colorindex

 

[bamaisgreat]

Im getting a Compile Error: Invalid qualifier
When G4496 is entered
It highlights
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "G4496" Then Target.Row.Interior.ColorIndex = 3
If Target.Value = "G4222" Then Target.Row.Interior.ColorIndex = 4
If Target.Value = "G4276" Then Target.Row.Interior.ColorIndex = 6
End Sub

 

[sheetspread]

Try Target.entirerow.interior.colorindex = 3

 

[bamaisgreat]

thanks for the help. One more question. I need it where if the cell contains the value G4474 it will highlight the row. The value could be different variables such as G4474-456-5 or G4474-200 or just G4474 and so on.....

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "G4474" Then Target.EntireRow.Interior.ColorIndex = 3
If Target.Value = "G4326" Then Target.EntireRow.Interior.ColorIndex = 4
End Sub

 

[sheetspread]

Try:

If instr(Target.Value, "G4474") >=1 Then Target.entireRow.Interior.ColorIndex = 3

 

[bamaisgreat]

It works great unless I have to delete the Value. Is there something to keep it from debugging if I have to delete. ???

 

[sheetspread]

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Value = "" Then Target.EntireRow.Interior.ColorIndex = xlNone
If InStr(Target.Value, "G4474") >= 1 Then Target.EntireRow.Interior.ColorIndex = 3
If Target.Value = "G4222" Then Target.Interior.ColorIndex = 4
If Target.Value = "G4276" Then Target.Interior.ColorIndex = 6
End Sub

 

[bamaisgreat]

THANKS Works Great

 

[bamaisgreat]

ok Ive run into a problem. The data is copied from on sheet to another with a macro. So if I type G4474 in it highlights as needed If I enter it in on the sheet where the macro is and it copies , it doesnt highlight.. Can the code be edited where if the sheet Contains the desired data it will just shade on its on