VBScript to Sort a range by row

[mipszzz]

I have been searching Google and this forum but have not found a solution that works for me. Hopefully someone can help. I have very little scripting experience but I am really good at copying and pasting!

I have a spreadsheet listing servers with a series of columns listing their features. I need to sort the features range for each row with a script. I can of course manually highlight the range of features for row 1, then sort it. Then move to row 2 and repeat. I want to be able to do this in a script. in addition, the number of servers in each spreadsheet can differ so I need to the script to be able to repeat the process until it runs out of servers listed in column 1

Any guidance would be greatly appreciated!

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]HostName
[/TD]
[TD]O/S
[/TD]
[TD]IP
[/TD]
[TD]Feature1
[/TD]
[TD]Feature2
[/TD]
[TD]Feature 3
[/TD]
[/TR]
[TR]
[TD]Server1
[/TD]
[TD]Srv2008
[/TD]
[TD]10.0.40.10
[/TD]
[TD]DC
[/TD]
[TD]DNS
[/TD]
[TD]DHCP
[/TD]
[/TR]
[TR]
[TD]Server2
[/TD]
[TD]Srv2003
[/TD]
[TD]10.0.40.11
[/TD]
[TD]File
[/TD]
[TD]Print
[/TD]
[TD]DFS
[/TD]
[/TR]
[TR]
[TD]Server3
[/TD]
[TD]Srv2012
[/TD]
[TD]10.0.40.12
[/TD]
[TD]Exchange
[/TD]
[TD]IIS
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Server4
[/TD]
[TD]Srv2012
[/TD]
[TD]10.0.44.10
[/TD]
[TD]Exchange
[/TD]
[TD]IIS
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Server5
[/TD]
[TD]Srv2003
[/TD]
[TD]10.0.44.11
[/TD]
[TD]File
[/TD]
[TD]Print
[/TD]
[TD]DFS
[/TD]
[/TR]
</tbody>[/TABLE]

 

[joemeshuggah]

maybe something like this? sheet name would need to be modifiedSub Macro1()
'
Application.ScreenUpdating = False
'Get Last Row

LastRow = Range("A1000000").End(xlUp).Row

'Sort
For i = 2 To LastRow
Range("D" & i & ":F" & i).Select
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("D" & i), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet2").Sort
.SetRange Range("D" & i & ":F" & i)
.Header = xlNo
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
Next i
Application.ScreenUpdating = True
End Sub

 

[mipszzz]

THANKS!!!

That worked the first time 'round