Copy manually (Ctrl + C) COMBOBOX

[ZTK]

I ask for your valuable knowledge, I have a drop-down list macro that they supported me right here in the forum, it is almost perfect for my needs, the fact is that I need to copy the content of the cell of the text applied by the COMBOBOX that contains it manually (CTRL + C) to another file or document.

The detail is that when selecting the COMBOBOX cell, it makes Dropdown automatically and does not allow copying ...

Is there a way to avoid this? For example, the list is displayed ONLY IF THE UP or DOWN ARROW KEY IS PRESSED?

I hope you understand me.

Thanks in advance



Attached file for reference

EJEMPLO.xlsm

Shared with Dropbox

www.dropbox.com

EJEMPLO.xlsm

00 list 1,list 2,list3 AGUSTIN,AINHOA,ROBERTO

docs.google.com

 

[rlv01]

If you want to switch to down-arrow functionality to activate the combo box, something like this might be workable.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ComboBox1.Visible = True Then ComboBox1.Visible = False

    If isValid(Target.Offset(-1)) Then   'dn arrow approximation
        vList = Empty
        On Error GoTo skip

        Target.Offset(-1).Activate
        Set xRange = Evaluate(ActiveCell.Validation.Formula1)
        Call toShowCombobox
    End If
    Exit Sub
skip:
    If ComboBox1.Visible = True Then ComboBox1.Visible = False
End Sub

 

[ZTK]

If you want to switch to down-arrow functionality to activate the combo box, something like this might be workable.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ComboBox1.Visible = True Then ComboBox1.Visible = False

    If isValid(Target.Offset(-1)) Then   'dn arrow approximation
        vList = Empty
        On Error GoTo skip

        Target.Offset(-1).Activate
        Set xRange = Evaluate(ActiveCell.Validation.Formula1)
        Call toShowCombobox
    End If
    Exit Sub
skip:
    If ComboBox1.Visible = True Then ComboBox1.Visible = False
End Sub

It seems to work excellent

One last favor, can this option be combined so that the combobox is also activated when the search is done in it? that begins to show the list with the words that are coinciding?

 

[rlv01]

Sorry, I don't have any ideas for that.

 

[ZTK]

Sorry, I don't have any ideas for that.

Don't worry, it will be a matter of adapting

Another query: when adding more cells with COMBOBOX below the ones that already exist, only the top list remains selected, the bottom ones do not have the same function

Can it be solved so that the other lists below also work the same?

Thank you again

 

[Akuini]

Is there a way to avoid this? For example, the list is displayed ONLY IF THE UP or DOWN ARROW KEY IS PRESSED?

Here's an example, but I'm using ALT+Right to activate the combobox.
To change the shortcut key, change the value in this part:
In module1:
'shortcut key to show the combobox:
Public Const xdvKey As String = "%{RIGHT}"

Read sheet INFO on how to apply the code on your workbook.
Sample workbook:

COMBOBOX+DAVAL-searchable,dict+arraylist,ON-KEY,formula, no limit-3

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

and applied on your workbook:

EJEMPLO - 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

 

[ZTK]

Here's an example, but I'm using ALT+Right to activate the combobox.
To change the shortcut key, change the value in this part:
In module1:
'shortcut key to show the combobox:
Public Const xdvKey As String = "%{RIGHT}"

Read sheet INFO on how to apply the code on your workbook.
Sample workbook:

COMBOBOX+DAVAL-searchable,dict+arraylist,ON-KEY,formula, no limit-3

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

and applied on your workbook:

EJEMPLO - 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

Thank you very much for the help

I will make the change in my file

 

[ZTK]

Here's an example, but I'm using ALT+Right to activate the combobox.
To change the shortcut key, change the value in this part:
In module1:
'shortcut key to show the combobox:
Public Const xdvKey As String = "%{RIGHT}"

Read sheet INFO on how to apply the code on your workbook.
Sample workbook:

COMBOBOX+DAVAL-searchable,dict+arraylist,ON-KEY,formula, no limit-3

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

and applied on your workbook:

EJEMPLO - 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

Good day; again causing discomfort (I hope it is the last).

I realize that the macro doesn't work if I add a new sheet with any name (other than 00).

I already tried to modify the part of the code with something like "Activesheet" but I can't get it to work.

Could you support me again @Akuini ?

Thank you again in advance for your help

 

[Akuini]

I realize that the macro doesn't work if I add a new sheet with any name (other than 00).

Do you mean you want to apply the searchable combobox in multiple sheets?
Can you upload your workbook?
In the code you need to adjust variable shN according to the new sheet name, in this part:
'=============== ADJUST THE CODE IN THIS PART: ===================================

'this sheet's name (sheet where the data validation is located). [in the sample: sheet "Sheet1"]
Private Const shN As String = "00"

Note:
Another way:
I created an add-in called “Search deList”, and I shared it as a freeware, and also the code is not protected so you can check it & amend it as needed.
Its function is to speed up searching in data validation list. In any cell that has data validation (with List type) pressing ALT+RIGHT will open a Userform with a combobox. You can type multiple keywords (separated by a space) in the combobox and the list will be narrowed down as you type.
You can use up-down arrow to select an item, then hit ENTER, the selected item will be inserted into the cell, and the Userform will be closed.
And also you don't need vba.
I posted the add-in in this thread: LINK

OR

If you don't want to install the add-in, there's another option, which is using vba. See in this thread: LINK

 

[ZTK]

Do you mean you want to apply the searchable combobox in multiple sheets?
Can you upload your workbook?
In the code you need to adjust variable shN according to the new sheet name, in this part:
'=============== ADJUST THE CODE IN THIS PART: ===================================

'this sheet's name (sheet where the data validation is located). [in the sample: sheet "Sheet1"]
Private Const shN As String = "00"

Note:
Another way:
I created an add-in called “Search deList”, and I shared it as a freeware, and also the code is not protected so you can check it & amend it as needed.
Its function is to speed up searching in data validation list. In any cell that has data validation (with List type) pressing ALT+RIGHT will open a Userform with a combobox. You can type multiple keywords (separated by a space) in the combobox and the list will be narrowed down as you type.
You can use up-down arrow to select an item, then hit ENTER, the selected item will be inserted into the cell, and the Userform will be closed.
And also you don't need vba.
I posted the add-in in this thread: LINK

OR

If you don't want to install the add-in, there's another option, which is using vba. See in this thread: LINK

Like always, thank you...

Due to the workload, I have not been able to check the modification in detail.

The detail of my file is that sheets with random names are added daily, that is why the macro that I have as the final one does not work very well.

Is there a way that it doesn't matter the name of the sheet and still does exactly what is already in the code?

And anyway, since I use the format in my work, we are not allowed to install the add-on it shared (which would be a good solution)