afronden boven in excel met vba

[kroesjhoar]

hallo

ik heb het forum al afgezocht naar een oplossing en internet ook. De f1 van VBA heb ik ook uit gepluisd. maar kom er niet uit

Ik heb een kolom waarvan ik de waarde naar boven afgerond wil hebben.
De formule die hiervoor gebruikt wordt ken ik, maar ik wil dit graag in een macro hebben. Zodat bij het starten van de macro de gegevens in kolom L naar boven worden afgerond.

Iemand enig idee

 

[HSV]

Zoiets kroesjhoar?

Dim c As Range
  For Each c In Columns(12).Cells
   If c > 0 Then
    If IsNumeric(c) Then
     c = WorksheetFunction.RoundUp(c, 0)
   End If
  End If
 Next

 

[zapatr]

ik heb het forum al afgezocht naar een oplossing en internet ook. De f1 van VBA heb ik ook uit gepluisd. maar kom er niet uit

Ben benieuwd hoe je dan gezocht hebt.

Ik heb een kolom waarvan ik de waarde naar boven afgerond wil hebben. De formule die hiervoor gebruikt wordt ken ik...

Laat dan die formule maar eens zien, want de vraag is HOE je naar boven wenst af te ronden.
Op het dichtst bijzijnde gehele gehele getal naar boven ?
Op een ander geheel getal ?
Op een bepaald veelvoud ?
Op een aantal decimalen ?
Of nog anders ?
Alleen als dat bekend is, kan een goed antwoord gegegeven worden.

HSV,
ik denk niet dat je je code goed getest hebt, want die rondt lang niet in alle gevallen naar boven af.

 

[HSV]

HSV,
ik denk niet dat je je code goed getest hebt, want die rondt lang niet in alle gevallen naar boven af.

Zeker niet goed getest, en de F1 niet goed gelezen.
Ik heb het aangepast @zapatr.

 

[zapatr]

Ik heb het aangepast

Als moet worden afgerond op een geheel getal naar boven, dan is jouw aanpassing het juiste antwoord.

 

[kroesjhoar]

het probleem heb ik met behulp van buitenaf al opgelost, toch bedankt voor jullie input

 

[oeldere]

@kroesjhoar

dan zou ik graag de (externe) oplossing zien.

kun je deze nog even plaatsen?

 

[kroesjhoar]

De code die ik heb gebruikt is:

        Dim rBer As Range
        Dim iBRgl As Long
        
        iBRgl = Blad1.Range("L" & Rows.Count).End(xlUp).Row
        
        For Each rBer In Blad1.Range("L2:L" & iBRgl)
        rBer.Value = WorksheetFunction.RoundUp(rBer.Value, 0)
        Next
    End With

Deze code rond de waarde in kolom L naar boven op een geheel getal af