calculating variables

[kin1]

hello, i hope someone can help me with this.

i'm trying to calculate two variables provided by the user through the inputbox. i'm having a hard time getting it calculate.

here's what i have. any suggestions would be great, thanks!

Sub ProrateValue()
Dim NetWeight As Integer
Dim TotalValue As Integer

NetWeight = InputBox("Please enter the Net Weight Value")
TotalValue = InputBox("Please enter the Total Value")

Range("E2").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[2]*netweight)/totalvalue"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E100")

End Sub

thanks again.

 

[Tom Urtis]

See if this gets you headed in the right direction:

Sub InputNumbers()
Dim var1#
var1 = Application.InputBox("Please enter the Net Weight Value:", "Net weight", Type:=1)
If var1 = False Then Exit Sub
Dim var2#
var2 = Application.InputBox("Please enter the Total Value:", "Total", Type:=1)
If var2 = False Then Exit Sub
Range("E2:E100").FormulaR1C1 = "=SUM(RC[2]*" & var1 & ")/" & var2
End Sub

 

[kin1]

thank you Tom, it works. i wish i could write codes like that!

thanks again.