Hallo,
Ik wil vba in een spreadsheet met grote reeksen afronden op 0 decimalen, alleen nu stopt hij elke keer als hij een cel met de waarde 0 tegenkomt terwijl de reeks nog doorloopt. Weet iemand hoe je dat kan oplossen? Onderstaande heb ik al:
Sub afronden2()
' waarde inlezen, afronden en weer neerzetten
Dim waarde, nw_waarde
Application.ScreenUpdating = False
Do Until ActiveCell.Value = ""
Do Until ActiveCell.Value = ""
waarde = ActiveCell.Value
nw_waarde = Round(waarde, 0)
ActiveCell.Value = nw_waarde
Selection.NumberFormat = "#,##0"
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
Selection.End(xlUp).Select
Selection.End(xlUp).Select
ActiveCell.Offset(3, 1).Select
Loop
Application.ScreenUpdating = True
End Sub
Tis dus de bedoeling dat hij per kolom alle cellen afrond dus bijv van a1:a1029 en als dan bijv A518= 0 stopt hij dus :evil: terwijl ik graag wil dat hij naar 1029 gaat.
Ik hoor het graag
Alvast bedankt
gr
Johannes
Ik wil vba in een spreadsheet met grote reeksen afronden op 0 decimalen, alleen nu stopt hij elke keer als hij een cel met de waarde 0 tegenkomt terwijl de reeks nog doorloopt. Weet iemand hoe je dat kan oplossen? Onderstaande heb ik al:
Sub afronden2()
' waarde inlezen, afronden en weer neerzetten
Dim waarde, nw_waarde
Application.ScreenUpdating = False
Do Until ActiveCell.Value = ""
Do Until ActiveCell.Value = ""
waarde = ActiveCell.Value
nw_waarde = Round(waarde, 0)
ActiveCell.Value = nw_waarde
Selection.NumberFormat = "#,##0"
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
Selection.End(xlUp).Select
Selection.End(xlUp).Select
ActiveCell.Offset(3, 1).Select
Loop
Application.ScreenUpdating = True
End Sub
Tis dus de bedoeling dat hij per kolom alle cellen afrond dus bijv van a1:a1029 en als dan bijv A518= 0 stopt hij dus :evil: terwijl ik graag wil dat hij naar 1029 gaat.
Ik hoor het graag
Alvast bedankt
gr
Johannes