Excel VBA Rij cellen alfabetisch sorteren

Pagina: 1
Acties:

Onderwerpen


Acties:
  • 0 Henk 'm!

  • Goldwing1973
  • Registratie: April 2003
  • Laatst online: 16-09 12:45
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?

Acties:
  • 0 Henk 'm!

  • Reptile209
  • Registratie: Juni 2001
  • Laatst online: 23:11

Reptile209

- gers -

Kijk eens naar Application.Screenupdating = False. Dan kan je in een ander werkblad rommelen zonder dat de user het ziet (ook een aanrader als je veel data in een werkblad moet zetten/updaten). Wel weer even op true zetten als je klaar bent (of in een On Error...).

Zo scherp als een voetbal!


Acties:
  • 0 Henk 'm!

  • farlane
  • Registratie: Maart 2000
  • Laatst online: 22:43
Neem ff een VB macro op en kijk wat Excel er zelf van maakt.

Somniferous whisperings of scarlet fields. Sleep calling me and in my dreams i wander. My reality is abandoned (I traverse afar). Not a care if I never everwake.


Acties:
  • 0 Henk 'm!

  • KabouterSuper
  • Registratie: September 2005
  • Niet online
Goldwing1973 schreef op zondag 22 januari 2017 @ 21:11:
Columns("A:A").Sort key1:=Range("A:A"), order1:=xlAscending
In welk werkblad zit je als je sorteert? Je moet wel het goede werkblad kiezen.

When life gives you lemons, start a battery factory


Acties:
  • 0 Henk 'm!

  • loeberce
  • Registratie: Februari 2009
  • Laatst online: 16:35
KabouterSuper schreef op maandag 23 januari 2017 @ 16:07:
[...]


In welk werkblad zit je als je sorteert? Je moet wel het goede werkblad kiezen.
en het lijkt erop dat de je nu alleen A:A sorteert.

Acties:
  • 0 Henk 'm!

  • Goldwing1973
  • Registratie: April 2003
  • Laatst online: 16-09 12:45
Reptile209 schreef op maandag 23 januari 2017 @ 15:46:
Kijk eens naar Application.Screenupdating = False.
Ga ik proberen, thx.
farlane schreef op maandag 23 januari 2017 @ 16:05:
Neem ff een VB macro op en kijk wat Excel er zelf van maakt.
Ook dat had ik geprobeerd, maar zodra ik dat onderaan in de UserForm zette kreeg ik weer allerlei foutmeldingen zodra ik op de knop drukte die de UserForm aanroept.
KabouterSuper schreef op maandag 23 januari 2017 @ 16:07:
In welk werkblad zit je als je sorteert? Je moet wel het goede werkblad kiezen.
Ik zit in het werkblad "Invulblad" maar die roept via een knop de UserForm aan waar de code voor het sorteren dus in moet komen.
Dus, zit ik dan nog wel in een werkblad te werken? of in de UserForm?
loeberce schreef op maandag 23 januari 2017 @ 16:11:
en het lijkt erop dat de je nu alleen A:A sorteert.
Ik had van de A:A ook al een keer A:O gemaakt, maar ook zonder werkend resultaat.

Acties:
  • 0 Henk 'm!

  • Creepy
  • Registratie: Juni 2001
  • Laatst online: 22:41

Creepy

Tactical Espionage Splatterer

Pure Excel VBA? Dan schuif ik het topic door naar Client Software Algemeen . Move Programming -> Client Software Algemeen

"I had a problem, I solved it with regular expressions. Now I have two problems". That's shows a lack of appreciation for regular expressions: "I know have _star_ problems" --Kevlin Henney


Acties:
  • 0 Henk 'm!

  • Paultje3181
  • Registratie: November 2002
  • Laatst online: 15-09 22:49
Ik zou zeggen dat je code een . mist.
Visual Basic:
1
.Columns("A:O").Sort key1:=Range("A:A"), order1:=xlAscending

De . zit blijkbaar in een with die naar Sheets('Klant') verwijst. Als je met je code in een andere sheet dan klant zit, dan wordt die dus gesorteerd ipv klant. Met de . wordt ie in de with getrokken en dus sorteert ie klant.
Pagina: 1