View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
[email protected][_2_] rumkus@hotmail.com[_2_] is offline
external usenet poster
 
Posts: 60
Default adding verbiage to the end of a cell

Below sub will check F column for "total for NY" when found it will
change it to "total for NY < 10,000".
And color the row between A and K columns.
Please make necessary changes to your needs.
Rgds


Sub color()
Dim rng As Range
Dim i As Range
With Worksheets("Sheet1")
Set rng = .Range("F2", .Range("F" & Rows.Count).End(xlUp))
For Each i In rng
If i.Value = "total for NY" Then
i.Value = "total for NY < 10,000"
Range("a" & i.Row & ":" & "k" & i.Row).Interior.ColorIndex = 6
End If
Next i
End With
End Sub