worksheet_selection change with formula

[nidhipatel]

when i enter a value in any cell of Range A2:A6 and B2:B6 then out put (multiplication of Range A2:A6 and B2:B6) will be shown in C2:C6
i do this only by worksheet selection change event by macro ex.

when i input value in "A2" and "B2" then out put show in "C2" or when i enter any value in "A3" and "B3" then output show in "C3". then respectively other cell.

 

[gallen]

confused why you need to do it via a macro. Also confused as to what your actual issue is.

 

[L. Howard]

Try this in the sheet module.

Howard

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:B6")) Is Nothing Then Exit Sub

Dim OneRng As Range

Set OneRng = Range(Cells(2, 3), Cells(6, 3))

    With OneRng
      .Formula = "=A2*B2"
      .Value = .Value
    End With

End Sub

 

[nidhipatel]

problem is when i enter value in A2 and B2 then output shown only in C2 or when i enter value A3 and B3 then output show in C3 only other wise nothing not "zero"

 

[nidhipatel]

i create a invoice when i enter value in "qty" heading like "A2" and heading "Rate" like "B2" then output show only heading "Total" like "C2" condition is when i enter data in rang then show output. understand

 

[L. Howard]

Maybe this?

Howard

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:B6")) Is Nothing Then Exit Sub

Dim OneRng As Range

Set OneRng = Range(Cells(2, 3), Cells(6, 3))

    With OneRng
      .Formula = "=IFERROR(IF(A2*B2=0,"""",A2*B2),"""")"
      .Value = .Value
    End With
    
End Sub