• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

getal afronden

Status
Niet open voor verdere reacties.
S

Scallebe

Gebruiker
Lid geworden
29 okt 2014
Berichten
528
Specialisten,

Ik heb in een cel een berekening met als resultaat vb 66 (format is number met 0 cijfers na de comma)

Ik moet er wel bijzeggen dat het een berekening is van tijd naar een vast getal)

Wanneer ik volgende formule gebruik :

=IF(A2="";"";"Uw eindsaldo Recup bedraagt momenteel : - Votre Solde final de Récup est actuellement : " & Kalender!$C6 & " minuten - minutes")

Zou het resultaat : Uw eindsaldo Recup bedraagt momenteel : - Votre Solde final de Récup est actuellement : 66 minuten - minutes moeten zijn.

En krijg het volgende : Uw eindsaldo Recup bedraagt momenteel : - Votre Solde final de Récup est actuellement : 65,9999999999998 minuten - minutes

Hoe kan ik dit oplossen?


Thanks

Groetjes

Pascal
 
Deze zou toch moeten lukken:
Code: 
=IF(A2="";"";"Uw eindsaldo Recup bedraagt momenteel : - Votre Solde final de Récup est actuellement : " &*ROUND(Kalender!$C6;0)*& " minuten - minutes")
 
binnen gecombineerde tekststrings gebruik ik altijd de formule tekst getallen of tijd op te maken.

Code: 
=IF(A2="";"";"Uw eindsaldo Recup bedraagt momenteel : - Votre Solde final de Récup est actuellement : " & Tekst(Kalender!$C6;"0") & " minuten - minutes")
 
Ik moet er wel bijzeggen dat het een berekening is van tijd naar een vast getal)
Klik om te vergroten...

Waar is dat goed voor als je het resultaat als minuten wil doorgeven ?
En hoe doe je dat dan ?

Code: 
Sub M_snb()
   MsgBox Format(66 / 1440, "hh:mm")
   MsgBox Application.Text(66 / 1440, "[mm]")
End Sub
 
Laatst bewerkt:
Bedankt voor de oplossingen,

De formule van Cobbe werkt:thumb:

Bij de formule van roeljongman krijg ik een #NAME? error als oplossing. :confused:

Daar zit blijkbaar toch nog iets fout. Wat is de juiste oplossing?


Ik heb in de code een gelijksoortig probleem

Code: 
Private Sub ListOfEmployees_Click()
Sheets("Kalender").Select
LBmail = Me.ListOfEmployees.Column(2)
TBref = "Situatie recup t.e.m. de maand : " & Format(Date - 22, "mmmm / yyyy") & " - La situation de récupération jusqu'au : " & Format(Date - 22, "mmmm / yyyy")
TBbody = "Beste / Cher " & Me.ListOfEmployees.Column(0) & "," & Chr(10) & Chr(10) _
& "Uw eindsaldo Recup bedraagt momenteel : " & Chr(10) & "Votre solde final de Récup est actuellement : " & Chr(10) & Chr(10) _
& [B][COLOR="#FF0000"]Me.ListOfEmployees.Column(1)[/COLOR][/B] & " minuten - minutes" & Chr(10) & Chr(10) & "Met collegiale groeten - Cordialement," _
& Chr(10) & Chr(10) & Sheets("Kalender").Range("C1").Value
End Sub

Waar Excel dus ook hetzelfde gegeven gaat halen maar niet afrond. Zie bijlage in het "Text vak" (resultaat = 65,9999999999998)

Mail1persoon.jpg

Hoe bepaal ik de format in de vba code?

Indien nodig stel ik een nieuwe vraag.

Groetjes

Pascal
 
snb,

In 't kort :

Op 1 sheet wordt dagelijks het uur in en uit ingevoerd. in een derde cel wordt het verschil berekend. Op het einde van de maand wordt een totaal berekend van de eventuele overuren.

Dat resultaat deel ik dan inderdaad door 1440 wat soms een resultaat kan geven van 65,9999999998

Ik heb echter met formules gewerkt rechtstreeks in de sheet.

Uw oplossing zou mij wel kunnen helpen in de volgende code waar ook het zelfde gegeven wordt opgehaald met dus ook af en toe het resultaat 65,99999998.

Code: 
Private Sub ListOfEmployees_Click()
Sheets("Kalender").Select
LBmail = Me.ListOfEmployees.Column(2)
TBref = "Situatie recup t.e.m. de maand : " & Format(Date - 22, "mmmm / yyyy") & " - La situation de récupération jusqu'au : " & Format(Date - 22, "mmmm / yyyy")
TBbody = "Beste / Cher " & Me.ListOfEmployees.Column(0) & "," & Chr(10) & Chr(10) _
& "Uw eindsaldo Recup bedraagt momenteel : " & Chr(10) & "Votre solde final de Récup est actuellement : " & Chr(10) & Chr(10) _
& [COLOR="#FF0000"][B]Me.ListOfEmployees.Column(1)[/B][/COLOR] & " minuten - minutes" & Chr(10) & Chr(10) & "Met collegiale groeten - Cordialement," _
& Chr(10) & Chr(10) & Sheets("Kalender").Range("C1").Value
End Sub

Het resultaat staat in #5 en zou dus ook afgerond moeten worden maar ik weet niet hoe ik uw oplossing daar voor kan gebruiken.

Thanks

Pascal
 
Zou dit lukken?
Code: 
Format(Me.ListOfEmployees.Column(1),"mm")
 
Scallebe zei:
Bedankt voor de oplossingen,
Bij de formule van roeljongman krijg ik een #NAME? error als oplossing. :confused:
Daar zit blijkbaar toch nog iets fout. Wat is de juiste oplossing?
Klik om te vergroten...

tikfoutje.. ik had "TEXT" moeten gebruiken ipv "TEKST"
met 3 talen in 1 formuel raakte ik de weg een beetje kwijt :D

Code: 
=IF(A2="";"";"Uw eindsaldo Recup bedraagt momenteel : - Votre Solde final de Récup est actuellement : " & TEXT(Kalender!$C6;"0") & " minuten - minutes")
 
In VBA gebruik je voor afronden de operator \

Code: 
msgbox 326\66
 
Bedankt heren voor de aangereikte oplossingen,

roeljongman, inderdaad, voor mij is het ook telkens switchen tussen nederlands (thuis) en engels (werk) en soms gaan opzoeken in de excel woordenboek voor de vertaling:confused:
maar het werkt.:thumb:

snb bedankt voor de tip. Geeft mij weer stof om te experimenteren in VBA :thumb:

cobbe, het probleem is dat de waarde die opgezocht moet worden in de sheet een format "general" heeft met 0 cijfers na de comma. Dus uiteraard kan jouw oplossing niet het gewenste resultaat geven.

Ik heb het echter als volgt kunnen oplossen :

Code: 
Round(Me.ListOfEmployees.Column(1), 0)

eigenlijk zoals in de formule op de andere sheet (zie het begin van de vraag) en ik krijg het gewenste resultaat.



Weeral veel bijgeleerd vandaag :rolleyes:


Thanks

Pascal
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan