Automatically multiple the inputted value on a cell

[TheLSD]

Can I make value that I input on a cell automatically multiplied by a specific cell? Like the picture above, if I input "1" on column "Jan" then I press enter, it will automatically multiplied to "price" column so 1 times 1500. Other, if I input "3" on "Jan", then it will become "4500"
Thank you!

 

[mumps]

Will you be using only Jan (column K) or do you also want to do this for all 12 months in the columns to the right of Jan? As well, will you have more than one asset in column H?

 

[TheLSD]

Will you be using only Jan (column K) or do you also want to do this for all 12 months in the columns to the right of Jan? As well, will you have more than one asset in column H?

yep I will do for all 12 months and more than one asset

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. The macro assumes the months are in the range K1:V1.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("K:V")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Target.Value * Range("J" & Target.Row).Value
    Application.EnableEvents = True
End Sub

 

[TheLSD]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. The macro assumes the months are in the range K1:V1.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("K:V")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Target.Value * Range("J" & Target.Row).Value
    Application.EnableEvents = True
End Sub

If I put nothing on Qty Column, can I insert any number on the month's columns?

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. The macro assumes the months are in the range K1:V1.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("K:V")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Target.Value * Range("J" & Target.Row).Value
    Application.EnableEvents = True
End Sub

sorry for the late response
I try to change the range and the target value but when I try to insert the value, it won't multiple it
any idea?
here's the code with my customization

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("d:o")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Target.Value * ThisWorkbook.Sheets(2).Range("C" & Target.Row).Value
    Application.EnableEvents = True
End Sub

 

[mumps]

It would be easier to help if you could use the XL2BB add-in (icon in the menu) to attach screenshots (not a pictures) of Sheet2 and the sheet containing the target. Alternately, you could upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary).