Sorteren

[verluc]

Heb een sheet waar ik het volgende wil sorteren in the range A3:N200
Rijen te sorteren op basis van een waarde die vooraf met Msgbox word ingegeven, dit geldig voor kolom F
Dus ingave Msgbox is bv <0,85, dan sorteren op basis van kolom F met alle waarden die kleiner zijn dan 0,85

Bedankt voor het geven van een aanzet in deze.

 

[sylvester-ponte]

voor zet: stuur een voorbeeld bestand zonder persoonlijke gegevens ,
en geef aan welke waarden in de msgbox moeten komen.

 

[verluc]

Onderstaand de macro die ik thans in gebruik heb.
Bedoeling is dat van de autofilter een variabele gemaakt word zodat dit ook via een inputbox kan worden ingegeven.
(nu staat deze vast in de macro en dient telkens manueel te worden aangepast)
Met dank bij voorbaat voor elke hulp.

Sub Sorting()
Application.ScreenUpdating = False
Sheets("Selectie").Cells.ClearContents
With Sheets("Portefeuille (10)").UsedRange
x = InputBox("Vul kolomnummer in", "Kolomkeuze")
If Val(x) = 0 Then Exit Sub
.Range("A4:N200").Interior.ColorIndex = 0
.AutoFilter x, "<0,07"
.Copy Sheets("Selectie").Cells(65536, 1).End(xlUp)
.AutoFilter
.Columns(1).Resize(1, .Columns.Count).AutoFit
End With
Application.ScreenUpdating = True
End Sub

 

[sylvester-ponte]

zet onder de regel met "x ="
y = InputBox("Vul Filterwaarde in", "Filter")
en maak van ".AutoFilter x, "<0,07"
.AutoFilter x, y

 

[verluc]

Beste Sylvester, zeer bedankt voor Uw gegevens oplossing aan mijn probleem.
Werkt zoals ik het gewenst had.
Nogmaals hartelijk dank en zet de vraag als "opgelost"

 

[verluc]

Sylvester,

Toch nog een kleine bemerking in verband met Uw gegevens oplossing:

De gegevens staan in A4 : N200
In kolom P heb ik knoppen staan waarachter uit te voeren macro's zitten.
In de sheet "Selectie" neemt hij deze knoppen ook mee.
Is dit te voorkomen ?
Met dank.

 

[sylvester-ponte]

graag een klein voorbeeldbestandje aub

 

[verluc]

Sylvester,

Zou het kunnen dat de regel met "Usedrange" de oorzaak kan zijn.
Heb hiervan gemaakt A4:N200 doch blijkt niet de oplossing.
Groeten.

 

[sylvester-ponte]

je zegt dat de knoppen in een bepaalde kolom staan.
wat bedoel je daar mee?
gebruik je de cellen zelf als knoppen?

voorbeeldje graag

 

[verluc]

Sylvester,

Door het lezen van Uw vraag ben ik tot de vaststelling gekomen dat de knoppen blijkbaar
er op één of andere manier reeds vroeger stonden, om reden dat wanneer ik deze
knoppen verwijder (knippen) deze fout niet meer voorkomt.
Dus: twee mensen weten meer dan één !
Met mijn oprechte en gemeende dank !