General Loop question
One way:
With Range("B2:B500")
.Offset(0, 5).Value = .Value
Cells(Rows.Count, Columns.Count).Copy 'assume empty cell
.Offset(0, 5).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlPasteSpecialOperationAdd
End With
In article ,
jhahes wrote:
Can someone please help me with the following!
I just want to do this
Start in Cell b2
activecell.offset(0,5).value = cdbl(Activecell.value)
then go to b3
b4
b5
all the way until row 500.
I am trying to convert these text strings to number format without
retyping them.
Thanks
Josh
|