Alles achter de komma verwijderen

[Daneron]

Hoi,

M'n excel is niet opperbest zodoende krijg ik het maar niet voor elkaar om alles wat in een kolom achter de komma staat te verwijderen.

Bijvoorbeeld 3000,7 moet 3000 zijn en geen 30007 zoals onderstaande code doet

Columns("Q:Q").Select
Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Moet ik een parameter toevoegen? en hoe

alvast bedankt,

 

[edmoor]

Moet het in VBA?
Het kan ook met een Excel formule. Als er 3000,7 in A1 staat zet dan de volgende formule in B1:
=AFRONDEN.BENEDEN(A1;1)

 

[Daneron]

Het liefst in vba.

De bedoeling is dat de file wordt geimporteerd in access, het eerste record heeft dus kolomkoppen.

Heb een testfile gemaakt (gestript), heb geprobeerd met de functie afronden naar beneden maar daar kom
ik niet aan uit.

 

[Haije]

Daneron,

en wat heeft je testfile te maken met je vraag?

 

[edmoor]

Uiteraard kan het met een simpele VBA functie maar wellicht dat het ook handig is naar de bron van die 3000,7 te kijken.
Waarom staat dat erin als het 3000 moet zijn?

In je testfile staat overigens niet 1 getal die aan je voorbeeld voldoet zoals Haije al zegt.

 

[Daneron]

Haije, om een indicatie te geven met wat ik bedoel.

In de testfile staat exact dezelfde kolom waar het omdraaid. De orginele file wordt geimporteerd in access. De orginele excel file komt zoals het is, vandaar de nabewerking om verder te importeren in access. Er is geen mogelijkheid om gegevens van de bron te wijzigen.
Het probleem is dat sommige velden de foutmelding geven "Tekst converteren naar getallen", hier heb ik al diverse macro's op los gelaten die je via google kunt vinden, zonder resultaat.

Dan maar de komma weghalen als het andere niet lukt.

 

[edmoor]

Als niemand me voor is wil ik er vanavond wel even een macrootje voor maken, het is kipsimpel.

 

[Daneron]

Ben benieuwd hoe dat in elkaar steekt.

 

[jolivanes]

Zoiets misschien?

Sub Naar_Beneden_Afronden()
    With Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        .Value = Application.RoundDown(.Value, 0)
    End With
End Sub

Als je geen nullen wilt hebben in de nu lege cells dan kan dit ook.
Het is wel langzamer.

Sub Naar_Beneden_Afronden_Loop()
    Dim c As Range
    For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        If c.Value > 0 Then c.Value = Application.RoundDown(c.Value, 0)
    Next c
End Sub

 

[Daneron]

Jolivanes, perfect :thumb:

 

[snb]

of

Sub M_snb()
  [Q1:Q200] = [index(text(q1:q200,"#"),)]
End Sub