Goalseek

[asha kala]

Hi,

can anyone please check what wrong in code wrote for event change calculate in sheet2.

It should change the value of "D4" in order to match the value in "G4" to "I1".

Private Sub Worksheet_Calculate()

Dim x As Integer
x = Range("i1").Value
Range("g4").GoalSeek Goal:=x, ChangingCell:=Range("d4")

End Sub

Regards,

Asha

[Ashish Kumar]

HI,

Check this.

Try to resolve your query with the help of this example.

Note : Please visit the group page for download the sheet.

Regards

Ashish Kumar