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

Select a hidden cell
Somehide hide payroll data in column G? Press F5. Type G1. Enter. Look in formula bar while you arrow down through G.
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

L
  • Solved
Sum values in cells based on a text in another cell
2
Replies
19
Views
1K
Peter_SSs
Peter_SSs
S
  • Solved
Undo is greyed out
Replies
7
Views
519
sspatriots
S
H
  • Solved
Excel VBA file importing data from several files located in same folder -> challenge to copy data only (rest is working perfectly)
Replies
3
Views
133
NdNoviceHlp
NdNoviceHlp
MossyPants
  • Question
VBA - highlighting rows with duplicate values
Replies
1
Views
412
Micron
M
SunnyAlv
  • Solved
Hidden Rows VBA
Replies
9
Views
359
SunnyAlv
SunnyAlv

Forum statistics

Threads
1,214,881
Messages
6,122,074
Members
449,064
Latest member
MattDRT

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