Prev: help with a sub
Next: Print all tabs to a pdf file
From: Edward Wang on 13 May 2010 13:09
Yes, that is correct!

"aflatoon" wrote:

>
> Your code is unclear to me, but I think you mean:
>
>

> Code:
> --------------------
>
>

>
> Sub GoalSeekTry()
> Set Source = Cells(8, 7)
> Source.GoalSeek Goal:=-800, ChangingCell:=ActiveSheet.Cells(7, 7)
> End Sub

> --------------------
>
>
>
>
>
>
Edward Wang;723120 Wrote:
> >
> sorry adjust the code little bit by removing "End With"
> >
> > Sub GoalSeekTry()
> > Source = Cells(8, 7)
> > x = Cells(7, 7).Value
> > ActiveSheet.Range(Source).GoalSeek Goal:=-800,
> > ChangingCell:=ActiveSheet.Range(x)
> > End Sub
> >
> > "Edward Wang" wrote:
> >
> > > Hi all,
> > > I always have above error while running below code in the excel
> 2007,
> > > please help me out!
> > >
> > > Sub GoalSeekTry()
> > > Source = Cells(8, 7)
> > > x = Cells(7, 7).Value
> > > ActiveSheet.Range(Source).GoalSeek Goal:=-800,
> > > ChangingCell:=ActiveSheet.Range(x)
> > > End With
> > > End Sub
> > >
> > > Source = X*X +X*300
> > >
> > > Regards,
> > > Edward
>
>
> --
> aflatoon
>
> Regards,
> A.
> ------------------------------------------------------------------------
> aflatoon's Profile: http://www.thecodecage.com/forumz/member.php?u=1501
> View this thread: http://www.thecodecage.com/forumz/showthread.php?t=202520
>
> http://www.thecodecage.com/forumz
>
> .
>
 | 
Pages: 1
Prev: help with a sub
Next: Print all tabs to a pdf file