select first item available on other dropdown lists when the initial one is selected/changed

A

ares0027

New Member
Joined
Sep 30, 2022
Messages
5
Office Version
  1. 2021
Platform
  1. Windows
so, i am not even "new" to vbas, thats how much i know. i just find the codes and try and hope for the best they work. so basically, i have 6 drop down lists, first 3-4 usually contains multiple items, but last 2-3 usually contain 1 but it is not 100% of the time.

on a sheet called "Internal_Page" i created lists (using UNIQUE function with the help of FILTER) and on "Email" sheet i created the dropdowns.

What i managed to do is i found a code to reset contents of a dropdown list (data validation) when the first one is changed, then edited it so if i change 2nd dropdown, 3-4-5-6 resets, if i change 3rd, 4-5-6 resets and so on.

What i am trying to do is, since especially the last 3 (but i would like to have this for them all) usually contains only 1 option for dropdown, i want them to be selected automatically. so "if there is only 1 option show it" or "show the top/bottom/any option from the list" is exactly what i am looking for. can anyone help?


the code i used for clearing the consequent dropdown lists is;

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

  If Target.Address = "$G$6" Then
 Range("G7").ClearContents
 Range("G8").ClearContents
 Range("G9").ClearContents
 Range("G10").ClearContents
 Range("G11").ClearContents
 End If

 If Target.Address = "$G$7" Then
 Range("G8").ClearContents
 Range("G9").ClearContents
 Range("G10").ClearContents
 Range("G11").ClearContents
 End If

 If Target.Address = "$G$8" Then
 Range("G9").ClearContents
 Range("G10").ClearContents
 Range("G11").ClearContents
 End If


 If Target.Address = "$G$9" Then
 Range("G10").ClearContents
 Range("G11").ClearContents
 End If


 If Target.Address = "$G$10" Then
 Range("G11").ClearContents
 End If

End Sub
 

Excel Facts

How to calculate loan payments in Excel?
Use the PMT function: =PMT(5%/12,60,-25000) is for a $25,000 loan, 5% annual interest, 60 month loan.
Sort by date Sort by votes
A couple of suggestions. Firstly, your entire code above could be rewritten like this:

VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Not Intersect(Range("G6:G10"), Target) Is Nothing Then
        Application.EnableEvents = False
            Range(Target.Address, "G10").Offset(1).Resize(11 - Target.Row).ClearContents
        Application.EnableEvents = True
    End If
End Sub

However, if your intention is to immediately fill those cleared cells with the first value in their respective validation lists - why not just overwrite those cells with the top validation list value instead? If that is what you'd really prefer, then the code below should give you what you want. Please note that it is UNTESTED, because I don't have a copy of your "Internal_Page" sheet, so I don't know where those top cells are located. Therefore, try this with a copy of your workbook first.

The key is, under where it says: '*** This part is critical, you need to change the cell addresses (e.g. "B2" etc.) to whatever your actual cell locations are of the top cells of the validation lists on the Internal_Page worksheet. I have assumed that your intention is that if you change any cell in the range G6:G10 then the remaining cells under the changed cell in what's left of the range have their values changed to the top value of their respective validation lists. If that's not the case, let me know.

VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Not Intersect(Range("G6:G10"), Target) Is Nothing Then
        Application.EnableEvents = False
       
        Dim ws As Worksheet: Set ws = Worksheets("Internal_Page")
        '*** This part is critical - the cell addresses must be the first (top)
        '   cells of the respective data validation lists in correct order from
        '   G7 to G10 i.e. whatever the validation lists are for those cells.
        ArrIn = Array(ws.Range("B2").Value, ws.Range("C2").Value, ws.Range("D2").Value, _
        ws.Range("E2").Value, ws.Range("F2").Value)
       
        Dim items As Long, i As Long, j As Long
        items = 11 - Target.Row
        ReDim ArrOut(1 To items, 1 To 1)
       
        j = 5 - items
        For i = 1 To items
            ArrOut(i, 1) = ArrIn(j)
            j = j + 1
        Next i
       
        Range(Target.Address).Offset(1).Resize(items).Value = ArrOut
        Application.EnableEvents = True
    End If
End Sub
 
Upvote 0
kevin9999 said:
A couple of suggestions. Firstly, your entire code above could be rewritten like this:

VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Not Intersect(Range("G6:G10"), Target) Is Nothing Then
        Application.EnableEvents = False
            Range(Target.Address, "G10").Offset(1).Resize(11 - Target.Row).ClearContents
        Application.EnableEvents = True
    End If
End Sub

However, if your intention is to immediately fill those cleared cells with the first value in their respective validation lists - why not just overwrite those cells with the top validation list value instead? If that is what you'd really prefer, then the code below should give you what you want. Please note that it is UNTESTED, because I don't have a copy of your "Internal_Page" sheet, so I don't know where those top cells are located. Therefore, try this with a copy of your workbook first.

The key is, under where it says: '*** This part is critical, you need to change the cell addresses (e.g. "B2" etc.) to whatever your actual cell locations are of the top cells of the validation lists on the Internal_Page worksheet. I have assumed that your intention is that if you change any cell in the range G6:G10 then the remaining cells under the changed cell in what's left of the range have their values changed to the top value of their respective validation lists. If that's not the case, let me know.

VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Not Intersect(Range("G6:G10"), Target) Is Nothing Then
        Application.EnableEvents = False
      
        Dim ws As Worksheet: Set ws = Worksheets("Internal_Page")
        '*** This part is critical - the cell addresses must be the first (top)
        '   cells of the respective data validation lists in correct order from
        '   G7 to G10 i.e. whatever the validation lists are for those cells.
        ArrIn = Array(ws.Range("B2").Value, ws.Range("C2").Value, ws.Range("D2").Value, _
        ws.Range("E2").Value, ws.Range("F2").Value)
      
        Dim items As Long, i As Long, j As Long
        items = 11 - Target.Row
        ReDim ArrOut(1 To items, 1 To 1)
      
        j = 5 - items
        For i = 1 To items
            ArrOut(i, 1) = ArrIn(j)
            j = j + 1
        Next i
      
        Range(Target.Address).Offset(1).Resize(items).Value = ArrOut
        Application.EnableEvents = True
    End If
End Sub
Click to expand...


Thank you so much for the code. I am not used to getting whatever i ask :D But believe it wont be a habit.

I edited your code, to also include "G12" as one of the dropdowns to be changed, it works if it is empty that way but if i change it i receive an error.

Full code i edited into is;

VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Not Intersect(Range("G6:G11"), Target) Is Nothing Then
        Application.EnableEvents = False
       
        Dim ws As Worksheet: Set ws = Worksheets("Internal_Page")
        '*** This part is critical - the cell addresses must be the first (top)
        '   cells of the respective data validation lists in correct order from
        '   G7 to G10 i.e. whatever the validation lists are for those cells.
        ArrIn = Array(ws.Range("T39").Value, ws.Range("U39").Value, ws.Range("V39").Value, _
        ws.Range("W39").Value, ws.Range("X39").Value, ws.Range("Y39").Value)
       
        Dim items As Long, i As Long, j As Long
        items = 11 - Target.Row
        ReDim ArrOut(1 To items, 1 To 1)
       
        j = 6 - items
        For i = 1 To items
            ArrOut(i, 1) = ArrIn(j)
            j = j + 1
        Next i
       
        Range(Target.Address).Offset(1).Resize(items).Value = ArrOut
        Application.EnableEvents = True
    End If
End Sub

but if i use this code, change "G12" manually i receive an error "Run-time error '9': Subscript out of range" on line;

VBA Code: 
ReDim ArrOut(1 To items, 1 To 1)


i also played around the line
VBA Code: 
        j = 6 - items
but it didnt change anything really.

Also how can i make it change the next dropdown regardless if it is full or empty? i noticed that the lists i made with "=UNIQUE(A2#)" sometimes return with "0" instead of blank. I couldn't for the love of god fix it and even though if i manage to fix it, which i will, i figured that selecting the top menu item regardless is a better option.
 
Upvote 0
The problem you're having is (I believe) caused by the cell addresses you changed in your code. The way I read what your layout is, is that the 1st item for the data validation list relating to cell G7 on your Email sheet is in cell U39 on your Internal_Page sheet, and cell Z39 for your now added G12 cell? Bearing in mind that cell G6 on your Email sheet is irrelevant as far as this code goes insofar as it doesn't get changed (it's just the cells below it that gets changed). If that is the case, then the following amended code does work.

VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Not Intersect(Range("G6:G11"), Target) Is Nothing Then
        Application.EnableEvents = False
      
        Dim ws As Worksheet: Set ws = Worksheets("Internal_Page")
        ArrIn = Array(ws.Range("U39").Value, ws.Range("V39").Value, ws.Range("W39").Value, _
        ws.Range("X39").Value, ws.Range("Y39").Value, ws.Range("Z39").Value)
      
        Dim items As Long, i As Long, j As Long
        items = 12 - Target.Row
        ReDim ArrOut(1 To items, 1 To 1)
      
        j = 6 - items
        For i = 1 To items
            ArrOut(i, 1) = ArrIn(j)
            j = j + 1
        Next i
      
        Range(Target.Address).Offset(1).Resize(items).Value = ArrOut
        Application.EnableEvents = True
    End If
End Sub

As far as the second issue goes: i noticed that the lists i made with "=UNIQUE(A2#)" sometimes return with "0" instead of blank. - I don't fully understand what you mean. I tried running the above code with some zeroes (and blanks) at the top of the validation lists and it still ran fine. If this still persists as an issue, then I will need to get copies of both sheets using the XL2BB add in before I can assist further on that.
 
Last edited:
Upvote 0
Solution
kevin9999 said:
The problem you're having is (I believe) caused by the cell addresses you changed in your code. The way I read what your layout is, is that the 1st item for the data validation list relating to cell G7 on your Email sheet is in cell U39 on your Internal_Page sheet, and cell Z39 for your now added G12 cell? Bearing in mind that cell G6 on your Email sheet is irrelevant as far as this code goes insofar as it doesn't get changed (it's just the cells below it that gets changed). If that is the case, then the following amended code does work.

VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Not Intersect(Range("G6:G11"), Target) Is Nothing Then
        Application.EnableEvents = False
    
        Dim ws As Worksheet: Set ws = Worksheets("Internal_Page")
        ArrIn = Array(ws.Range("U39").Value, ws.Range("V39").Value, ws.Range("W39").Value, _
        ws.Range("X39").Value, ws.Range("Y39").Value, ws.Range("Z39").Value)
    
        Dim items As Long, i As Long, j As Long
        items = 12 - Target.Row
        ReDim ArrOut(1 To items, 1 To 1)
    
        j = 6 - items
        For i = 1 To items
            ArrOut(i, 1) = ArrIn(j)
            j = j + 1
        Next i
    
        Range(Target.Address).Offset(1).Resize(items).Value = ArrOut
        Application.EnableEvents = True
    End If
End Sub

As far as the second issue goes: i noticed that the lists i made with "=UNIQUE(A2#)" sometimes return with "0" instead of blank. - I don't fully understand what you mean. I tried running the above code with some zeroes (and blanks) at the top of the validation lists and it still ran fine. If this still persists as an issue, then I will need to get copies of both sheets using the XL2BB add in before I can assist further on that.
Click to expand...


again thank you for the reply. you can ignore the "unique" function returning 0 instead of blank, i am quite confident it is due to a format error.

the code you provided did work perfectly on my mock excel sheet, but when i try to make it work for my actual excel sheet it only updates next dropdown. but weird thing is even if i select dropdown1 it continues updating the next of what it already updated.

so basically, i select 1, it updates 2. i select 1 again, it updates 3 too now. i select 1 once more, it updates 4 now....

since it includes confidential data of my company, i am unable to upload it here but here is a mock version of it. (i can provide the full mock file if necessary) Regardless, your code works as it should and i can understand if you think you have already answered and dont feel the need to update/reply further

mock.xlsm
RSTUVWXYZAAABACADAE
35all these tables use "=Unique(filter(xxx,yyy,zzz=S39*qqq=S40)" like formulas to filter their actual data
36
37
38OneTwoThreeFourFiveSixSevenEightNineTenElevenTwelve
39One01item701item102item103item104item105item106item107item108item109item110item111item112item1
40Two02item101item202item203item204item205item206item207item208item209item210item211item212item2
41Three03item301item302item303item304item305item306item307item308item309item310item311item312item3
42Four04item601item402item403item404item405item406item407item408item409item410item411item412item4
43Five05item101item502item503item504item505item506item507item508item509item510item511item512item5
44Six06item101item602item603item604item605item606item607item608item609item610item611item612item6
45Seven07item101item702item703item704item705item706item707item708item709item710item711item712item7
4601item802item803item804item805item806item807item808item809item810item811item812item8
4701item902item903item904item905item906item907item908item909item910item911item912item9
48Eight002item403item404item405item406item407item408item409item410item411item412item4
49Nine02item503item504item505item506item507item508item509item510item511item512item5
50Ten02item203item204item205item206item207item208item209item210item211item212item2
5102item303item304item305item306item307item308item309item310item311item312item3
52Eleven
53
54Twelve
Internal_Page
Cell Formulas
RangeFormula
T39:T48T39=UNIQUE(MCP_Contacts[Column1])
S39:S44S39=Email!G6
S45S45=Z39
Dynamic array formulas.



mock.xlsm
FG
6One01item7
7Two02item1
8Three03item3
9Four04item6
10Five05item1
11Six06item1
1207item1
13
14
15
16Seven07item1
17
18
19Eight0
20Nine0
21Ten0
22
23Eleven0
24
25Twelve0
Email
Cell Formulas
RangeFormula
G16G16=Internal_Page!S45
G19:G21,G25,G23G19=Internal_Page!S49
Cells with Data Validation
CellAllowCriteria
G6List=Internal_Page!$T$39#
G7List=Internal_Page!$U$39:$U$51
G8List=Internal_Page!$V$39:$V$51
G9List=Internal_Page!$W$39:$W$47
G10List=Internal_Page!$X$39:$X$47
G11List=Internal_Page!$Y$39:$Y$47



mock.xlsm
ABCDEFGHIJKLMNO
1Column1Column2Column3Column4Column5Column6Column7Column8Column9Column10Column11Column12Column13Column14Column15
201item102item103item104item105item106item107item108item109item110item111item112item113item114item115item1
301item202item203item204item205item206item207item208item209item210item211item212item213item214item215item2
401item302item303item304item305item306item307item308item309item310item311item312item313item314item315item3
501item402item403item404item405item406item407item408item409item410item411item412item413item414item415item4
601item502item503item504item505item506item507item508item509item510item511item512item513item514item515item5
701item602item603item604item605item606item607item608item609item610item611item612item613item614item615item6
801item702item703item704item705item706item707item708item709item710item711item712item713item714item715item7
901item802item803item804item805item806item807item808item809item810item811item812item813item814item815item8
1001item902item903item904item905item906item907item908item909item910item911item912item913item914item915item9
1101item402item403item404item405item406item407item408item409item410item411item412item413item414item415item4
1201item502item503item504item505item506item507item508item509item510item511item512item513item514item515item5
1301item202item203item204item205item206item207item208item209item210item211item212item213item214item215item2
1401item302item303item304item305item306item307item308item309item310item311item312item313item314item315item3
15
MCP Contacts
 
Upvote 0
kevin9999 said:
The problem you're having is (I believe) caused by the cell addresses you changed in your code. The way I read what your layout is, is that the 1st item for the data validation list relating to cell G7 on your Email sheet is in cell U39 on your Internal_Page sheet, and cell Z39 for your now added G12 cell? Bearing in mind that cell G6 on your Email sheet is irrelevant as far as this code goes insofar as it doesn't get changed (it's just the cells below it that gets changed). If that is the case, then the following amended code does work.

VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Not Intersect(Range("G6:G11"), Target) Is Nothing Then
        Application.EnableEvents = False
     
        Dim ws As Worksheet: Set ws = Worksheets("Internal_Page")
        ArrIn = Array(ws.Range("U39").Value, ws.Range("V39").Value, ws.Range("W39").Value, _
        ws.Range("X39").Value, ws.Range("Y39").Value, ws.Range("Z39").Value)
     
        Dim items As Long, i As Long, j As Long
        items = 12 - Target.Row
        ReDim ArrOut(1 To items, 1 To 1)
     
        j = 6 - items
        For i = 1 To items
            ArrOut(i, 1) = ArrIn(j)
            j = j + 1
        Next i
     
        Range(Target.Address).Offset(1).Resize(items).Value = ArrOut
        Application.EnableEvents = True
    End If
End Sub

As far as the second issue goes: i noticed that the lists i made with "=UNIQUE(A2#)" sometimes return with "0" instead of blank. - I don't fully understand what you mean. I tried running the above code with some zeroes (and blanks) at the top of the validation lists and it still ran fine. If this still persists as an issue, then I will need to get copies of both sheets using the XL2BB add in before I can assist further on that.
Click to expand...


since it updates correctly if i select it multiple times, is it possible to make it run multiple times when i select one? so instead of doing it once, maybe do it 5 times for the first dropdown (so next 5 are updated), 4 times for the second one, 3 times..... vice versa?


p.s. items in "internal_page" are correctly updating but my code works like;

1- on "internal_page" sheet i create the list items by using unique function and targeting table
2- on "email" sheet, i use data validation and show the previous "unique" list as source and create the list
3- on "internal page" sheet i then refer the "email" sheet dropdown cell and use it as a reference point for filter
4- i use previously filtered unique list for data validation source for the next dropdown on "email" sheet
5- reference to that dropdown list again in "internal page" and then use it for the next list filter
6- repeat this for all the list

when i select the first dropdown, all the items (that can be updated with that much information) does update on "internal page" sheet but on "email" page where it should be updated also says "#CALC!" or show previous selection before update which breaks rest of the formula because that does not match with anything filterable. (am i making it worse by trying to explain? sorry about it :D) basically i have a table, i want to filter it on another sheet so it shows me the last 2 values of selected combination to prevent human errors (they are customer data, and by selection the agent, brand, brand code, brand category i want to see their address and email) best i could do was using dropdown lists, but for some reason on my work computer, they are not updating while on my personal computer they do...
 
Upvote 0
Thanks you for providing sample data using the XL2BB tool. I don't understand why it doesn't update all of the cells on the Email sheet whenever a change is made. When I made a mock-up using the information you provided, this is what I get in cells G7:G12 in the email sheet.

Example 1 before (and selecting/changing Cell G6
ares.xlsm
FG
6One01item3
7Two02item4
8Three03item3
9Four04item2
10Five05item4
11Six06item5
1207item7
Email
Cells with Data Validation
CellAllowCriteria
G6List=Internal_Page!$T$39#
G7List=Internal_Page!$U$39#
G8List=Internal_Page!$V$39#
G9List=Internal_Page!$W$39#
G10List=Internal_Page!$X$39#
G11List=Internal_Page!$Y$39#
G12List=Internal_Page!$Z$39#


After
ares.xlsm
FG
6One01item5
7Two02item1
8Three03item1
9Four04item1
10Five05item1
11Six06item1
1207item1
Email
Cells with Data Validation
CellAllowCriteria
G6List=Internal_Page!$T$39#
G7List=Internal_Page!$U$39#
G8List=Internal_Page!$V$39#
G9List=Internal_Page!$W$39#
G10List=Internal_Page!$X$39#
G11List=Internal_Page!$Y$39#
G12List=Internal_Page!$Z$39#


Example 2 before (and selecting/changing Cell G9)
ares.xlsm
FG
6One01item5
7Two02item3
8Three03item2
9Four04item4
10Five05item5
11Six06item6
1207item7
Email
Cells with Data Validation
CellAllowCriteria
G6List=Internal_Page!$T$39#
G7List=Internal_Page!$U$39#
G8List=Internal_Page!$V$39#
G9List=Internal_Page!$W$39#
G10List=Internal_Page!$X$39#
G11List=Internal_Page!$Y$39#
G12List=Internal_Page!$Z$39#


After
ares.xlsm
FG
6One01item5
7Two02item3
8Three03item2
9Four04item7
10Five05item1
11Six06item1
1207item1
Email
Cells with Data Validation
CellAllowCriteria
G6List=Internal_Page!$T$39#
G7List=Internal_Page!$U$39#
G8List=Internal_Page!$V$39#
G9List=Internal_Page!$W$39#
G10List=Internal_Page!$X$39#
G11List=Internal_Page!$Y$39#
G12List=Internal_Page!$Z$39#


So unfortunately I don't think I can be of any further help, because I can't reproduce the issue you're having.
Best wishes :)
 
Upvote 0
kevin9999 said:
Thanks you for providing sample data using the XL2BB tool. I don't understand why it doesn't update all of the cells on the Email sheet whenever a change is made. When I made a mock-up using the information you provided, this is what I get in cells G7:G12 in the email sheet.

Example 1 before (and selecting/changing Cell G6
ares.xlsm
FG
6One01item3
7Two02item4
8Three03item3
9Four04item2
10Five05item4
11Six06item5
1207item7
Email
Cells with Data Validation
CellAllowCriteria
G6List=Internal_Page!$T$39#
G7List=Internal_Page!$U$39#
G8List=Internal_Page!$V$39#
G9List=Internal_Page!$W$39#
G10List=Internal_Page!$X$39#
G11List=Internal_Page!$Y$39#
G12List=Internal_Page!$Z$39#


After
ares.xlsm
FG
6One01item5
7Two02item1
8Three03item1
9Four04item1
10Five05item1
11Six06item1
1207item1
Email
Cells with Data Validation
CellAllowCriteria
G6List=Internal_Page!$T$39#
G7List=Internal_Page!$U$39#
G8List=Internal_Page!$V$39#
G9List=Internal_Page!$W$39#
G10List=Internal_Page!$X$39#
G11List=Internal_Page!$Y$39#
G12List=Internal_Page!$Z$39#


Example 2 before (and selecting/changing Cell G9)
ares.xlsm
FG
6One01item5
7Two02item3
8Three03item2
9Four04item4
10Five05item5
11Six06item6
1207item7
Email
Cells with Data Validation
CellAllowCriteria
G6List=Internal_Page!$T$39#
G7List=Internal_Page!$U$39#
G8List=Internal_Page!$V$39#
G9List=Internal_Page!$W$39#
G10List=Internal_Page!$X$39#
G11List=Internal_Page!$Y$39#
G12List=Internal_Page!$Z$39#


After
ares.xlsm
FG
6One01item5
7Two02item3
8Three03item2
9Four04item7
10Five05item1
11Six06item1
1207item1
Email
Cells with Data Validation
CellAllowCriteria
G6List=Internal_Page!$T$39#
G7List=Internal_Page!$U$39#
G8List=Internal_Page!$V$39#
G9List=Internal_Page!$W$39#
G10List=Internal_Page!$X$39#
G11List=Internal_Page!$Y$39#
G12List=Internal_Page!$Z$39#


So unfortunately I don't think I can be of any further help, because I can't reproduce the issue you're having.
Best wishes :)
Click to expand...


thank you, you have been more helpful thank you can imagine. today i am going to check if there are any codes i failed to clear or forgot. since i can also make your code work 100% on my pc, i am almost sure i screwed it up somewhere :D
 
Upvote 0
You must log in or register to reply here.

Similar threads

U
  • Solved
Newbie Seeking Help with Ranges, Loops, and Select
2 3
Replies
27
Views
328
USNA91
U
S
  • Question
New record from multi sheets to one sheet
Replies
0
Views
200
spmatrix
S
C
  • Question
Print from database
Replies
0
Views
118
Charlreena
C
S
  • Question
Copy DropDown List Data into a New Workbook with Power Query
Replies
2
Views
99
ScottTemple
S
J
  • Question
Applying VBA to other cells
Replies
2
Views
162
NoSparks
N

Forum statistics

Threads
1,214,653
Messages
6,120,750
Members
448,989
Latest member
mariah3

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