Andrzej
Rapp
specjalista ds.
informatyki, Techem
Temat: Problem z zaokrągleniem sumy
Witam!Mam problem z zaokrągleniem sumy wartości.
Zmienna SumaNetto nie zaokrągla mi liczby do 2 miejsc po przecinku
Private Sub Sumowanie()
Dim MPK As String
Dim SumaNetto As Long
Row = 11
stop_pozycja = False
SumaNetto = 0
While Not IsEmpty(Cells(Row, 1)) And Not (stop_pozycja)
MPK = Cells(Row, 4)
k_netto = Round(Cells(Row, 11), 2)
pod_vat = Round((k_netto * 23) / 100, 2)
Do While Not IsEmpty(Cells(Row, 3))
If Cells(Row, 3) <> Cells(Row + 1, 3) Then
stop_pozycja = True
SumaNetto = Round(SumaNetto, 2) + k_netto
MsgBox "suma netto to: " & SumaNetto
Exit Do
Else
Row = Row + 1
End If
Loop
Row = Row + 1
stop_pozycja = False
Wend
End Sub
Prosze o pomoc.