Door middel van een macro gegevens sorteren

[SidneyR]

Goedenavond mensen,

Ik wil het volgende bereiken door het gebruik maken van een macro.
Doordat ik te weinig kennis heb van het zelf maken van een macro code in het VBA, gebruik ik de functie opnemen. Vroeger heb ik wel eens iets geschreven maar dit gaat boven mijn pet.

Ik wil het volgende doen: eerst de cellen kopiëren, vervolgens deze cellen plakken in een nieuw tabblad. En tot slot moeten de gegevens gesorteerd worden van hoog naar laag.

Ik heb eerst eens geprobeerd om de gegevens automatisch in het zelfde werkblad te sorteren. Dit werkt prima alleen doordat ik het huidige tabblad nog nodig heb, ( niet gesorteerd) wil ik eerst het werkblad kopiëren en vervolgens daar te sorteren. Als ik dit opneem maakt hij het nieuwe tabblad aan met de gegevens, hij sorteert ze. Maaaaaaaar, in het huidige tabblad komt er ineens nog een knop..

Probeer het anders eens uit, bestand staat in de bijlage, maakt het gelijk duidelijk.

Ik wil gewoon door middel van 1 knop, gegevens sorteren en zichtbaar maken, vervolgens zal ik dit tabblad verwijderen en de volgende keer nadat er weer nieuwe gegevens in staan zal ik het weer willen doen.Bekijk bijlage Map1.xlsm

 

[spaarie]

Dit komt doordat je de knop zelf selecteert en kopieert.
Dit moet wel volstaan:

Sub Sorteren()
    Sheets("Blad1").Copy , Sheets(Sheets.Count)
    ActiveSheet.Name = "Gesorteerd"
    ActiveSheet.Columns(1).Sort [A1]
End Sub

 

[spaarie]

(gemarkeerd als opgelost) :shocked: Graag gedaan...