Macro niet uitvoeren in eerste drie tabbladen, rest wel.

[Partis]

Beste,

Ik heb een macro die van alle tabbladen een bepaalde range van rijen automatisch op datum sorteert. Nu wil ik dat de eerste drie tabbladen niet worden gesorteerd. Wie kan mij helpen.

Dit is mijn script:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each Sh In ThisWorkbook.Sheets
Select Case Sh.Name
Case "Naam Eerste Blad"
Case Else
Sh.Range("A27:c150").Sort Key1:=Sh.Range("a27"), Order1:=xlDescending
End Select
Next
End Sub

 

[Conseclusie]

Je had 'm in feite al zo goed als:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each Sh In ThisWorkbook.Sheets
    Select Case Sh.Name
        Case "<naam van blad1>", "<naam van blad2>", "<naam van blad3>"
        Case Else
            Sh.Range("A27:C150").Sort Key1:=Sh.Range("A27"), Order1:=xlDescending
    End Select
    Next
End Sub

 

[Partis]

Dag Conseclusie,

Dank voor je reactie. Ik heb de code ingevoerd, maar hij blijft in alle 3 de bladen de rijen op chronologisch volgorde en bovenaan plaatsen vanaf A27.
Zie hieronder zoals ik de code heb ingevoerd...


Wat gaat er fout?

 

[Conseclusie]

De tabblad-namen dien je over te nemen met alleen " eromheen, dus zonder < of >.
Voeg anders even een voorbeeldbestand toe; da's handiger dan plaatjes.

 

[Partis]

Dag,

Ook dan lukt het niet. Ik stuur je een voorbeeldbestandje mee.

Bekijk bijlage Testmap.xlsm

 

[Conseclusie]

...dat bestand is beveiligd met een wachtwoord. Ik kan 'm dus niet openen.

 

[Partis]

Oeps... nu zonder wachtwoord!

Bekijk bijlage Testmap.xlsm

 

[Conseclusie]

Je hebt de event-macro in een "gewone" module gehangen. Verwijder deze module in z'n geheel.
Onder "ThisWorkbook" moet de volgende macro gehangen worden:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each Sh In ThisWorkbook.Sheets
    Select Case Sh.Name
        Case "Lijst", "actie", "Afspraken"
        Case Else
            Sh.Range("A27:C150").Sort Key1:=Sh.Range("A27"), Order1:=xlDescending
    End Select
    Next
End Sub

 

[Partis]

Dag Conseclusie,

Ja! Nu is het gelukt. Hartstikke bedankt!!!

Groeten, Partis