Hi All,

I have just written a macro for converting all text zeros to number
zeros in a given selection of range of cells. I thought I would share
this with the group from which I learnt so many new things.

Apologies if this topic is already dealt before (i searched but didnt
find any).

This macro puts "1" in IV65536 and multiplies the selection with this
before clearing the cell IV65536.

Here is the macro:
--------------------------------------------------------------------------------------------------------------------
Application.Goto Reference:="R1C1"
Dim MySelection As Range
Set MySelection = Application.InputBox(prompt:="Select a range of
cells", Type:=8)
Application.Goto Reference:="R65536C256"
ActiveCell.FormulaR1C1 = "1"
Selection.Copy
MySelection.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.Goto Reference:="R65536C256"
Range("IV65536").Select
Selection.ClearContents
MySelection.Select

----------------------------------------------------------------------------------------------------------------------

Thanks,
Prasanth Dangeti

Yes, the method of multiplying a selection of text-formatted numbers by 1 to
convert hem to number-formatted numbers is the standard solution to forcing
text-formatted numbers to become number-formatted.

Dave
--
A hint to posters: Specific, detailed questions are more likely to be
answered than questions that provide no detail about your problem.


"santhu" wrote:

Hi All,

I have just written a macro for converting all text zeros to number
zeros in a given selection of range of cells. I thought I would share
this with the group from which I learnt so many new things.

Apologies if this topic is already dealt before (i searched but didnt
find any).

This macro puts "1" in IV65536 and multiplies the selection with this
before clearing the cell IV65536.

Here is the macro:
--------------------------------------------------------------------------------------------------------------------
Application.Goto Reference:="R1C1"
Dim MySelection As Range
Set MySelection = Application.InputBox(prompt:="Select a range of
cells", Type:=8)
Application.Goto Reference:="R65536C256"
ActiveCell.FormulaR1C1 = "1"
Selection.Copy
MySelection.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.Goto Reference:="R65536C256"
Range("IV65536").Select
Selection.ClearContents
MySelection.Select

----------------------------------------------------------------------------------------------------------------------

Thanks,
Prasanth Dangeti