Copy cell if another cell contains YES

BravoBravoAu · Feb 2, 2022

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 Name

Employee Number

Position Title

Phone number

Desk Location

Email 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)

Saurabhj · Feb 2, 2022

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

JW00 · Feb 2, 2022

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.

BravoBravoAu · Feb 2, 2022

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.

Thanks @JW00. I entered the first part as a module and the second as an object against sheet1 and nothing happened??!

BravoBravoAu · Feb 2, 2022

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

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

A

B

C

D

E

F

G

H

I

J

K

L

M

1

Employee Name

Employee Number

Position number

Position Title

Desk Location

Social Security Number

Phone Number

Email address

Home Address

Next of Kin

Pant Size

Active

Date of Birth

2

David Smith

1234

10

CEO

Level 1

235-12-1589

555 1258

dsmith@work.io

12 Smith St, Smithfield

Jimmy Black

36

YES

12-May-79

3

Kath Smith-Jones

1324

20

Managing Director

Level 1

235-28-1990

555 1287

ksj@work.io

847 7th Ave, Smithfield

Susan Lacy

34

YES

03-Dec-75

4

Arthur Knight

1112

31

Eastern Sales

Ground Floor

925-82-4587

555 1489

aknight@work.io

964 The Boulevard, Smithfield

Deborah Smith

42

NO

01-Jan-74

5

Nigel Yellow

5421

41

Western Sales

Ground Floor

687-65-1225

555 5789

nyellow@work.io

19 Smith St, Smithfield

Terry Wrong

36

YES

02-Feb-76

6

Scott Yellow

1238

31

Eastern Sales

Basement

357-25-7321

555 9875

syellow@work.io

524 7th Ave, Smithfield

Amy Black

34

NO

15-Jul-67

7

Danny White

1658

41

Western Sales

Ground Floor

465-45-4512

555 5974

dwhite@work.io

19 Smith St, Smithfield

Brenda Pearce

32

NO

30-Oct-80

8

Jimmy Black

9510

41

Western Sales

Basement

445-89-8491

555 1238

jblack@work.io

12 Smith St, Smithfield

David Smith

40

YES

19-Jul-68

9

10

Sheet1

Cell Formulas
Range	Formula
D2:D10	D2	=IFERROR(VLOOKUP($C2,Sheet4!$A$2:$B$5,2,FALSE)," ")

Named Ranges
Name	Refers To	Cells
_FilterDatabase	=Sheet1!$C$2:$C$30	D2

Cells with Data Validation
Cell	Allow	Criteria
L2:L10	List	=$O$2:$O$3
C2:C10	List	=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

A

B

C

D

E

F

G

H

I

1

Employee Name Column A

Employee Number Column B

Position Number Column C

Position Title Column D

Desk Location Column E

Phone Number Column G

Email address Column H

Home Address Column I

Next 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

A

B

C

D

1

Employee Name Column A

Position title Column D

Desk Location Column E

Phone Number Column G

2

3

4

5

6

7

8

9

10

Sheet3

I hope this helps.

JW00 · Feb 2, 2022

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

BravoBravoAu · Feb 2, 2022

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

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.

Saurabhj · Feb 3, 2022

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

BravoBravoAu · Feb 3, 2022

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

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??

Saurabhj · Feb 3, 2022

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 ?

Copy cell if another cell contains YES

BravoBravoAu

Board Regular

Excel Facts

Saurabhj

Well-known Member

JW00

Board Regular

BravoBravoAu

Board Regular

BravoBravoAu

Board Regular

JW00

Board Regular

BravoBravoAu

Board Regular

Saurabhj

Well-known Member

BravoBravoAu

Board Regular

Saurabhj

Well-known Member

Similar threads

Forum statistics

Share this page

Copy cell if another cell contains YES

Board Regular

Excel Facts

Well-known Member

Board Regular

Board Regular

Board Regular

Board Regular

Board Regular

Well-known Member

Board Regular

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock