09. oktober 2008 - 10:58
Der er
1 kommentar
Simpel kolonne sortering
Jeg har et meget simpelt spørgsmål for jer :-)
Jeg skal via Visual Basic (VS) sortere efter kolonne A dernæst B og slutteligt C i worksheet("ark2"). Kolonnerne indeholder KUN tal, så koden behøves vidst ikke være super detaljeret (har jeg ladt mig fortælle) Jeg har ikke brugt VS særlig mange gange før så dit svar skal helst indeholde hele koden.
Sub tak()
"Hvad skal jeg skrive her??"
End sub
16. oktober 2010 - 01:52
#1
Hejsa,
Du kan jo prøve nedenstående kode.
Den virker for mig.
Sub Makro2()
Cells(1, 1).Select
ActiveWorkbook.Worksheets("Ark2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Ark2").Sort.SortFields.Add Key:=Columns(1), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Ark2").Sort.SortFields.Add Key:=Columns(2), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Ark2").Sort.SortFields.Add Key:=Columns(3), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Ark2").Sort
.SetRange Columns("A:C")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Cells(1, 1).Select
End Sub