VBA Code to Multiply 2 Cells

[New VBA User]

Hello All,

I have an excel sheet where the user will input values in 2 columns. I am looking for VBA code that will show the multiplied result in 3rd column

Col A ColB ColC
3 7 21
6 6 36

 

[Derek McGill]

Why vba and not a formula ?

 

[Belleke]

Try:

Sub Belleke()
With Range("C1:C" & Range("A" & Rows.Count).End(xlUp).Row)
        .Formula = "=PRODUCT($A1, $B1)"
        .Value = .Value
      End With
End Sub

 

[Akash Goswami]

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 3).Value = Cells(i, 1).Value * Cells(i, 2).Value


Next i

End Sub

 

[Marc L]

Hi !

Less efficient is a loop - like For … Next - when an Excel feature
already exists like here an easy formula :​

Sub Demo()
    With [A1].CurrentRegion.Resize(, 3).Columns
        .Item(3).Value = Evaluate(.Item(1).Address & "*" & .Item(2).Address)
    End With
End Sub

Same as Belleke post #3 but via a direct evaluation …

Think Excel Before VBA !

Do you like it ? So thanks to click on bottom right Like !
​