definitief Stoppen van macro tijden uitvoeren

[Henk Schepers]

Beste Helpers. Onderstaande macro wil ik uitvoeren om een werkblad te vullen in verschillende cellen.
Het is een invulscherm voor de verkoop van toegangskaarten
In cel 1 het aantal bezoekers
in cel 2 het soort bezoeker (dit is een code uit een verticaal zoeken formule)
Dan is er de mogelijkheid een korting te geven.
De macro moet 15 cellen langs die mogelijk worden gevuld.
komt er 1 persoon binnen dan moet er 15 keer op enter worden gedrukt om de macro te beëindigen
Het indrukken van de escape toets stopt de macro maar dan moet in het fout meldt bericht op beeindigen worden geklikt.

Is er een code die in de bestaande macro kan worden gezet waarbij na elke drie enters de macro definitief gestopt kan worden
zonder het fout meldt scherm?
Hartelijk dank



'regel 1-----------------------------------------------------------
personen = Val(InputBox("Vul het aantal personen in", _
"invoer", , 7000, 8000)) 'maakt invoerscherm
Selection.Formula = personen 'plaatst gegevens in de actieve cel
ActiveCell.Offset(0, 1).Select 'verschuift cursor 1 kolom naar rechts
'regel 2----------------------------------------------------------------------
code = Val(InputBox("Vul code van soort bezoeker in", _
"invoer", , 7000, 8000)) 'maakt invoerscherm
Selection.Formula = code 'plaatst gegevens in de actieve cel
ActiveCell.Offset(0, 1).Select 'verschuift cursor 1 kolom naar rechts

'regel 3----------------------------------------------------------------------
korting = Val(InputBox("Vul het kortingsbedrag in of laat leeg", _
"invoer", , 7000, 8000)) 'maakt invoerscherm
Selection.Formula = korting 'plaatst gegevens in de actieve cel
ActiveCell.Offset(1, 0).Select 'verschuift cursor 1 Rij naar beneden
ActiveCell.Offset(0, -2).Select 'verschuift cursor 2 kolommmen naar links
'----------------------------------------------------------------------
'regel 1-----------------------------------------------------------
personen = Val(InputBox("Vul het aantal personen in", _
"invoer", , 7000, 8000)) 'maakt invoerscherm
Selection.Formula = personen 'plaatst gegevens in de actieve cel
ActiveCell.Offset(0, 1).Select 'verschuift cursor 1 kolom naar rechts
'regel 2----------------------------------------------------------------------
code = Val(InputBox("Vul code van soort bezoeker in", _
"invoer", , 7000, 6000)) 'maakt invoerscherm
Selection.Formula = code 'plaatst gegevens in de actieve cel
ActiveCell.Offset(0, 1).Select 'verschuift cursor 1 kolom naar rechts

'regel 3----------------------------------------------------------------------
korting = Val(InputBox("Vul het kortingsbedrag in of laat leeg", _
"invoer", , 7000, 8000)) 'maakt invoerscherm
Selection.Formula = korting 'plaatst gegevens in de actieve cel
ActiveCell.Offset(1, 0).Select 'verschuift cursor 1 Rij naar beneden
ActiveCell.Offset(0, -2).Select 'verschuift cursor 2 kolommmen naar links

'regel 1-----------------------------------------------------------
personen = Val(InputBox("Vul het aantal personen in", _
"invoer", , 7000, 8000)) 'maakt invoerscherm
Selection.Formula = personen 'plaatst gegevens in de actieve cel
ActiveCell.Offset(0, 1).Select 'verschuift cursor 1 kolom naar rechts
'regel 2----------------------------------------------------------------------
code = Val(InputBox("Vul code van soort bezoeker in", _
"invoer", , 7000, 6000)) 'maakt invoerscherm
Selection.Formula = code 'plaatst gegevens in de actieve cel
ActiveCell.Offset(0, 1).Select 'verschuift cursor 1 kolom naar rechts

'regel 3----------------------------------------------------------------------
korting = Val(InputBox("Vul het kortingsbedrag in of laat leeg", _
"invoer", , 7000, 8000)) 'maakt invoerscherm
Selection.Formula = korting 'plaatst gegevens in de actieve cel
ActiveCell.Offset(1, 0).Select 'verschuift cursor 1 Rij naar beneden
ActiveCell.Offset(0, -2).Select 'verschuift cursor 2 kolommmen naar links

 

[edmoor]

Waarom maak je er niet een mooi Userform van? Dan heb je dat probleem niet en veel meer mogelijkheden. Tevens zal dat er een stuk rustiger uit zien voor de gebruiker.

 

[Henk Schepers]

Mijn kennis van VBA is niet zo uitgebreid dat ik dat uit mijn mouw schud. Ik zag wel een uitleg op gratiscursus.be die het heel duidelijk uitlegt maar moet mij er echt op concentreren. Als er geen oplossing komt dan moet ik toch naar een formulier toe werken. Dank je wel voor je antwoord

 

[edmoor]

Er is best wat voor te verzinnen maar een formulier zou mijn voorkeur hebben.

 

[Henk Schepers]

Ok ga mij er in verdiepen.
dank

 

[edmoor]

Ik wil er best een aanzet voor maken als je dat Excel document hier plaatst.

 

[Henk Schepers]

Graag hierbij het bestand

Hierbij het bestand
Bekijk bijlage macrotest kaartverkoop.xls

 

[edmoor]

Je werkt nog met Office 2003?

 

[Henk Schepers]

Sorry, is dat een probleem?

 

[edmoor]

Nee, dat niet. Maar dan hou ik er rekening mee geen zaken te gebruiken die niet in Office 2003 zitten

 

[Henk Schepers]

OK, Wij zijn het NZH Vervoer Museum en moeten roeien met de riemen die we hebben. De computers zijn ook niet al te nieuw en dus niet te zware programma's draaien. 2003 draait goed op de computers.

 

[edmoor]

Geen probleem. Wat ik wil doen zal geen extra aanslag op de computer zijn.

 

[Henk Schepers]

Ok ik ben benieuwd, hartelijk dank

 

[edmoor]

Kijk eens naar dit:
Bekijk bijlage macrotest kaartverkoop.xls

Het formulier opent automatisch maar kan je ook oproepen via de knop Toegang Verkoop.
Het is niet volledig uitgewerkt en van alle controles voorzien, maar het lijkt me een leuke voorzet.

 

[Henk Schepers]

Dit is echt interessant. Het formulier ziet er goed uit en kunnen straks de knoppen voor printen, pinbetaling en contante betaling gecombineerd worden
Heel mooi dat bij het opnieuw starten van het formulier de volgende regel wordt ingevuld. Het is echter wel handig als er een knop op het formulier komt met de tekst "volgende" die de velden leeg maakt behalve het medewerkersnummer tot er een betaling word gedaan en de gegevens naar de database worden weggeschreven
Ik hoop niet dat ik te veel vraag

 

[edmoor]

Dat kan. Maar niet nu. Morgenavond weer

 

[Henk Schepers]

ik ben al lang blij dat je het voor mij wilt doen. er staat geen druk op

 

[edmoor]

Deze maakt het formulier leeg als er op Ok wordt geklikt, m.u.v. de medewerker. Rechts naast de medewerker is er een knop Nieuw die de cellen van het werkblad leeg maakt om nieuwe gegevens aan te maken.
Bekijk bijlage macrotest kaartverkoop.xls

 

[Henk Schepers]

Sorry ik ben net thuis kijk er morgen naar. ben benieuwd

 

[Henk Schepers]

het werkt

pin,contant en bon knop in het formulier gezet. Het werkt zo prima maar er moet nog een kleinigheid worden aangepast. Als het formulier wordt geopend dan moet het vak aantal personen actief zijn met cursor en ook nadat de groene knop toevoegen, pin en contant zijn gebruikt. De medewerkers keuze heeft niet de eerste prioriteit omdat dat tussentijds veranderd kan worden.Bekijk bijlage macrotest kaartverkoop.xls
Ik wil je graag voor je hulp 2 vrijkaarten voor het museum toesturen als je dat wilt. Misschien kun je een adres geven via een privébericht of ik geef je mijn mobiel nummer via een privébericht
nogmaals dank