Inputbox

创W@ttman``

unread,

Mar 24, 2005, 6:51:21 AM3/24/05

to

Is het mogelijk om de gebruikers te verplichten de inputbox in te vullen?
Zoniet gewoon een andere sheet terug activeren.

--
Greetz. Filip Bouckaert

Cobbe

unread,

Mar 24, 2005, 7:02:04 AM3/24/05

to

Private Sub Worksheet_activate()
Naam:
[C43] = InputBox("Geef uw naam")
If [C43] = "" Then Naam
Bedrag:
[K18] = InputBox("Geef uw bedrag")
If [K18] = "" Then Bedrag

MsgBox ("Uw invordering wordt afgedrukt.") ' >>terwijl deze msgbox
op het schrm komt moet de makro lopen.

Afdrukken

End Sub

Cobbe

ŽŽW@ttman`` stelde de volgende uitleg voor :

> Is het mogelijk om de gebruikers te verplichten de inputbox in te vullen?
> Zoniet gewoon een andere sheet terug activeren.

--
Ik probeer te helpen, als het nie just is jammer.

??W@ttman``

unread,

Mar 24, 2005, 7:16:30 AM3/24/05

to

Werkt,

ik laat een msgbox verschijnen wanneer er niets ingevuld werd,
hoe laat ik die msgbox verschijnen zolang er geen naam ingevuld werd?
>loop?
ondertussen mag er niet overgegaan worden naar de volgende msgbox

--
Greetz. Filip Bouckaert.

"Cobbe" <cob...@vlaanderen.be> schreef in bericht
news:mn.c30e7d53f...@vlaanderen.be...

> Private Sub Worksheet_activate()
> Naam:
> [C43] = InputBox("Geef uw naam")
> If [C43] = "" Then Naam
> Bedrag:
> [K18] = InputBox("Geef uw bedrag")
> If [K18] = "" Then Bedrag
>
> MsgBox ("Uw invordering wordt afgedrukt.") ' >>terwijl deze msgbox op
> het schrm komt moet de makro lopen.
>
> Afdrukken
>
> End Sub
>
> Cobbe
>
>
>

> 创W@ttman`` stelde de volgende uitleg voor :

Cobbe

unread,

Mar 24, 2005, 8:13:07 AM3/24/05

to

Werkt het niet naar behoeve??

Cobbe

Het is zò dat ??W@ttman`` formuleerde :

> Werkt,
>
> ik laat een msgbox verschijnen wanneer er niets ingevuld werd,
> hoe laat ik die msgbox verschijnen zolang er geen naam ingevuld werd?
> >loop?
> ondertussen mag er niet overgegaan worden naar de volgende msgbox
>
> --
> Greetz. Filip Bouckaert.
>
>
> "Cobbe" <cob...@vlaanderen.be> schreef in bericht
> news:mn.c30e7d53f...@vlaanderen.be...
>> Private Sub Worksheet_activate()
>> Naam:
>> [C43] = InputBox("Geef uw naam")
>> If [C43] = "" Then Naam
>> Bedrag:
>> [K18] = InputBox("Geef uw bedrag")
>> If [K18] = "" Then Bedrag
>>
>> MsgBox ("Uw invordering wordt afgedrukt.") ' >>terwijl deze msgbox op
>> het schrm komt moet de makro lopen.
>>
>> Afdrukken
>>
>> End Sub
>>
>> Cobbe
>>
>>
>>

>> ŽŽW@ttman`` stelde de volgende uitleg voor :

Cobbe

unread,

Mar 24, 2005, 8:22:59 AM3/24/05

to

Private Sub Worksheet_activate()
Naam:
[c43] = InputBox("Geef uw naam")
If [c43] = "" Then
MsgBox ("U heeft geen naam ingegeven")
GoTo Naam
Else
Bedrag:
[k18] = InputBox("Geef uw bedrag")
If [k18] = "" Then
MsgBox ("U heeft geen bedrag ingevoerd")
GoTo Bedrag
Else

MsgBox ("Uw invordering wordt afgedrukt.")

Afdrukken
End If
End If
End Sub

Dit voldoet wel enigszins aan uw behoefte?

Cobbe

Cobbe beweerde :

??W@ttman``

unread,

Mar 24, 2005, 8:25:00 AM3/24/05

to

Ik heb het zo gezet:

Private Sub Worksheet_activate()

[C43] = InputBox("Geef uw naam")

If [C43] = "" Then MsgBox "u moet uw naam ingeven"

[C43] = InputBox("Geef uw naam")

[K18] = InputBox("Geef uw bedrag")
If [K18] = "" Then MsgBox "U moet uw bedrag ingeven"

[K18] = InputBox("Geef uw bedrag")

MsgBox "Uw invordering wordt afgedrukt."
'Afdrukken
Sheets("stock").Select

End Sub

Op deze wijze krijg je 2X de kans om je naam in
te vullen maar geen verplichting. Als na de 2de inputbox van "geef uw naam"
er niet ingevuld werd wil ik terug naar het werkblad "stock"
Ook na de 2de inputbox van bedrag.

afdrukken staat even buiten dienst.

Ben de help in excel aan het afschuimen....

--
Greetz.Filip

"Cobbe" <cob...@vlaanderen.be> schreef in bericht

news:mn.c3557d539...@vlaanderen.be...

> Werkt het niet naar behoeve??
>
> Cobbe
>
> Het is zò dat ??W@ttman`` formuleerde :
>> Werkt,
>>
>> ik laat een msgbox verschijnen wanneer er niets ingevuld werd,
>> hoe laat ik die msgbox verschijnen zolang er geen naam ingevuld werd?
>> >loop?
>> ondertussen mag er niet overgegaan worden naar de volgende msgbox
>>
>> --
>> Greetz. Filip Bouckaert.
>>
>>
>> "Cobbe" <cob...@vlaanderen.be> schreef in bericht
>> news:mn.c30e7d53f...@vlaanderen.be...
>>> Private Sub Worksheet_activate()
>>> Naam:
>>> [C43] = InputBox("Geef uw naam")
>>> If [C43] = "" Then Naam
>>> Bedrag:
>>> [K18] = InputBox("Geef uw bedrag")
>>> If [K18] = "" Then Bedrag
>>>
>>> MsgBox ("Uw invordering wordt afgedrukt.") ' >>terwijl deze msgbox
>>> op het schrm komt moet de makro lopen.
>>>
>>> Afdrukken
>>>
>>> End Sub
>>>
>>> Cobbe
>>>
>>>
>>>

>>> ´´W@ttman`` stelde de volgende uitleg voor :

??W@ttman``

unread,

Mar 24, 2005, 8:25:35 AM3/24/05

to

ik test het even uit..

--
Greetz.

"Cobbe" <cob...@vlaanderen.be> schreef in bericht

news:mn.c35e7d539...@vlaanderen.be...

>>>> ´´W@ttman`` stelde de volgende uitleg voor :

??W@ttman``

unread,

Mar 24, 2005, 8:28:01 AM3/24/05

to

Werkt perfect, ik ga een cursus moeten volgen.
Dit interesseert me wel.

--
Greetz. Filip.

"Cobbe" <cob...@vlaanderen.be> schreef in bericht

news:mn.c35e7d539...@vlaanderen.be...

>>>> ´´W@ttman`` stelde de volgende uitleg voor :

Cobbe

unread,

Mar 24, 2005, 9:27:55 AM3/24/05

to

Private Sub Worksheet_activate()

[c43] = InputBox("Geef uw naam")
If [c43] = "" Then MsgBox "u moet uw naam ingeven"
[c43] = InputBox("Geef uw naam")
If [c43] = "" Then GoTo Selectie

[K18] = InputBox("Geef uw bedrag")
If [K18] = "" Then MsgBox "U moet uw bedrag ingeven"
[K18] = InputBox("Geef uw bedrag")

MsgBox "Uw invordering wordt afgedrukt."
'Afdrukken

Selectie:
Sheets("stock").Select

End Sub

Cobbe

??W@ttman`` heeft uiteengezet op 24-03-05 :

> Private Sub Worksheet_activate()
>
>
> [C43] = InputBox("Geef uw naam")
> If [C43] = "" Then MsgBox "u moet uw naam ingeven"
> [C43] = InputBox("Geef uw naam")
>
> [K18] = InputBox("Geef uw bedrag")
> If [K18] = "" Then MsgBox "U moet uw bedrag ingeven"
> [K18] = InputBox("Geef uw bedrag")
>
> MsgBox "Uw invordering wordt afgedrukt."
> 'Afdrukken
> Sheets("stock").Select
>
> End Sub

--