Symphysodon
Gebruiker
- Lid geworden
- 14 dec 2012
- Berichten
- 468
Beste forummers,
Om gek van te worden. Ik probeer een sorteer code te maken horizontaal en verticaal
Het laatste gedeelte werkt dus niet. Het deel tussen quotes (macrorecorder) werkt wel. Zoek de verschillen.
Alvast bedankt.
mvg
Marco
Om gek van te worden. Ik probeer een sorteer code te maken horizontaal en verticaal
Code:
Sub sorteer()
Dim inputWs As Worksheet
Set inputWs = ActiveWorkbook.Sheets("Exported Analyses")
Dim lR As Long
Dim lK As Long
Dim sorteerRng As Range
lR = inputWs.Cells(Rows.Count, 1).End(xlUp).Row
lK = inputWs.Cells(1, Columns.Count).End(xlToLeft).Column
inputWs.Columns(9).NumberFormat = "@"
Set horRng = inputWs.Range(inputWs.Cells(1, 10), inputWs.Cells(lR, lK)) 'horizon
Set sorteerRng = horRng
With inputWs.Sort
.SortFields.Clear
.SortFields.Add2 sorteerRng.Rows(1), xlSortOnValues, xlAscending, xlSortNormal
.SetRange sorteerRng
.Header = xlYes
.MatchCase = False
.Orientation = 2
.SortMethod = xlPinYin
.Apply
End With
'Deze code werkt wel!!!
' Range("I1").Select
' Range(Selection, Selection.End(xlToRight)).Select
' Range(Selection, Selection.End(xlDown)).Select
' ActiveWorkbook.Worksheets("Exported Analyses").Sort.SortFields.Clear
' ActiveWorkbook.Worksheets("Exported Analyses").Sort.SortFields.Add2 Key:= _
' Range("I1:I15"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
' xlSortTextAsNumbers
' With ActiveWorkbook.Worksheets("Exported Analyses").Sort
' .SetRange Range("I1:AJ15")
' .Header = xlYes
' .MatchCase = False
' .Orientation = xlTopToBottom
' .SortMethod = xlPinYin
' .Apply
' End With
'Deze code werkt niet.
Set vertRng = inputWs.Range(inputWs.Cells(1, 9), inputWs.Cells(lR, lK)) 'vert
Set sorteerRng = vertRng
sorteerRng.Select
With inputWs.Sort
.SortFields.Clear
.SortFields.Add2 inputWs.Range(inputWs.Cells(1, 9), inputWs.Cells(lR, 9)), xlSortOnValues, xlAscending, xlSortTextAsNumbers
.SetRange sorteerRng
.Header = xlYes
.MatchCase = False
.Orientation = 1
.SortMethod = xlPinYin
.Apply
End With
End Sub
Het laatste gedeelte werkt dus niet. Het deel tussen quotes (macrorecorder) werkt wel. Zoek de verschillen.
Alvast bedankt.
mvg
Marco