Sort/filter formula used for search formula combobox issue with shorter named values, Formula help for search combobox

Greenbehindthecells · Aug 3, 2023

Hello everyone,

I hope you are well. I have a combobox that is not allowing the selection of a shorter, similarly named but different value... For my purposes, my combobox needs to search for 'ABC' practice... however, possibly due to the generic names of my other practices (ABC GI, ABC Neph, ABC Card, etc) and the formula I used (sort/filter), the combobox does not allow the selection of 'ABC' practice (my sort\filter formula will return the result of all of ABC practices despite any clicking in the combobox of just 'ABC' practice). The formula works for all other practices with longer more distinct value/names (ABC GI, ABC Neph, ABC Card, etc) with no issues.

While I see that this is an issue with the formula in my List tab used to sort/filter the search, I cant figure out a better formula to use for this purpose to get the result in my combobox that when 'ABC' is entered, and it 'ABC' is selected as confirmation, it will populate 'ABC'. I can't change the values/names (for example adding a =char(185) to make the practice names unique because in my real data, I have hundreds of providers for a generic practice name like this for specific locations.

I recreated the original workbook with the settings & VBA I used from various tutorials and added to my post. My data sheet was too large for mini excel so I added a shortened version and a screenshot, hoping to give an idea of the data that should be populated in the combobox. Any assistance would be greatly appreciated. Thank you for your time.

Screenshot of combobox not working with 'ABC' practice name:

Combobox working with all other longer names/values:

Data sheet:

Combobox.xlsm

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

1

GROUP NAME

TAX ID (TAB REPORT)

NPI

PRINT NAME

ADDRESS3

ADDRESS1

ADDRESS2

CITY

STATE

ZIP

COUNTY

PHONE

FAX (TAB REP MATCH)

LANG CONSOL

HOURS CONSOL

PCP

2

ABC

999999999

1E+10

NIEVES, JESUS, DO

11 BROADWAY, STE 11

11 BROADWAY

STE 11

WILMINGTON

DE

19801

NEW CASTLE (F)

(999) 999-9991

(999) 999-9992

GREEK, MANDARIN

MON: 8:00AM TO 5PM, TUES: 8:00AM TO 5PM, WED: 8:00AM TO 5PM, THURS: 8:00AM TO 5PM, FRI: 8:00AM TO 5PM, SAT: CLOSED, SUN: CLOSED

y

3

ABC PEDS

999999999

1E+10

SMITH, JOHN, DO

11 BROADWAY, STE 22

11 BROADWAY

STE 22

WILMINGTON

DE

19801

NEW CASTLE (F)

(999) 999-9993

(999) 999-9994

Not on file

n

4

ABC GI

999999999

1E+10

CARTER, CARTER, DO

10 BROADWAY, STE 11

10 BROADWAY

STE 11

WILMINGTON

DE

19801

NEW CASTLE (F)

(999) 999-9995

(999) 999-9996

SPANISH

MON: 8:00AM TO 5PM, TUES: 8:00AM TO 5PM, WED: 8:00AM TO 5PM, THURS: 8:00AM TO 5PM, FRI: 8:00AM TO 5PM, SAT: CLOSED, SUN: CLOSED

n

5

ABC CARD

999999999

1E+10

SHIN, XE, DO

10 BROADWAY, STE 22

10 BROADWAY

STE 22

WILMINGTON

DE

19801

NEW CASTLE (F)

(999) 999-9997

(999) 999-9998

RUSSIAN

MON: 8:00AM TO 5PM, TUES: 8:00AM TO 5PM, WED: 8:00AM TO 5PM, THURS: 8:00AM TO 5PM, FRI: 8:00AM TO 5PM, SAT: 8:00AM TO 5PM, SUN: CLOSED

n

6

ABC NEPH

999999999

1E+10

OHNSON, LISA, DO

9 BROADWAY, STE 1

9 BROADWAY

STE 1

WILMINGTON

DE

19801

NEW CASTLE (F)

(999) 999-9999

(999) 999-9910

POLISH, PORTEGUESE

MON: 8:00AM TO 5PM, TUES: 8:00AM TO 5PM, WED: 8:00AM TO 5PM, THURS: CLOSED, FRI: 8:00AM TO 5PM, SAT: 8:00AM TO 5PM, SUN: CLOSED

n

7

BBC

888888888

1E+10

WILLIAMS, MICHAEL, MD

11 BROADWAY, STE 1

11 BROADWAY

STE 1

WILMINGTON

DE

19801

NEW CASTLE (F)

(110) 000-0001

(999) 999-9930

TELUGO

Not on file

y

8

BBC PEDS

888888888

1E+10

JONES, SARAH, DO

11 BROADWAY, STE 2

11 BROADWAY

STE 2

WILMINGTON

DE

19801

NEW CASTLE (F)

(110) 000-0002

(999) 999-9914

HAITIAN

Not on file

n

9

BBC GI

888888888

1E+10

BROWN, ROBERT, MD

10 BROADWAY, STE 3

10 BROADWAY

STE 3

WILMINGTON

DE

19801

NEW CASTLE (F)

(110) 000-0003

(999) 999-9898

DUTCH

MON: 8:00AM TO 5PM, TUES: 8:00AM TO 5PM, WED: 8:00AM TO 5PM, THURS: 8:00AM TO 5PM, FRI: 8:00AM TO 5PM, SAT: CLOSED, SUN: CLOSED

n

10

BBC CARD

888888888

1E+10

DAVIS, MARY, DO

10 BROADWAY, STE 4

10 BROADWAY

STE 4

WILMINGTON

DE

19801

NEW CASTLE (F)

(110) 000-0004

(999) 999-9882

GREEK, MANDARIN

MON: 8:00AM TO 5PM, TUES: 8:00AM TO 5PM, WED: 8:00AM TO 5PM, THURS: 8:00AM TO 5PM, FRI: 8:00AM TO 5PM, SAT: 8:00AM TO 5PM, SUN: CLOSED

n

11

BBC NEPH

888888888

1E+10

MILLER, JAMES, MD

9 BROADWAY, STE 5

9 BROADWAY

STE 5

WILMINGTON

DE

19801

NEW CASTLE (F)

(110) 000-0005

(999) 999-9866

Not on file

MON: 8:00AM TO 5PM, TUES: 8:00AM TO 5PM, WED: 8:00AM TO 5PM, THURS: CLOSED, FRI: 8:00AM TO 5PM, SAT: 8:00AM TO 5PM, SUN: CLOSED

n

12

CBC

777777777

1E+10

WILSON, JENNIFER, MD

22 BROADWAY, STE 101

22 BROADWAY

STE 101

WILMINGTON

DE

19801

NEW CASTLE (F)

(110) 000-0006

(999) 999-9862

SPANISH

Not on file

y

13

CBC PEDS

777777777

1E+10

MOORE, DAVID, DO

22 BROADWAY, STE 102

22 BROADWAY

STE 102

WILMINGTON

DE

19801

NEW CASTLE (F)

(110) 000-0007

(999) 999-9851

RUSSIAN

Not on file

n

14

CBC GI

777777777

1E+10

TAYLOR, LINDA, MD

33 BROADWAY, STE 3

33 BROADWAY

STE 3

WILMINGTON

DE

19801

NEW CASTLE (F)

(110) 000-0008

(999) 999-9840

POLISH, PORTEGUESE

MON: 8:00AM TO 5PM, TUES: 8:00AM TO 5PM, WED: 8:00AM TO 5PM, THURS: 8:00AM TO 5PM, FRI: 8:00AM TO 5PM, SAT: CLOSED, SUN: CLOSED

n

15

CBC CARD

777777777

1E+10

ANDERSON, MARK, MD

44 BROADWAY, STE 96

44 BROADWAY

STE 96

WILMINGTON

DE

19801

NEW CASTLE (F)

(110) 000-0009

(999) 999-9829

TELUGO

MON: 8:00AM TO 5PM, TUES: 8:00AM TO 5PM, WED: 8:00AM TO 5PM, THURS: 8:00AM TO 5PM, FRI: 8:00AM TO 5PM, SAT: 8:00AM TO 5PM, SUN: CLOSED

n

16

CBC NEPH

777777777

1E+10

THOMAS, ELIZABETH, DO

55 BROADWAY, STE 195

55 BROADWAY

STE 195

WILMINGTON

DE

19801

NEW CASTLE (F)

(110) 000-0010

(999) 999-9819

HAITIAN

MON: 8:00AM TO 5PM, TUES: 8:00AM TO 5PM, WED: 8:00AM TO 5PM, THURS: CLOSED, FRI: 8:00AM TO 5PM, SAT: 8:00AM TO 5PM, SUN: CLOSED

n

17

DBC

666666666

1E+10

JACKSON, CHARLES, MD

33 BROADWAY, STE 11

33 BROADWAY

STE 11

WILMINGTON

DE

19801

NEW CASTLE (F)

(110) 000-0011

(999) 999-9808

DUTCH

Not on file

y

18

DBC PEDS

666666666

1E+10

WHITE, MARIA, MD

33 BROADWAY, STE 12

33 BROADWAY

STE 12

WILMINGTON

DE

19801

NEW CASTLE (F)

(110) 000-0012

(999) 999-9797

GREEK, MANDARIN

Not on file

n

19

DBC GI

666666666

1E+10

HARRIS, MATTHEW, DO

33 BROADWAY, STE 3

33 BROADWAY

STE 3

WILMINGTON

DE

19801

NEW CASTLE (F)

(110) 000-0013

(999) 999-9786

Not on file

MON: 8:00AM TO 5PM, TUES: 8:00AM TO 5PM, WED: 8:00AM TO 5PM, THURS: 8:00AM TO 5PM, FRI: 8:00AM TO 5PM, SAT: CLOSED, SUN: CLOSED

n

20

DBC CARD

666666666

1E+10

MARTIN, SUSAN, MD

33 BROADWAY, STE 6

33 BROADWAY

STE 6

WILMINGTON

DE

19801

NEW CASTLE (F)

(110) 000-0014

(999) 999-9775

SPANISH

MON: 8:00AM TO 5PM, TUES: 8:00AM TO 5PM, WED: 8:00AM TO 5PM, THURS: 8:00AM TO 5PM, FRI: 8:00AM TO 5PM, SAT: 8:00AM TO 5PM, SUN: CLOSED

n

21

DBC NEPH

666666666

1E+10

THOMPSON, PAUL, MD

33 BROADWAY, STE 15

33 BROADWAY

STE 15

WILMINGTON

DE

19801

NEW CASTLE (F)

(110) 000-0015

(999) 999-9764

RUSSIAN

MON: 8:00AM TO 5PM, TUES: 8:00AM TO 5PM, WED: 8:00AM TO 5PM, THURS: CLOSED, FRI: 8:00AM TO 5PM, SAT: 8:00AM TO 5PM, SUN: CLOSED

n

DD SS NN FF Main

Cell Formulas
Range	Formula
N2:N21	N2	=IF(AND([@LANG1]=0,[@LANG2]=0,[@LANG3]=0,[@LANG4]=0,[@LANG5]=0,[@LANG6]=0),"Not on file",TEXTJOIN(", ",TRUE,NewPract[@[LANG1]:[LANG6]]))
O2:O21	O2	=IF(AND( [@MON]=0,[@TUE]=0,[@WED]=0,[@THUR]=0,[@FRI]=0,[@SAT]=0,[@SUN]=0), "Not on file",TEXTJOIN(", ",TRUE,"MON: "&[@MON], "TUES: "&[@TUE],"WED: "&[@WED],"THURS: "&[@THUR],"FRI: "&[@FRI],"SAT: "&[@SAT], "SUN: "&[@SUN]))
E2:E21	E2	=TEXTJOIN(", ",TRUE,[@ADDRESS1],[@ADDRESS2])

VBA code used for combobox:
Private sub Tempbox 4_change ()
Tempbox 4.listfillrange = "Dropdown1"
Me.Tempbox4.Dropdown
End Sub

List sheet with search formula linked to d2/Combobox in Practice Search v2 sheet:

Combobox.xlsm

A

B

C

D

E

F

G

H

I

J

1

Response

Pratices

Searchable

2

Yes

ABC

3

No

ABC PEDS

ABC CARD

4

Unkown

ABC GI

5

ABC CARD

ABC NEPH

6

ABC NEPH

ABC PEDS

7

BBC

8

BBC PEDS

9

BBC GI

10

PCPPaps

BBC CARD

11

Yes

BBC NEPH

12

No

CBC

13

Unkown

CBC PEDS

14

Specific Provider Only

CBC GI

15

CBC CARD

16

CBC NEPH

17

DBC

18

DBC PEDS

19

DBC GI

20

DBC CARD

21

DBC NEPH

22

23

24

25

List

Cell Formulas
Range	Formula
E2:E6	E2	=SORT(FILTER(Practices6[#Data],ISNUMBER(SEARCH('Practice Details V2'!$D$2,Practices6[#Data])),"Not found"))
Dynamic array formulas.

Practice Details V2 (Combobox) sheet

Combobox.xlsm

A

B

C

D

E

F

I

J

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

1

Contact

Hours

2

abc

formula from other sheet

MON: 8:00AM TO 5PM, TUES: 8:00AM TO 5PM, WED: 8:00AM TO 5PM, THURS: 8:00AM TO 5PM, FRI: 8:00AM TO 5PM, SAT: CLOSED, SUN: CLOSED

3

4

5

6

Tax

NPI

Prov

Addresses

City

State

Phone

Fax

7

make a selection

make selection in field

County Health Dept

8

formula from other sheet

9

10

11

12

13

14

Misc Notes

15

formula from other sheet

16

17

18

19

P?

POC?

20

formula from other sheet

21

22

23

24

Languages

Acron

25

make Selection in field

Make selection field

26

27

28

29

30

31

32

33

Practice Details V2

Cell Formulas
Range	Formula
N2	N2	=IFERROR(INDEX(NewPract[#Data],MATCH($D$2,NewPract[GROUP NAME],0),15)," ")
B7	B7	=IFERROR(FILTER(UNIQUE(IF(FILTER(NewPract[TAX ID (TAB REPORT)],EXACT(NewPract[GROUP NAME],$D$2))=0,"No Data",FILTER(NewPract[TAX ID (TAB REPORT)],EXACT(NewPract[GROUP NAME],$D$2)))),UNIQUE(IF(FILTER(NewPract[TAX ID (TAB REPORT)],EXACT(NewPract[GROUP NAME],$D$2))=0,"No Data",FILTER(NewPract[TAX ID (TAB REPORT)],EXACT(NewPract[GROUP NAME],$D$2))))<>""),"make a selection")
C7	C7	=IFERROR(UNIQUE(IF(FILTER(NewPract[NPI],EXACT(NewPract[GROUP NAME],$D$2))=0,"no data available",FILTER(NewPract[[NPI]:[PRINT NAME]],EXACT(NewPract[GROUP NAME],$D$2)))),"make selection in field")
F7	F7	=IFERROR(UNIQUE(IF(FILTER(NewPract[ADDRESS3],EXACT(NewPract[GROUP NAME],$D$2))=0,"No data avialable",FILTER(NewPract[[ADDRESS3]:[FAX (TAB REP MATCH)]],EXACT(NewPract[GROUP NAME],$D$2)))),"make selection in field")
P25	P25	=FILTER(IFERROR(UNIQUE(IF(FILTER(NewPract[LANG CONSOL],EXACT(NewPract[GROUP NAME],$D$2))=0,"not on file",FILTER(NewPract[LANG CONSOL],EXACT(NewPract[GROUP NAME],$D$2)))),"make Selection in field"),IFERROR(UNIQUE(IF(FILTER(NewPract[LANG CONSOL],EXACT(NewPract[GROUP NAME],$D$2))=0,"not on file",FILTER(NewPract[LANG CONSOL],EXACT(NewPract[GROUP NAME],$D$2)))),"make Selection in field")<>"")
R25	R25	=IFERROR(UNIQUE(IF(FILTER(NewPract[LOB],EXACT(NewPract[GROUP NAME],$D$2))=0,"No data availabe",FILTER(NewPract[LOB],EXACT(NewPract[GROUP NAME],$D$2)))),"Make selection field")

Combobox properties:

Greenbehindthecells · Aug 4, 2023

I used an xlookup formula instead...=XLOOKUP('Practice Details V2'!$D$2,Practices6[Pratices],Practices6[Pratices],"Not found",0) ... while this narrows down the search the combobox refuses to recognize the selection. So I would like to ammend my previous cry (there are tears) for help, becuase it appears that it is the combobox that is rejecting the shortened practice names.

Akuini · Aug 4, 2023

@Greenbehindthecells
I'm not familiar with searchable combobox using formula, but here's an example with VBA:

VBA Code:

Option Explicit
Dim nFlag As Boolean
Dim vList

'Adjust the code in this part:
'   vList = Sheets("deList").Range("A2", Sheets("deList").Cells(Rows.Count, "A").End(xlUp)).Value
'   Range("A3") = .Value  'send combobox1 value to cell A3

Sub create_List()
Dim d As Object, i As Long

With ComboBox1
    vList = Sheets("deList").Range("A2", Sheets("deList").Cells(Rows.Count, "A").End(xlUp)).Value 'adjust the range reference
    Set d = CreateObject("scripting.dictionary")
    For i = LBound(vList) To UBound(vList)
          d(vList(i, 1)) = 1
    Next
       ComboBox1.List = d.keys
End With
End Sub

Private Sub ComboBox1_GotFocus()
With ComboBox1
    .MatchEntry = fmMatchEntryNone
    .Value = ""
    '.ListRows = 10 'to show how many item
End With
Call create_List
End Sub

Private Sub ComboBox1_DropButtonClick()
    If IsEmpty(vList) Then create_List
End Sub

Private Sub ComboBox1_Change()
Dim d As Object, i As Long
With ComboBox1
    If IsEmpty(vList) Then create_List
    If nFlag = False Then
            If .Value <> "" Then
                Set d = CreateObject("scripting.dictionary")
                For i = LBound(vList) To UBound(vList)
                    If LCase(vList(i, 1)) Like "*" & Replace(LCase(.Value), " ", "*") & "*" Then
                      d(vList(i, 1)) = 1
                    End If
                Next
                   .List = d.keys
                   .DropDown
            End If
    End If
End With

End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
nFlag = False
With ComboBox1
    Select Case KeyCode
        Case 13 'ENTER
             If .ListIndex > -1 Then
                Range("A3") = .Value  'send combobox1 value to cell A3  'adjust the cell reference
             Else
                MsgBox "Found nothing"
             End If
       
        Case vbKeyDown, vbKeyUp
             nFlag = True 'don't change the list when combobox1 value is changed by DOWN ARROW or UP ARROW key
    End Select
End With
End Sub

Private Sub ComboBox1_LostFocus()
    vList = Empty
    ComboBox1.Clear
End Sub

deCombobox - sheet - search as you type - nFlag - 1

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

Akuini · Aug 4, 2023

Greenbehindthecells said:
For my purposes, my combobox needs to search for 'ABC' practice... however, possibly due to the generic names of my other practices (ABC GI, ABC Neph, ABC Card, etc) and the formula I used (sort/filter), the combobox does not allow the selection of 'ABC' practice (my sort\filter formula will return the result of all of ABC practices despite any clicking in the combobox of just 'ABC' practice). The formula works for all other practices with longer more distinct value/names (ABC GI, ABC Neph, ABC Card, etc) with no issues.

Sorry, I might have misunderstood your issue. I thought it was about a searchable combobox. So, forget about my code in post #3.
Did you mean that when you select ABC in the combobox, the value in the linked cell (D2) doesn't get updated?
Try this:
Add this code:

VBA Code:

Private Sub Tempbox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With Tempbox4
    Select Case KeyCode
         Case 13 'ENTER
             If .ListIndex > -1 Then
                Range("D2") = .Value  'send combobox value to cell D2  'adjust the cell reference
             Else
                MsgBox "Found nothing"
             End If

     End Select
End With
End Sub

Basically, if D2 is not updated, you need to hit Enter to send the value from combobox to D2.

If the above code doesn't work then try this one:

VBA Code:

Private Sub Tempbox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With Tempbox4
    Select Case KeyCode
        Case 13 'ENTER
                Range("D2") = .Value  'send combobox1 value to cell D2  'adjust the cell reference
     End Select
End With
End Sub

Greenbehindthecells · Aug 7, 2023

Akuini said:
Sorry, I might have misunderstood your issue. I thought it was about a searchable combobox. So, forget about my code in post #3.
Did you mean that when you select ABC in the combobox, the value in the linked cell (D2) doesn't get updated?
Try this:
Add this code:

VBA Code:

Private Sub Tempbox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) With Tempbox4 Select Case KeyCode Case 13 'ENTER If .ListIndex > -1 Then Range("D2") = .Value 'send combobox value to cell D2 'adjust the cell reference Else MsgBox "Found nothing" End If End Select End With End Sub

Basically, if D2 is not updated, you need to hit Enter to send the value from combobox to D2.

If the above code doesn't work then try this one:

VBA Code:

Private Sub Tempbox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) With Tempbox4 Select Case KeyCode Case 13 'ENTER Range("D2") = .Value 'send combobox1 value to cell D2 'adjust the cell reference End Select End With End Sub

Good morning,

I thank you very much for your replies! Both VBA codes work to push the selection; however, the new codes do not allow the searchable portions of this combobox to work. With the code I had (from a tutorial, I know next to nothing about code, so I apologize if there is a simple solution to have both happening at once) and the settings (also from many tutorials) I was able to have suggestions populate depending on what was typed ( my named range "Dropdown1" pulling from List!E2# in this screenshot) with that code but then it refused to accept the shorter names as a selection. I tried to add my old code to your code... I really don't know how to incorporate that code so that your code works together? Thank you very much for your expertise, I have much grattide for your time and willingness to assist strangers on a forum. If you had the time, may I ask how I could also have the instruction to correctly add vba code for using my 'Dropdown1' named range searchable option with your wonderful code?

Tempbox 4.listfillrange = "Dropdown1"
Me.Tempbox4.Dropdown

Tempbox 4.listfillrange = "Dropdown1"
Me.Tempbox4.Dropdown

Greenbehindthecells · Aug 7, 2023

Greenbehindthecells said:
Good morning,

I thank you very much for your replies! Both VBA codes work to push the selection; however, the new codes do not allow the searchable portions of this combobox to work. With the code I had (from a tutorial, I know next to nothing about code, so I apologize if there is a simple solution to have both happening at once) and the settings (also from many tutorials) I was able to have suggestions populate depending on what was typed ( my named range "Dropdown1" pulling from List!E2# in this screenshot) with that code but then it refused to accept the shorter names as a selection. I tried to add my old code to your code... I really don't know how to incorporate that code so that your code works together? Thank you very much for your expertise, I have much grattide for your time and willingness to assist strangers on a forum. If you had the time, may I ask how I could also have the instruction to correctly add vba code for using my 'Dropdown1' named range searchable option with your wonderful code?

Tempbox 4.listfillrange = "Dropdown1"
Me.Tempbox4.Dropdown

View attachment 96695
Tempbox 4.listfillrange = "Dropdown1"
Me.Tempbox4.Dropdown

Akuini said:
Sorry, I might have misunderstood your issue. I thought it was about a searchable combobox. So, forget about my code in post #3.
Did you mean that when you select ABC in the combobox, the value in the linked cell (D2) doesn't get updated?
Try this:
Add this code:

VBA Code:

Private Sub Tempbox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) With Tempbox4 Select Case KeyCode Case 13 'ENTER If .ListIndex > -1 Then Range("D2") = .Value 'send combobox value to cell D2 'adjust the cell reference Else MsgBox "Found nothing" End If End Select End With End Sub

Basically, if D2 is not updated, you need to hit Enter to send the value from combobox to D2.

If the above code doesn't work then try this one:

VBA Code:

Private Sub Tempbox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) With Tempbox4 Select Case KeyCode Case 13 'ENTER Range("D2") = .Value 'send combobox1 value to cell D2 'adjust the cell reference End Select End With End Sub

Good morning,

I thank you very much for your replies and your time! Both VBA codes work to push the selection... I have been playing (alright, I have been frankenstiening the old code with your new (wonderful!) code and I think I figured out 1. I have no idea what I am doing, 2. If I dont know what I am doing, I should stop. Spoiler alert, I did not stop. I even rewrote my reply asking for (more) help a million times over and did not send until the very last moment. Then I sent my reply... and just copied and pasted the old code above your code. It created a line in between and it works together.

My brain told me that it could not be as easy as adding them both together (cue the chagrin). I read 'add the code' as add it in between the code I already had.

I am so grateful to you and your help and your code. I appreciate your time and expertise. Thank you so very much!

Akuini · Aug 7, 2023

You're welcome, glad to help & thanks for the feedback.

Sort/filter formula used for search formula combobox issue with shorter named values, Formula help for search combobox

Greenbehindthecells

Board Regular

Excel Facts

Greenbehindthecells

Board Regular

Akuini

Well-known Member

deCombobox - sheet - search as you type - nFlag - 1

Akuini

Well-known Member

Greenbehindthecells

Board Regular

Greenbehindthecells

Board Regular

Akuini

Well-known Member

Similar threads

Forum statistics

Share this page

Sort/filter formula used for search formula combobox issue with shorter named values, Formula help for search combobox

Board Regular

Excel Facts

Board Regular

Well-known Member

Well-known Member

Board Regular

Board Regular

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock