Temat: Makro do sortowania według kolumny

witam,

Prośba jak przekształcić nagrane makro aby przy sortowanie względem kolumny B
makro brało pod uwagę zmienny zakres "SetRange" w zależności od tego ile komórek wypełnionych jest w danym skoroszycie.Można by pewnie
użyć:
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

ale jak to wkomponować w nagrane makro????. Chyba, że ma ktoś inny pomysł??

Nagrane makro które ma być przekształcone
Columns("B:B").Select
ActiveWorkbook.Worksheets("Arkusz1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Arkusz1").Sort.SortFields.Add Key:=Range("B1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Arkusz1").Sort
.SetRange Range("A2:F202").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply

Pozdrawiam

Temat: Makro do sortowania według kolumny

Mały błąd nagrane makro wygląda tak:
Columns("B:B").Select
ActiveWorkbook.Worksheets("Arkusz1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Arkusz1").Sort.SortFields.Add Key:=Range("B1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Arkusz1").Sort
.SetRange Range("A2:F202").Select
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply

Temat: Makro do sortowania według kolumny

Spróbuj tego

With ThisWorkbook.Worksheets("Arkusz1").Sort

    .SortFields.Clear

    .SortFields.Add Key:=Range("B1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    .SetRange ThisWorkbook.Worksheets("Arkusz1").UsedRange

    .Header = xlNo

    .MatchCase = False

    .Orientation = xlTopToBottom

    .SortMethod = xlPinYin

    .Apply

End With

Nie jest to rozwiązanie idealne, ale powinno załatwić sprawę.Marcin Szczepanik edytował(a) ten post dnia 15.09.11 o godzinie 11:35