Decimaal getal omzetten naar heel getal

[Oude leerling]

Geacht forum,

Onderstaande code zoekt een getal met cijfers achter de komma behorende bij een naam
en zet dit getal op een ander blad achter de zelfde naam.
Nu moet het getal echter geen decimalen meer bevatten maar een heel getal worden.

Hoe is dat in te passen in onderstaande code?

For J = 12 To 45
     With Blad1.Columns(3).Find(Blad5.Cells(J, 1)) 
          .Offset(, 1) = Blad5.Cells(J, 2)
      End With

 

[edmoor]

Plaats een voorbeeld document.

 

[HSV]

Zou het zo werken?

= clng(Blad5.Cells(J, 2))

 

[Oude leerling]

edmoor,

Je hebt gelijk ik had beter een voorbeeldbestandje kunnen plaatsen.

HSV , Ja dat werkt prima. "clng" , dat ben ik nog nooit tegen gekomen.
Ik ga het eens opzoeken
Bedankt voor deze oplossing.

Jaap

 

[snb]

Sub tst()
    MsgBox Fix(12.345)
    MsgBox Int(12.345)
    MsgBox CLng(12.345)
End Sub

 

[Oude leerling]

snb ,

Dat vindt ik nou een mooi compleet antwoord.

De eerste 2 maken er een heel getal van en rond af naar beneden.

13,50 wordt 13
13,99 wordt 13

CLng maakt er een heel getal van en rond het zo af

13,50 wordt 13
13,51 wordt 14

Dank je wel voor dit mooie antwoord

Jaap

 

[snb]

Als je per ongeluk ooit eens met Excel werkt:

Sub M_snb()
   MsgBox Fix(12.345)
   MsgBox Int(12.345)
   MsgBox CLng(12.345)
   MsgBox 12.345 \ 1

   MsgBox Format(12.345)
   MsgBox Format(12.345, "0")
   MsgBox Format(12.345, "0.0")
   MsgBox Format(12.345, "0.00")

   MsgBox DatePart("d", 12.345)
   
   MsgBox Application.Round(12.345, 0)
   MsgBox Application.Round(12.345, 1)
   MsgBox Application.Round(12.345, 2)
   
   MsgBox Application.RoundUp(12.345, 0)
   MsgBox Application.RoundUp(12.345, 1)
   MsgBox Application.RoundUp(12.345, 2)
   
   MsgBox Application.RoundDown(12.345, 0)
   MsgBox Application.RoundDown(12.345, 1)
   MsgBox Application.RoundDown(12.345, 2)
   
   MsgBox Application.Ceiling(12.345, 1)
   MsgBox Application.Ceiling(12.345, 0.5)
   MsgBox Application.Ceiling(12.345, 0.1)
   
   MsgBox Application.Ceiling_Precise(12.345, 1)
   MsgBox Application.Ceiling_Precise(12.345, 0.5)
   MsgBox Application.Ceiling_Precise(12.345, 0.1)
   
   MsgBox Application.Floor(12.345, 1)
   MsgBox Application.Floor(12.345, 0.5)
   MsgBox Application.Floor(12.345, 0.1)
   
   MsgBox Application.Floor_Precise(12.345, 1)
   MsgBox Application.Floor_Precise(12.345, 0.5)
   MsgBox Application.Floor_Precise(12.345, 0.1)
End Sub

 

[Oude leerling]

En ik vond de vorige al zo compleet!!

Ik bewaar hem mooi.
Heb de codes bij mijn macro's opgeslagen.
Dank je wel. Super!!

Vriendelijke groet , Jaap