Date to Text conversion
change this line:
myStr = .Text
to:
myStr = replace(.Text,"-"," ")
But replace was added in xl2k.
If you're using xl97 (or have to support it):
myStr = application.substitute(.Text,"-"," ")
Michael Koerner wrote:
Dave;
That worked. Now how do I replace the - with a space. when I do a search and
replace, it changes the whole thing back into a dd-mmm-yy which is different
from the original dd-mmm-yyyy sequence.
--
Regards
Michael Koerner
"Dave Peterson" wrote in message
...
Try:
Dim myRng As Range
Dim myCell As Range
Dim myStr As String
Set myRng = Selection
For Each myCell In myRng.Cells
With myCell
myStr = .Text
.NumberFormat = "@"
.Value = myStr
End With
Next myCell
Michael Koerner wrote:
Tried your solution. All I got in place of the dates was a bunch of
numbers.
Thanks
--
Regards
Michael Koerner
"Dave Peterson" wrote in message
...
Select the range to fix first:
Dim myRng as range
dim myCell as range
set myrng = selection
myrng.numberformat = "@"
for each mycell in myrng.cells
mycell.value = mycell.text
next mycell
.text is what you see in the cell (after formatting). If the column is
too
narrow, you could see ###'s and this will keep those ###'s--so be a little
careful.
Michael Koerner wrote:
I have a sheet with a two columns containing dates. Sometimes it is the
full
date as an example 25-Jul-1936, or Jul-1936 or 1936 I would like to be
able
to convert that to text and maintain the same face value. Is that
possible
with some sort of macro?
--
Regards
Michael Koerner
--
Dave Peterson
--
Dave Peterson
--
Dave Peterson
|