Problem with the Div / 0 replacement loop

[Palucci]

Hey Guys!
I have two loops that replace the result of Div / 0 with an empty cell, the problem is that the first loop works and the second one doesn't, there is no error, but only one table has a result

Dim MyRange As Range
With wbMe.Sheets("page3").Range("B30:D44")
        .EntireRow.Hidden = False
        On Error Resume Next
        Set MyRange = .SpecialCells(xlConstants, xlErrors)
        On Error GoTo 0
        If Not MyRange Is Nothing Then
            MyRange.ClearContents
         End If
With wbMe.Sheets("page3").Range("B76:K89")
        .EntireRow.Hidden = False
        On Error Resume Next
        Set MyRange = .SpecialCells(xlConstants, xlErrors)
        On Error GoTo 0
        If Not MyRange Is Nothing Then
            MyRange.ClearContents
        End If

 

[Fluff]

What happens if you remove this line On Error Resume Next from the code looking at B76:K89

 

[Palucci]

Hi Fluff i got error ""No cells found" 1004 here

Set MyRange = .SpecialCells(xlConstants, xlErrors)

But be honest there are many position with Div/0 here my code

Dim MyRange As Range
With wbMe.Sheets("page3").Range("B30:D44")
        .EntireRow.Hidden = False
        On Error Resume Next
        Set MyRange = .SpecialCells(xlConstants, xlErrors)
        On Error GoTo 0
        If Not MyRange Is Nothing Then
            MyRange.ClearContents
         End If
With wbMe.Sheets("page3").Range("B76:K89")
        .EntireRow.Hidden = False
        Set MyRange = .SpecialCells(xlConstants, xlErrors)
        On Error GoTo 0
        If Not MyRange Is Nothing Then
            MyRange.ClearContents
        End If

 

[Marc L]

Hi,​

​

with SpecialCells just search formulas rather than constants …​

 

[Palucci]

Hi,​

​

with SpecialCells just search formulas rather than constants …​

But first loop working fine, and its same table like a seconde one

 

[Palucci]

Its resolved guys ! Thanks for help i changed to

With wbMe.Sheets("page3").Range("B76:K89")
        .EntireRow.Hidden = False
        Set MyRange = SpecialCells(xlCellTypeFormulas, xlErrors)
        On Error GoTo 0
        If Not MyRange Is Nothing Then
            MyRange.ClearContents
        End If

 

[RoryA]

You've been warned about this repeatedly:

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: VBA Problem with the Div / 0 replacement loop
If you have posted the question at more places, please provide links to those as well.