Este fórum está sendo desativado

[OrfeuVBA]

Boa tarde,

Estou com a planilha em anexo onde através do código abaixo é realizado a soma da coluna L. No valor da coluna J preciso que o valor seja arredondado para baixo, porém esta arredondando para cima.

Código: Selecionar todos

Sub SomaReparte()

Dim vReparte As Long
Dim vTotal As Long
Dim vPacote As Long

For vReparte = 2 To Plan1.Cells(Rows.Count, "L").End(xlUp).Row
    vTotal = vTotal + Plan1.Cells(vReparte, "L")
Next

vPacote = vTotal / 20

[L65000].End(xlUp).Offset(1, 0).Value = vTotal
[L65000].End(xlUp).Offset(0, -2).Value = vPacote





End Sub

Se realizar a divisão de 6698 por 20 o valor é 334,9 preciso que seja arredondado para 334. Alguém pode me ajudar?

[alexandrevba]

Boa tarde!!

Já tentou a função RoundDown?

Código: Selecionar todos

vPacote = Application.WorksheetFunction.RoundDown((vTotal / 20), 0)

Tente adaptar...

Att