sorteerknop

[hckruse]

Hallo, ik probeer een sorteerknop in een werkblad te plaatsen. De knop is geen probleem maar als ik een macro aan deze knop probeer te koppelen is de hoeveelheid informatie die ik zie als ik een macro opneem zo groot dat ik het overzicht kwijt ben. Is er een soort standaard makro met tekst en uitleg over wat de bepaalde onderdelen van de makro doen?
Wellicht kan iemand vBekijk bijlage test1.xlsxoor mij de een overzichtelijkere macro aan een knop koppelen. zie voorbeeld.

 

[Gijsbert1]

Hallo hckruse,

Je kunt toch gewoon de Excel sorteer functie gebruiken?
Maar met knoppen kan het ook: Bekijk bijlage 271539
Let op! is een bestand met Macro's!

Groet Gijsbert

 

[ronato10]

Beste,

Je kan er ook filters aan koppelen alsook sorteren, zie mijn bijlage.

Gr

 

[mumzel]

Binnengekomen bij beheer:

dit was het zetje dat ik nodig had. Bedankt.

 

[snb]

Mij lijkt deze code voldoende:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("A1:G1")) Is Nothing Then
      Target.CurrentRegion.Sort Target, , , , , , , xlYes
      Cancel = True
  End If
End Sub

NB. Gebruik altijd cel A1 (in VBA bijv. vanwege usedrange)