Strange find and replace query
- From: MJKelly <matt.j.kelly@xxxxxxxxx>
- Date: Fri, 28 Mar 2008 08:13:26 -0700 (PDT)
I use the code below to select a column of data and replace . with a /
so I can sort the data in chronological order (as a date). However,
this only works if I manually find and replace (with the find and
replace dialogue). If I use the macro below, the dates are sometimes
adjusted (day and month is switched). Also, when the data is then
sorted, it does not get sorted in chronological order (only when it is
done manually does the data sort correctly).
The original data is an extract from one of our work databases (which
I have no hope of amending).
Not sure if really the workbook needs to be viewed, but not sure how I
can post this to the group?
Any ideas?
Matt
Sub Change_To_Date_Format()
Dim C As Range
Dim EndCell As String
Range("J3").Select
EndCell = ActiveCell.End(xlDown).Address
Range("J3", EndCell).Select
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,
_
ReplaceFormat:=False
End Sub
.
- Follow-Ups:
- Re: Strange find and replace query
- From: Per Jessen
- Re: Strange find and replace query
- Prev by Date: RE: Reading a CSV file into an Excel w/b
- Next by Date: Re: XL2002: XY Chart and Image Position...
- Previous by thread: vba to send email attachment
- Next by thread: Re: Strange find and replace query
- Index(es):
Relevant Pages
|
Loading