Multiplication by percent

[Forestq]

Hi,

I have values:

Values (col a)	Percent (col b)	Result (col c)
20	2	20.4
30	5	31.5
10	40	10.4

<tbody>
</tbody>

equation should looks:
result = 20 * 1.02 = 20.4
result = 30 * 1.05 = 31,5
result = 10 * 1.4 = 14

How can I do it into Vba? Because I doing now as below: (result is the same)

ws.Range("C2").Value = (ws.Range("A2").Value * ws.Range("B2").Value / 100 ) + ws.Range("A2").Value
ws.Range("C3").Value = (ws.Range("A3").Value * ws.Range("B3").Value / 100 ) + ws.Range("A3").Value
ws.Range("C4").Value = (ws.Range("A4").Value * ws.Range("B4").Value / 100 ) + ws.Range("A4").Value

 

[njimack]

Sub Percent()

Dim ws As Worksheet
Dim LastRow As Long
Dim rng1 As Range


Application.ScreenUpdating = False


Set ws = Sheets("Sheet1")
With ws
    LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    
    Set rng1 = Range(.Cells(2, 2), .Cells(LastRow, 2)).Offset(, 1)
    With rng1
        .Formula = "=A2 * (1+(B2/100))"
        .Copy
        .PasteSpecial xlValues
    End With
End With


Application.ScreenUpdating = True


End Sub

 

[Forestq]

I don't want to use Formula. Calculation should be done into VBa and then display just result.

 

[njimack]

Sub Percent()


Dim ws As Worksheet
Dim LastRow As Long
Dim rng1 As Range
Dim cell As Range


Application.ScreenUpdating = False


Set ws = Sheets("Sheet1")
With ws
    LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    
    Set rng1 = Range(.Cells(2, 2), .Cells(LastRow, 2)).Offset(, 1)
    For Each cell In rng1
        cell.Value = cell.Offset(, -2) * (1 + (cell.Offset(, -1) / 100))
    Next
End With


Application.ScreenUpdating = True


End Sub

 

[Forestq]

thanks!