• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Sorteren liever niet blad gebonden

Status
Niet open voor verdere reacties.
T

Tsarevitsj

Gebruiker
Lid geworden
10 jun 2005
Berichten
71
Goedenavond,

Zoals uit onderstaand blijkt is in deze macro het sorteren bladgebonden. Nu wil ik de macro graag in 12 bladen gebruiken zonder dat hij bladgebonden is.
Heeft iemand daar een ideetje over?

Bij voorbaat dank

Code: 
Sub Macro8()
        ActiveWorkbook.Worksheets("Jan").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Jan").Sort.SortFields.Add Key:=Range("B6"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Jan").Sort
        .SetRange Range("B6:K139")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
 
Laatst bewerkt:
Probeer dit:
vervang alle
Code: 
ActiveWorkbook.Worksheets("Jan")
door
Code: 
Activesheet
 
Het is natuurlijk altijd weer het meest voor de hand liggend en lekker simpel maar kom er maar op. Heel veel dank Timshel en alvast fijne feestdagen!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan