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

wrote in message
ps.com...
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.