ery, very urgent Please, help me - adding values
Hi All:wave:
I have something like this - I add it trough inputbox
Code:
If inCoLicz = 8 Then dbSumDane(6) = Format(dbSumDane(6) + nVal, "0.00"): inIleSzt(6) = inIleSzt(6) + HscIle.Value
If inCoLicz = 9 Then dbSumDane(1) = Format(dbSumDane(1) + nVal, "0.00"): inIleSzt(1) = inIleSzt(1) + HscIle.Value
If inCoLicz = 13 Then dbSumDane(3) = Format(dbSumDane(3) + nVal, "0.00"): inIleSzt(3) = inIleSzt(3) + HscIle.Value
If inCoLicz = 12 Then dbSumDane(4) = Format(dbSumDane(4) + nVal, "0.00"): inIleSzt(4) = inIleSzt(4) + HscIle.Value
If inCoLicz = 11 Then
dbSumDane(3) = Format(dbSumDane(3) + nVal, "0.00"): inIleSzt(3) = inIleSzt(3) + HscIle.Value
dbSumDane(4) = Format(dbSumDane(4) + nVal, "0.00"): inIleSzt(4) = inIleSzt(4) + HscIle.Value
End If
Is possible to make it a better e.g: a some the loop, here's a some the way on a simplified writes?
some idea?
thanks in advance :thumb: :thumb: :thumb: :thumb: :thumb: :confused:
Re: ery, very urgent Please, help me - adding values
Code:
Select Case inCoLicz
Case 8
dbSumDane(6) = Format(dbSumDane(6) + nVal, "0.00")
inIleSzt(6) = inIleSzt(6) + HscIle.Value
Case 9
dbSumDane(1) = Format(dbSumDane(1) + nVal, "0.00")
inIleSzt(1) = inIleSzt(1) + HscIle.Value
Case 13
dbSumDane(3) = Format(dbSumDane(3) + nVal, "0.00")
inIleSzt(3) = inIleSzt(3) + HscIle.Value
Case 12
dbSumDane(4) = Format(dbSumDane(4) + nVal, "0.00")
inIleSzt(4) = inIleSzt(4) + HscIle.Value
Case 11
dbSumDane(3) = Format(dbSumDane(3) + nVal, "0.00")
inIleSzt(3) = inIleSzt(3) + HscIle.Value
dbSumDane(4) = Format(dbSumDane(4) + nVal, "0.00")
inIleSzt(4) = inIleSzt(4) + HscIle.Value
End Select