Speed up a VBA code

N

Newbie_92

New Member
Joined
Aug 11, 2022
Messages
5
Office Version
  1. 2010
Platform
  1. Windows
Hi,

Im having a huge macro code and it might take hours to run it. The master workbook from where the data is copied is huge as well but still I hope there is some tricks to make the code run faster.
Any ideas? Code below.

VBA Code: 
Sub copyall()
Dim wb As New Workbook, rowToCopy As Integer
Dim lRow As Integer, nRow As Integer, rowno As Integer, colno As Integer

'Create workbook with name xxx in which data will be copied. Keep the file open.

Set wb = Workbooks("SalesAll.xlsx")
lRow = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

nRow = wb.Sheets("Sales").Cells(Rows.Count, 1).End(xlUp).Row + 1

rowToCopy = nRow

For rowno = 2 To lRow
    
     ' Copy sales Total
    
    If (ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Close (won)" Or ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Close (part-won)") _
    And ThisWorkbook.Sheets("Sheet1").Range("L" & rowno) > 0 Then
        For colno = 92 To 92
            If ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno) > 0 Then
            ThisWorkbook.Sheets("Sheet1").Range("A" & rowno).Copy wb.Sheets("Sales").Range("A" & rowToCopy) 'To copy no
            ThisWorkbook.Sheets("Sheet1").Range("L" & rowno).Copy wb.Sheets("Sales").Range("B" & rowToCopy) 'To copy sales person 1 name
                ThisWorkbook.Sheets("Sheet1").Range("E" & rowno).Copy wb.Sheets("Sales").Range("M" & rowToCopy) 'To copy customer name
                 ThisWorkbook.Sheets("Sheet1").Range("F" & rowno).Copy wb.Sheets("Sales").Range("N" & rowToCopy) 'To copy legal number
                ThisWorkbook.Sheets("Sheet1").Range("R" & rowno).Copy wb.Sheets("Sales").Range("G" & rowToCopy) 'To copy status
                   ThisWorkbook.Sheets("Sheet1").Range("Q" & rowno).Copy wb.Sheets("Sales").Range("H" & rowToCopy) 'To copy sales type
                  ThisWorkbook.Sheets("Sheet1").Range("G" & rowno).Copy wb.Sheets("Sales").Range("O" & rowToCopy) 'To copy Group
                 ThisWorkbook.Sheets("Sheet1").Range("H" & rowno).Copy wb.Sheets("Sales").Range("P" & rowToCopy) 'To copy Group Name
                ThisWorkbook.Sheets("Sheet1").Cells(1, colno).Copy wb.Sheets("Sales").Range("L" & rowToCopy) 'To copy product name
                ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno).Copy
                wb.Sheets("Sales").Range("F" & rowToCopy).PasteSpecial xlPasteValues  'To copy product value
                rowToCopy = rowToCopy + 1
            End If
        Next
    End If
    
         'Copy sales sales person 1
            
     If (ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Close (won)" Or ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Close (part-won)") _
    And ThisWorkbook.Sheets("Sheet1").Range("L" & rowno) > 0 Then
        For colno = 98 To 100
            If ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno) > 0 Then
            ThisWorkbook.Sheets("Sheet1").Range("A" & rowno).Copy wb.Sheets("Sales").Range("A" & rowToCopy) 'To copy no
           ThisWorkbook.Sheets("Sheet1").Range("L" & rowno).Copy wb.Sheets("Sales").Range("B" & rowToCopy) 'To copy sales person 1 name
                ThisWorkbook.Sheets("Sheet1").Range("E" & rowno).Copy wb.Sheets("Sales").Range("M" & rowToCopy) 'To copy customer name
                 ThisWorkbook.Sheets("Sheet1").Range("F" & rowno).Copy wb.Sheets("Sales").Range("N" & rowToCopy) 'To copy legal number
                ThisWorkbook.Sheets("Sheet1").Range("R" & rowno).Copy wb.Sheets("Sales").Range("G" & rowToCopy) 'To copy status
                   ThisWorkbook.Sheets("Sheet1").Range("Q" & rowno).Copy wb.Sheets("Sales").Range("H" & rowToCopy) 'To copy sales type
                  ThisWorkbook.Sheets("Sheet1").Range("G" & rowno).Copy wb.Sheets("Sales").Range("O" & rowToCopy) 'To copy Group
                 ThisWorkbook.Sheets("Sheet1").Range("H" & rowno).Copy wb.Sheets("Sales").Range("P" & rowToCopy) 'To copy Group Name
                ThisWorkbook.Sheets("Sheet1").Cells(1, colno).Copy wb.Sheets("Sales").Range("L" & rowToCopy) 'To copy product name
                ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno).Copy
                wb.Sheets("Sales").Range("F" & rowToCopy).PasteSpecial xlPasteValues  'To copy product value
                rowToCopy = rowToCopy + 1
            End If
        Next
    End If
    
    'Copy sales sales person 2
    
        If (ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Close (won)" Or ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Close (part-won)") _
    And ThisWorkbook.Sheets("Sheet1").Range("M" & rowno) > 0 Then
        For colno = 101 To 103
            If ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno) > 0 Then
            ThisWorkbook.Sheets("Sheet1").Range("A" & rowno).Copy wb.Sheets("Sales").Range("A" & rowToCopy) 'To copy no
           ThisWorkbook.Sheets("Sheet1").Range("M" & rowno).Copy wb.Sheets("Sales").Range("B" & rowToCopy) 'To copy sales person 2 name
                ThisWorkbook.Sheets("Sheet1").Range("E" & rowno).Copy wb.Sheets("Sales").Range("M" & rowToCopy) 'To copy customer name
                 ThisWorkbook.Sheets("Sheet1").Range("F" & rowno).Copy wb.Sheets("Sales").Range("N" & rowToCopy) 'To copy legal number
                ThisWorkbook.Sheets("Sheet1").Range("R" & rowno).Copy wb.Sheets("Sales").Range("G" & rowToCopy) 'To copy status
                   ThisWorkbook.Sheets("Sheet1").Range("Q" & rowno).Copy wb.Sheets("Sales").Range("H" & rowToCopy) 'To copy sales type
                  ThisWorkbook.Sheets("Sheet1").Range("G" & rowno).Copy wb.Sheets("Sales").Range("O" & rowToCopy) 'To copy Group
                 ThisWorkbook.Sheets("Sheet1").Range("H" & rowno).Copy wb.Sheets("Sales").Range("P" & rowToCopy) 'To copy Group Name
                ThisWorkbook.Sheets("Sheet1").Cells(1, colno).Copy wb.Sheets("Sales").Range("L" & rowToCopy) 'To copy product name
                ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno).Copy
                wb.Sheets("Sales").Range("F" & rowToCopy).PasteSpecial xlPasteValues  'To copy product value
                rowToCopy = rowToCopy + 1
            End If
        Next
    End If
    
    'Copy lob's sales person 1
            
     If (ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Close (won)" Or ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Close (part-won)") _
    And ThisWorkbook.Sheets("Sheet1").Range("L" & rowno) > 0 Then
        For colno = 104 To 109
            If ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno) > 0 Then
            ThisWorkbook.Sheets("Sheet1").Range("A" & rowno).Copy wb.Sheets("Sales").Range("A" & rowToCopy) 'To copy no
          ThisWorkbook.Sheets("Sheet1").Range("L" & rowno).Copy wb.Sheets("Sales").Range("B" & rowToCopy) 'To copy sales person 1 name
                ThisWorkbook.Sheets("Sheet1").Range("E" & rowno).Copy wb.Sheets("Sales").Range("M" & rowToCopy) 'To copy customer name
                 ThisWorkbook.Sheets("Sheet1").Range("F" & rowno).Copy wb.Sheets("Sales").Range("N" & rowToCopy) 'To copy legal number
                  ThisWorkbook.Sheets("Sheet1").Range("G" & rowno).Copy wb.Sheets("Sales").Range("O" & rowToCopy) 'To copy Group
                 ThisWorkbook.Sheets("Sheet1").Range("H" & rowno).Copy wb.Sheets("Sales").Range("P" & rowToCopy) 'To copy Group Name
                     ThisWorkbook.Sheets("Sheet1").Range("R" & rowno).Copy wb.Sheets("Sales").Range("G" & rowToCopy) 'To copy status
                   ThisWorkbook.Sheets("Sheet1").Range("Q" & rowno).Copy wb.Sheets("Sales").Range("H" & rowToCopy) 'To copy sales type
                ThisWorkbook.Sheets("Sheet1").Cells(1, colno).Copy wb.Sheets("Sales").Range("L" & rowToCopy) 'To copy product name
                ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno).Copy
                wb.Sheets("Sales").Range("F" & rowToCopy).PasteSpecial xlPasteValues  'To copy product value
                rowToCopy = rowToCopy + 1
            End If
        Next
    End If
    
    'Copy lob's sales person 2
    
        If (ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Close (won)" Or ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Close (part-won)") _
    And ThisWorkbook.Sheets("Sheet1").Range("M" & rowno) > 0 Then
        For colno = 110 To 115
            If ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno) > 0 Then
            ThisWorkbook.Sheets("Sheet1").Range("A" & rowno).Copy wb.Sheets("Sales").Range("A" & rowToCopy) 'To copy no
           ThisWorkbook.Sheets("Sheet1").Range("M" & rowno).Copy wb.Sheets("Sales").Range("B" & rowToCopy) 'To copy sales person 2 name
                ThisWorkbook.Sheets("Sheet1").Range("E" & rowno).Copy wb.Sheets("Sales").Range("M" & rowToCopy) 'To copy customer name
                 ThisWorkbook.Sheets("Sheet1").Range("F" & rowno).Copy wb.Sheets("Sales").Range("N" & rowToCopy) 'To copy legal number
                  ThisWorkbook.Sheets("Sheet1").Range("G" & rowno).Copy wb.Sheets("Sales").Range("O" & rowToCopy) 'To copy Group
                 ThisWorkbook.Sheets("Sheet1").Range("H" & rowno).Copy wb.Sheets("Sales").Range("P" & rowToCopy) 'To copy Group Name
                ThisWorkbook.Sheets("Sheet1").Range("R" & rowno).Copy wb.Sheets("Sales").Range("G" & rowToCopy) 'To copy status
                   ThisWorkbook.Sheets("Sheet1").Range("Q" & rowno).Copy wb.Sheets("Sales").Range("H" & rowToCopy) 'To copy sales type
                ThisWorkbook.Sheets("Sheet1").Cells(1, colno).Copy wb.Sheets("Sales").Range("L" & rowToCopy) 'To copy product name
                ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno).Copy
                wb.Sheets("Sales").Range("F" & rowToCopy).PasteSpecial xlPasteValues  'To copy product value
                rowToCopy = rowToCopy + 1
            End If
        Next
    End If
    
    'Copy defence
    
    If (ThisWorkbook.Sheets("Sheet1").Range("Q" & rowno) = "Nykyinen asiakas, puolustus" Or ThisWorkbook.Sheets("Sheet1").Range("Q" & rowno) = "Nykyinen asiakas, puolustus + lisämyynti") _
    And ThisWorkbook.Sheets("Sheet1").Range("L" & rowno) > 0 Then
        For colno = 41 To 41
            If ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno) > 0 Then
            ThisWorkbook.Sheets("Sheet1").Range("A" & rowno).Copy wb.Sheets("Sales").Range("A" & rowToCopy) 'To copy no
            ThisWorkbook.Sheets("Sheet1").Range("L" & rowno).Copy wb.Sheets("Sales").Range("B" & rowToCopy) 'To copy sales person 1 name
                ThisWorkbook.Sheets("Sheet1").Range("E" & rowno).Copy wb.Sheets("Sales").Range("M" & rowToCopy) 'To copy customer name
                 ThisWorkbook.Sheets("Sheet1").Range("F" & rowno).Copy wb.Sheets("Sales").Range("N" & rowToCopy) 'To copy legal number
                  ThisWorkbook.Sheets("Sheet1").Range("G" & rowno).Copy wb.Sheets("Sales").Range("O" & rowToCopy) 'To copy Group
                 ThisWorkbook.Sheets("Sheet1").Range("H" & rowno).Copy wb.Sheets("Sales").Range("P" & rowToCopy) 'To copy Group Name
                 ThisWorkbook.Sheets("Sheet1").Range("R" & rowno).Copy wb.Sheets("Sales").Range("G" & rowToCopy) 'To copy status
                   ThisWorkbook.Sheets("Sheet1").Range("Q" & rowno).Copy wb.Sheets("Sales").Range("H" & rowToCopy) 'To copy sales type
                ThisWorkbook.Sheets("Sheet1").Cells(1, colno).Copy wb.Sheets("Sales").Range("L" & rowToCopy) 'To copy product name
                ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno).Copy
                wb.Sheets("Sales").Range("F" & rowToCopy).PasteSpecial xlPasteValues  'To copy product value
                rowToCopy = rowToCopy + 1
            End If
        Next
    End If
    
    'copy offers total
    
    If (ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Negotiate" Or ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Close (lost)") And ThisWorkbook.Sheets("Sheet1").Range("L" & rowno) > 0 Then
        For colno = 71 To 72
            If ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno) > 0 Then
            ThisWorkbook.Sheets("Sheet1").Range("A" & rowno).Copy wb.Sheets("Sales").Range("A" & rowToCopy) 'To copy no
            ThisWorkbook.Sheets("Sheet1").Range("L" & rowno).Copy wb.Sheets("Sales").Range("B" & rowToCopy) 'To copy sales person 1 name
                ThisWorkbook.Sheets("Sheet1").Range("E" & rowno).Copy wb.Sheets("Sales").Range("M" & rowToCopy) 'To copy customer name
                 ThisWorkbook.Sheets("Sheet1").Range("F" & rowno).Copy wb.Sheets("Sales").Range("N" & rowToCopy) 'To copy legal number
                  ThisWorkbook.Sheets("Sheet1").Range("G" & rowno).Copy wb.Sheets("Sales").Range("O" & rowToCopy) 'To copy Group
                 ThisWorkbook.Sheets("Sheet1").Range("H" & rowno).Copy wb.Sheets("Sales").Range("P" & rowToCopy) 'To copy Group Name
                 ThisWorkbook.Sheets("Sheet1").Range("R" & rowno).Copy wb.Sheets("Sales").Range("G" & rowToCopy) 'To copy status
                   ThisWorkbook.Sheets("Sheet1").Range("Q" & rowno).Copy wb.Sheets("Sales").Range("H" & rowToCopy) 'To copy sales type
                ThisWorkbook.Sheets("Sheet1").Cells(1, colno).Copy wb.Sheets("Sales").Range("L" & rowToCopy) 'To copy product name
                ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno).Copy
                wb.Sheets("Sales").Range("F" & rowToCopy).PasteSpecial xlPasteValues  'To copy product value
                rowToCopy = rowToCopy + 1
            End If
        Next
    End If
    
     'copy offers sales person 2
    
    If (ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Negotiate" Or ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Close (lost)") And ThisWorkbook.Sheets("Sheet1").Range("M" & rowno) > 0 Then
        For colno = 73 To 73
            If ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno) > 0 Then
            ThisWorkbook.Sheets("Sheet1").Range("A" & rowno).Copy wb.Sheets("Sales").Range("A" & rowToCopy) 'To copy no
            ThisWorkbook.Sheets("Sheet1").Range("M" & rowno).Copy wb.Sheets("Sales").Range("B" & rowToCopy) 'To copy sales person 2 name
                ThisWorkbook.Sheets("Sheet1").Range("E" & rowno).Copy wb.Sheets("Sales").Range("M" & rowToCopy) 'To copy customer name
                 ThisWorkbook.Sheets("Sheet1").Range("F" & rowno).Copy wb.Sheets("Sales").Range("N" & rowToCopy) 'To copy legal number
                  ThisWorkbook.Sheets("Sheet1").Range("G" & rowno).Copy wb.Sheets("Sales").Range("O" & rowToCopy) 'To copy Group
                 ThisWorkbook.Sheets("Sheet1").Range("H" & rowno).Copy wb.Sheets("Sales").Range("P" & rowToCopy) 'To copy Group Name
                 ThisWorkbook.Sheets("Sheet1").Range("R" & rowno).Copy wb.Sheets("Sales").Range("G" & rowToCopy) 'To copy status
                   ThisWorkbook.Sheets("Sheet1").Range("Q" & rowno).Copy wb.Sheets("Sales").Range("H" & rowToCopy) 'To copy sales type
                ThisWorkbook.Sheets("Sheet1").Cells(1, colno).Copy wb.Sheets("Sales").Range("L" & rowToCopy) 'To copy product name
                ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno).Copy
                wb.Sheets("Sales").Range("F" & rowToCopy).PasteSpecial xlPasteValues  'To copy product value
                rowToCopy = rowToCopy + 1
            End If
        Next
    End If
    
    'copy offers lob's sales person 1
    
    If (ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Negotiate" Or ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Close (lost)") And ThisWorkbook.Sheets("Sheet1").Range("L" & rowno) > 0 Then
        For colno = 74 To 79
            If ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno) > 0 Then
            ThisWorkbook.Sheets("Sheet1").Range("A" & rowno).Copy wb.Sheets("Sales").Range("A" & rowToCopy) 'To copy no
            ThisWorkbook.Sheets("Sheet1").Range("L" & rowno).Copy wb.Sheets("Sales").Range("B" & rowToCopy) 'To copy sales person 1 name
                ThisWorkbook.Sheets("Sheet1").Range("E" & rowno).Copy wb.Sheets("Sales").Range("M" & rowToCopy) 'To copy customer name
                 ThisWorkbook.Sheets("Sheet1").Range("F" & rowno).Copy wb.Sheets("Sales").Range("N" & rowToCopy) 'To copy legal number
                  ThisWorkbook.Sheets("Sheet1").Range("G" & rowno).Copy wb.Sheets("Sales").Range("O" & rowToCopy) 'To copy Group
                 ThisWorkbook.Sheets("Sheet1").Range("H" & rowno).Copy wb.Sheets("Sales").Range("P" & rowToCopy) 'To copy Group Name
                 ThisWorkbook.Sheets("Sheet1").Range("R" & rowno).Copy wb.Sheets("Sales").Range("G" & rowToCopy) 'To copy status
                   ThisWorkbook.Sheets("Sheet1").Range("Q" & rowno).Copy wb.Sheets("Sales").Range("H" & rowToCopy) 'To copy sales type
                ThisWorkbook.Sheets("Sheet1").Cells(1, colno).Copy wb.Sheets("Sales").Range("L" & rowToCopy) 'To copy product name
                ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno).Copy
                wb.Sheets("Sales").Range("F" & rowToCopy).PasteSpecial xlPasteValues  'To copy product value
                rowToCopy = rowToCopy + 1
            End If
        Next
    End If
    
    'copy offers lob's sales person 2
    
        If (ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Negotiate" Or ThisWorkbook.Sheets("Sheet1").Range("R" & rowno) = "Close (lost)") And ThisWorkbook.Sheets("Sheet1").Range("M" & rowno) > 0 Then
        For colno = 80 To 85
            If ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno) > 0 Then
            ThisWorkbook.Sheets("Sheet1").Range("A" & rowno).Copy wb.Sheets("Sales").Range("A" & rowToCopy) 'To copy no
            ThisWorkbook.Sheets("Sheet1").Range("M" & rowno).Copy wb.Sheets("Sales").Range("B" & rowToCopy) 'To copy sales person 2 name
                ThisWorkbook.Sheets("Sheet1").Range("E" & rowno).Copy wb.Sheets("Sales").Range("M" & rowToCopy) 'To copy customer name
                 ThisWorkbook.Sheets("Sheet1").Range("F" & rowno).Copy wb.Sheets("Sales").Range("N" & rowToCopy) 'To copy legal number
                  ThisWorkbook.Sheets("Sheet1").Range("G" & rowno).Copy wb.Sheets("Sales").Range("O" & rowToCopy) 'To copy Group
                 ThisWorkbook.Sheets("Sheet1").Range("H" & rowno).Copy wb.Sheets("Sales").Range("P" & rowToCopy) 'To copy Group Name
                 ThisWorkbook.Sheets("Sheet1").Range("R" & rowno).Copy wb.Sheets("Sales").Range("G" & rowToCopy) 'To copy status
                   ThisWorkbook.Sheets("Sheet1").Range("Q" & rowno).Copy wb.Sheets("Sales").Range("H" & rowToCopy) 'To copy sales type
                ThisWorkbook.Sheets("Sheet1").Cells(1, colno).Copy wb.Sheets("Sales").Range("L" & rowToCopy) 'To copy product name
                ThisWorkbook.Sheets("Sheet1").Cells(rowno, colno).Copy
                wb.Sheets("Sales").Range("F" & rowToCopy).PasteSpecial xlPasteValues  'To copy product value
                rowToCopy = rowToCopy + 1
            End If
        Next
    End If
    
    Next

End Sub
 

Excel Facts

How to create a cell-sized chart?
Tiny charts, called Sparklines, were added to Excel 2010. Look for Sparklines on the Insert tab.
Sort by date Sort by votes
Welcome to the Board!

Yes, there are a few tricks which may help speed up your code.
Two are two suppress calculations and sheet updating while the code is running, and turn them back on at the end.

So at the beginning of your code, you would have two lines like this:
Rich (BB code): 
Sub copyall()
Dim wb As New Workbook, rowToCopy As Integer
Dim lRow As Integer, nRow As Integer, rowno As Integer, colno As Integer

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Then you would turn them back on at the end of your code like this:
Rich (BB code): 
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub
 
Upvote 0
Solution
You must log in or register to reply here.

Similar threads

9
  • Question Question
Send data from excel to google sheet but the code doesn't work.
Replies
0
Views
225
9kitti
9
L
  • Solved
Sum values in cells based on a text in another cell
2
Replies
19
Views
2K
Peter_SSs
Peter_SSs
S
  • Solved
Undo is greyed out
Replies
7
Views
1K
sspatriots
S
K
  • Solved
Code to search job id from multiple sources and update main spreadsheet.
2
Replies
10
Views
595
mumps
mumps
B
  • Question Question
Excel VBA Searching Unique Variables to Match against Exported Schedule Files to Determine Date
Replies
1
Views
126
sijpie
sijpie

Forum statistics

Threads
1,223,268
Messages
6,171,100
Members
452,379
Latest member
IainTru

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