VBA Multiplying Help!!

[csijenna]

I am trying to set up a spreadsheet that will automatically multiply the entry in a cell by the price listed in another cell and display the total price in the cell instead of the previously entered amount purchased. For Example: Sailcraft permits are $250 each. I want to enter that someone purchased 2 and that 2 to automatically change to $500.
I am stumped. Does anyone have a code for VBA that would work for this? Ideally I would do this for multiple columns just changing the cell the amount is in for the multiplying and do it only for a range per column so that I can total each column at the bottom.
Thank you all in advance!

 

[StephenCrump]

Welcome to the Forum!

It's easy enough to do this using VBA. But why on earth would you want to do this?

Purchase orders, invoices etc show unit prices and numbers of units because it makes sense to do this- the number of units is a key piece of information. Why would you want to overwrite these numbers?

	A	B	C
1	Price	Total
2	$250	$250	<-- after entering 1
3	$50	$100	<-- after entering 2
4	$100	$300	<-- after entering 3
Sheet1

'In the relevant sheet module
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range, r As Range
    
    Set rng = Intersect(Target, Range("B2:B4"))
    
    If Not rng Is Nothing Then
        Application.EnableEvents = False
        For Each r In rng
            r.Value = r.Value * r.Offset(, -1).Value
        Next r
        Application.EnableEvents = True
    End If

End Sub