How to set loop for selecting columns and converting numbers stored as text

[rajkumar]

hi,
how to set this in a loop, please help

Range("C1:C" & FinalRow).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection
Selection.NumberFormat = "General"
.Value = .Value
End With

Range("D1:D" & FinalRow).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection
Selection.NumberFormat = "General"
.Value = .Value
End With

Range("F1:F" & FinalRow).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection
Selection.NumberFormat = "General"
.Value = .Value
End With

Range("L1:L" & FinalRow).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection
Selection.NumberFormat = "General"
.Value = .Value
End With

Range("P1:P" & FinalRow).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection
Selection.NumberFormat = "General"
.Value = .Value
End With

Range("T1:T" & FinalRow).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection
Selection.NumberFormat = "General"
.Value = .Value
End With

Range("V1:V" & FinalRow).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection
Selection.NumberFormat = "General"
.Value = .Value
End With

Range("W1:W" & FinalRow).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection
Selection.NumberFormat = "General"
.Value = .Value
End With

regards
raj

[SamT]

No patterns, can't loop.

With Range("C:D")
.NumberFormat = "General"
.Value = .Value
End With

With Range("F:F")
.NumberFormat = "General"
.Value = .Value
End With

'Etc

[MINCUS1308]

If you end up with a pattern or different cases or if you must loop, you could use an array or just a simple For loop.
But if not, Id just go with SamT's method.


Sub TEST()
MyArr = Array("C", "D", "F", "L", "P", "T", "V", "W")

For Each Element In MyArr
Select Case Element
Case "C", "D", "F", "L", "P", "T", "V", "W"
With Columns(Element)
.NumberFormat = "General"
.Value = .Value
End With
'CASE 'IF YOU HAD OTHER CASES YOU COULD LIST THEM HERE
'AND PUT WHAT TO DO IN THOSE CASES HERE
'Case Else 'OR IF ALL OTHER CASES ARE THE SAME YOU COULD USE A CASE ELSE STATEMENT
'AND PUT WHAT TO DO IN ALL UNLISTED CASES HERE
End Select
Next Element
End Sub

[rajkumar]

thanks