Springen naar inhoud


- - - - -

Kolommen Sorteren


  • Log in a.u.b. om te beantwoorden
Er zijn 2 reacties in dit onderwerp

#1 plekke

plekke

    Senior Developer

  • Leden
  • PipPipPip
  • 135 berichten
    Laatst bezocht 25 mei 2017 21:45

Geplaatst op 20 december 2016 - 21:34

beste


ik wil 4 kolommen alfabetisch sorteren  , eerst op A , dan B  , dan c ,
(in dit voorbeeld zou ik direkt op kol d kunnen sorteren , maar de praktijk heeft het meestal anders nodig )

mijn code doet wel iets , maar laat zijn steken vallen.

heeft iemand zicht wat ik fout doe ?

(mijn vraag lijkt wel wat op  : http://stackoverflow...rted-column-vba)

thx

Bijlage  jl3GIjU.png   6,5K   1 downloads



voor : 20 1 8 2018 30 1 9 3019 20 2 8 2028 30 2 9 3029 20 3 8 2038 30 3 9 3039


na:
20 1 8 2018 20 2 8 2028 20 3 8 2038 30 1 9 3019 30 2 9 3029 30 3 9 3039

Code:
Sub sorteer4()
'Define the variables
Dim rngData As Range
Dim rngKey As Range
'Set the variables
Set rngData = Range("A3:d99")
Set rngKey1 = Range("a1")
Set rngKey2 = Range("b1")
Set rngKey2 = Range("c1")
'Perform the Sort
rngData.Sort key1:=rngKey1, Key2:=rngKey2, Key2:=rngKey3, Header:=xlYes
End Sub



#2 fakie

fakie

    Junior Developer

  • Leden
  • PipPip
  • 87 berichten
    Laatst bezocht 22 mei 2017 20:45
  • Locatiede Flanders

Geplaatst op 18 mei 2017 - 10:14

even vlug via macro record gedaan al begin ik wel op A1 met header

Visual Basic Code:
	ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
	ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("A2:A10"), _
		SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
	ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("B2:B10"), _
		SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
	ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("C2:C10"), _
		SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
	With ActiveWorkbook.Worksheets("Blad1").Sort
		.SetRange Range("A1:C10")
		.Header = xlYes
		.MatchCase = False
		.Orientation = xlTopToBottom
		.SortMethod = xlPinYin
		.Apply
	End With


daar zou je al vlug een afgeleide kunnen van maken

Gr.. Fakie

#3 plekke

plekke

    Senior Developer

  • Leden
  • PipPipPip
  • 135 berichten
    Laatst bezocht 25 mei 2017 21:45

Geplaatst op 25 mei 2017 - 11:59

ik probeer ff thx




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)