Goal seek with Variable

[drewbsking]

Beginner here trying to get goal seek to work for my needs.

I would like the goal to be a var because it changes based on a pipe size which correlates to a specific slope to be used in the goal seek. Can this be done?

The code below does not work. But it was what I was thinking.

Sub PipeGoalSeek()
Dim Slope As Integer

Slope = VLookup(Range("AK" & ActiveCell.Row), PipeArray, 5, False)

Range("BX" & ActiveCell.Row).Goalseek Goal:=Slope, ChangingCell:=Range("AY" & ActiveCell.Row)

'Can I put the value that would go into Range("AY" & ActiveCell.Row) into another varibile (say **result**) to be placed into a mround function like below?

Range("AY" & ActiveCell.Row) = "=Mround(**result**,0.05)"
End Sub

 

[drewbsking]

Can I define a variable from vlookup? or do i have to use a bunch of if statements?

Sub Macro2()

Dim myvarible As Integer

' IS THIS EVEN POSSIBLE?
myvarible = VLookup(Range("J23"), Table, 2, False)

MsgBox ("The var is: " & myvarible)

I dont want to place this variable anywhere on the sheet.

 

[drewbsking]

Now Im cooking with fire.

Dim myvarible As Integer

myvarible = Application.WorksheetFunction.VLookup(1, Range("Table"), 2, False)

MsgBox ("The var is: " & myvarible)