VBA code om meerdere kolommen te sorteren

[dbk]

Hallo,

Ik heb op dit forum een VBA code gevonden om twee kolommen te sorteren.
Graag zou ik deze willen uitbreiden met meerdere kolommen.

Hieronder volgt de code zoals ik hem nu gebruik voor twee kolommen:

Sub sorteren_systeemdeel_per_uitvoerende2()
  Application.Calculation = False
    With Blad03.Range( _
        "A9:AG150")
      .Sort .Columns(4), , .Columns(5)
      End With
  Application.Calculation = True
End Sub

Het is nu de bedoeling dat hij gaat sorteren vanaf kolom 4 tot en met 33.

Kan iemand mij helpen?

Alvast bedankt!

groet,
DBK

 

[Jack Nouws]

Hallo,

Ik denk dat je met de FOR ...NEXT methode moet werken.
Dus zoals dit voorbeeld

Sub sorteren_systeemdeel_per_uitvoerende2()
  Application.Calculation = False
  For i = 4 To 33
    With [Blad03!A9:AG150]
      .Sort .Columns(i)
    End With
  Next
  Application.Calculation = True
End Sub

Met vr gr
Jack

 

[dbk]

Beste Jack,

De VBA code overgenomen, maar helaas werkt hij niet.
Hij geeft de foutmelding:

Fout 424 tijdens uitvoering
Object vereist.

Met vriendelijke groet,
DBK

 

[Jack Nouws]

Hallo,

Kijk of je blad verwijzing juist is.
Bij mij werkt het nl wel.

Sub sorteren_systeemdeel_per_uitvoerende2()
  Application.Calculation = False
  For i = 4 To 33
    With [[COLOR="blue"]Blad03[/COLOR]!A9:AG150]
      .Sort .Columns(i)
    End With
  Next
  Application.Calculation = True
End Sub

Of plaats een voorbeeld bestandje.
Met vr gr
Jack

 

[dbk]

Hoi Jack,

Bij deze het bestand.

Ik hoop dat je me kunt helpen.

Groet,
Dennis

Bekijk bijlage HelpMij bestand DBK.xls

 

[Jack Nouws]

Hallo,

Ik heb je code aangepast en zou het zo wel moeten doen.

Sub sorteren_systeemdeel_per_uitvoerende2()
  Application.Calculation = False
    With Sheets("Uitvoerenden per systeemdeel")
      For i = 4 To 33
        .[A9:AG150].Sort key1:=.Columns(i), Order1:=xlAscending
      Next
    End With
  Application.Calculation = True
End Sub

Met vr gr
Jack

 

[Jack Nouws]

Hallo,

Ik was je bestand vergeten mee te sturen met de vorige post.

Met vr gr
Jack

 

[dbk]

Goedemorgen Jack,

Bedankt voor de code (en het aangepaste bestand).
De code doet precies wat ik verwacht.

Bedankt!

Groet,
DBK