I need help create a searchable drop down without repetition

TLS49

Board Regular
Joined
Nov 26, 2019
Messages
132
Office Version
  1. 365
Platform
  1. Windows

Attachments

  • GREEN HIGHLIGHT AREA IS A DROP DOWN LIST.jpg
    GREEN HIGHLIGHT AREA IS A DROP DOWN LIST.jpg
    149.9 KB · Views: 19
  • SEARCHABLE TEAMS.jpg
    SEARCHABLE TEAMS.jpg
    58.4 KB · Views: 17
here picture I need help with combine 2 selection into one drop down list
 

Attachments

  • SEARCHABLE TEAMS 2.jpg
    SEARCHABLE TEAMS 2.jpg
    192.4 KB · Views: 4
Upvote 0

Excel Facts

Links? Where??
If Excel says you have links but you can't find them, go to Formulas, Name Manager. Look for old links to dead workbooks & delete.
DOWNLOAD NEWER UPDATED FILE HERE


It have two worksheets They are are called NO REPETITION DROP DOWN & SEARCHABLE DROP DOWN. I want to combine both work into one drop down list them put it into worksheet called BYE WEEKS in all green areas. Please tell me how you combine both worksheets please
 
Upvote 0
here update picture
 

Attachments

  • NO REPETITION DROP DOWN AND SEARCHABLE DROP DOWN WITH TEXT ON PICTURE 2.jpg
    NO REPETITION DROP DOWN AND SEARCHABLE DROP DOWN WITH TEXT ON PICTURE 2.jpg
    153.5 KB · Views: 7
Upvote 0
VBA Code:
How to delete a specific value in a list using VBA
view sourceprint?
'Name macro
Sub RemoveValue()
 
'Dimension variables and declare data types
Dim i As Single
Dim Cell As Range
 
'Save row number of last non-empty cell in column H to variable i
i = Worksheets("Sheet1").Range("H" & Rows.Count).End(xlUp).Row
 
'Assign the first non-empty cell to object Cell
Set Cell = Worksheets("Sheet1").Range("H" & i)
 
'Repeat everything between Do and Loop until row of object Cell is equal to 2
Do Until Cell.Row = 2
 
    'Check if object cell is equal to value in cell E3 and is not empty
    If Worksheets("Sheet1").Range("E3") = Cell And Cell <> "" Then
 
        'Delete cell
        Cell.Delete Shift:=xlUp
 
        'Clear cell E3
        Worksheets("Sheet1").Range("E3") = ""
 
        'Stop macro
        Exit Sub
    End If
 
    'Save object reference 1 row below current object to variable Cell
    Set Cell = Cell.Offset(-1, 0)
Loop
 
'Show a message box telling the user that the value cant be found in the list
MsgBox "Can´t find value: " & Worksheets("Sheet1").Range("E3")
 
End Sub

Add or remove a value in a drop down list programmatically
 
Upvote 0
Hi, TLS49
Another option:
You can use a single combobox that is applied to multiple cells (without data validation).
Here's an example (please read post #2 & #15 in this thread):
LINK
If you're interested in this method I think I can amend the code to meet your requirements.
 
Upvote 0
Cross posted without links.
Please provide all relevant links.
 
Upvote 0

Forum statistics

Threads
1,213,563
Messages
6,114,332
Members
448,566
Latest member
Nickdozaj

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