Convert

[billandrew]

Evening All

Question

I am converting a text value to a percentage with the below script. If there is no value in the cell I am receiving a #VALUE ! error.

What is the most efficient approach.

I believe I can insert a zero value if the cell is blank and then covert, however this does not seem very efficient.

Thank You

With Range("A1", Range("A" & Rows.Count).End(xlUp)).Value = Application.Evaluate("=" & .Address & "/" & 100)
.NumberFormat = "0.0%"
End With

 

[billandrew]

Looks like this does what I need Could be cleaned a bit

Thanks Michael

With Worksheets("Sheet1").Range("A1", Range("A" & Rows.Count).End(xlUp))    .Value = .Value2
    .Replace " ", "", xlWhole
 End With


With Worksheets("Sheet1").Range("A1", Range("A" & Rows.Count).End(xlUp))
.Value = Application.Evaluate("=" & .Address & "/" & 100)
.NumberFormat = "0.0%"
End With