How to get multiple cells to multiply different figures

[Shesmi130]

I have used the formula below to get a specific set of cells to produce a multiplied figure, however it will only work for one row. Each time I change the details in the formula to include another row it deletes the info that was added for the previous row. Is there a way to use the formula on multiple rows that have different values? For example, I need C3:I3 to multiply by 10 but I need C5:I5 to multiply by 18.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "H1:H10" '<== change to suit
Const SET_VALUE As Long = 23 '<== change to suit

On Error GoTo ws_exit
Application.EnableEvents = False

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then

With Target

If IsNumeric(.Value) Then .Value = .Value * SET_VALUE
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

 

[Joe4]

Hi! Can you help me in creating a drop down list that can select multiple options. I got a code that can select multiple options but it is separated with comma. My client wants it separate in different cell under the same column. Please I need some help with this. Thank you in advance.

Please do not post your unrelated questions to someone else's threads! That is known as "thread hijacking". Please post your question to its own thread.

 

[Joe4]

Id's there a way to make it calculate at the 1.5?

Are you saying that you want to round to the nearest half?
Take a look here: https://excel.tips.net/T004079_Rounding_Up_to_the_Next_Half.html

Note that you can use most Excel functions in VBA by using Application.Worksheetfunction
See: https://msdn.microsoft.com/en-us/vba/excel-vba/articles/application-worksheetfunction-property-excel

 

[Shesmi130]

Thank you for your help! I finally got it to work!