Combining multiple bank account data

kbarton

New Member
Joined
Dec 1, 2008
Messages
23
Hi

I'm trying to analyse the movement of funds between bank accounts scanned into Excel. I have attached a link to a sheet that explains this. Basically where a suspect has say 10 different bank accounts. I'm trying to show the transactions and movements of funds. A pivot table won't show the text descriptions such as Cash, Paid in by..etc.etc...so can't be used.

The link gives an idea http://cl.ly/380A361p2u0e39463s3N. The '10' accounts scanned into Excel are all on their own sheet, but need to be one sheet in date order to see at a glance the transactions onto and between accounts.

Many thanks for any help given.

Kev
 

Excel Facts

Fastest way to copy a worksheet?
Hold down the Ctrl key while dragging tab for Sheet1 to the right. Excel will make a copy of the worksheet.
Try this

for each account statement put one additional column, and write the account name/number,

copy all the data into one sheet and sort putting date as criteria
 
Upvote 0
Thanks for your response. However, what I need is for each account to be matched alongside each other, so that I can see say on 1st Jan 2011 £5000 came into the Current account and was then moved to the Savings accounts on that day and then even perhaps moved into the Business account.

The date needs to go across the same transaction that occurred on that date if that makes sense.

I can of course get all of the bank data into one sheet, but the object is to visually see multiple transactions between accounts each day in this format:

Acc 1 Accc 2 Acc 3
Date Trans Cred Deb Cred Deb Cred Deb
01/01/2011 Cash 500 500
02/01/2011 Bill 200
03/01/2011 Transfer 4000 4000


Hopefully that explains my problem?

Many thanks

Kev
 
Upvote 0
Try this:-
Code:
[COLOR="Navy"]Sub[/COLOR] MG03Jul59
[COLOR="Navy"]Dim[/COLOR] Dn      [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Ws      [COLOR="Navy"]As[/COLOR] Worksheet
[COLOR="Navy"]Dim[/COLOR] sht     [COLOR="Navy"]As[/COLOR] Worksheet
[COLOR="Navy"]Dim[/COLOR] nRng    [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] nnRng   [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Col     [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Rng     [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] c       [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Lst [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]On[/COLOR] [COLOR="Navy"]Error[/COLOR] [COLOR="Navy"]Resume[/COLOR] [COLOR="Navy"]Next[/COLOR]
[COLOR="Navy"]If[/COLOR] Sheets("Total_Sheets").Select = False [COLOR="Navy"]Then[/COLOR]
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Total_Sheets"
[COLOR="Navy"]Set[/COLOR] sht = ActiveSheet
bypass:
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]On[/COLOR] [COLOR="Navy"]Error[/COLOR] GoTo 0
Col = 0
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Ws [COLOR="Navy"]In[/COLOR] Worksheets
   [COLOR="Navy"]If[/COLOR] Not Ws.Name = "Total_Sheets" [COLOR="Navy"]Then[/COLOR]
      
        [COLOR="Navy"]With[/COLOR] Ws
            [COLOR="Navy"]Set[/COLOR] Rng = .Range(.Range("A1"), .Range("A" & Rows.Count).End(xlUp))
        [COLOR="Navy"]End[/COLOR] With
        [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
            c = c + 1
            [COLOR="Navy"]If[/COLOR] IsDate(Dn) [COLOR="Navy"]Then[/COLOR] [COLOR="Navy"]Exit[/COLOR] For
        [COLOR="Navy"]Next[/COLOR] Dn
        [COLOR="Navy"]With[/COLOR] Sheets("Total_Sheets")
            Lst = .Range("A" & .Rows.Count).End(xlUp).Offset(1).Row
            [COLOR="Navy"]Set[/COLOR] nRng = Rng.Offset(c - 1).Resize(Rng.Count - c + 1, 3)
            nRng.Copy .Range("A" & Lst).Resize(nRng.Rows.Count, 3)
            [COLOR="Navy"]Set[/COLOR] nnRng = Rng.Offset(c - 1, 3).Resize(Rng.Count - c + 1, 2)
            nnRng.Copy .Range("D" & Lst).Offset(, Col).Resize(nnRng.Rows.Count, 2)
        [COLOR="Navy"]End[/COLOR] With
    [COLOR="Navy"]End[/COLOR] If
        Col = Col + 2
        c = 0
[COLOR="Navy"]Next[/COLOR] Ws
[COLOR="Navy"]With[/COLOR] Sheets("Total_Sheets")
.Range("A1").Resize(, 23) = Array("Date", "Account", "Details", "Withdrawal" _
, "Deposit", "Withdrawal", "Deposit", "Withdrawal", "Deposit", "Withdrawal" _
, "Deposit", "Withdrawal", "Deposit", "Withdrawal", "Deposit", "Withdrawal" _
, "Deposit", "Withdrawal", "Deposit", "Withdrawal", "Deposit", "Withdrawal", "Deposit")
    
[COLOR="Navy"]Set[/COLOR] Rng = .Range(.Range("A2"), .Range("A" & Rows.Count).End(xlUp)).Resize(, Col)
        Rng.Sort .Range("A2"), xlAscending
        Rng.Columns.AutoFit
[COLOR="Navy"]End[/COLOR] With
MsgBox "Run!!"
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
Regards Mick
 
Upvote 0
Hi Mick

That is a fantastic piece of work Mick. I'm very very grateful. I have attached a link to some sample/made up data. It works well, but in the last column the dates of the transactions are slightly out of sync. Is there something in the coding that I could change to address this?

One other very large request if at all possible, is to make it perfect if you could spare the time. In the top row, instead of having just Withdrawal and Deposit is there anyway that it could take the tab name, which will be the account number, and make it Credit ABC123 Debit ABC 123, Credit 123456 Debit 123456 for instance, and the transactions for the same day to be put on the same row, so that I can identify movement of funds from account ABC123 to account 123456?

I realise this is a big ask, and a lot of work, but it's something we've been trying to sort out for 4 years in our department, and no-one is clever enough with VB to do it, so I would be eternally grateful.

Many thanks for your sterling work Mick, I'm so grateful you wouldn't believe it.

Here's the link.

http://cl.ly/193O3X473L3T0x1N372H

Kev
 
Upvote 0
Try this:-
NB:- I have not amalgamated the duplicate dates because I would then have to amalgamate each account numbers in one cell and each of the related Details in one cell, which may then extend the data to far to the right, so at the moment the code colours the Rows that have the same date in either Blue or Green. If you still want do the amalgamating of rows let me know.
The Errors you found I think where perhaps from previous Data that had not been deleted, because if you re-run the code and the sheet "Total_Sheets" Already exists then the data it just gets over written, and may still have data from a previous trial.
If the code is now re-run Then the sheet "Total_Sheets" has its old contents removed along with any previous colouring.
Code:
[COLOR="Navy"]Sub[/COLOR] MG03Jul34
[COLOR="Navy"]Dim[/COLOR] Dn      [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Ws      [COLOR="Navy"]As[/COLOR] Worksheet
[COLOR="Navy"]Dim[/COLOR] sht     [COLOR="Navy"]As[/COLOR] Worksheet
[COLOR="Navy"]Dim[/COLOR] nRng    [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] nnRng   [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Col     [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Rng     [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] c       [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Lst [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] PstRng [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]On[/COLOR] [COLOR="Navy"]Error[/COLOR] [COLOR="Navy"]Resume[/COLOR] [COLOR="Navy"]Next[/COLOR]
[COLOR="Navy"]If[/COLOR] Sheets("Total_Sheets").Select = False [COLOR="Navy"]Then[/COLOR]
    Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Total_Sheets"
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]On[/COLOR] [COLOR="Navy"]Error[/COLOR] GoTo 0
Col = 0
[COLOR="Navy"]With[/COLOR] Sheets("Total_Sheets")
.Cells.ClearContents
.Cells.Interior.ColorIndex = xlNone
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Ws [COLOR="Navy"]In[/COLOR] Worksheets
   
   [COLOR="Navy"]If[/COLOR] Not Ws.Name = "Total_Sheets" And Not Ws.Name = "T_Sheets" [COLOR="Navy"]Then[/COLOR]
      
        [COLOR="Navy"]With[/COLOR] Ws
            [COLOR="Navy"]Set[/COLOR] Rng = .Range(.Range("A1"), .Range("A" & Rows.Count).End(xlUp))
        [COLOR="Navy"]End[/COLOR] With
        [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
            c = c + 1
            [COLOR="Navy"]If[/COLOR] IsDate(Dn) [COLOR="Navy"]Then[/COLOR] [COLOR="Navy"]Exit[/COLOR] For
        [COLOR="Navy"]Next[/COLOR] Dn
        [COLOR="Navy"]With[/COLOR] Sheets("Total_Sheets")
            Lst = .Range("A" & .Rows.Count).End(xlUp).Offset(1).Row
             [COLOR="Navy"]Set[/COLOR] nRng = Rng.Offset(c - 1).Resize(Rng.Count - c + 1, 3)
               nRng.Copy .Range("A" & Lst).Resize(nRng.Rows.Count, 3)
                [COLOR="Navy"]Set[/COLOR] nnRng = Rng.Offset(c - 1, 3).Resize(Rng.Count - c + 1, 2)
                 [COLOR="Navy"]Set[/COLOR] PstRng = .Range("D" & Lst).Offset(, Col).Resize(nnRng.Rows.Count, 2)
                 .Cells(1, PstRng.Column) = "Debits " & Split(Ws.Name, " ")(1)
                  .Cells(1, PstRng.Column + 1) = "Credits " & Split(Ws.Name, " ")(1)
                   nnRng.Copy PstRng
        [COLOR="Navy"]End[/COLOR] With
    [COLOR="Navy"]End[/COLOR] If
        Col = Col + 2
        c = 0
[COLOR="Navy"]Next[/COLOR] Ws
[COLOR="Navy"]With[/COLOR] Sheets("Total_Sheets")
    .Range("A1").Resize(, 3) = Array("Date", "Account", "Details")
    [COLOR="Navy"]Set[/COLOR] Rng = .Range(.Range("A2"), .Range("A" & Rows.Count).End(xlUp)).Resize(, Col)
          Rng.Sort .Range("A2"), xlAscending
         .Rows(1).Columns.AutoFit
         Rng.Resize(, 3).Columns.AutoFit
[COLOR="Navy"]End[/COLOR] With
Call cula(Rng.Resize(, 1))
MsgBox "Run!!"
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
[COLOR="Navy"]Sub[/COLOR] cula(R [COLOR="Navy"]As[/COLOR] Range)
[COLOR="Navy"]Dim[/COLOR] Col [COLOR="Navy"]As[/COLOR] Variant
[COLOR="Navy"]Dim[/COLOR] Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] K [COLOR="Navy"]As[/COLOR] Variant
Col = Array(34, 35)
    [COLOR="Navy"]With[/COLOR] CreateObject("scripting.dictionary")
    .CompareMode = vbTextCompare
       
        [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] R
            [COLOR="Navy"]If[/COLOR] Not .Exists(Dn.Value) [COLOR="Navy"]Then[/COLOR]
                .Add Dn.Value, Dn
            [COLOR="Navy"]Else[/COLOR]
                [COLOR="Navy"]Set[/COLOR] .Item(Dn.Value) = Union(.Item(Dn.Value), Dn)
            [COLOR="Navy"]End[/COLOR] If
        [COLOR="Navy"]Next[/COLOR]
    c = 0
        [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] K [COLOR="Navy"]In[/COLOR] .keys
            [COLOR="Navy"]If[/COLOR] .Item(K).Count > 1 [COLOR="Navy"]Then[/COLOR]
                c = IIf(c = 2, 0, c)
               .Item(K).EntireRow.Interior.ColorIndex = Col(c)
                c = c + 1
            [COLOR="Navy"]End[/COLOR] If
        [COLOR="Navy"]Next[/COLOR] K
[COLOR="Navy"]End[/COLOR] With

[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
Regards Mick
 
Upvote 0
Hi Mick

That is really clever stuff. The only one minor thing is that at the sorting stage, it's only going to column J instead of the end of the used columns which is K on the sample, which therefore leaves that bit unsorted. I think it's something to do with the range of the columns. I've tried to work it out but it's beyond me. The rest of the VB is fantastic and is just what I thought was possible but didn't know how to get it into VB. I'm very grateful for your time Mick.

Sheets("Total_Sheets")
.Range("A1").Resize(, 3) = Array("Date", "Account", "Details")
Set Rng = .Range(.Range("A2"), .Range("A" & Rows.Count).End(xlUp)).Resize(, Col)
Rng.Sort .Range("A2"), xlAscending
.Rows(1).Columns.AutoFit
Rng.Resize(, 3).Columns.AutoFit

Many thanks Mick.

Kev
 
Upvote 0
Just wanted to repeat my gratitude Mick. I really am so grateful for your help. I've been through the coding and am truly amazed. I'm looking forward to being able to share this at work tomorrow Mick, it will solve so many issues we've had for a long time.

Thanks

Kev
 
Upvote 0
I can't find you error , I've placed a msgbox in the code that tell you the range thats being sorted I get "A2:L85", (which is actually one more than the data range), what do you get.???
The last 2 columns "J & K" are for A/c 123456, and I have checked the data in the results against the actual sheet data and its correct.
I've also placed some Borders around the cells to make it easier to Check.
Code:
[COLOR="Navy"]Sub[/COLOR] MG03Jul47
Private [COLOR="Navy"]Sub[/COLOR] CommandButton1_Click()
[COLOR="Navy"]Dim[/COLOR] Dn      [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Ws      [COLOR="Navy"]As[/COLOR] Worksheet
[COLOR="Navy"]Dim[/COLOR] sht     [COLOR="Navy"]As[/COLOR] Worksheet
[COLOR="Navy"]Dim[/COLOR] nRng    [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] nnRng   [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Col     [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Rng     [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] c       [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Lst [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] PstRng [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]On[/COLOR] [COLOR="Navy"]Error[/COLOR] [COLOR="Navy"]Resume[/COLOR] [COLOR="Navy"]Next[/COLOR]
[COLOR="Navy"]If[/COLOR] Sheets("Total_Sheets").Select = False [COLOR="Navy"]Then[/COLOR]
    Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Total_Sheets"
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]On[/COLOR] [COLOR="Navy"]Error[/COLOR] GoTo 0
Col = 0
[COLOR="Navy"]With[/COLOR] Sheets("Total_Sheets")
.Cells.ClearContents
.Cells.Interior.ColorIndex = xlNone
.Cells.Borders.LineStyle = xlContinuous
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Ws [COLOR="Navy"]In[/COLOR] Worksheets
   
   [COLOR="Navy"]If[/COLOR] Not Ws.Name = "Total_Sheets" And Not Ws.Name = "T_Sheets" [COLOR="Navy"]Then[/COLOR]
      
        [COLOR="Navy"]With[/COLOR] Ws
            [COLOR="Navy"]Set[/COLOR] Rng = .Range(.Range("A1"), .Range("A" & Rows.Count).End(xlUp))
        [COLOR="Navy"]End[/COLOR] With
        [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
            c = c + 1
            [COLOR="Navy"]If[/COLOR] IsDate(Dn) [COLOR="Navy"]Then[/COLOR] [COLOR="Navy"]Exit[/COLOR] For
        [COLOR="Navy"]Next[/COLOR] Dn
        [COLOR="Navy"]With[/COLOR] Sheets("Total_Sheets")
            Lst = .Range("A" & .Rows.Count).End(xlUp).Offset(1).Row
             [COLOR="Navy"]Set[/COLOR] nRng = Rng.Offset(c - 1).Resize(Rng.Count - c + 1, 3)
               nRng.Copy .Range("A" & Lst).Resize(nRng.Rows.Count, 3)
                [COLOR="Navy"]Set[/COLOR] nnRng = Rng.Offset(c - 1, 3).Resize(Rng.Count - c + 1, 2)
                 [COLOR="Navy"]Set[/COLOR] PstRng = .Range("D" & Lst).Offset(, Col).Resize(nnRng.Rows.Count, 2)
                 .Cells(1, PstRng.Column) = "Debits " & Split(Ws.Name, " ")(1)
                  .Cells(1, PstRng.Column + 1) = "Credits " & Split(Ws.Name, " ")(1)
                   nnRng.Copy PstRng
        [COLOR="Navy"]End[/COLOR] With
    [COLOR="Navy"]End[/COLOR] If
        Col = Col + 2
        c = 0
[COLOR="Navy"]Next[/COLOR] Ws
[COLOR="Navy"]With[/COLOR] Sheets("Total_Sheets")
    .Range("A1").Resize(, 3) = Array("Date", "Account", "Details")
     [COLOR="Navy"]Set[/COLOR] Rng = .Range(.Range("A2"), .Range("A" & Rows.Count).End(xlUp)).Resize(, Col)
     MsgBox Rng.Address '[COLOR="Green"][B]Delete as required[/B][/COLOR]
     [COLOR="Navy"]With[/COLOR] Rng.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 56
    [COLOR="Navy"]End[/COLOR] With
        Rng.Sort .Range("A2"), xlAscending
        .Rows(1).Columns.AutoFit
         Rng.Resize(, 3).Columns.AutoFit
[COLOR="Navy"]End[/COLOR] With
Call cula(Rng.Resize(, 1))
MsgBox "Run!!"
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
[COLOR="Navy"]Sub[/COLOR] cula(R [COLOR="Navy"]As[/COLOR] Range)
[COLOR="Navy"]Dim[/COLOR] Col [COLOR="Navy"]As[/COLOR] Variant
[COLOR="Navy"]Dim[/COLOR] Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] K [COLOR="Navy"]As[/COLOR] Variant
Col = Array(34, 35)
    [COLOR="Navy"]With[/COLOR] CreateObject("scripting.dictionary")
    .CompareMode = vbTextCompare
       
        [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] R
            [COLOR="Navy"]If[/COLOR] Not .Exists(Dn.Value) [COLOR="Navy"]Then[/COLOR]
                .Add Dn.Value, Dn
            [COLOR="Navy"]Else[/COLOR]
                [COLOR="Navy"]Set[/COLOR] .Item(Dn.Value) = Union(.Item(Dn.Value), Dn)
            [COLOR="Navy"]End[/COLOR] If
        [COLOR="Navy"]Next[/COLOR]
    c = 0
        [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] K [COLOR="Navy"]In[/COLOR] .keys
            [COLOR="Navy"]If[/COLOR] .Item(K).Count > 1 [COLOR="Navy"]Then[/COLOR]
                c = IIf(c = 2, 0, c)
               .Item(K).EntireRow.Interior.ColorIndex = Col(c)
                c = c + 1
            [COLOR="Navy"]End[/COLOR] If
        [COLOR="Navy"]Next[/COLOR] K
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
Regards Mick
 
Upvote 0
Sorry, Second line down you will this this line as below, Delete it !!
Not the first Line , just this one
Rich (BB code):
Private Sub CommandButton1_Click()
 
Upvote 0

Forum statistics

Threads
1,224,600
Messages
6,179,834
Members
452,947
Latest member
Gerry_F

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