Macro - sorteren met elk mogelijk denkbare selectie van cellen

[DWzelf]

Beste allemaal,

In mijn zoektocht naar oplossingen klop ik wederom hier aan voor de nodige hulp.

Mijn doel is om dmv van een macro een selectie van cellen te laten sorteren.
Echter wil ik steeds een andere selectie kunnen maken, Dus de ene keer gaat het bijvoorbeeld om cellen A2 tem A8 en de andere keer gaat het om H3 tem H16 etc.

Ik kan een macro opnemen om te laten sorteren, maar dan neemt hij altijd de selectie die ik op dat ogenblik maak en heb ik dus niet de vrijheid om steeds een andere selectie van cellen te sorteren.

Kunnen jullie mij de tools aanreiken om tot een oplossing te komen?

Dank!

Wendy

 

[paulva]

selecteren en sorteren

Misschien is dit iets?
Bereik selecteren en rechts klikken. (macro's ingeschakeld natuurlijk)

Beste groeten, Paul.

 

[Jack Nouws]

Hallo,

Hier heb ik een voorbeeldje voor je.
test het maar eens uit in een bestandje.

sub tst()
  for i = 1 To usedrange.columns.count
    columns(i).sort cells(1, i)
  next
end sub

Met vr gr
Jack

 

[DWzelf]

Misschien is dit iets?
Bereik selecteren en rechts klikken. (macro's ingeschakeld natuurlijk)

Beste groeten, Paul.

Hi Paul,

Dank voor de snelle reactie!
Het werkt inderdaad prima.
Ik vroeg me echter af of dit ook kan door de macro toe te wijzen aan een button die op het werkblad staat.
Range selecteren en dan op de button klikken bijvoorbeeld?

Weet ge daar ook een oplossing voor?

Merci,

Wendy

 

[paulva]

knop

Dit dan misschien, Wendy?

 

[DWzelf]

Dit dan misschien, Wendy?

Hi paul, wederom dank.
Inderdaad doet hij het zo. Ik heb echter getracht om de message box weg te halen...dacht dat me dat wel zou lukken
Op de een of andere manier krijg ik dat VBA maar niet onder de knie...
Mijn einddoel is namelijk om zodra de 'sorteren' button gekozen is, er ook direct een beveliging aan te hangen.
Mocht het lukken om deze queeste ook nog duidelijk te maken, dan zou ik daar bijzonder dankbaar voor zijn!

Groet,
Wendy

 

[paulva]

Voor de handigheid heb ik een jpg'tje bijgevoegd.
In menu 'Ontwikkelaars'>Visual Basic>

 

[DWzelf]

Voor de handigheid heb ik een jpg'tje bijgevoegd.
In menu 'Ontwikkelaars'>Visual Basic>

Hi Paul,

Super bedankt, fijn!
Zo'n .jpg doet weer wonderen

het is een stuk duidelijker en na wat experimenteren heb ik het voor elkaar hoor, het werkt echt vlekkeloos.

Op naar de volgende uitdaging zou ik zo zeggen!

Dank voor alle moeite en groet,
Wendy