billandrew
Well-known Member
- Joined
- Mar 9, 2014
- Messages
- 743
Good morning
trying to format multiple ranges. 1st range D6:G. the data will change (increase or decrease). the code I am using.
Thanks
Dim finalrow As Long
Dim i As Long
finalrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 6 To finalrow
With Range("D6:G" & finalrow)
.NumberFormat = "0.0%"
.Value = Application.Evaluate("=" & .Address & "/" & 100)
.Font.Size = 22
End With
With Range("L6:O" & finalrow)
.NumberFormat = "0.0%"
.Value = Application.Evaluate("=" & .Address & "/" & 100)
.Font.Size = 22
End With
Next
End Sub
trying to format multiple ranges. 1st range D6:G. the data will change (increase or decrease). the code I am using.
Thanks
Dim finalrow As Long
Dim i As Long
finalrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 6 To finalrow
With Range("D6:G" & finalrow)
.NumberFormat = "0.0%"
.Value = Application.Evaluate("=" & .Address & "/" & 100)
.Font.Size = 22
End With
With Range("L6:O" & finalrow)
.NumberFormat = "0.0%"
.Value = Application.Evaluate("=" & .Address & "/" & 100)
.Font.Size = 22
End With
Next
End Sub