Hi,
I am writing a macro in an MPP.The macro runs fine for the first
time.But
the next time its run its popping up an Error.But again after clicking
the
"Reset" button in the VB Editor the code works fine again.

Is there any way that I can "Reset" in the code itself?So that it will
work
fine the next time its run.


In Debug mode, Im getting "Run time Error 1004 Method Cells of object
'_Global' failed at the following line of code.
Cells.Find(what:=subtask_name, lookat:=xlWhole,
searchDirection:=xlNext).Activate



Thanks in advance,
Vinita

It appears the search is failing. Try putting in line before the search
command e.g.

On Error Resume Next
Cells.Find(what:=subtask_name, lookat:=xlWhole,
searchDirection:=xlNext).Activate



--

Regards,
Nigel
(E-Mail Removed)



"Vinita" <(E-Mail Removed)> wrote in message
news:FD590980-BD4C-444F-BC22-(E-Mail Removed)...
> Hi,
> I am writing a macro in an MPP.The macro runs fine for the first
> time.But
> the next time its run its popping up an Error.But again after clicking
> the
> "Reset" button in the VB Editor the code works fine again.
>
> Is there any way that I can "Reset" in the code itself?So that it will
> work
> fine the next time its run.
>
>
> In Debug mode, Im getting "Run time Error 1004 Method Cells of object
> '_Global' failed at the following line of code.
> Cells.Find(what:=subtask_name, lookat:=xlWhole,
> searchDirection:=xlNext).Activate
>
>
>
> Thanks in advance,
> Vinita

ok....This would continue with the next statements of my code even after the
error occurs.But, it would not give me the required format of the excel I
need.

"Nigel" wrote:

> It appears the search is failing. Try putting in line before the search
> command e.g.
>
> On Error Resume Next
> Cells.Find(what:=subtask_name, lookat:=xlWhole,
> searchDirection:=xlNext).Activate
>
>
>
> --
>
> Regards,
> Nigel
> (E-Mail Removed)
>
>
>
> "Vinita" <(E-Mail Removed)> wrote in message
> news:FD590980-BD4C-444F-BC22-(E-Mail Removed)...
> > Hi,
> > I am writing a macro in an MPP.The macro runs fine for the first
> > time.But
> > the next time its run its popping up an Error.But again after clicking
> > the
> > "Reset" button in the VB Editor the code works fine again.
> >
> > Is there any way that I can "Reset" in the code itself?So that it will
> > work
> > fine the next time its run.
> >
> >
> > In Debug mode, Im getting "Run time Error 1004 Method Cells of object
> > '_Global' failed at the following line of code.
> > Cells.Find(what:=subtask_name, lookat:=xlWhole,
> > searchDirection:=xlNext).Activate
> >
> >
> >
> > Thanks in advance,
> > Vinita
>

Hi,

Assign the result of the Find to an object and remove the Activate method.
If the item is not found the Activate will cause an error.

The help file has example code, select Find and press F1.

Cheers
Andy

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"Vinita" <(E-Mail Removed)> wrote in message
news:FD590980-BD4C-444F-BC22-(E-Mail Removed)...
> Hi,
> I am writing a macro in an MPP.The macro runs fine for the first
> time.But
> the next time its run its popping up an Error.But again after clicking
> the
> "Reset" button in the VB Editor the code works fine again.
>
> Is there any way that I can "Reset" in the code itself?So that it will
> work
> fine the next time its run.
>
>
> In Debug mode, Im getting "Run time Error 1004 Method Cells of object
> '_Global' failed at the following line of code.
> Cells.Find(what:=subtask_name, lookat:=xlWhole,
> searchDirection:=xlNext).Activate
>
>
>
> Thanks in advance,
> Vinita

Actually in my program I am porting MPP data into an excel in a format.
And I checked the execution line by line and I find that the excel is
created and also the data it is searching is present in the excel.But Im not
able to figure out why then it is failing while search.

Thanks,
Vinita
"Andy Pope" wrote:

> Hi,
>
> Assign the result of the Find to an object and remove the Activate method.
> If the item is not found the Activate will cause an error.
>
> The help file has example code, select Find and press F1.
>
> Cheers
> Andy
>
> --
>
> Andy Pope, Microsoft MVP - Excel
> http://www.andypope.info
> "Vinita" <(E-Mail Removed)> wrote in message
> news:FD590980-BD4C-444F-BC22-(E-Mail Removed)...
> > Hi,
> > I am writing a macro in an MPP.The macro runs fine for the first
> > time.But
> > the next time its run its popping up an Error.But again after clicking
> > the
> > "Reset" button in the VB Editor the code works fine again.
> >
> > Is there any way that I can "Reset" in the code itself?So that it will
> > work
> > fine the next time its run.
> >
> >
> > In Debug mode, Im getting "Run time Error 1004 Method Cells of object
> > '_Global' failed at the following line of code.
> > Cells.Find(what:=subtask_name, lookat:=xlWhole,
> > searchDirection:=xlNext).Activate
> >
> >
> >
> > Thanks in advance,
> > Vinita
>

Format? Your OP did not mention this. Please explain more fully what you
are trying to do

--

Regards,
Nigel
(E-Mail Removed)



"Vinita" <(E-Mail Removed)> wrote in message
newsA30552C-1F21-41E3-9A39-(E-Mail Removed)...
> ok....This would continue with the next statements of my code even after
> the
> error occurs.But, it would not give me the required format of the excel I
> need.
>
> "Nigel" wrote:
>
>> It appears the search is failing. Try putting in line before the search
>> command e.g.
>>
>> On Error Resume Next
>> Cells.Find(what:=subtask_name, lookat:=xlWhole,
>> searchDirection:=xlNext).Activate
>>
>>
>>
>> --
>>
>> Regards,
>> Nigel
>> (E-Mail Removed)
>>
>>
>>
>> "Vinita" <(E-Mail Removed)> wrote in message
>> news:FD590980-BD4C-444F-BC22-(E-Mail Removed)...
>> > Hi,
>> > I am writing a macro in an MPP.The macro runs fine for the first
>> > time.But
>> > the next time its run its popping up an Error.But again after clicking
>> > the
>> > "Reset" button in the VB Editor the code works fine again.
>> >
>> > Is there any way that I can "Reset" in the code itself?So that it will
>> > work
>> > fine the next time its run.
>> >
>> >
>> > In Debug mode, Im getting "Run time Error 1004 Method Cells of object
>> > '_Global' failed at the following line of code.
>> > Cells.Find(what:=subtask_name, lookat:=xlWhole,
>> > searchDirection:=xlNext).Activate
>> >
>> >
>> >
>> > Thanks in advance,
>> > Vinita
>>