Copying range to table

Guinaba

Board Regular
Joined
Sep 19, 2018
Messages
233
Office Version
  1. 2016
Platform
  1. Windows
Hi guys,

I am using the below code to copy a range to a table, however some dates are incorrectly converting from dd/mm/yyyy to mm/dd/yyyyy:

Range (Correct date)Table (incorrect date)
01/07/202407/01/2024
05/08/202408/05/2024
12/08/202408/12/2024

Is there any way to avoid that happening?


VBA Code:
Sub Data_Array_Set_IBPData_1(vDtaHdr() As Variant, vDtaBdy() As Variant)

   Dim wrksht As Worksheet
   Dim objListObj As ListObject
   Dim vArray As Variant

  'Find the last non-blank cell in column A(1)
   LRow = ThisWorkbook.Worksheets("IBP Data").Cells(Rows.Count, 2).End(xlUp).Row
  
   With ThisWorkbook.Worksheets("IBP Data").Range(ThisWorkbook.Worksheets("IBP Data").Cells(2, 1), ThisWorkbook.Worksheets("IBP Data").Cells(LRow, 8))
        vArray = .Rows(1)
        vDtaHdr = vArray
        vArray = .Offset(1, 0).Resize(-1 + .Rows.Count)
        vDtaBdy = vArray
  End With
End Sub
  
Sub IBPData_1()

    Dim MyTable As ListObject
    Dim vDtaHdr() As Variant, vDtaBdy() As Variant
    Dim lRowsAdj As Long
        
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False

    Set MyTable = ThisWorkbook.Worksheets("IBP Data").ListObjects("tFcst_1") 'Change as required

    Call Data_Array_Set_IBPData_1(vDtaHdr, vDtaBdy)

    With MyTable.DataBodyRange
        Rem Get Number of Rows to Adjust
        lRowsAdj = 1 + UBound(vDtaBdy, 1) - LBound(vDtaBdy, 1) - .Rows.Count

        Rem Resize ListObject
        If lRowsAdj < 0 Then
            Rem Delete Rows
            .Rows(1).Resize(Abs(lRowsAdj)).Delete xlShiftUp

        ElseIf lRowsAdj > 0 Then
            Rem Insert Rows
            .Rows(1).Resize(lRowsAdj).Insert Shift:=xlDown

    End If: End With

    Rem Overwrite Table with New Data
    MyTable.HeaderRowRange.Value = vDtaHdr
    MyTable.DataBodyRange.Value = vDtaBdy
      
   Application.Calculation = xlCalculationAutomatic
   Application.ScreenUpdating = True
   
   MsgBox "Table has been refreshed", vbInformation
   
End Sub
 

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.
It indicates that your dates in the original range are being recognised as Text.
Unless you have a reason to not convert it in the original range, do a Text to Columns conversion in the macro.
Since the date format is your default format either using General or Date (with DMY) will work.
 
Upvote 0
It indicates that your dates in the original range are being recognised as Text.
Unless you have a reason to not convert it in the original range, do a Text to Columns conversion in the macro.
Since the date format is your default format either using General or Date (with DMY) will work.
Thanks @Alex Blakenburg for your suggestion. I have added the code below to convert the data to date format but not sure why it still keep saving as mm/dd/yyyyy instead of dd/mm/yyyy

' Loop through each cell in the range and apply date format
For i = 3 To LRow
Range("A" & i) = Format(CDate(Range("A" & i)), "dd/mm/yyyy")
Debug.Print Range("A" & i)
Next i

VBA Code:
Sub Data_Array_Set_IBPData_1(vDtaHdr() As Variant, vDtaBdy() As Variant)

   Dim wrksht As Worksheet
   Dim objListObj As ListObject
   Dim vArray As Variant
   Dim rng As Range
   Dim cell As Range
   Dim i As Integer

  'Find the last non-blank cell in column A(1)
   LRow = ThisWorkbook.Worksheets("IBP Data").Cells(Rows.Count, 2).End(xlUp).Row
   
  ' Loop through each cell in the range and apply date format
   For i = 3 To LRow
        Range("A" & i) = Format(CDate(Range("A" & i)), "dd/mm/yyyy")
        Debug.Print Range("A" & i)
    Next i
       
   With ThisWorkbook.Worksheets("IBP Data").Range(ThisWorkbook.Worksheets("IBP Data").Cells(2, 1), ThisWorkbook.Worksheets("IBP Data").Cells(LRow, 8))
        vArray = .Rows(1)
        vDtaHdr = vArray
        vArray = .Offset(1, 0).Resize(-1 + .Rows.Count)
        vDtaBdy = vArray
  End With


End Sub
  
Sub IBPData_1()

    Dim MyTable As ListObject
    Dim vDtaHdr() As Variant, vDtaBdy() As Variant
    Dim lRowsAdj As Long
        
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False

    Set MyTable = ThisWorkbook.Worksheets("IBP Data").ListObjects("tFcst_1") 'Change as required

    Call Data_Array_Set_IBPData_1(vDtaHdr, vDtaBdy)

    With MyTable.DataBodyRange
        Rem Get Number of Rows to Adjust
        lRowsAdj = 1 + UBound(vDtaBdy, 1) - LBound(vDtaBdy, 1) - .Rows.Count

        Rem Resize ListObject
        If lRowsAdj < 0 Then
            Rem Delete Rows
            .Rows(1).Resize(Abs(lRowsAdj)).Delete xlShiftUp

        ElseIf lRowsAdj > 0 Then
            Rem Insert Rows
            .Rows(1).Resize(lRowsAdj).Insert Shift:=xlDown

    End If: End With

    Rem Overwrite Table with New Data
    MyTable.HeaderRowRange.Value = vDtaHdr
    MyTable.DataBodyRange.Value = vDtaBdy
      
   Application.Calculation = xlCalculationAutomatic
   Application.ScreenUpdating = True
   
   MsgBox "Table has been refreshed", vbInformation
   
End Sub
 
Upvote 0
The issue is that the original date is Text. By using "Format" in your loop you are putting it back into the cells as Text.
Try replacing your function code (Data_Array_Set_IBPData_1) with this:
PS: I would have given you this the first time but you didn't say which column(s) held the date.

Rich (BB code):
Sub Data_Array_Set_IBPData_1(vDtaHdr() As Variant, vDtaBdy() As Variant)

   Dim wrksht As Worksheet
   Dim objListObj As ListObject
   Dim vArray As Variant
   
   Dim LRow As Long

  'Find the last non-blank cell in column A(1)
   LRow = ThisWorkbook.Worksheets("IBP Data").Cells(Rows.Count, 2).End(xlUp).Row
  
   With ThisWorkbook.Worksheets("IBP Data").Range(ThisWorkbook.Worksheets("IBP Data").Cells(2, 1), ThisWorkbook.Worksheets("IBP Data").Cells(LRow, 8))
        With .Columns(1)
            .TextToColumns Destination:=.Cells(1), DataType:=xlDelimited, _
                Tab:=False, Semicolon:=False, Comma:=False, Space:=False, Other:=False, _
                FieldInfo:=Array(1, 4)
        End With
        vArray = .Rows(1)
        vDtaHdr = vArray
        vArray = .Offset(1, 0).Resize(-1 + .Rows.Count)
        vDtaBdy = vArray
  End With
End Sub
 
Upvote 0
The issue is that the original date is Text. By using "Format" in your loop you are putting it back into the cells as Text.
Try replacing your function code (Data_Array_Set_IBPData_1) with this:
PS: I would have given you this the first time but you didn't say which column(s) held the date.

Rich (BB code):
Sub Data_Array_Set_IBPData_1(vDtaHdr() As Variant, vDtaBdy() As Variant)

   Dim wrksht As Worksheet
   Dim objListObj As ListObject
   Dim vArray As Variant
  
   Dim LRow As Long

  'Find the last non-blank cell in column A(1)
   LRow = ThisWorkbook.Worksheets("IBP Data").Cells(Rows.Count, 2).End(xlUp).Row
 
   With ThisWorkbook.Worksheets("IBP Data").Range(ThisWorkbook.Worksheets("IBP Data").Cells(2, 1), ThisWorkbook.Worksheets("IBP Data").Cells(LRow, 8))
        With .Columns(1)
            .TextToColumns Destination:=.Cells(1), DataType:=xlDelimited, _
                Tab:=False, Semicolon:=False, Comma:=False, Space:=False, Other:=False, _
                FieldInfo:=Array(1, 4)
        End With
        vArray = .Rows(1)
        vDtaHdr = vArray
        vArray = .Offset(1, 0).Resize(-1 + .Rows.Count)
        vDtaBdy = vArray
  End With
End Sub
Hey @Alex Blakenburg,
Thanks for that, we getting close :-) just ran the code including your suggestion, not sure I am missing something, but didn't worked :(

1727045005739.png


That is the Array's structure:

1727045288169.png
 
Upvote 0
Why did you just not replace that code with what I gave you ?
The code you are highlighting needs to happen before you load the array. So it needs to be before vArray = .Rows(1)
Just use my code in Post #4 and replace that whole Sub
 
Upvote 0
Hi @Alex Blakenburg,

I tried but didn't worked, do you want to try in the sample below? Just copy and paste in a sheet and run the code your code

Col A to Col F

DateSales ChannelCustomerLocationBrand FamilyProduct
1/07/2024​
3340 - ROUTE

[TD]DIRECT ROUTE[/TD]
[TD]0100 - Frucor Suntory Aus (Sydney)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]

[TR]
[TD]
1/07/2024​
[/TD]
[TD]3340 - ROUTE[/TD]
[TD]DIRECT ROUTE[/TD]
[TD]0110 - Frucor Suntory Aus (Melbourne)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3340 - ROUTE[/TD]
[TD]DIRECT ROUTE[/TD]
[TD]0120 - Frucor Suntory Aus (Brisbane)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3340 - ROUTE[/TD]
[TD]DIRECT ROUTE[/TD]
[TD]0130 - Frucor Suntory Aus (Perth)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3340 - ROUTE[/TD]
[TD]DISTRIBUTORS[/TD]
[TD]0100 - Frucor S
untory Aus (Sydney)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3340 - ROUTE[/TD]
[TD]DISTRIBUTORS[/TD]
[TD]0110 - Frucor Suntory Aus (Melbourne)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3340 - ROUTE[/TD]
[TD]DISTRIBUTORS[/TD]
[TD]0120 - Frucor Suntory Aus (Brisbane)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3340 - ROUTE[/TD]
[TD]DISTRIBUTORS[/TD]
[TD]0130 - Frucor Suntory Aus (Perth)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3340 - ROUTE[/TD]
[TD]LEISURE[/TD]
[TD]0100 - Frucor Suntory Aus (Sydney)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3340 - ROUTE[/TD]
[TD]LEISURE[/TD]
[TD]0110 - Frucor Suntory Aus (Melbourne)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3340 - ROUTE[/TD]
[TD]LEISURE[/TD]
[TD]0120 - Frucor Suntory Aus (Brisbane)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3340 - ROUTE[/TD]
[TD]LEISURE[/TD]
[TD]0130 - Frucor Suntory Aus (Perth)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]BIG W[/TD]
[TD]0100 - Frucor Suntory Aus (Sydney)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]BIG W[/TD]
[TD]0110 - Frucor Suntory Aus (Melbourne)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]BIG W[/TD]
[TD]0120 - Frucor Suntory Aus (Brisbane)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]BIG W[/TD]
[TD]0130 - Frucor Suntory Aus (Perth)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]CLEARANCE[/TD]
[TD]0100 - Frucor Suntory Aus (Sydney)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]COLES GROUP[/TD]
[TD]0100 - Frucor Suntory Aus (Sydney)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]COLES GROUP[/TD]
[TD]0110 - Frucor Suntory Aus (Melbourne)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]COLES GROUP[/TD]
[TD]0120 - Frucor Suntory Aus (Brisbane)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]COLES GROUP[/TD]
[TD]0130 - Frucor Suntory Aus (Perth)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]DIRECT ROUTE[/TD]
[TD]0130 - Frucor Suntory Aus (Perth)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]KMART[/TD]
[TD]0100 - Frucor Suntory Aus (Sydney)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]KMART[/TD]
[TD]0110 - Frucor Suntory Aus (Melbourne)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]KMART[/TD]
[TD]0120 - Frucor Suntory Aus (Brisbane)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]KMART[/TD]
[TD]0130 - Frucor Suntory Aus (Perth)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]LEISURE[/TD]
[TD]0110 - Frucor Suntory Aus (Melbourne)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]LEISURE[/TD]
[TD]0130 - Frucor Suntory Aus (Perth)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]METCASH DIRECT[/TD]
[TD]0100 - Frucor Suntory Aus (Sydney)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]METCASH DIRECT[/TD]
[TD]0110 - Frucor Suntory Aus (Melbourne)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]METCASH DIRECT[/TD]
[TD]0120 - Frucor Suntory Aus (Brisbane)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
[TR]
[TD]
1/07/2024​
[/TD]
[TD]3342 - GROCERY RETAILER[/TD]
[TD]METCASH DIRECT[/TD]
[TD]0130 - Frucor Suntory Aus (Perth)[/TD]
[TD]VEDW - V - 250ml Can 24pk singl[/TD]
[TD]1129 - V Refresh BC Yuzu 250ml x24 CAN AU[/TD]
[/TR]
 
Upvote 0
Hi @Alex Blakenburg,

I tried but didn't worked, do you want to try in the sample below? Just copy and paste in a sheet and run the code your code

Col A to Col F

DateSales ChannelCustomerLocationBrand FamilyProduct
1/07/2024​
3340 - ROUTE


Sorry @Alex Blakenburg I was trying to add the following table:

VBA Code:
Dim wrksht As Worksheet
   Dim objListObj As ListObject
   Dim vArray As Variant
   
   Dim LRow As Long

  'Find the last non-blank cell in column A(1)
   LRow = ThisWorkbook.Worksheets("IBP Data").Cells(Rows.Count, 2).End(xlUp).Row
  
   With ThisWorkbook.Worksheets("IBP Data").Range(ThisWorkbook.Worksheets("IBP Data").Cells(2, 1), ThisWorkbook.Worksheets("IBP Data").Cells(LRow, 8))
        With .Columns(1)
            .TextToColumns Destination:=.Cells(1), DataType:=xlDelimited, _
                Tab:=False, Semicolon:=False, Comma:=False, Space:=False, Other:=False, _
                FieldInfo:=Array(1, 4)
        End With
        vArray = .Rows(1)
        vDtaHdr = vArray
        vArray = .Offset(1, 0).Resize(-1 + .Rows.Count)
        vDtaBdy = vArray
  End With
End Sub

Range from col. A to col. F

Date Color Customer Country State City
1/07/2024 Blue John Australia WA Perth
1/07/2024 Blue John Australia WA Perth
1/07/2024 Blue John Australia WA Perth
1/07/2024 Blue John Australia WA Perth
1/07/2024 Blue John Australia WA Perth
1/07/2024 Blue John Australia WA Perth
1/08/2024 Blue John Australia WA Perth
1/07/2024 Blue John Australia WA Perth
1/07/2024 Blue John Australia WA Perth
1/07/2024 Blue John Australia WA Perth
 
Upvote 0

Forum statistics

Threads
1,224,812
Messages
6,181,089
Members
453,021
Latest member
Justyna P

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