Copy cell if another cell contains YES

B

BravoBravoAu

Board Regular
Joined
Nov 8, 2011
Messages
64
Office Version
  1. 2016
Platform
  1. Windows
G'day all. I posted on here a month or two back about this issue and couldn't get the solution to work as intended, so I'm dusting off and trying again. I researched 'copy row to new workbook' but the trick is I don't want all information from Sheet 1 on Sheet 2.

I have two sheets:
1. Sheet 1 contains all details about employees including personal information. Column M is whether the employee is 'active' with a YES/NO drop list.
2. Sheet 2 contains a phone list that is widely available and can't include personal information. For active employees (eg those who have YES in Sheet1, column M), I would like SOME details copied into Sheet 2.

When employees are changed to inactive (eg those who have 'NO' in Sheet1, column M), I'm looking for them to 'disappear' from Sheet2 and the results adjust so there are no row spaces. Sheet1 wont have information removed.

For example:

Worksheet 2
Employee NameEmployee NumberPosition TitlePhone numberDesk LocationEmail address
(Copied data from Worksheet1, column A)
(Copied data from Worksheet1, column B)
(Copied data from Worksheet1, column D)
(Copied data from Worksheet1, column G)
(Copied data from Worksheet1, column E)
(Copied data from Worksheet1, column H)
 

Excel Facts

Why are there 1,048,576 rows in Excel?
The Excel team increased the size of the grid in 2007. There are 2^20 rows and 2^14 columns for a total of 17 billion cells.
Sort by date Sort by votes
Hi,

1. Please share format of sheet 1 and sheet 2 using XL2BB. It would help to understand the requirement better.
2. Is the requirement as below:
a. If employee is Active(yes), information should be available in Sheet2
b. if employee is not Active (no), information should be removed from Sheet 2.

Thanks,
Saurabh
 
Upvote 0
Hi, enter the following code in a module;

VBA Code: 
Sub TransferData()
Dim LastRow As Long, RowN As Long
Dim WS As Worksheet, WS1 As Worksheet

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    RowN = ActiveCell.Row

    Set WS = Worksheets("Sheet2")
    Set WS1 = Worksheets("Sheet1")
    WS.Select
    
    LastRow = LastRowColumn("R") + 1
    
    WS.Cells(LastRow, 1).Value = WS1.Cells(RowN, 1).Value
    WS.Cells(LastRow, 2).Value = WS1.Cells(RowN, 2).Value
    WS.Cells(LastRow, 3).Value = WS1.Cells(RowN, 4).Value
    WS.Cells(LastRow, 4).Value = WS1.Cells(RowN, 7).Value
    WS.Cells(LastRow, 5).Value = WS1.Cells(RowN, 5).Value
    WS.Cells(LastRow, 6).Value = WS1.Cells(RowN, 8).Value
    
    WS1.Select

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

Sub Del_Inactive()
Dim ID As Long
Dim WS As Worksheet
Dim MatchingID As Long
Dim i As Long
Dim SearchedValue As String

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ID = ActiveCell.Offset(0, -11).Value
    
    Set WS = Worksheets("Sheet2")
    
    For i = 1 To 10000
         If StrComp(WS.Range("B" & i).Value, ID, vbTextCompare) = 0 Then
              MatchingID = i
              Exit For
         End If
    Next i
    
    If i < 10000 Then
       WS.Rows(MatchingID).EntireRow.Delete
    End If
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
End Sub

Function LastRowColumn(RowColumn As String) As Long
Dim sht As Worksheet
Set sht = ActiveSheet

Select Case LCase(Left(RowColumn, 1)) 'If they put in 'row' or column instead of 'r' or 'c'.
  Case "c"
    LastRowColumn = sht.Cells.Find("*", LookIn:=xlFormulas, SearchOrder:=xlByColumns, _
    SearchDirection:=xlPrevious).Column
  Case "r"
    LastRowColumn = sht.Cells.Find("*", LookIn:=xlFormulas, SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious).Row
  Case Else
    LastRowColumn = 1
End Select

End Function

Then enter the following code behind "Sheet1";

VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

    With Sheets("Sheet1")
        If Not Intersect(Target, Range("M:M")) Is Nothing Then
            If Target = "No" Then
               Call Del_Inactive
            ElseIf Target = "Yes" Then
               Call TransferData
            End If
        End If
    End With

End Sub

Then when you change the drop down to "Yes" or "No" the code will react accordingly.
 
Upvote 0
JW00 said:
Hi, enter the following code in a module;

VBA Code: 
Sub TransferData()
Dim LastRow As Long, RowN As Long
Dim WS As Worksheet, WS1 As Worksheet

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    RowN = ActiveCell.Row

    Set WS = Worksheets("Sheet2")
    Set WS1 = Worksheets("Sheet1")
    WS.Select
   
    LastRow = LastRowColumn("R") + 1
   
    WS.Cells(LastRow, 1).Value = WS1.Cells(RowN, 1).Value
    WS.Cells(LastRow, 2).Value = WS1.Cells(RowN, 2).Value
    WS.Cells(LastRow, 3).Value = WS1.Cells(RowN, 4).Value
    WS.Cells(LastRow, 4).Value = WS1.Cells(RowN, 7).Value
    WS.Cells(LastRow, 5).Value = WS1.Cells(RowN, 5).Value
    WS.Cells(LastRow, 6).Value = WS1.Cells(RowN, 8).Value
   
    WS1.Select

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

Sub Del_Inactive()
Dim ID As Long
Dim WS As Worksheet
Dim MatchingID As Long
Dim i As Long
Dim SearchedValue As String

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ID = ActiveCell.Offset(0, -11).Value
   
    Set WS = Worksheets("Sheet2")
   
    For i = 1 To 10000
         If StrComp(WS.Range("B" & i).Value, ID, vbTextCompare) = 0 Then
              MatchingID = i
              Exit For
         End If
    Next i
   
    If i < 10000 Then
       WS.Rows(MatchingID).EntireRow.Delete
    End If
   
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
   
End Sub

Function LastRowColumn(RowColumn As String) As Long
Dim sht As Worksheet
Set sht = ActiveSheet

Select Case LCase(Left(RowColumn, 1)) 'If they put in 'row' or column instead of 'r' or 'c'.
  Case "c"
    LastRowColumn = sht.Cells.Find("*", LookIn:=xlFormulas, SearchOrder:=xlByColumns, _
    SearchDirection:=xlPrevious).Column
  Case "r"
    LastRowColumn = sht.Cells.Find("*", LookIn:=xlFormulas, SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious).Row
  Case Else
    LastRowColumn = 1
End Select

End Function

Then enter the following code behind "Sheet1";

VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

    With Sheets("Sheet1")
        If Not Intersect(Target, Range("M:M")) Is Nothing Then
            If Target = "No" Then
               Call Del_Inactive
            ElseIf Target = "Yes" Then
               Call TransferData
            End If
        End If
    End With

End Sub

Then when you change the drop down to "Yes" or "No" the code will react accordingly.
Click to expand...
Thanks @JW00. I entered the first part as a module and the second as an object against sheet1 and nothing happened??!
 
Upvote 0
Saurabhj said:
Hi,

1. Please share format of sheet 1 and sheet 2 using XL2BB. It would help to understand the requirement better.
2. Is the requirement as below:
a. If employee is Active(yes), information should be available in Sheet2
b. if employee is not Active (no), information should be removed from Sheet 2.

Thanks,
Saurabh
Click to expand...
Thanks @Saurabhj.

2a. Yes, if the employee is active (YES), some information will be available in sheet2. I have added the corresponding column reference in the header of Sheet2 for ease.
2b. Yes, if the employee is inactive (NO), information will be removed from sheet2.

There is also header titles in row A of Sheet2.

Sheet1
Sample.xlsx
ABCDEFGHIJKLM
1Employee NameEmployee NumberPosition numberPosition TitleDesk LocationSocial Security NumberPhone NumberEmail addressHome AddressNext of KinPant SizeActiveDate of Birth
2David Smith123410CEOLevel 1235-12-1589555 1258dsmith@work.io12 Smith St, SmithfieldJimmy Black36YES12-May-79
3Kath Smith-Jones132420Managing Director Level 1235-28-1990555 1287ksj@work.io847 7th Ave, SmithfieldSusan Lacy34YES03-Dec-75
4Arthur Knight111231Eastern SalesGround Floor925-82-4587555 1489aknight@work.io964 The Boulevard, SmithfieldDeborah Smith42NO01-Jan-74
5Nigel Yellow542141Western SalesGround Floor687-65-1225555 5789nyellow@work.io19 Smith St, SmithfieldTerry Wrong36YES02-Feb-76
6Scott Yellow123831Eastern SalesBasement357-25-7321555 9875syellow@work.io524 7th Ave, SmithfieldAmy Black34NO15-Jul-67
7Danny White165841Western SalesGround Floor465-45-4512555 5974dwhite@work.io19 Smith St, SmithfieldBrenda Pearce32NO30-Oct-80
8Jimmy Black951041Western SalesBasement445-89-8491555 1238jblack@work.io12 Smith St, SmithfieldDavid Smith40YES19-Jul-68
9
10
Sheet1
Cell Formulas
RangeFormula
D2:D10D2=IFERROR(VLOOKUP($C2,Sheet4!$A$2:$B$5,2,FALSE)," ")
Named Ranges
NameRefers ToCells
_FilterDatabase=Sheet1!$C$2:$C$30D2
Cells with Data Validation
CellAllowCriteria
L2:L10List=$O$2:$O$3
C2:C10List=Sheet4!$A$2:$A$5


- Cell formulas is matching position number to position title.
- Named ranges *seems* to be the VLOOKUP of position title against position number.
- Data validation is list of Yes/No for active status and the fixed list of position numbers.

Sheet2
Sample.xlsx
ABCDEFGHI
1Employee Name Column AEmployee Number Column BPosition Number Column CPosition Title Column DDesk Location Column EPhone Number Column GEmail address Column HHome Address Column INext of Kin Column J
2
3
4
5
6
7
8
9
10
Sheet2


I now realise there is another complication with a need for a sheet3. This performs like sheet2 however has even less data.

Sheet3
Sample.xlsx
ABCD
1Employee Name Column APosition title Column DDesk Location Column EPhone Number Column G
2
3
4
5
6
7
8
9
10
Sheet3


I hope this helps.
 
Upvote 0
The code would never run, initially the drop down was in column M, but in your spreadsheet it is now in column L so it would never trigger. Below is the code adjusted to your new layout, it adds & deletes in sheet 2, but only adds in sheet 3 as there is no Employee Number.

VBA Code: 
Sub TransferData()
Dim LastRow As Long, RowN As Long
Dim WS As Worksheet, WS1 As Worksheet, WS2 As Worksheet

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    RowN = ActiveCell.Row

    Set WS = Worksheets("Sheet2")
    Set WS1 = Worksheets("Sheet1")
    Set WS2 = Worksheets("Sheet3")
    WS.Select
    
    LastRow = LastRowColumn("R") + 1
    
    WS.Cells(LastRow, 1).Value = WS1.Cells(RowN, 1).Value
    WS.Cells(LastRow, 2).Value = WS1.Cells(RowN, 2).Value
    WS.Cells(LastRow, 3).Value = WS1.Cells(RowN, 3).Value
    WS.Cells(LastRow, 4).Value = WS1.Cells(RowN, 4).Value
    WS.Cells(LastRow, 5).Value = WS1.Cells(RowN, 5).Value
    WS.Cells(LastRow, 6).Value = WS1.Cells(RowN, 7).Value
    WS.Cells(LastRow, 7).Value = WS1.Cells(RowN, 8).Value
    WS.Cells(LastRow, 8).Value = WS1.Cells(RowN, 9).Value
    WS.Cells(LastRow, 9).Value = WS1.Cells(RowN, 10).Value
    WS2.Cells(LastRow, 1).Value = WS1.Cells(RowN, 1).Value
    WS2.Cells(LastRow, 2).Value = WS1.Cells(RowN, 4).Value
    WS2.Cells(LastRow, 3).Value = WS1.Cells(RowN, 5).Value
    WS2.Cells(LastRow, 4).Value = WS1.Cells(RowN, 7).Value
    
    WS1.Select

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub
Sub Del_Inactive()
Dim ID As Long
Dim WS As Worksheet
Dim MatchingID As Long
Dim i As Long
Dim SearchedValue As String

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ID = ActiveCell.Offset(0, -10).Value
    
    Set WS = Worksheets("Sheet2")
    
    For i = 1 To 10000
         If StrComp(WS.Range("B" & i).Value, ID, vbTextCompare) = 0 Then
              MatchingID = i
              Exit For
         End If
    Next i
    
    If i < 10000 Then
       WS.Rows(MatchingID).EntireRow.Delete
    End If
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
End Sub
Function LastRowColumn(RowColumn As String) As Long
Dim sht As Worksheet
Set sht = ActiveSheet

Select Case LCase(Left(RowColumn, 1)) 'If they put in 'row' or column instead of 'r' or 'c'.
  Case "c"
    LastRowColumn = sht.Cells.Find("*", LookIn:=xlFormulas, SearchOrder:=xlByColumns, _
    SearchDirection:=xlPrevious).Column
  Case "r"
    LastRowColumn = sht.Cells.Find("*", LookIn:=xlFormulas, SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious).Row
  Case Else
    LastRowColumn = 1
End Select

End Function

Behind Sheet 1

VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

    With Sheets("Sheet1")
        If Not Intersect(Target, Range("L:L")) Is Nothing Then
            If Target = "No" Then
               Call Del_Inactive
            ElseIf Target = "Yes" Then
               Call TransferData
            End If
        End If
    End With

End Sub
 
Upvote 0
JW00 said:
The code would never run, initially the drop down was in column M, but in your spreadsheet it is now in column L so it would never trigger. Below is the code adjusted to your new layout, it adds & deletes in sheet 2, but only adds in sheet 3 as there is no Employee Number.

VBA Code: 
Sub TransferData()
Dim LastRow As Long, RowN As Long
Dim WS As Worksheet, WS1 As Worksheet, WS2 As Worksheet

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    RowN = ActiveCell.Row

    Set WS = Worksheets("Sheet2")
    Set WS1 = Worksheets("Sheet1")
    Set WS2 = Worksheets("Sheet3")
    WS.Select
   
    LastRow = LastRowColumn("R") + 1
   
    WS.Cells(LastRow, 1).Value = WS1.Cells(RowN, 1).Value
    WS.Cells(LastRow, 2).Value = WS1.Cells(RowN, 2).Value
    WS.Cells(LastRow, 3).Value = WS1.Cells(RowN, 3).Value
    WS.Cells(LastRow, 4).Value = WS1.Cells(RowN, 4).Value
    WS.Cells(LastRow, 5).Value = WS1.Cells(RowN, 5).Value
    WS.Cells(LastRow, 6).Value = WS1.Cells(RowN, 7).Value
    WS.Cells(LastRow, 7).Value = WS1.Cells(RowN, 8).Value
    WS.Cells(LastRow, 8).Value = WS1.Cells(RowN, 9).Value
    WS.Cells(LastRow, 9).Value = WS1.Cells(RowN, 10).Value
    WS2.Cells(LastRow, 1).Value = WS1.Cells(RowN, 1).Value
    WS2.Cells(LastRow, 2).Value = WS1.Cells(RowN, 4).Value
    WS2.Cells(LastRow, 3).Value = WS1.Cells(RowN, 5).Value
    WS2.Cells(LastRow, 4).Value = WS1.Cells(RowN, 7).Value
   
    WS1.Select

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub
Sub Del_Inactive()
Dim ID As Long
Dim WS As Worksheet
Dim MatchingID As Long
Dim i As Long
Dim SearchedValue As String

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ID = ActiveCell.Offset(0, -10).Value
   
    Set WS = Worksheets("Sheet2")
   
    For i = 1 To 10000
         If StrComp(WS.Range("B" & i).Value, ID, vbTextCompare) = 0 Then
              MatchingID = i
              Exit For
         End If
    Next i
   
    If i < 10000 Then
       WS.Rows(MatchingID).EntireRow.Delete
    End If
   
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
   
End Sub
Function LastRowColumn(RowColumn As String) As Long
Dim sht As Worksheet
Set sht = ActiveSheet

Select Case LCase(Left(RowColumn, 1)) 'If they put in 'row' or column instead of 'r' or 'c'.
  Case "c"
    LastRowColumn = sht.Cells.Find("*", LookIn:=xlFormulas, SearchOrder:=xlByColumns, _
    SearchDirection:=xlPrevious).Column
  Case "r"
    LastRowColumn = sht.Cells.Find("*", LookIn:=xlFormulas, SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious).Row
  Case Else
    LastRowColumn = 1
End Select

End Function

Behind Sheet 1

VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

    With Sheets("Sheet1")
        If Not Intersect(Target, Range("L:L")) Is Nothing Then
            If Target = "No" Then
               Call Del_Inactive
            ElseIf Target = "Yes" Then
               Call TransferData
            End If
        End If
    End With

End Sub
Click to expand...
Thanks again @JW00 - the change from column M to L was due to using a sample worksheet for XL2BB. Apologies, that was inadvertant.

Same issue again however, nothing happens.
 
Upvote 0
Hi,

Please use below code on sheet1.

What code is doing:
1. If Yes is selected and employee is not available in Sheet2 -> Employee details added in Sheet2
2. If No is selected and employee is available in Sheet2 -> Employee details deleted in Sheet2
3. If new employee added in Sheet1 with status "Yes" -> Employee details added in Sheet2
4. if new employee added in Sheet1 with status "No" -> Employee details not added in Sheet2

VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim empno As String
    Dim foundcell As Range
    Dim nextRow As Integer
    'No change in sheet 2 if a row is deleted or copied in Sheet1.
    If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("L:L")) Is Nothing Then
                empno = Sheets("Sheet1").Range("B" & Target.Row)
                With Sheets("Sheet2")
                    Set foundcell = .Cells.Find(what:=empno, after:=.Cells(1, 1), LookIn:=xlValues, _
                    lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, _
                    MatchCase:=False, searchformat:=False)
                    If Not foundcell Is Nothing Then
                        If Target.Value = "NO" Then
                            .Range(foundcell.Row & ":" & foundcell.Row).Delete
                        End If
                    Else
                        nextRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
                        If Target.Value = "YES" Then
                            .Range("A" & nextRow) = Sheets("Sheet1").Range("A" & Target.Row)
                            .Range("B" & nextRow) = Sheets("Sheet1").Range("B" & Target.Row)
                            .Range("C" & nextRow) = Sheets("Sheet1").Range("C" & Target.Row)
                            .Range("D" & nextRow) = Sheets("Sheet1").Range("D" & Target.Row)
                            .Range("E" & nextRow) = Sheets("Sheet1").Range("E" & Target.Row)
                            .Range("F" & nextRow) = Sheets("Sheet1").Range("G" & Target.Row)
                            .Range("G" & nextRow) = Sheets("Sheet1").Range("H" & Target.Row)
                            .Range("H" & nextRow) = Sheets("Sheet1").Range("I" & Target.Row)
                            .Range("I" & nextRow) = Sheets("Sheet1").Range("J" & Target.Row)
                        End If
                    End If
                End With
    End If
End Sub
 
Upvote 0
Solution
Saurabhj said:
Hi,

Please use below code on sheet1.

What code is doing:
1. If Yes is selected and employee is not available in Sheet2 -> Employee details added in Sheet2
2. If No is selected and employee is available in Sheet2 -> Employee details deleted in Sheet2
3. If new employee added in Sheet1 with status "Yes" -> Employee details added in Sheet2
4. if new employee added in Sheet1 with status "No" -> Employee details not added in Sheet2

VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim empno As String
    Dim foundcell As Range
    Dim nextRow As Integer
    'No change in sheet 2 if a row is deleted or copied in Sheet1.
    If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("L:L")) Is Nothing Then
                empno = Sheets("Sheet1").Range("B" & Target.Row)
                With Sheets("Sheet2")
                    Set foundcell = .Cells.Find(what:=empno, after:=.Cells(1, 1), LookIn:=xlValues, _
                    lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, _
                    MatchCase:=False, searchformat:=False)
                    If Not foundcell Is Nothing Then
                        If Target.Value = "NO" Then
                            .Range(foundcell.Row & ":" & foundcell.Row).Delete
                        End If
                    Else
                        nextRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
                        If Target.Value = "YES" Then
                            .Range("A" & nextRow) = Sheets("Sheet1").Range("A" & Target.Row)
                            .Range("B" & nextRow) = Sheets("Sheet1").Range("B" & Target.Row)
                            .Range("C" & nextRow) = Sheets("Sheet1").Range("C" & Target.Row)
                            .Range("D" & nextRow) = Sheets("Sheet1").Range("D" & Target.Row)
                            .Range("E" & nextRow) = Sheets("Sheet1").Range("E" & Target.Row)
                            .Range("F" & nextRow) = Sheets("Sheet1").Range("G" & Target.Row)
                            .Range("G" & nextRow) = Sheets("Sheet1").Range("H" & Target.Row)
                            .Range("H" & nextRow) = Sheets("Sheet1").Range("I" & Target.Row)
                            .Range("I" & nextRow) = Sheets("Sheet1").Range("J" & Target.Row)
                        End If
                    End If
                End With
    End If
End Sub
Click to expand...
Thanks for your assistance and patience @Saurabhj.

Again, nothing happens when I paste this into Sheet1 object. I've even created another sample workbook to make sure nothing is conflicting (with the same parameters), however the VBA code isn't resulting in any change to Sheet2.

Am I pasting the code into the right location??

1643868709783.png
 
Upvote 0
Hi, After pasting the code on Sheet1, change the Value in Column L to No.

Corresponding record will be removed from Sheet2.

Meanwhile, after pasting the code what's your expectation ?
 
Upvote 0
You must log in or register to reply here.

Similar threads

M
  • Question Question
My formula is unnecessarily copied to the adjacent cell when entering data into another cell
Replies
6
Views
220
MrsGrayMarlin
M
A
  • Question Question
Automate Attendance Marking Based on Daily Schedule in Excel
Replies
1
Views
196
Peter_SSs
Peter_SSs
R
  • Question Question
How to copy a range of data if two cells match
Replies
2
Views
268
rockychelsea
R
S
  • Question Question
Compare several columns on two different sheets and copy the differences to another sheet
Replies
5
Views
405
sofas
S
S
  • Solved
Copying columns of data to second worksheet based on input on third worksheet
Replies
2
Views
168
StuartE
S

Forum statistics

Threads
1,223,908
Messages
6,175,304
Members
452,633
Latest member
DougMo

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