Ik heb een excel facturatie programmatje in elkaar gezet.
Het werkt goed, ik heb het nu ook voor elkaar dat ik via een UserForm een mooi popup schermpje krijg waar ik een nieuwe klant kan invoeren en deze informatie wordt netjes in de sheet "Klanten" gezet.
Alleen, het moet daarna op alfabetische volgorde gezet worden met als uitgangspunt colom A.
Uiteraard moet de informatie die in colom B tm O staat meegesorteerd worden met colom A
Dit sorteren moet gebeuren gelijk nadat ik een nieuwe klant ingevoerd heb met een knop op de hoofdsheet "Invulblad" die dus die UserForm aanroept.
En, dit moet gebeuren zonder dat de sheet klanten in beeld komt
Het mooiste zou zijn om de sorteercode direct onder de code te zetten die de informatie van de UserForm in de sheet "Klanten" zet.
.Offset(RowCount, 11) = Me.ComboBox_Betaaltermijn.Value
.Offset(RowCount, 12) = Me.Invul_EMailAdres.Value
Columns("A:A").Sort key1:=Range("A:A"), order1:=xlAscending
Eerste 2 regels zijn de laatste regels van het toevoegen van de UserForm aan de sheet "Klanten" en de onderste is een probeersel (m'n zoveelste) die het dus niet doet.
Iemand?
Het werkt goed, ik heb het nu ook voor elkaar dat ik via een UserForm een mooi popup schermpje krijg waar ik een nieuwe klant kan invoeren en deze informatie wordt netjes in de sheet "Klanten" gezet.
Alleen, het moet daarna op alfabetische volgorde gezet worden met als uitgangspunt colom A.
Uiteraard moet de informatie die in colom B tm O staat meegesorteerd worden met colom A
Dit sorteren moet gebeuren gelijk nadat ik een nieuwe klant ingevoerd heb met een knop op de hoofdsheet "Invulblad" die dus die UserForm aanroept.
En, dit moet gebeuren zonder dat de sheet klanten in beeld komt
Het mooiste zou zijn om de sorteercode direct onder de code te zetten die de informatie van de UserForm in de sheet "Klanten" zet.
.Offset(RowCount, 11) = Me.ComboBox_Betaaltermijn.Value
.Offset(RowCount, 12) = Me.Invul_EMailAdres.Value
Columns("A:A").Sort key1:=Range("A:A"), order1:=xlAscending
Eerste 2 regels zijn de laatste regels van het toevoegen van de UserForm aan de sheet "Klanten" en de onderste is een probeersel (m'n zoveelste) die het dus niet doet.
Iemand?