vba script voor kolom behandeling

[novita]

Hallo medeforum leden,

ik ben al een hele tijd op zoek naar een oplossing maar kom er niet uit.
het is namelijk zo dat ik in een kolom A wil laten kijken wanneer er in een getal in een cel achter de komma een 0 staat deze dan niet wordt vermenigvuldigd met duizend en wanneer er een getal tussen 1 en 9 er achter staat wel met duizend wordt vermenigvuldigd.

bijvoorbeeld: 466,000 niet vermenigvuldigen met duizend.
14,210 wel met duizend vermenigvuldigen.

Is dit mogelijk via een vba script ?

Groet, Novita

 

[E v R]

Is die komma tbv duizendtal-scheiding?

dan aanzetje: If Cells(1, 1) Mod 1000 <> 0 Then Cells(1 1) = Cells(1, 1) * 1000

 

[dnties]

@E v R: Je bent een ',' vergeten bij de tweede Cells in je aanzetje

Moet zijn:

If Cells(1, 1) Mod 1000 <> 0 Then Cells(1, 1) = Cells(1, 1) * 1000

Je methodiek klopt, maar alleen als 466,000 niet 466,000 is maar staat voor 466 DUIZEND en 14,210 niet 14,210 is maar staat voor 14 duizend 210.
De topic-starter is daar niet duidelijk over, helaas, maar ik zou vermoeden dat hij toch bedoelt 466,000 en 14,210, dus allemaal onder de 1000...

Tijs.

 

[E v R]

Wilde net reageren op "de methodiek", ik zie dat je het net hebt aangepast
Vandaar ook m'n vraag over de duizend-tal scheiding
Even wachten op reaktie TS...

 

[novita]

Zie het voorbeeld bestand

de 434 moet een getal worden wat 434 stuks is

de 4,878 moet een getal worden wat 4878 stukts is
zodat als deze getallen worden opgeteld samen 5312 is

ik dacht het zo op te lossen door deze getallen te vermenigvuldigen met 1000 dan word 4,878 het getal 4878
maar 434 wordt dan 434000

De uitkomst mag in een vrije kolom naast geimporteeerde kolom komen
Groet, Novita Bekijk bijlage voorbeeld.xlsx

 

[Leotaxi]

kan ook door die komma te vervangen door niets

mvg
Leo

 

[novita]

Hallo Leo,

Dit werkt niet.

het getal in G5 (39,22) staat voor 39220 stuks als ik dus G5 x 1000 doe zet hij het in 39220 de komma schuift dan 3 plaatsen op
en getal E1 (434) wordt dan 434000 de komma schuift dan ook hier 3 plaatsen op terwijl dit maar 434 stuks moeten zijn.

Groet, Novita

 

[Leotaxi]

Hoi Novita

meer zoiets dan ?


mvg
Leo

 

[novita]

Hallo Leo,

Het lijkt erop dat dit het is, ik ga het deze dagen in de praktijk testen.
alvast zeer bedankt.:thumb::thumb:

Groeten Novita

 

[Ginger]

Wat IK me afvraag, is waar je deze gegevens uit download... Het lijkt mij namelijk op een Amerikaanse getalnotatie met de komma als duizendtal scheidingsteken.... Als dat zo is, kan je wellicht de bron aan (laten) passen?