Optimize macro

N

Nagini

New Member
Joined
Dec 11, 2016
Messages
34
Hello! I've written this macro, it takes 5 minutes to end the work and I think that maybe someone Knows how to optimize it to make ir faster!


Sub Macro2()


Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False


Dim Indices, Calculos, Seleccion As Worksheet
Set Indices = Sheets("C.Indices")
Set Calculos = Sheets("CALCULOS")
Set Seleccion = Sheets("Sel.Mes")


Dim i As Integer
LastCol = Indices.Cells(1, Columns.Count).End(xlToLeft).Column
For i = 8 To LastCol

 Dim j As Integer
j = i - 6

Indices.Columns(i).Copy
Calculos.Select
Columns("D:D").PasteSpecial Paste:=xlPasteValues
Application.Goto Reference:="R318C50"
Range("BR318:CK318").Copy
Seleccion.Select
Cells(j, 1).PasteSpecial Paste:=xlPasteValues

Next i

Application.ScreenUpdating = True
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False


End Sub
 
Sort by date Sort by votes
The macro inside the workbook on dropbox works just changing

Code: 
[COLOR=#000000][FONT=Menlo][COLOR=#ff0000]LastCol = Indices.Cells(1, Columns.Count).End(xlToLeft).Column[/COLOR][/FONT][/COLOR]

For

Code: 
[COLOR=#000000][FONT=Menlo]LastCol = Indices.Cells(8, Columns.Count).End(xlToLeft).Column[/FONT][/COLOR]

Sorry for de error! I hope it will make your work easier!

In the real workbook it takes about 15 minutes to complete that macro, all optimization is welcome!!
 
Last edited:
Upvote 0

Excel Facts

Can you sort left to right?
To sort left-to-right, use the Sort dialog box. Click Options. Choose "Sort left to right"
hello guys, I have been able to reduce the time dramatically comparing to my first post.

If you are interested on it, the final macro that I've written is this one:

Code: 
[COLOR=#000000][FONT=Menlo][COLOR=#011993]Sub[/COLOR] Macro2()[/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo][COLOR=#011993]Dim[/COLOR] Indices [COLOR=#011993]As[/COLOR] Worksheet, Calculos [COLOR=#011993]As[/COLOR] Worksheet, Seleccion [COLOR=#011993]As[/COLOR] Worksheet[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo][COLOR=#011993]Dim[/COLOR] i [COLOR=#011993]As[/COLOR] [COLOR=#011993]Long[/COLOR], j [COLOR=#011993]As[/COLOR] [COLOR=#011993]Long[/COLOR], LastCol [COLOR=#011993]As[/COLOR] [COLOR=#011993]Long[/COLOR], CalcRange [COLOR=#011993]As[/COLOR] [COLOR=#011993]Variant[/COLOR], IndicRange [COLOR=#011993]As[/COLOR] [COLOR=#011993]Variant[/COLOR][/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo]Application.ScreenUpdating = [COLOR=#011993]False[/COLOR][/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]Application.DisplayStatusBar = [COLOR=#011993]False[/COLOR][/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]Application.EnableEvents = [COLOR=#011993]False[/COLOR][/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]ActiveSheet.DisplayPageBreaks = [COLOR=#011993]False[/COLOR][/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo][COLOR=#011993]Set[/COLOR] Indices = Sheets("C.Indices")[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo][COLOR=#011993]Set[/COLOR] Calculos = Sheets("CALCULOS")[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo][COLOR=#011993]Set[/COLOR] Seleccion = Sheets("Sel.Mes")[/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo]LastCol = Indices.Cells(7, Columns.Count).End(xlToLeft).Column[/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo][COLOR=#011993]For[/COLOR] i = 8 [COLOR=#011993]To[/COLOR] LastCol[/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo]  CalcRange = Calculos.Range("BR318:CJ318").Value[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]  IndicRange = Indices.Range(Indices.Cells(238, i), Indices.Cells(318, i)).Value[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]  j = i - 6[/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo]  Calculos.Range(Calculos.Cells(238, 4), Calculos.Cells(318, 4)).Value = IndicRange[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]  Seleccion.Range(Seleccion.Cells(j, 1), Seleccion.Cells(j, 19)).Value = CalcRange[/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo]  Application.CutCopyMode = [COLOR=#011993]False[/COLOR][/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#011993][FONT=Menlo]Next[COLOR=#000000] i[/COLOR][/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo]Application.ScreenUpdating = [COLOR=#011993]True[/COLOR][/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]Application.EnableEvents = [COLOR=#011993]True[/COLOR][/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]Application.DisplayStatusBar = statusBarState[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]ActiveSheet.DisplayPageBreaks = [COLOR=#011993]True[/COLOR][/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#011993][FONT=Menlo]End[/FONT][/COLOR][COLOR=#011993][FONT=Menlo]Sub[/FONT][/COLOR]

It works really fast. I don't know if there is any way to speed up it even more, but I think that now it is not necessary for me. I've deleted the dropbox link in order to prevent sensitive data to be read, though I thing It was well sanitized.

I'm in doubt with you guys, I am really grateful and you must be proud for offering all this services freely!!
 
Last edited:
Upvote 0
Based on drop box link.

The code below. I suggestion you implement my favourite Call SpeedUp(False).
Every time you run your existing code calculations are happening in background which can
slow end result significantly. Try to comment your code so that even after two weeks you can
understand what the code is doing and it save a lot of time.

Let me know if it helps.


Biz
Code: 
Option Explicit
Dim aStartTime
Dim ProcName As String
Dim bErrorHandle As Boolean
Const DblSpace As String = vbNewLine & vbNewLine
Sub BizFix()
    Dim Indices As Worksheet, Calculos As Worksheet, Seleccion As Worksheet
    Dim i As Long, j As Long, ilastCol As Long, CalcRange As Variant
    
    On Error GoTo errHandler
    bErrorHandle = False
    
    '~~> Start Timer
    aStartTime = Now()
    
    '~~> Speeding Up VBA Code
    Call SpeedUp(False)
    
    '~~> Define Variables
    With ThisWorkbook
        Set Indices = .Sheets("C.Indices")
        Set Calculos = .Sheets("CALCULOS")
        Set Seleccion = .Sheets("Sel.Mes")
    End With
    
    'lastCol = Indices.Cells(1, Columns.Count).End(xlToLeft).Column
    ilastCol = lastCol(Indices)
    
    For i = 8 To ilastCol
        '~~> Range to 1D Array
        CalcRange = Calculos.Range("E318:BS318").Value
        j = i - 6
        
'///Before '        Indices.Columns(i).Copy
'        Calculos.Range("D1").PasteSpecial Paste:=xlPasteValues
        
        '~~> DestinationRng.value=SourceRng.value
        Calculos.Columns(4).Value = Indices.Columns(i).Value
        
        Seleccion.Range("A" & j & ":T" & j).Value = CalcRange
        
    Next i
    
BeforeExit:
    '~~> Remove items from memory
    Set Indices = Nothing
    Set Calculos = Nothing
    Set Seleccion = Nothing
    
    '~~> Speeding Up VBA Code
    Call SpeedUp(True)
    
    If bErrorHandle = False Then
        MsgBox "Time taken: " & Format(Now() - aStartTime, "h:mm:ss") & vbNewLine _
            & DblSpace & " You're good to go!" & DblSpace & _
            "Gaining Momentum " & Chr(169) & Chr(32) & Year(Date), vbInformation, "Excellent"
    End If
    
    Exit Sub
errHandler:
    '~~> Error Occurred
    bErrorHandle = True
    ProcName = Application.VBE.ActiveCodePane.CodeModule.ProcOfLine(Application.VBE.ActiveCodePane.TopLine, 0)
    MsgBox "Procedure: - " & ProcName & DblSpace & Err.Description, vbCritical, "Oops I did it again...."
    Resume BeforeExit
    
End Sub




'#### SpeedUp (False) - Speeds the VBA Code #####
'#### SpeedUp (True) - Slows down the VBA Code ####
Public Function SpeedUp(Optional bSpeed As Boolean = True)
With Application
    .ScreenUpdating = bSpeed 'Prevent screen flickering
    .Calculation = IIf(bSpeed, xlAutomatic, xlCalculationManual) 'Preventing calculation
    .DisplayAlerts = bSpeed 'Turn OFF alerts
    .EnableEvents = bSpeed 'Prevent All Events
End With
End Function


Function lastrow(Sh As Worksheet)
On Error Resume Next
lastrow = Sh.Cells.Find(What:="*", _
    After:=Sh.Cells(1), _
    lookat:=xlPart, _
    LookIn:=xlFormulas, _
    SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious, _
    MatchCase:=False).Row
On Error GoTo 0
End Function


Function lastCol(Sh As Worksheet)
On Error Resume Next
lastCol = Sh.Cells.Find(What:="*", _
    After:=Sh.Cells(1), _
    lookat:=xlPart, _
    LookIn:=xlFormulas, _
    SearchOrder:=xlByColumns, _
    SearchDirection:=xlPrevious, _
    MatchCase:=False).Column
On Error GoTo 0
End Function
 
Last edited:
Upvote 0
Based on your latest macro with few functions added see below. It should be faster with Call SpeedUp(False) plus don't need Application.CutCopyMode = False as you
aren't copying anything to clipboard.

Code: 
Sub Macro2()    
    Dim Indices As Worksheet, Calculos As Worksheet, Seleccion As Worksheet
    Dim i As Long, j As Long, ilastCol As Long, CalcRange As Variant, IndicRange As Variant
    
    On Error GoTo errHandler
    bErrorHandle = False
    
    '~~> Start Timer
    aStartTime = Now()
    
    '~~> Speeding Up VBA Code
    Call SpeedUp(False)
    
    '~~> Define Variables
    With ThisWorkbook
        Set Indices = .Sheets("C.Indices")
        Set Calculos = .Sheets("CALCULOS")
        Set Seleccion = .Sheets("Sel.Mes")
    End With
    
    '~~> Get Last Column in Indices
    ilastCol = LastCol(Indices)
    
    For i = 8 To ilastCol
        
        CalcRange = Calculos.Range("BR318:CJ318").Value
        IndicRange = Indices.Range(Indices.Cells(238, i), Indices.Cells(318, i)).Value
        j = i - 6
        
        Calculos.Range(Calculos.Cells(238, 4), Calculos.Cells(318, 4)).Value = IndicRange
        Seleccion.Range(Seleccion.Cells(j, 1), Seleccion.Cells(j, 19)).Value = CalcRange
        
    Next i
    
BeforeExit:
    '~~> Remove items from memory
    Set Indices = Nothing
    Set Calculos = Nothing
    Set Seleccion = Nothing
    
    '~~> Speeding Up VBA Code
    Call SpeedUp(True)
    
    If bErrorHandle = False Then
        MsgBox "Time taken: " & Format(Now() - aStartTime, "h:mm:ss") & vbNewLine _
            & DblSpace & " You're good to go!" & DblSpace & _
            "Gaining Momentum " & Chr(169) & Chr(32) & Year(Date), vbInformation, "Excellent"
    End If
    
    Exit Sub
errHandler:
    '~~> Error Occurred
    bErrorHandle = True
    ProcName = Application.VBE.ActiveCodePane.CodeModule.ProcOfLine(Application.VBE.ActiveCodePane.TopLine, 0)
    MsgBox "Procedure: - " & ProcName & DblSpace & Err.Description, vbCritical, "Oops I did it again...."
    Resume BeforeExit
    
    
End Sub


'#### SpeedUp (False) - Speeds the VBA Code #####
'#### SpeedUp (True) - Slows down the VBA Code ####
Public Function SpeedUp(Optional bSpeed As Boolean = True)
With Application
    .ScreenUpdating = bSpeed 'Prevent screen flickering
    .Calculation = IIf(bSpeed, xlAutomatic, xlCalculationManual) 'Preventing calculation
    .DisplayAlerts = bSpeed 'Turn OFF alerts
    .EnableEvents = bSpeed 'Prevent All Events
End With
End Function


Function lastrow(Sh As Worksheet)
On Error Resume Next
lastrow = Sh.Cells.Find(What:="*", _
    After:=Sh.Cells(1), _
    lookat:=xlPart, _
    LookIn:=xlFormulas, _
    SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious, _
    MatchCase:=False).Row
On Error GoTo 0
End Function


Function LastCol(Sh As Worksheet)
On Error Resume Next
LastCol = Sh.Cells.Find(What:="*", _
    After:=Sh.Cells(1), _
    lookat:=xlPart, _
    LookIn:=xlFormulas, _
    SearchOrder:=xlByColumns, _
    SearchDirection:=xlPrevious, _
    MatchCase:=False).Column
On Error GoTo 0
End Function
 
Last edited:
Upvote 0
Deleted as Biz stated the same while I was typing.:(
 
Last edited:
Upvote 0
Hello Biz!! I have just copied the hole code that you have written literally and pasted over mine, It doesn't work, do I have to make any change??

Thank you Mark!! I delete it now!! :D
 
Last edited:
Upvote 0
Nagini said:
Hello Biz!! I have just copied the hole code that you have written literally and pasted over mine, It doesn't work, do I have to make any change??

Thank you Mark!! I delete it now!! :D
Click to expand...

You will probably find that you need the calculations set to true as your formula are probably relying on the update (only guessing as I can't download the macros on my phone).

BTW it helps with you give more detail than "doesn't work"
 
Last edited:
Upvote 0
The problem is that all the rows in sheet Sel.mes are the same!

I think that the problem is what you have said mark.

How do I set it to true??

Changing this??

Code: 
[FONT=Menlo]
[/FONT]
[COLOR=#011993][FONT=Menlo]Public[COLOR=#000000] [/COLOR]Function[COLOR=#000000] SpeedUp([/COLOR]Optional[COLOR=#000000] bSpeed [/COLOR]As[COLOR=#000000] [/COLOR]Boolean[COLOR=#000000] = [/COLOR]True[COLOR=#000000])[/COLOR][/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo][COLOR=#011993]With[/COLOR] Application[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]    .ScreenUpdating = bSpeed[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo][COLOR=#ff0000][B]    .Calculation = IIf(bSpeed, xlAutomatic, xlCalculationManual)[/B][/COLOR][/FONT][/COLOR]
[COLOR=#ff0000][/COLOR][COLOR=#000000][FONT=Menlo]    .DisplayAlerts = bSpeed[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]    .EnableEvents = bSpeed[/FONT][/COLOR]
[COLOR=#011993][FONT=Menlo]End[COLOR=#000000] [/COLOR]With[/FONT][/COLOR]
[COLOR=#011993][FONT=Menlo]End[COLOR=#000000] [/COLOR]Function[/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
 
Upvote 0
I just deleted that row and it worked well but it is slower than this code:

Code: 
[COLOR=#000000][FONT=Menlo][COLOR=#011993]Sub[/COLOR] Macro2()[/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo][COLOR=#011993]Dim[/COLOR] Indices [COLOR=#011993]As[/COLOR] Worksheet, Calculos [COLOR=#011993]As[/COLOR] Worksheet, Seleccion [COLOR=#011993]As[/COLOR] Worksheet, i [COLOR=#011993]As[/COLOR] [COLOR=#011993]Long[/COLOR], j [COLOR=#011993]As[/COLOR] [COLOR=#011993]Long[/COLOR], LastCol [COLOR=#011993]As[/COLOR] [COLOR=#011993]Long[/COLOR][/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo]Application.ScreenUpdating = [COLOR=#011993]False[/COLOR][/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]Application.DisplayStatusBar = [COLOR=#011993]False[/COLOR][/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]Application.EnableEvents = [COLOR=#011993]False[/COLOR][/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]ActiveSheet.DisplayPageBreaks = [COLOR=#011993]False[/COLOR][/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo][COLOR=#011993]With[/COLOR] ThisWorkbook[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]  [COLOR=#011993]Set[/COLOR] Indices = Sheets("C.Indices")[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]  [COLOR=#011993]Set[/COLOR] Calculos = Sheets("CALCULOS")[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]  [COLOR=#011993]Set[/COLOR] Seleccion = Sheets("Sel.Mes")[/FONT][/COLOR]
[COLOR=#011993][FONT=Menlo]End[COLOR=#000000] [/COLOR]With[/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo]LastCol = Indices.Cells(8, Columns.Count).End(xlToLeft).Column[/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo][COLOR=#011993]For[/COLOR] i = 8 [COLOR=#011993]To[/COLOR] LastCol[/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo]  j = i - 6[/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo]  Calculos.Range(Calculos.Cells(238, 4), Calculos.Cells(318, 4)).Value = Indices.Range(Indices.Cells(238, i), Indices.Cells(318, i)).Value[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]  Seleccion.Range(Seleccion.Cells(j, 1), Seleccion.Cells(j, 19)).Value = Calculos.Range("BR318:CJ318").Value[/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#011993][FONT=Menlo]Next[COLOR=#000000] i[/COLOR][/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo]BeforeExit:[/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo]  [COLOR=#011993]Set[/COLOR] Indices = [COLOR=#011993]Nothing[/COLOR][/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]  [COLOR=#011993]Set[/COLOR] Calculos = [COLOR=#011993]Nothing[/COLOR][/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]  [COLOR=#011993]Set[/COLOR] Seleccion = [COLOR=#011993]Nothing[/COLOR][/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#000000][FONT=Menlo]Application.ScreenUpdating = [COLOR=#011993]True[/COLOR][/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]Application.EnableEvents = [COLOR=#011993]True[/COLOR][/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]Application.DisplayStatusBar = statusBarState[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]ActiveSheet.DisplayPageBreaks = [COLOR=#011993]True[/COLOR][/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#011993][FONT=Menlo]Exit[COLOR=#000000] [/COLOR]Sub[/FONT][/COLOR]
[FONT=Menlo]
[/FONT]
[COLOR=#011993][FONT=Menlo]End[COLOR=#000000] [/COLOR]Sub[/FONT][/COLOR]

This is the fastest code till now
 
Upvote 0
If you are happy with the above code then I would suggest few tweaks.
No point putting multiple application statements insteasd use with.
Once you finalise your code then need to put comments so that it easier to understand
and also easier re-use the code when building any new application.

Why did you comment out the msgbox with the runtime? If you have a long macro then just execute and you would know the runtime of process.
Code: 
Sub Macro2()
    Dim Indices As Worksheet, Calculos As Worksheet, Seleccion As Worksheet, i As Long, j As Long, LastCol As Long
    
    With Application
        .ScreenUpdating = False
        .DisplayStatusBar = False
        .EnableEvents = False
    End With
    
    ActiveSheet.DisplayPageBreaks = False
    
    With ThisWorkbook
        Set Indices = Sheets("C.Indices")
        Set Calculos = Sheets("CALCULOS")
        Set Seleccion = Sheets("Sel.Mes")
    End With
        
        LastCol = Indices.Cells(8, Columns.Count).End(xlToLeft).Column
        
        For i = 8 To LastCol
            
            j = i - 6
            
            Calculos.Range(Calculos.Cells(238, 4), Calculos.Cells(318, 4)).Value = Indices.Range(Indices.Cells(238, i), Indices.Cells(318, i)).Value
            Seleccion.Range(Seleccion.Cells(j, 1), Seleccion.Cells(j, 19)).Value = Calculos.Range("BR318:CJ318").Value
            
        Next i
        
BeforeExit:
        
        Set Indices = Nothing
        Set Calculos = Nothing
        Set Seleccion = Nothing
        
        With Application
            .ScreenUpdating = True
            .EnableEvents = True
            .DisplayStatusBar = statusBarState
        End With
        
        ActiveSheet.DisplayPageBreaks = True
        
        Exit Sub
        
    End Sub
 
Last edited:
Upvote 0
You must log in or register to reply here.

Similar threads

J
  • Question
another way to speed the macro .
Replies
3
Views
526
Georgiboy
Georgiboy
E
  • Question
Help Cleaning Up / Optimizing VBA Code
Replies
6
Views
296
offthelip
O
F
  • Question
VBA Import columns by headers - Need prompts to select workbook/sheet name
Replies
2
Views
204
floggingmolly
F
R
  • Question
Save As does not work properly
Replies
7
Views
820
Rainmanne
R
R
  • Solved
Code Opens File but Isn't Closing It
Replies
4
Views
291
reberryjr
R

Forum statistics

Threads
1,215,176
Messages
6,123,464
Members
449,100
Latest member
sktz

Share this page

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