One Range Multiply By Another Range With Worksheet change event

[nidhipatel]

in sheet1
Range A1:A5 multiply with B1:B5 and result show in range C1:C5

if enter any value in cell A1 and B1 than result show in C1 only.
if enter any value in cell A2 and B2 than result show in C2 only.
if enter any value in cell A3 and B3 than result show in C3 only.
if enter any value in cell A4 and B4 than result show in C4 only.
if enter any value in cell A5 and B5 than result show in C5 only.

with worksheet change event by vba

 

[JackDanIce]

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Count = 1 And Not Intersect(Target, Cells(1, 1).Resize(5)) Is Nothing Then Cells(Target.Row, 3) = Cells(Target.Row, 1) * Cells(Target.Row, 2)
    
End Sub

 

[nidhipatel]

not working

 

[JackDanIce]

Added part in red, works for me where if I enter any value in A1:B5, the product is shown in column C of that row

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Count = 1 And Not Intersect(Target, Cells(1, 1).Resize(5, 2)) Is Nothing Then Cells(Target.Row, 3) = Cells(Target.Row, 1) * Cells(Target.Row, 2)
    
End Sub

Tested on a new sheet, code added to worksheet event

 

[nidhipatel]

thanks its working

 

[JackDanIce]

You're welcome