Formatting rows based on the contents of the column 1

[dyana]

If I have a range from d5:z5, and column "D" has various text references and numbers.

I want to format the rows, in column "D", that have the word "Price" as currency, and format the rest as comma without decimal places.

Does anybody know how to do this.

dyana

 

[LSTAN]

Hi dyana

You might want to try the below code:


Sub formatRange()

Dim myRow As Integer, myCol As Integer
Dim myFormatRng As Range

Sheets("sheet1&quot.Select
Sheets("sheet1&quot.Range("d5&quot.Select

myRow = ActiveCell.Row
myCol = ActiveCell.Column
Set myFormatRng = ActiveSheet.Cells(myRow, myCol)

Do While myFormatRng <> &quot;&quot;
If myFormatRng.Value = &quot;Price&quot; Then
ActiveSheet.Range(Cells(myRow, myCol), Cells(myRow, 26)).Select
Selection.NumberFormat = &quot;$#,##0.00&quot;
Else
ActiveSheet.Range(Cells(myRow, myCol), Cells(myRow, 26)).Select
Selection.NumberFormat = &quot;#,##0&quot;
End If

myRow = myRow + 1
Set myFormatRng = ActiveSheet.Cells(myRow, myCol)

Loop

End Sub


Hope this helps.

rgrds
LSTAN