Pessoal,

Bom dia.

Estou tendo uma dificuldade em formatar número no VBA.

Tenho uma fórmula que vai trazer as toneladas de uma carga porém no momento da fórmula ele fica com o resultado sem a vírgula.

Sub resultado_Operacoes()
Dim num1 As Integer
Dim num2 As Integer
Dim num3 As Integer
Dim resposta As String

num1 = 25000
num2 = Application.WorksheetFunction.SumIfs(Range("W:W"), Range("U:U"), Cells(ActiveCell.Row, (ActiveCell.Column - 3)))
num3 = Cells(ActiveCell.Row, (ActiveCell.Column - 1))

resposta = (num1 / num2) * num3

ActiveCell.Value = resposta
Selection.NumberFormat = "00.00"
End Sub

O Selection.NumberFormat já tentei n formas.

E o resultado que ele me traz é sempre um número gigante antes da vírgula (961538461538462,00) ... Se colocar a fórmula direto no excel aparece 961,54
...

Ou seja... a Fórmula está correta... O Problema está na formatação.

Alguém consegue me ajudar por favor?