I posted last week on this problem I am trying to solve.


Sub stantiate()
Dim myRange As Range
Set myRange = Range("C10:d1000")
For Each c In myRange
If c.Value = 0 Then
c.Value = ""
End If
Next
End Sub

The code gets hung up at:

If c.Value = 0 Then

the cell value could be #N/A or some other
"errors".

Could this be the reason the code gets hung up ?

If so, is there a way to resolve the problem ?

Thank you in advance.

If I'm understanding you correctly...if the cell value is actually a cell
error, you would like the cell value=0?

"carl" wrote:

> I posted last week on this problem I am trying to solve.
>
>
> Sub stantiate()
> Dim myRange As Range
> Set myRange = Range("C10:d1000")
> For Each c In myRange
> If c.Value = 0 Then
> c.Value = ""
> End If
> Next
> End Sub
>
> The code gets hung up at:
>
> If c.Value = 0 Then
>
> the cell value could be #N/A or some other
> "errors".
>
> Could this be the reason the code gets hung up ?
>
> If so, is there a way to resolve the problem ?
>
> Thank you in advance.

you haven't declared c..........

dim c as Range

blah blah
For Each c In myRange
If c.Value = 0 Then
c.Value = ""
End If
Next

also, "Next" needs to be "Next c"
you might also need to change
c.Value = ""
to
c.clearcontents

hope this helps!
susan


On Jul 9, 10:56 am, carl <c...@discussions.microsoft.com> wrote:
> I posted last week on this problem I am trying to solve.
>
> Sub stantiate()
> Dim myRange As Range
> Set myRange = Range("C10:d1000")
> For Each c In myRange
> If c.Value = 0 Then
> c.Value = ""
> End If
> Next
> End Sub
>
> The code gets hung up at:
>
> If c.Value = 0 Then
>
> the cell value could be #N/A or some other
> "errors".
>
> Could this be the reason the code gets hung up ?
>
> If so, is there a way to resolve the problem ?
>
> Thank you in advance.

Thanks for your help.

I need the contents of the cell cleared only if the value = 0.

That said, when I run the macro, some of the cells are #N\A and other error
messages.

I would like the macro to ignore the error messages.

"E-Coder" wrote:

> If I'm understanding you correctly...if the cell value is actually a cell
> error, you would like the cell value=0?
>
> "carl" wrote:
>
> > I posted last week on this problem I am trying to solve.
> >
> >
> > Sub stantiate()
> > Dim myRange As Range
> > Set myRange = Range("C10:d1000")
> > For Each c In myRange
> > If c.Value = 0 Then
> > c.Value = ""
> > End If
> > Next
> > End Sub
> >
> > The code gets hung up at:
> >
> > If c.Value = 0 Then
> >
> > the cell value could be #N/A or some other
> > "errors".
> >
> > Could this be the reason the code gets hung up ?
> >
> > If so, is there a way to resolve the problem ?
> >
> > Thank you in advance.

Does this code do what you want?

Dim C As Range
Dim myRange As Range
Set myRange = Range("C10:d12")
For Each C In myRange
If Not IsError(C.Value) Then
If C.Value = 0 Then C.cl
End If
Next

Rick


"carl" <(E-Mail Removed)> wrote in message
news:8BCE2353-E52E-40A7-AB95-(E-Mail Removed)...
> Thanks for your help.
>
> I need the contents of the cell cleared only if the value = 0.
>
> That said, when I run the macro, some of the cells are #N\A and other
> error
> messages.
>
> I would like the macro to ignore the error messages.
>
> "E-Coder" wrote:
>
>> If I'm understanding you correctly...if the cell value is actually a cell
>> error, you would like the cell value=0?
>>
>> "carl" wrote:
>>
>> > I posted last week on this problem I am trying to solve.
>> >
>> >
>> > Sub stantiate()
>> > Dim myRange As Range
>> > Set myRange = Range("C10:d1000")
>> > For Each c In myRange
>> > If c.Value = 0 Then
>> > c.Value = ""
>> > End If
>> > Next
>> > End Sub
>> >
>> > The code gets hung up at:
>> >
>> > If c.Value = 0 Then
>> >
>> > the cell value could be #N/A or some other
>> > "errors".
>> >
>> > Could this be the reason the code gets hung up ?
>> >
>> > If so, is there a way to resolve the problem ?
>> >
>> > Thank you in advance.