sorteren

[don42]

Hallo allemaal

wie kan mij helpen met een code om te sorteren
ik wil het graag van kolom 1
A7 : A 38

ik vul daar willekeurig datums in en had dat graag gesorteerd van laag naar hoog

Don

 

[ExcelAmateur]

Don,

Gebruik de macro recorder eens.
Of als je geen zoek angst heb, "Doorzoek dit forum"

 

[ExcelAmateur]

Je zou ook hier kunnen kijken.

 

[Elsendoorn2134]

Don,

Selecteer de cellen A7 : A38 ga in het lint naar gegevens en druk op de knop sorteren.

Veel Succes.

 

[don42]

deze code heb ik hier op het forum gekregen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <= 2 Then Range("A1").Resize(Range("A1").End(xlDown).Offset(-1, 0).Row, 2).Sort Cells(1, Target.Column)
End Sub

ik wil het sorteren zo graag doen
maar dan alleen cel A7 tot A38 (rijen)

is dat mogelijk

Don

 

[ExcelAmateur]

Dit is met de macro recorder opgenomen, had je toch ook zelf kunnen doen.
De macro recorder schrijf alleen te veel code en kun je deze dus inkorten.

Sub Macro1()
    Range("A7:A38").Select
    ActiveWindow.SmallScroll Down:=-18
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("A7"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("A7:A18")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Kijk eerst even of het zo goed werkt.

 

[don42]

ga er mee aan de slag
bedankt

Don