Sortering in werkblad

[gary3890]

Ik heb een werkblad met een aantal tabellen erin. Is het mogelijk dat ik kan sorteren op naam, de tabellen dienen verder intact te blijven. het zou alleen mooi zijn als ik mezelf niet krom moet zoeken naar een naam. Dit is mij tot heden nog niet gelukt, het mag eventueel ook met een macroknop.

Bekijk bijlage Map1.xlsx

 

[Haije]

Gary,

kun je hier mee leven?

 

[gary3890]

Bedankt voor de snelle reactie. Dat is inderdaad al weer een stap verder! Maar het is nu nog niet mogelijk om alle tabellen in alfabetische volgorde te zien toch? Dat is het geen wat ik het liefst zie.

 

[gast0660]

Hoi,
Andere benadering

 

[Haije]

Maar het is nu nog niet mogelijk om alle tabellen in alfabetische volgorde te zien toch?

welke tabellen dan niet?

@gast0660: mooi!

 

[gary3890]

Als ik op sorteren van A --> Z druk, dan gaan alle cellen door elkaar. Ik weet niet of ik iets verkeerd doe.

 

[gary3890]

Hoi,
Andere benadering

Super, inderdaad een andere benadering, dit zou ook een optie kunnen zijn!

 

[gary3890]

Het gaat erom dat ik het overzichtelijk krijg, andere oplossingen kunnen ook helpen

 

[VenA]

Waarom maak je niet gewoon 1 tabel? Het sorteren van opgemaakte toestanden kan wel maar ik zie het nut er niet van in. test maar even

Sub VenA()
With Sheets("soc scores crew")
  lr = .Cells(Rows.Count, 3).End(xlUp).Row
  .Cells(3, 53) = "=IF(INDEX($B$1:$B$" & lr & " ,(INT((ROW()+3)/6)-1)*6+3)=0,""ZZZZ"" & ROW(),INDEX($B$1:$B$" & lr & " ,(INT((ROW()+3)/6)-1)*6+3) & ROW())"
  .Cells(3, 53).AutoFill Cells(3, 53).Resize(lr - 2)
  .Columns(53) = .Columns(53).Value
  .Cells(3, 2).Resize(lr - 2, 53).Sort .Cells(3, 53)
End With
End Sub

 

[Piet Bom]

Ik heb er een tabel van gemaakt met rechts 2 hulpkolommen waar je op kunt sorteren.
Met een klik op de button.................

 

[VenA]

@Piet Bom,

Waar zijn alle vervelende lege rijen uit het voorbeeld van de TS gebleven?

 

[Piet Bom]

Die heb ik verwijderd.
Met een tabel kun je eenvoudig de laatste sectie kopieeren en plakken aan het eind van de tabel.
De formules worden dan automatisch aangevuld.