Formulier INPUT in valuta

[Lijst]

Ik krijg wat volgens mee vrij simpel is niet inorde.
Elke keer als ik een factuur toevoeg via de knop (factuur invoegen)
plaatst hij het bedrag van de factuur in een getal en ik zou deze graag rechtstreek is valuta willen hebben.
Nu moet ik steeds al die getallen handmatig aan passen naar valuta.

Heeft er iemand een idee hoe je dit oplost?

 

[edmoor]

Maak er dit van:

.Offset(1, 3) = FormatCurrency(t4.Text)

 

[Lijst]

Hej alvast bedankt het probleem is bijna opgelost.

hij zet het nu idd in valuta, maar geeft nog wel het groene driehoekeje (het getal in deze cel is opgemaakt als tekst of....)

 

[edmoor]

Doe het dan eens zo;

.Offset(1, 3) = CDbl(Replace(t4.Text, ",", ".")) / 100

 

[snb]

Dat doe je toch liever met de celopmaak.

Verbeter je code:

sheets("FACTUREN").cells(rows.count,2).End(xlUp).offset(1).resize(,7)=array(CDate(tfak_dat),CDate(tfak_dat +30),Clever,t4,t5,t6,OPEN")

1 userform is genoeg.

Sorteer de modules in een userform naar logica en niet alfabetisch.

Spiek eventueel hier: https://www.snb-vba.eu/VBA_Userform_in_database.html