Verplicht invullen?

Status
Niet open voor verdere reacties.

JJZijlstra

Gebruiker
Lid geworden
26 nov 2013
Berichten
283
Geachte lezer(s),

Bijgevoegd een bestandje. Het volgende probleem doet zich hier voor.
Als ik de userform de velden "tGeboortedatum" en "tBedrag" wil overslaan, m.a.w. ik vul hier niets in, dan komt er op het scherm een foutmelding no, 13 en deze zegt dat de typen niet overeenkomen. Graag zou ik probleemloos de vrijheid willen hebben om wel of niets in deze velden in te vullen zonder foutmelding no.13.
Als ik genoemde velden wél invul, dan gaat dit vlekkeloos.

Mijn vraag is hoe ik foutno. 13 kan voorkomen oftewel hoe moet ik mijn code gaan aanpassen.

Groet,
Toby
 
Laatst bewerkt:
Nu je bestandje nog ;)
 
Ik was vergeten het bestand te uploaden.
Hier alsnog.

Groet
Toby
 

Bijlagen

  • TestVBA.xlsm
    74,1 KB · Weergaven: 27
Je krijgt de foutmelding door het gebruik van CDate en FormatCurrency.
Zet bovenaan je code On Error Resume Next

Of met een check als tGeboortedatum niet leeg is dan. (zelfde voor tBedrag)
Code:
 If tGeboortedatum <> "" Then Cells(emptyRow, 7).Value = CDate(tGeboortedatum)
 
On Error Resume Next

Deze werkt nu perfect.

Later zal ik de optie "If tGeboortedatum ......" uit proberen.

Bedankt voor de hulp

Groet,
Toby
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan