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
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: