On Error Resume Next

jalrs

Active Member
Joined
Apr 6, 2022
Messages
300
Office Version
  1. 365
Platform
  1. Windows
Hello guys,

Not sure if this is the right approach, but I think so.
I'm needing to add "On Error Resume Next" line to my code, so if it doesn't read the file with folha2.cells(i,5).value on the location, it resumes next i value. I just don't know where.
If this is not the right approach, feel free to suggest any other.

Here is my code:

VBA Code:
Option Explicit
Sub integrarf1()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim livro1 As Workbook, livro2 As Workbook
Dim folha1 As Worksheet, folha2 As Worksheet, folha3 As Worksheet, folha4 As Worksheet
Dim ultimalinha1 As Long, ultimalinha2 As Long, ultimalinha3 As Long, ultimalinha4 As Long, ultimalinha5 As Long, ultimalinha6 As Long, ultimalinha7 As Long, i As Long
Dim localizacao As String, nomedocumento As String, valorfiltro As String

Set livro1 = ThisWorkbook
Set folha1 = livro1.Worksheets("PainelControlo")
Set folha2 = livro1.Worksheets("MACRO 1")
Set folha3 = livro1.Worksheets("Tipificação Feedback")

folha2.Activate

ultimalinha1 = folha2.Cells(Rows.Count, "E").End(xlUp).Row

    For i = 2 To ultimalinha1
    
        valorfiltro = Cells(i, 5).Value
    
        ultimalinha2 = folha3.Cells(Rows.Count, "B").End(xlUp).Row + 1
        ultimalinha3 = folha3.Cells(Rows.Count, "C").End(xlUp).Row + 1
        ultimalinha4 = folha3.Cells(Rows.Count, "D").End(xlUp).Row + 1
    
        Workbooks.Open Filename:=ThisWorkbook.Path & "\Controlo e Difusão\Feedbacks Recebidos\" & Cells(i, 5).Value & ".xlsx"
    
        Set livro2 = Workbooks("" & valorfiltro & ".xlsx")
        
        Set folha4 = livro2.Worksheets("Pendentes")
    
        ultimalinha5 = folha4.Cells(Rows.Count, "D").End(xlUp).Row + 1
        ultimalinha6 = folha4.Cells(Rows.Count, "AT").End(xlUp).Row + 1
        ultimalinha7 = folha4.Cells(Rows.Count, "AX").End(xlUp).Row + 1
        
            With folha4
            
                .Range("D2:D" & ultimalinha5).Copy
                folha3.Cells(ultimalinha2, 2).PasteSpecial Paste:=xlPasteValues
                
                .Range("AT2:AT" & ultimalinha6).Copy
                folha3.Cells(ultimalinha3, 3).PasteSpecial Paste:=xlPasteValues
                
                .Range("AX2:AZ" & ultimalinha7).Copy
                folha3.Cells(ultimalinha4, 4).PasteSpecial Paste:=xlPasteValues
                
            End With
            
        ActiveWorkbook.Close
        
        Application.CutCopyMode = False
        
        folha2.Activate
        
    Next i
    
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

Any additional question feel free to ask
Any help is greatly appreciated.

Thanks!
 
Thank you for your detailed explanation. I think it's clear to me.
I've slightly modified my post #2 code by applying @RoryA's suggestion: deleting a redundant line.
I've also added some comments to the code to clarify things.
See if this works for you.

VBA Code:
Sub integrarf1_v3()

    ' I'm needing to add "On Error Resume Next" line to my code, so if it doesn't read the file with folha2.cells(i,5).value
    ' on the location, it resumes next i value. I just don't know where.
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    Dim folha1 As Worksheet, folha2 As Worksheet, folha3 As Worksheet, folha4 As Worksheet
    Dim ultimalinha1 As Long, ultimalinha2 As Long, ultimalinha3 As Long, ultimalinha4 As Long, ultimalinha5 As Long, ultimalinha6 As Long, ultimalinha7 As Long, i As Long
    Dim localizacao As String, nomedocumento As String, valorfiltro As String
   
    With ThisWorkbook
        Set folha1 = .Worksheets("PainelControlo")
        Set folha2 = .Worksheets("MACRO 1")
        Set folha3 = .Worksheets("Tipificação Feedback")
    End With
       
    With folha2
       
        ultimalinha1 = .Cells(Rows.Count, "E").End(xlUp).Row
   
        ' Context: For i = 2 to ultimalinha1 :
        '    1st macro saves the template with Column E values as new name to folder "Anexos".
        '    2nd macro adds Column E doc names as attachments, from folder "Anexos".
        '    3rd macro (this particular one!!) should open Column E doc names values, from "Feedbacks Recebidos" folder.
        ' Next i        ^^^^^^^^^^^^^^^^^^^^^


        ' compose the desired location on disk to look in
        localizacao = ThisWorkbook.Path & "\Controlo e Difusão\Feedbacks Recebidos\"

        For i = 2 To ultimalinha1

            valorfiltro = .Cells(i, "E").Value

            ultimalinha2 = folha3.Cells(Rows.Count, "B").End(xlUp).Row + 1
            ultimalinha3 = folha3.Cells(Rows.Count, "C").End(xlUp).Row + 1
            ultimalinha4 = folha3.Cells(Rows.Count, "D").End(xlUp).Row + 1
       
            ' declare a variable of the appropriate type
            Dim JustOpenedWorkbook As Excel.Workbook

            ' try to open specific workbook in desired location on disk, catch its reference (if any) ...
            ' ... and store that reference in the variable "JustOpenedWorkbook".

            ' ignore any error during this attempt
            On Error Resume Next
            Set JustOpenedWorkbook = Excel.Application.Workbooks.Open(FileName:=localizacao & valorfiltro & ".xlsx")

            ' restore error handler so future errors are not ignored anymore
            On Error GoTo 0

            ' check whether the variable "JustOpenedWorkbook" contains a valid reference (i.e. not being "Nothing")
            If Not JustOpenedWorkbook Is Nothing Then

                ' attempt to open workbook succeeded, proceed with desired actions
               
                Set folha4 = JustOpenedWorkbook.Worksheets("Pendentes")
           
                ultimalinha5 = folha4.Cells(Rows.Count, "D").End(xlUp).Row + 1
                ultimalinha6 = folha4.Cells(Rows.Count, "AT").End(xlUp).Row + 1
                ultimalinha7 = folha4.Cells(Rows.Count, "AX").End(xlUp).Row + 1
               
                    With folha4
                   
                        .Range("D2:D" & ultimalinha5).Copy
                        folha3.Cells(ultimalinha2, 2).PasteSpecial Paste:=xlPasteValues
                       
                        .Range("AT2:AT" & ultimalinha6).Copy
                        folha3.Cells(ultimalinha3, 3).PasteSpecial Paste:=xlPasteValues
                       
                        .Range("AX2:AZ" & ultimalinha7).Copy
                        folha3.Cells(ultimalinha4, 4).PasteSpecial Paste:=xlPasteValues
                       
                    End With
                Application.CutCopyMode = False
               
                ' close this one
                JustOpenedWorkbook.Close
           
           
            Else
                ' attempt to open specific workbook failed, do nothing
            End If
        Next i
       
    End With
   
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
Hey @GWteB ,

Glad I could explain myself and appreciate your assistance here.
I will make some tests in a few and I will report back to you.

Thank you!
 
Upvote 0

Excel Facts

How to calculate loan payments in Excel?
Use the PMT function: =PMT(5%/12,60,-25000) is for a $25,000 loan, 5% annual interest, 60 month loan.
Thank you for your detailed explanation. I think it's clear to me.
I've slightly modified my post #2 code by applying @RoryA's suggestion: deleting a redundant line.
I've also added some comments to the code to clarify things.
See if this works for you.

VBA Code:
Sub integrarf1_v3()

    ' I'm needing to add "On Error Resume Next" line to my code, so if it doesn't read the file with folha2.cells(i,5).value
    ' on the location, it resumes next i value. I just don't know where.
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    Dim folha1 As Worksheet, folha2 As Worksheet, folha3 As Worksheet, folha4 As Worksheet
    Dim ultimalinha1 As Long, ultimalinha2 As Long, ultimalinha3 As Long, ultimalinha4 As Long, ultimalinha5 As Long, ultimalinha6 As Long, ultimalinha7 As Long, i As Long
    Dim localizacao As String, nomedocumento As String, valorfiltro As String
   
    With ThisWorkbook
        Set folha1 = .Worksheets("PainelControlo")
        Set folha2 = .Worksheets("MACRO 1")
        Set folha3 = .Worksheets("Tipificação Feedback")
    End With
       
    With folha2
       
        ultimalinha1 = .Cells(Rows.Count, "E").End(xlUp).Row
   
        ' Context: For i = 2 to ultimalinha1 :
        '    1st macro saves the template with Column E values as new name to folder "Anexos".
        '    2nd macro adds Column E doc names as attachments, from folder "Anexos".
        '    3rd macro (this particular one!!) should open Column E doc names values, from "Feedbacks Recebidos" folder.
        ' Next i        ^^^^^^^^^^^^^^^^^^^^^


        ' compose the desired location on disk to look in
        localizacao = ThisWorkbook.Path & "\Controlo e Difusão\Feedbacks Recebidos\"

        For i = 2 To ultimalinha1

            valorfiltro = .Cells(i, "E").Value

            ultimalinha2 = folha3.Cells(Rows.Count, "B").End(xlUp).Row + 1
            ultimalinha3 = folha3.Cells(Rows.Count, "C").End(xlUp).Row + 1
            ultimalinha4 = folha3.Cells(Rows.Count, "D").End(xlUp).Row + 1
       
            ' declare a variable of the appropriate type
            Dim JustOpenedWorkbook As Excel.Workbook

            ' try to open specific workbook in desired location on disk, catch its reference (if any) ...
            ' ... and store that reference in the variable "JustOpenedWorkbook".

            ' ignore any error during this attempt
            On Error Resume Next
            Set JustOpenedWorkbook = Excel.Application.Workbooks.Open(FileName:=localizacao & valorfiltro & ".xlsx")

            ' restore error handler so future errors are not ignored anymore
            On Error GoTo 0

            ' check whether the variable "JustOpenedWorkbook" contains a valid reference (i.e. not being "Nothing")
            If Not JustOpenedWorkbook Is Nothing Then

                ' attempt to open workbook succeeded, proceed with desired actions
               
                Set folha4 = JustOpenedWorkbook.Worksheets("Pendentes")
           
                ultimalinha5 = folha4.Cells(Rows.Count, "D").End(xlUp).Row + 1
                ultimalinha6 = folha4.Cells(Rows.Count, "AT").End(xlUp).Row + 1
                ultimalinha7 = folha4.Cells(Rows.Count, "AX").End(xlUp).Row + 1
               
                    With folha4
                   
                        .Range("D2:D" & ultimalinha5).Copy
                        folha3.Cells(ultimalinha2, 2).PasteSpecial Paste:=xlPasteValues
                       
                        .Range("AT2:AT" & ultimalinha6).Copy
                        folha3.Cells(ultimalinha3, 3).PasteSpecial Paste:=xlPasteValues
                       
                        .Range("AX2:AZ" & ultimalinha7).Copy
                        folha3.Cells(ultimalinha4, 4).PasteSpecial Paste:=xlPasteValues
                       
                    End With
                Application.CutCopyMode = False
               
                ' close this one
                JustOpenedWorkbook.Close
           
           
            Else
                ' attempt to open specific workbook failed, do nothing
            End If
        Next i
       
    End With
   
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
Hey @GWteB,

I reproduced the exact same tests, and your code is working according to working.png, but it fails to do so according to notworking.png.
I get a new error, please look at new attachment and consider the others please as well.

error is on the following line
VBA Code:
Set folha4 = JustOpenedWorkbook.Worksheets("Pendentes")

Thank you!
 

Attachments

  • error.png
    error.png
    164.2 KB · Views: 10
Upvote 0
After this line:

Code:
JustOpenedWorkbook.Close

add:

Code:
Set JustOpenedWorkbook = Nothing
 
Upvote 0
After this line:

Code:
JustOpenedWorkbook.Close

add:

Code:
Set JustOpenedWorkbook = Nothing
Hey @RoryA ,

That fixed the issue thank you.

Since you (@GWteB) delivered the code, I kindly ask you to please repost it so I can mark the ammended version as solution.

Thank you!
 
Upvote 0
After this line:
JustOpenedWorkbook.Close
add:
Set JustOpenedWorkbook = Nothing

This was a really sloppy omission on my part. The code should have looked like:

VBA Code:
Sub integrarf1_v4()
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Dim folha1 As Worksheet, folha2 As Worksheet, folha3 As Worksheet, folha4 As Worksheet
    Dim ultimalinha1 As Long, ultimalinha2 As Long, ultimalinha3 As Long, ultimalinha4 As Long, ultimalinha5 As Long, ultimalinha6 As Long, ultimalinha7 As Long, i As Long
    Dim localizacao As String, nomedocumento As String, valorfiltro As String
    
    With ThisWorkbook
        Set folha1 = .Worksheets("PainelControlo")
        Set folha2 = .Worksheets("MACRO 1")
        Set folha3 = .Worksheets("Tipificação Feedback")
    End With
        
    With folha2
        
        ultimalinha1 = .Cells(Rows.Count, "E").End(xlUp).Row
    
        ' Context: For i = 2 to ultimalinha1 :
        '    1st macro saves the template with Column E values as new name to folder "Anexos".
        '    2nd macro adds Column E doc names as attachments, from folder "Anexos".
        '    3rd macro (this particular one!!) should open Column E doc names values, from "Feedbacks Recebidos" folder.
        ' Next i        ^^^^^^^^^^^^^^^^^^^^^

        ' compose the desired location on disk to look in
        localizacao = ThisWorkbook.Path & "\Controlo e Difusão\Feedbacks Recebidos\"

        For i = 2 To ultimalinha1

            valorfiltro = .Cells(i, "E").Value

            ultimalinha2 = folha3.Cells(Rows.Count, "B").End(xlUp).Row + 1
            ultimalinha3 = folha3.Cells(Rows.Count, "C").End(xlUp).Row + 1
            ultimalinha4 = folha3.Cells(Rows.Count, "D").End(xlUp).Row + 1
        
            ' declare a variable of the appropriate type
            Dim JustOpenedWorkbook As Excel.Workbook

            ' try to open specific workbook in desired location on disk, catch its reference (if any) ...
            ' ... and store that reference in the variable "JustOpenedWorkbook".

            ' Prevent potential errors on invalid references within this loop
            Set JustOpenedWorkbook = Nothing
            
            ' ignore any error during this attempt
            On Error Resume Next
            Set JustOpenedWorkbook = Excel.Application.Workbooks.Open(Filename:=localizacao & valorfiltro & ".xlsx")

            ' restore error handler so future errors are not ignored anymore
            On Error GoTo 0

            ' check whether the variable "JustOpenedWorkbook" contains a valid reference (i.e. not being "Nothing")
            If Not JustOpenedWorkbook Is Nothing Then

                ' attempt to open workbook succeeded, proceed with desired actions

                Set folha4 = JustOpenedWorkbook.Worksheets("Pendentes")

                ultimalinha5 = folha4.Cells(Rows.Count, "D").End(xlUp).Row + 1
                ultimalinha6 = folha4.Cells(Rows.Count, "AT").End(xlUp).Row + 1
                ultimalinha7 = folha4.Cells(Rows.Count, "AX").End(xlUp).Row + 1

                    With folha4
                    
                        .Range("D2:D" & ultimalinha5).Copy
                        folha3.Cells(ultimalinha2, 2).PasteSpecial Paste:=xlPasteValues
                        
                        .Range("AT2:AT" & ultimalinha6).Copy
                        folha3.Cells(ultimalinha3, 3).PasteSpecial Paste:=xlPasteValues
                        
                        .Range("AX2:AZ" & ultimalinha7).Copy
                        folha3.Cells(ultimalinha4, 4).PasteSpecial Paste:=xlPasteValues
                        
                    End With
                Application.CutCopyMode = False
                
                ' close this one
                JustOpenedWorkbook.Close
            Else
                ' attempt to open specific workbook failed, do nothing
            End If
        Next i
    End With
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
Solution
This was a really sloppy omission on my part. The code should have looked like:

VBA Code:
Sub integrarf1_v4()
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    Dim folha1 As Worksheet, folha2 As Worksheet, folha3 As Worksheet, folha4 As Worksheet
    Dim ultimalinha1 As Long, ultimalinha2 As Long, ultimalinha3 As Long, ultimalinha4 As Long, ultimalinha5 As Long, ultimalinha6 As Long, ultimalinha7 As Long, i As Long
    Dim localizacao As String, nomedocumento As String, valorfiltro As String
   
    With ThisWorkbook
        Set folha1 = .Worksheets("PainelControlo")
        Set folha2 = .Worksheets("MACRO 1")
        Set folha3 = .Worksheets("Tipificação Feedback")
    End With
       
    With folha2
       
        ultimalinha1 = .Cells(Rows.Count, "E").End(xlUp).Row
   
        ' Context: For i = 2 to ultimalinha1 :
        '    1st macro saves the template with Column E values as new name to folder "Anexos".
        '    2nd macro adds Column E doc names as attachments, from folder "Anexos".
        '    3rd macro (this particular one!!) should open Column E doc names values, from "Feedbacks Recebidos" folder.
        ' Next i        ^^^^^^^^^^^^^^^^^^^^^

        ' compose the desired location on disk to look in
        localizacao = ThisWorkbook.Path & "\Controlo e Difusão\Feedbacks Recebidos\"

        For i = 2 To ultimalinha1

            valorfiltro = .Cells(i, "E").Value

            ultimalinha2 = folha3.Cells(Rows.Count, "B").End(xlUp).Row + 1
            ultimalinha3 = folha3.Cells(Rows.Count, "C").End(xlUp).Row + 1
            ultimalinha4 = folha3.Cells(Rows.Count, "D").End(xlUp).Row + 1
       
            ' declare a variable of the appropriate type
            Dim JustOpenedWorkbook As Excel.Workbook

            ' try to open specific workbook in desired location on disk, catch its reference (if any) ...
            ' ... and store that reference in the variable "JustOpenedWorkbook".

            ' Prevent potential errors on invalid references within this loop
            Set JustOpenedWorkbook = Nothing
           
            ' ignore any error during this attempt
            On Error Resume Next
            Set JustOpenedWorkbook = Excel.Application.Workbooks.Open(Filename:=localizacao & valorfiltro & ".xlsx")

            ' restore error handler so future errors are not ignored anymore
            On Error GoTo 0

            ' check whether the variable "JustOpenedWorkbook" contains a valid reference (i.e. not being "Nothing")
            If Not JustOpenedWorkbook Is Nothing Then

                ' attempt to open workbook succeeded, proceed with desired actions

                Set folha4 = JustOpenedWorkbook.Worksheets("Pendentes")

                ultimalinha5 = folha4.Cells(Rows.Count, "D").End(xlUp).Row + 1
                ultimalinha6 = folha4.Cells(Rows.Count, "AT").End(xlUp).Row + 1
                ultimalinha7 = folha4.Cells(Rows.Count, "AX").End(xlUp).Row + 1

                    With folha4
                   
                        .Range("D2:D" & ultimalinha5).Copy
                        folha3.Cells(ultimalinha2, 2).PasteSpecial Paste:=xlPasteValues
                       
                        .Range("AT2:AT" & ultimalinha6).Copy
                        folha3.Cells(ultimalinha3, 3).PasteSpecial Paste:=xlPasteValues
                       
                        .Range("AX2:AZ" & ultimalinha7).Copy
                        folha3.Cells(ultimalinha4, 4).PasteSpecial Paste:=xlPasteValues
                       
                    End With
                Application.CutCopyMode = False
               
                ' close this one
                JustOpenedWorkbook.Close
            Else
                ' attempt to open specific workbook failed, do nothing
            End If
        Next i
    End With
   
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
Thank you and marked as solution!
 
Upvote 0
You're most welcome and thanks for posting back (y)
 
Upvote 0
You're most welcome and thanks for posting back (y)
I have an additional question that I forgot to ask.

dim justopenedworkbook as excel.workbook is the same as dim justopenedworkbook as workbook and the same as dim justopenedworkbook as object?

because I'm writting the report of the project, and I get confused when browsing on the internet. because I read that objects are variables with references to other "things" (missing the word, apologies, for example, access, excel, word, etc)

If you could clarify that to me, Id be greatly appreciated too.

Thanks and good night!
 
Upvote 0
I'll try to clarify.

VBA as a programming language is MS Office wide applicable. Every Office application though (Excel, Outlook, Powerpoint, ....) has its own structure, aka Object Model.
An object can be seen as an abstraction of something that you could compare to an actual object in the real world. An object such as a light bulb with properties (on or off, high or low light), with methods (turning the light on to blink) or specific events (the light breaks spontaneously).

Within VBA I prefer (and try as much as possible) to be explicit within the given model. Althought for the Workbook object it might be clear to many that it's a member of the Excel object, for other named objects it's not always immediately obvious. For instance, both the Excel object and the Word object do have a member named Range (being an object itself). This means that a variable declarated as Excel.Range is quite another object type than Word.Range. In that sense more explicitness would make the code more clear for the reader.

More importantly however, explicit code is more "readable" to VBA itself. Lack of explicitness often is a cause of run-time errors. In my opinion it's recommended to be explicit as possible so that any errors (mostly incorrect assumptions of the programmer...) are exposed at compile time rather than at some - unforeseen and unpredictable - point at run-time.
For example: if a variable is declared as a generic Object type, at compile time it's unknown to the VBA compiler which members are valid or not. Suppose a variable is declared "as Object", assuming at run-time a Workbook will be assigned to it. However, due to a fallacy, a Range object appears to be assigned to that variable at run-time. The variable then references a type of object that has other properties and methods (and sometimes events) than expected. Trying to perform a SaveAs method on a Range object will always fail and as a result a run-time error will occur.

Finally: explicit coding also means being able to make optimal use of the intellisense feature of the VBE.
You probably might also take a look over here:


 
Upvote 0
I'll try to clarify.

VBA as a programming language is MS Office wide applicable. Every Office application though (Excel, Outlook, Powerpoint, ....) has its own structure, aka Object Model.
An object can be seen as an abstraction of something that you could compare to an actual object in the real world. An object such as a light bulb with properties (on or off, high or low light), with methods (turning the light on to blink) or specific events (the light breaks spontaneously).

Within VBA I prefer (and try as much as possible) to be explicit within the given model. Althought for the Workbook object it might be clear to many that it's a member of the Excel object, for other named objects it's not always immediately obvious. For instance, both the Excel object and the Word object do have a member named Range (being an object itself). This means that a variable declarated as Excel.Range is quite another object type than Word.Range. In that sense more explicitness would make the code more clear for the reader.

More importantly however, explicit code is more "readable" to VBA itself. Lack of explicitness often is a cause of run-time errors. In my opinion it's recommended to be explicit as possible so that any errors (mostly incorrect assumptions of the programmer...) are exposed at compile time rather than at some - unforeseen and unpredictable - point at run-time.
For example: if a variable is declared as a generic Object type, at compile time it's unknown to the VBA compiler which members are valid or not. Suppose a variable is declared "as Object", assuming at run-time a Workbook will be assigned to it. However, due to a fallacy, a Range object appears to be assigned to that variable at run-time. The variable then references a type of object that has other properties and methods (and sometimes events) than expected. Trying to perform a SaveAs method on a Range object will always fail and as a result a run-time error will occur.

Finally: explicit coding also means being able to make optimal use of the intellisense feature of the VBE.
You probably might also take a look over here:


Thanks for the clarification @GWteB.

I think I understand what you mean, they are equivalent expressions, but not good practice to declare them like that. (workbook and object).
Therefore I will start to declare as you did!

Additionally, thanks for the links, I'll have a read on them!

Thank you for your time!
 
Upvote 0

Forum statistics

Threads
1,213,536
Messages
6,114,205
Members
448,554
Latest member
Gleisner2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top