Klartigue
02-22-2012, 08:14 AM
Ok I have the formula to convert numbers saved as text to numbers.
Sub Convert1()
' Convert text to numbers on GFI List
Range("A7").Select
ActiveCell.FormulaR1C1 = "1"
Range("A7").Select
Selection.Copy
Range("A8:A700").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End Sub
How can I get this to convert the numbers only from A7 to lastrow? I know that is the code below but i need incorporate this with the above code.
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 7 To LastRow
Thanks for the help!
Sub Convert1()
' Convert text to numbers on GFI List
Range("A7").Select
ActiveCell.FormulaR1C1 = "1"
Range("A7").Select
Selection.Copy
Range("A8:A700").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End Sub
How can I get this to convert the numbers only from A7 to lastrow? I know that is the code below but i need incorporate this with the above code.
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 7 To LastRow
Thanks for the help!