R
Revenue
Ok, its been a while since I wrote anything like this customized so I
have forgotten a lot. I recorded the macro below to basically convert
a column of 6 character entries from Text to Values, An example is
201010 where its format is text and it needs to be a numeric 201010. I
can't find a suitable way in excel without using visual basic to
convert the column. Each cell has a different value, just in case
you're wondering that. The recorded macro is :
Sub prmo()
Columns("G:G").Select
Selection.Insert Shift:=xlToRight
Range("G2").Select
ActiveCell.FormulaR1C1 = "=VALUE(RC[-1])"
Selection.Copy
Range("G3:G844").Select
ActiveSheet.Paste
Range("G2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Columns("G:G").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("F6").Select
End Sub
have forgotten a lot. I recorded the macro below to basically convert
a column of 6 character entries from Text to Values, An example is
201010 where its format is text and it needs to be a numeric 201010. I
can't find a suitable way in excel without using visual basic to
convert the column. Each cell has a different value, just in case
you're wondering that. The recorded macro is :
Sub prmo()
Columns("G:G").Select
Selection.Insert Shift:=xlToRight
Range("G2").Select
ActiveCell.FormulaR1C1 = "=VALUE(RC[-1])"
Selection.Copy
Range("G3:G844").Select
ActiveSheet.Paste
Range("G2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Columns("G:G").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("F6").Select
End Sub