[SOLVED] need help righting script to sort rows alphabetically then seperate them to

Hello, can anybody please help me I am new to script righting and was
trying to figure out how to sort my table.

I have a table that is at least 800 rows and about 5 columns wide.
short example of a row would be

ROW column B column C column D column E
1 j1-2 u13-2 j12-4 e3-6
2 e6-34 u12-2


So I found this script (at bottom) that somebody did for somebody else
that sorts each row individually alphabetically and it doesn't touch
column A which is what I need but every time I have to edit the script
with how deep and how wide it is, is there a way so that after you run
the script it will prompt you how deep and wide you want it. But also I
still need it to seperate each column so no one has more than one
starting letter. example after it is sorted it would look like this:

ROW column B column C column D column E
1 j1-2 j12-4 e3-6 u13-2
2 e6-34 u12-2

Some have 3 "j's" some have 3 "u's" its somewhat random. is there any
way to do this. Right now with the script I found after it alphabatize
them. I would then have to sort the columns alphabetically then
manually go down the list and shift over the remaining columns to the
first column with that letter. then resort and continue this tell there
is no column with more then one starting letter (except the first). I
would just do it manually except I have to do this a couple times and
each one can get around 800-900 rows deep. Thanks in advance for the
help.



Sub SortRows()


Dim r As Long
Dim lrow As Long


Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
lrow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row


'Make the r = 3 whatever the first row of data you want to sort on is.
'The Cells(r, 2) means your data starts in Col 2 or Col B - adjust as
necessary
'The resize(1, 4) expands the range to 1 cell deep by 4 cells wide


For r = 3 To lrow
With Cells(r, 2).Resize(1, 4)
.Sort Key1:=Cells(r, 1), Order1:=xlAscending, Header:=xlGuess,
_
Orientation:=xlLeftToRight, DataOption1:=xlSortNormal
End With
Next r


Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic


End Sub

Sub SortRows()


Dim r As Long
Dim lrow As Long
Dim col as Long, rStart as Long

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

rStart = Inputbox("Enter first row to sort")
col = InputBox("Enter # of columns)
lrow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row


'Make the r = 3 whatever the first row of data you want to sort on is.
'The Cells(r, 2) means your data starts in Col 2 or Col B - adjust as
necessary
'The resize(1, 4) expands the range to 1 cell deep by 4 cells wide


For r = rStart To lrow
With Cells(r, 2).Resize(1, col)
.Sort Key1:=Cells(r, 1), Order1:=xlAscending, Header:=xlGuess, _
Orientation:=xlLeftToRight, DataOption1:=xlSortNormal
End With
Next r


Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic


End Sub

--
Regars,
Tom Ogilvy

<[email protected]> wrote in message
news:[email protected]...
> Hello, can anybody please help me I am new to script righting and was
> trying to figure out how to sort my table.
>
> I have a table that is at least 800 rows and about 5 columns wide.
> short example of a row would be
>
> ROW column B column C column D column E
> 1 j1-2 u13-2 j12-4 e3-6
> 2 e6-34 u12-2
>
>
> So I found this script (at bottom) that somebody did for somebody else
> that sorts each row individually alphabetically and it doesn't touch
> column A which is what I need but every time I have to edit the script
> with how deep and how wide it is, is there a way so that after you run
> the script it will prompt you how deep and wide you want it. But also I
> still need it to seperate each column so no one has more than one
> starting letter. example after it is sorted it would look like this:
>
> ROW column B column C column D column E
> 1 j1-2 j12-4 e3-6 u13-2
> 2 e6-34 u12-2
>
> Some have 3 "j's" some have 3 "u's" its somewhat random. is there any
> way to do this. Right now with the script I found after it alphabatize
> them. I would then have to sort the columns alphabetically then
> manually go down the list and shift over the remaining columns to the
> first column with that letter. then resort and continue this tell there
> is no column with more then one starting letter (except the first). I
> would just do it manually except I have to do this a couple times and
> each one can get around 800-900 rows deep. Thanks in advance for the
> help.
>
>
>
> Sub SortRows()
>
>
> Dim r As Long
> Dim lrow As Long
>
>
> Application.ScreenUpdating = False
> Application.Calculation = xlCalculationManual
> lrow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
>
>
> 'Make the r = 3 whatever the first row of data you want to sort on is.
> 'The Cells(r, 2) means your data starts in Col 2 or Col B - adjust as
> necessary
> 'The resize(1, 4) expands the range to 1 cell deep by 4 cells wide
>
>
> For r = 3 To lrow
> With Cells(r, 2).Resize(1, 4)
> .Sort Key1:=Cells(r, 1), Order1:=xlAscending, Header:=xlGuess,
> _
> Orientation:=xlLeftToRight, DataOption1:=xlSortNormal
> End With
> Next r
>
>
> Application.ScreenUpdating = True
> Application.Calculation = xlCalculationAutomatic
>
>
> End Sub
>

Thanks that solved part of the now do you have any idea at how I would
approach the other problem. Like I said I don't really know how to
right script yet, but for this issue I don't know anyway of how to set
this up. Do you have an idea of how to start ways I could approach
this. Thanks again.