Makro og VBA - overførsel til andet ark og sortering

overførsel til andet ark og sortering

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3221
Udskrevet den: 27.Nov.2024 kl. 04:14

Emne: overførsel til andet ark og sortering

Besked fra: AFrisk
Emne: overførsel til andet ark og sortering
Posteringsdato: 02.Nov.2017 kl. 09:04

Hej.

Er der nogle der kan hjælpe med dette modul.

Hvordan får jeg det til at sorterer alfabetisk og ikke numerisk?¨

Modulet ser således ud og er "tyvstjålet" fra en anden tråd.

Sub Sorter()
'
' Sorter Makro
'

'
    Range("A2:B50").Select
    ActiveWorkbook.Worksheets("mødeliste").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("mødeliste").Sort.SortFields.Add Key:=Range( _
        "A2:A50"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("mødeliste").Sort
        .SetRange Range("A2:B45")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Svar:

Besked fra: Mads32
Posteringsdato: 02.Nov.2017 kl. 16:59

Hej

En makro skrevet på denne måde sorter på tal

ActiveCell.Range("A1:B18").Select

ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Clear

Ac tiveWorkbook.Worksheets("Ark1").Sort.SortFields.Add Key:=ActiveCell.Offset( _

0, 1).Range("A1:A17"), SortOn:=xlSortOnValues, Order:=xlAscending, _

DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Ark1").Sort

.SetRange ActiveCell.Offset(-1, 0).Range("A1:B18")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With