automatisch sorteren voor alle tabbladen

[Partis]

Beste,

Ik wil wil dat onderstaande vba-code geldt voor alle tabbladen. Nu doet hij het alleen voor tabblad 1. Wie kan mij helpen?

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Range("A16:c100").Sort Key1:=Range("a16"), Order1:=xlDescending
End Sub


Groeten, Vincent

 

[Roncancio]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Range("A16:c100").Sort Key1:=Range("a16"), Order1:=xlDescending

End Sub

Met vriendelijke groet,


Roncancio

 

[Cobbe]

Als je deze in ThisWorkbook plakt zou het dan lukken?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 For Each Sh In ThisWorkbook.Sheets
  Sh.Range("A16:c100").Sort Key1:=Range("a16"), Order1:=xlDescending
 Next
End Sub

 

[Partis]

Dag Cobbe en Ronancio,

Dank voor jullie reactie. Maar bij beide codes lukt het niet.

Groeten, Vincent

 

[Roncancio]

Cobbe,

Volgens mij wil TS alleen dat de huidige sheet wordt gesorteerd.
Verder zat in je code een foutje:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each Sh In ThisWorkbook.Sheets
Sh.Range("A16:c100").Sort Key1:=Sh.Range("a16"), Order1:=xlDescending
Next
End Sub

Met vriendelijke groet,


Roncancio

 

[Roncancio]

Wat lukt er niet?
Staat de code bij ThisWorkbook?

Met vriendelijke groet,


Roncancio

 

[Partis]

Dag Roncancio,

Het is inmiddels gelukt!!! Hartstikke bedankt voor jullie hulp!!!! Hier kan ik mee vooruit!

Groeten, Vincent

 

[Roncancio]

Dan kan je de topic afsluiten door de vraag op opgelost te zetten.
Met vriendelijke groet,


Roncancio

 

[Partis]

Beste Roncancio,

Nou heb ik de code iets aangepast om een wat breder bereik te krijgen. Ik heb binnen het bereik (A16: d100) de kolommen b en c per rij samengevoegd. Omdat dit lay-out technisch beter uitkomt.
Maar dan geeft hij een foutmelding:
fout 1004 tijdens uitvoering:
Voor deze bewerking moeten alle samengevoegde cellen dezelfde afmetingen hebben

Wat gaat er fout?

 

[Roncancio]

Het samenvoegen van cellen wordt sterk afgeraden.
Dat geeft vaak problemen.

Met vriendelijke groet,


Roncancio

 

[Cobbe]

Om dezelfde layout te behouden kan je de gegevens van kolom C+D ipv samenvoegen gewoon de inhoud over beide cellen centreren via de cel-eigenschappen.

 

[Partis]

OK! dank je!