Question

My quote generator creates an Excel document and I want to run a macro on it to just keep it’s calculations. For some reason it says ‘Number stored as text’ when there are numbers. How can I change them to the number format using the macro? I have found out if I click once in the formula bar, the problem is solved too.

The code below is what I have now, but it won’t solve the error.

Range("A1:A" & LastRow).Select
Selection.NumberFormat = "0"

Column A contains an amount (1, 2, 3, etc). I have another column with the same problem, but this contains a currency in € and has 2 decimal places.

Range("I1:I" & LastRow).Select
Selection.NumberFormat = "0.00"

Thanks for your help! 🙂

Extra shoutout to Siddharth who helped me complete this complete issue.

Answer 1

Tom,

There are 3 ways to solve this

1) Go Back to your quote generator and see how it is saving the data to Excel Sheet and amend the code there

2) Manually: Highlight the Range and click on the exclamation mark next to the Green Triangle and click on “Convert to Number” See snapshot

3) Use this code.

Sub Sample()
Dim LastRow As Long, i As Long

LastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

Sheets("Sheet1").Range("A1:A" & LastRow).NumberFormat = "0"

For i = 1 To LastRow
    If Val(Sheets("Sheet1").Range("A" & i).Value) <> 0 Then _
    Sheets("Sheet1").Range("A" & i).Formula = _
    Val(Sheets("Sheet1").Range("A" & i).Value)
Next i

Dim temp As Double

LastRow = Sheets("Sheet1").Range("I" & Rows.Count).End(xlUp).Row

Sheets("Sheet1").Range("I1:I" & LastRow).NumberFormat = "\$#,##0.00"

For i = 1 To LastRow
    If Val(Sheets("Sheet1").Range("I" & i).Value) <> 0 Then
    temp = Sheets("Sheet1").Range("I" & i).Value
    Sheets("Sheet1").Range("I" & i).ClearContents
    Sheets("Sheet1").Range("I" & i).Value = temp
    End If
Next i
End Sub

FOLLOW UP

Before and After snapshot attached

MORE FOLLOW UP (IMPORTANT)

If you have different regional settings then you will have to take care of them appropriately.

For Example Dutch Belgium you have to use “,” for a decimal. Please see snapshot.