Column sorting

I want to be able to re-sort two columns of information every time I make a
new entry. I want it to start in alphabetical order in the first column and
finish off evenly in the second. ex:

column A Column B
a e if I make an entry to column
A (f), I want the
b g program to sort it and place
it in column B
c h between the e and g. It
needs to resize the
d columns and make both column
entries equal.
f

Try this:

Sub ABCDEF()
'Set the two columns here as Col1 and Col2
Const Col1 = "A"
Const Col2 = "B"
Dim LastRow As Long, NextRow As Long
LastRow& = Range(Col2 & Rows.Count).End(xlUp).Row
NextRow& = Range(Col1 & Rows.Count).End(xlUp).Row + 1
Range(Col2 & "1:" & Col2 & LastRow&).Cut _
Destination:=Range(Col1 & NextRow&)
Range(Col1 & NextRow&).Select
Columns(Col1 & ":" & Col1).Select
Selection.Sort Key1:=Range(Col1 & "1"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
LastRow& = Range(Col1 & Rows.Count).End(xlUp).Row
Range(Col1 & (CInt(LastRow& / 2) + 1) & ":" & Col1 & LastRow&).Cut _
Destination:=Range(Col2 & "1")
Range(Col2 & "1").Select
End Sub

No provision was made for column headings.

Hope this helps,

Hutch

"ukyob" wrote:

> I want to be able to re-sort two columns of information every time I make a
> new entry. I want it to start in alphabetical order in the first column and
> finish off evenly in the second. ex:
>
> column A Column B
> a e if I make an entry to column
> A (f), I want the
> b g program to sort it and place
> it in column B
> c h between the e and g. It
> needs to resize the
> d columns and make both column
> entries equal.
> f
>

"Tom Hutchins" wrote:

> Try this:
>
> Sub ABCDEF()
> 'Set the two columns here as Col1 and Col2
> Const Col1 = "A"
> Const Col2 = "B"
> Dim LastRow As Long, NextRow As Long
> LastRow& = Range(Col2 & Rows.Count).End(xlUp).Row
> NextRow& = Range(Col1 & Rows.Count).End(xlUp).Row + 1
> Range(Col2 & "1:" & Col2 & LastRow&).Cut _
> Destination:=Range(Col1 & NextRow&)
> Range(Col1 & NextRow&).Select
> Columns(Col1 & ":" & Col1).Select
> Selection.Sort Key1:=Range(Col1 & "1"), Order1:=xlAscending, _
> Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
> Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
> LastRow& = Range(Col1 & Rows.Count).End(xlUp).Row
> Range(Col1 & (CInt(LastRow& / 2) + 1) & ":" & Col1 & LastRow&).Cut _
> Destination:=Range(Col2 & "1")
> Range(Col2 & "1").Select
> End Sub
>
> No provision was made for column headings.
>
> Hope this helps,
>
> Hutch
>
> "ukyob" wrote:
>
> > I want to be able to re-sort two columns of information every time I make a
> > new entry. I want it to start in alphabetical order in the first column and
> > finish off evenly in the second. ex:
> >
> > column A Column B
> > a e if I make an entry to column
> > A (f), I want the
> > b g program to sort it and place
> > it in column B
> > c h between the e and g. It
> > needs to resize the
> > d columns and make both column
> > entries equal.
> > f
> >
Thanks for the info. Hutch. I need to explain that I am not well versed in
Excel therefore I really do not know how to use the formula you provided.
Can you start me off? Better yet can you provide me with an excel
spreadsheet with examples and all I have to do is substitute my information.
My e-mail is obie2@optonline.net
Thanks again for your effort and time.

"ukyob" wrote:

>
>
> "Tom Hutchins" wrote:
>
> > Try this:
> >
> > Sub ABCDEF()
> > 'Set the two columns here as Col1 and Col2
> > Const Col1 = "A"
> > Const Col2 = "B"
> > Dim LastRow As Long, NextRow As Long
> > LastRow& = Range(Col2 & Rows.Count).End(xlUp).Row
> > NextRow& = Range(Col1 & Rows.Count).End(xlUp).Row + 1
> > Range(Col2 & "1:" & Col2 & LastRow&).Cut _
> > Destination:=Range(Col1 & NextRow&)
> > Range(Col1 & NextRow&).Select
> > Columns(Col1 & ":" & Col1).Select
> > Selection.Sort Key1:=Range(Col1 & "1"), Order1:=xlAscending, _
> > Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
> > Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
> > LastRow& = Range(Col1 & Rows.Count).End(xlUp).Row
> > Range(Col1 & (CInt(LastRow& / 2) + 1) & ":" & Col1 & LastRow&).Cut _
> > Destination:=Range(Col2 & "1")
> > Range(Col2 & "1").Select
> > End Sub
> >
> > No provision was made for column headings.
> >
> > Hope this helps,
> >
> > Hutch
> >
> > "ukyob" wrote:
> >
> > > I want to be able to re-sort two columns of information every time I make a
> > > new entry. I want it to start in alphabetical order in the first column and
> > > finish off evenly in the second. ex:
> > >
> > > column A Column B
> > > a e if I make an entry to column
> > > A (f), I want the
> > > b g program to sort it and place
> > > it in column B
> > > c h between the e and g. It
> > > needs to resize the
> > > d columns and make both column
> > > entries equal.
> > > f
> > >
> Thanks for the info. Hutch. I need to explain that I am not well versed in
> Excel therefore I really do not know how to use the formula you provided.
> Can you start me off? Better yet can you provide me with an excel
> spreadsheet with examples and all I have to do is substitute my information.
> My e-mail is obie2@optonline.net
> Thanks again for your effort and time.

Thanks for the reply. I should have known that the formula was a macro. I
just was not thinking. The program works beautifully. Thanks again for your
time and effort.