Macro - Data Sort -Variable Selection

[Frantic Excel-er]

Hi all!!!

I am trying to get my macro to run a sort in a non specific cell for column
D.....there are many steps up to this point, I will include the last couple
in the code...here is what I have so far....

Columns("C:C").Find(What:="x").EntireRow.Insert
Columns("C:C").Find(What:="x").EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Sort Key1:=Range("D63"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Instead of the range being specific for D63, I want it to select the D
column after if finds X to the end of the wkst. Any ideas on how I can
accomplish this???

Thanks in advance......

[Dave Peterson]

..Sort is pretty forgiving. Didn't it work using D63?

I've used:

....key1:=range("d:d"), ...

And that works, too.

Frantic Excel-er wrote:
>
> Hi all!!!
>
> I am trying to get my macro to run a sort in a non specific cell for column
> D.....there are many steps up to this point, I will include the last couple
> in the code...here is what I have so far....
>
> Columns("C:C").Find(What:="x").EntireRow.Insert
> Columns("C:C").Find(What:="x").EntireRow.Select
> Range(Selection, Selection.End(xlDown)).Select
> Range(Selection, Selection.End(xlToRight)).Select
> Selection.Sort Key1:=Range("D63"), Order1:=xlAscending, Header:=xlGuess, _
> OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
>
> Instead of the range being specific for D63, I want it to select the D
> column after if finds X to the end of the wkst. Any ideas on how I can
> accomplish this???
>
> Thanks in advance......
>
>

--

Dave Peterson

[Frantic Excel-er]

Selecting "d:d" works, but it will select the whole column... I only want to
sort the selection after I find x and sort that....

"Dave Peterson" wrote:

> ..Sort is pretty forgiving. Didn't it work using D63?
>
> I've used:
>
> ....key1:=range("d:d"), ...
>
> And that works, too.
>
> Frantic Excel-er wrote:
> >
> > Hi all!!!
> >
> > I am trying to get my macro to run a sort in a non specific cell for column
> > D.....there are many steps up to this point, I will include the last couple
> > in the code...here is what I have so far....
> >
> > Columns("C:C").Find(What:="x").EntireRow.Insert
> > Columns("C:C").Find(What:="x").EntireRow.Select
> > Range(Selection, Selection.End(xlDown)).Select
> > Range(Selection, Selection.End(xlToRight)).Select
> > Selection.Sort Key1:=Range("D63"), Order1:=xlAscending, Header:=xlGuess, _
> > OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
> >
> > Instead of the range being specific for D63, I want it to select the D
> > column after if finds X to the end of the wkst. Any ideas on how I can
> > accomplish this???
> >
> > Thanks in advance......
> >
> >
>
> --
>
> Dave Peterson
>

[Dave Peterson]

Don't select column D.

But do use it in the key1:=range("d:d") portion.

Then what happens?

Frantic Excel-er wrote:
>
> Selecting "d:d" works, but it will select the whole column... I only want to
> sort the selection after I find x and sort that....
>
> "Dave Peterson" wrote:
>
> > ..Sort is pretty forgiving. Didn't it work using D63?
> >
> > I've used:
> >
> > ....key1:=range("d:d"), ...
> >
> > And that works, too.
> >
> > Frantic Excel-er wrote:
> > >
> > > Hi all!!!
> > >
> > > I am trying to get my macro to run a sort in a non specific cell for column
> > > D.....there are many steps up to this point, I will include the last couple
> > > in the code...here is what I have so far....
> > >
> > > Columns("C:C").Find(What:="x").EntireRow.Insert
> > > Columns("C:C").Find(What:="x").EntireRow.Select
> > > Range(Selection, Selection.End(xlDown)).Select
> > > Range(Selection, Selection.End(xlToRight)).Select
> > > Selection.Sort Key1:=Range("D63"), Order1:=xlAscending, Header:=xlGuess, _
> > > OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
> > >
> > > Instead of the range being specific for D63, I want it to select the D
> > > column after if finds X to the end of the wkst. Any ideas on how I can
> > > accomplish this???
> > >
> > > Thanks in advance......
> > >
> > >
> >
> > --
> >
> > Dave Peterson
> >

--

Dave Peterson