Auto-populate cell if data validation list has only one option

J

jruddat

New Member
Joined
Mar 14, 2024
Messages
3
Office Version
  1. 365
Platform
  1. Windows
Hi all,
I have a series of drop-down lists created via data validation which pull from a separate sheet of dynamic lists that are driven by a series of rules. In other words, my sheet consists of a series of conditional drop-down lists, each one affecting the available options in the lists that come after it.

In order to best explain my issue I am going to describe two scenarios.
Lets say the first drop-down list allows the user to select from a series of hardware types (cabinet knobs, drawer pulls, robe hooks, etc.). The next drop-down lists allows the user to select from a list of hardware mounting options (through-bolted, surface-mounted, or back-to-back).

Scenario 1:
The user selects drawer pulls from the first drop-down list. The second drop-down allows the user to select either through-bolted, surface-mounted, or back-to-back as an option.
Scenario 1.jpg


Scenario 2:
The user selects cabinet knobs for the first drop-down list. In this case the second drop-down list only allows them to select through-bolted as an option since the hardware company only sells through-bolted cabinet knobs.
Scenario 2.jpg


My dilemma is this: I want to retain the ability for the user to select either through-bolted, surface-mounted, or back-to-back in the first scenario, but at the same time I want this same cell to be automatically populated with "through-bolted" given the second scenario so that the user does not have to go through the action of selecting "through-bolted" from a list that has only one option anyway. There are many scenarios where a proceeding drop-down list will end up having only one option based on what was selected for preceding drop-down lists and I want to make the number of button clicks necessary for the user as low as possible.

Any ideas or is this even possible?

Thanks,
Jack
 

Excel Facts

Create a chart in one keystroke
Select the data and press Alt+F1 to insert a default chart. You can change the default chart to any chart type
Sort by date Sort by votes
Describe your layout. Do you have these pulldowns in many rows or just one location. A Macro would have to run after Hardware Type pulldown has changed. The macro would check for the number of items in the Mounting Style and change that cell appropriately. I would need cell addresses or named ranges.
 
Upvote 0
Jeffrey Mahoney said:
Describe your layout. Do you have these pulldowns in many rows or just one location. A Macro would have to run after Hardware Type pulldown has changed. The macro would check for the number of items in the Mounting Style and change that cell appropriately. I would need cell addresses or named ranges.
Click to expand...
Each pull-down is in it's own row. All pulls-downs exist under one column.
Each of these pull-downs take their data from dynamic lists in another sheet. If I am understanding you correctly, for a given pull-down, all I would need is a macro to check if the list it pulls from has just one value? In such a case, the macro would enter data into that cell, correct?
 
Upvote 0
I realize this is going to be more than what you asked for and a little complicated. It works real well

On Shee1 below, there is a dynamic filter for Mounting Types. Choose a Hardware Type in Column C and the filter in Column will provide only the Mounting types for that. The macro below will detect a change in column C and set the Mounting Type value in Column D if there is only one Mounting Type list for that Hardware. Column C uses HardwareFilter in the data validation. Column D uses =G2# in the data validation. The Hardware Table must have one row per Hardware Type/Mounting Type combo.

Let me know if you have questions

Sheet 1 has the data validation and a mounting filter per row
Book45a 20240313.xlsm
CDEFGHI
1HardwareColMountingColMountingFltrCol
2Cabinet KnobThrough-boltedSurface-mounted
3Closet HookBack-to-BackBack-to-Back
4Drawer PullThrough-boltedThrough-bolted
5Robe HookSurface-mountedSurface-mounted
Sheet1
Cell Formulas
RangeFormula
G2:H2,G3:G5G2=TRANSPOSE(FILTER(MountingStyle,HardwareType=Sheet1!C2,""))
Dynamic array formulas.
Named Ranges
NameRefers ToCells
HardwareCol=Sheet1!$C$2:$C$74G2
HardwareTbl=Sheet2!$L$3:$M$7G2:G5
HardwareType=Sheet2!$L$3:$L$7G2:G5
MountingStyle=Sheet2!$M$3:$M$7G2:G5
Cells with Data Validation
CellAllowCriteria
C2:C22List=HardwareFilter#
D2:D26List=G2#




Sheet2 has the Hardware Types, Mounting Styles for each and a filter of unique Hardware Types
Book45a 20240313.xlsm
JKLM
2Hardware FilterHardware TypeMounting Style
3Cabinet KnobCabinet KnobThrough-bolted
4Closet HookCabinet KnobSurface-mounted
5Drawer PullDrawer PullThrough-bolted
6Robe HookRobe HookSurface-mounted
7Closet HookBack-to-Back
Sheet2
Cell Formulas
RangeFormula
J3:J6J3=SORT(UNIQUE(HardwareType))
Dynamic array formulas.
Named Ranges
NameRefers ToCells
HardwareTbl=Sheet2!$L$3:$M$7J3
HardwareType=Sheet2!$L$3:$L$7J3



VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Range
  Dim FltrCel As Range
  
  Set i = Intersect(Range("HardwareCol"), Target)
  If Not i Is Nothing Then
    If i.Count > 1 Then Exit Sub
    If i.Value = "" Then Exit Sub
    Set FltrCel = Intersect(i.EntireRow, Range("MountingFltrCol"))
    If Application.CountA(Range(FltrCel, FltrCel.Offset(0, 100))) = 1 Then
      Application.EnableEvents = False
      Intersect(i.EntireRow, Range("MountingCol")).Value = FltrCel.Value
      Application.EnableEvents = True
    End If
  End If
  
    
End Sub
 
Upvote 0
Solution
On Sheet1 column G (Mounting FltrCol) can be pushed over to the right or the columns could be hidden
 
Upvote 0
The Xl2bb tool didn't get the named ranges for the MountingCol and MountingFltrCol which are D2:D47 and G2:G47 respectively.
 
Upvote 0
Jeffrey Mahoney said:
I realize this is going to be more than what you asked for and a little complicated. It works real well

On Shee1 below, there is a dynamic filter for Mounting Types. Choose a Hardware Type in Column C and the filter in Column will provide only the Mounting types for that. The macro below will detect a change in column C and set the Mounting Type value in Column D if there is only one Mounting Type list for that Hardware. Column C uses HardwareFilter in the data validation. Column D uses =G2# in the data validation. The Hardware Table must have one row per Hardware Type/Mounting Type combo.

Let me know if you have questions

Sheet 1 has the data validation and a mounting filter per row
Book45a 20240313.xlsm
CDEFGHI
1HardwareColMountingColMountingFltrCol
2Cabinet KnobThrough-boltedSurface-mounted
3Closet HookBack-to-BackBack-to-Back
4Drawer PullThrough-boltedThrough-bolted
5Robe HookSurface-mountedSurface-mounted
Sheet1
Cell Formulas
RangeFormula
G2:H2,G3:G5G2=TRANSPOSE(FILTER(MountingStyle,HardwareType=Sheet1!C2,""))
Dynamic array formulas.
Named Ranges
NameRefers ToCells
HardwareCol=Sheet1!$C$2:$C$74G2
HardwareTbl=Sheet2!$L$3:$M$7G2:G5
HardwareType=Sheet2!$L$3:$L$7G2:G5
MountingStyle=Sheet2!$M$3:$M$7G2:G5
Cells with Data Validation
CellAllowCriteria
C2:C22List=HardwareFilter#
D2:D26List=G2#




Sheet2 has the Hardware Types, Mounting Styles for each and a filter of unique Hardware Types
Book45a 20240313.xlsm
JKLM
2Hardware FilterHardware TypeMounting Style
3Cabinet KnobCabinet KnobThrough-bolted
4Closet HookCabinet KnobSurface-mounted
5Drawer PullDrawer PullThrough-bolted
6Robe HookRobe HookSurface-mounted
7Closet HookBack-to-Back
Sheet2
Cell Formulas
RangeFormula
J3:J6J3=SORT(UNIQUE(HardwareType))
Dynamic array formulas.
Named Ranges
NameRefers ToCells
HardwareTbl=Sheet2!$L$3:$M$7J3
HardwareType=Sheet2!$L$3:$L$7J3



VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Range
  Dim FltrCel As Range
 
  Set i = Intersect(Range("HardwareCol"), Target)
  If Not i Is Nothing Then
    If i.Count > 1 Then Exit Sub
    If i.Value = "" Then Exit Sub
    Set FltrCel = Intersect(i.EntireRow, Range("MountingFltrCol"))
    If Application.CountA(Range(FltrCel, FltrCel.Offset(0, 100))) = 1 Then
      Application.EnableEvents = False
      Intersect(i.EntireRow, Range("MountingCol")).Value = FltrCel.Value
      Application.EnableEvents = True
    End If
  End If
 
   
End Sub
Click to expand...

This is great, thank you for the help Jeffrey!
 
Upvote 0
You are welcome. Remember the VBA code needs to be put in a SHEET module under the sheet name that has the choices for Hardware and Mounting
 
Upvote 0
You must log in or register to reply here.

Similar threads

D
  • Question Question
Can a Data Validation List be auto filtered by reference to a cell content?
Replies
1
Views
152
Joe4
Joe4
R
  • Question Question
Add to Data Validation Values From Data Entry Cell
Replies
4
Views
151
kvsrinivasamurthy
K
A
  • Solved
Filter formula based on drop down BUT with an option for all data
Replies
7
Views
286
myall_blues
myall_blues
C
  • Question Question
Protecting a Cell but allowing data validation drop down list to work
Replies
1
Views
414
Artik
Artik
T
  • Question Question
Multiple Data Validations on one sheet that trigger different actions
Replies
2
Views
400
thoerl
T

Forum statistics

Threads
1,223,869
Messages
6,175,087
Members
452,611
Latest member
bls2024

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