Return to combobox after running marco

[KlausW]

Hi, anyone who can help. I use a combobox to search and find items. I transfer them with a VBA code, when I run it the combobox is emptied as it should be. Now I would like the cursor to be in the combobox after the VBA code has been run. Some who can help.

Sincerely Klaus W

Sub GoToCell() Worksheets("Prisliste").Range("R4").Select Than Sub

 

[igold]

You did not say where the Combobox was located. For ComboBox1:

'For a Form try
Me.ComboBox1.SetFocus

'For a Worksheet try
ActiveSheet.ComboBox1.Activate

 

[KlausW]

Hi igold
The combobox is located in the sheet Prisliste.
Is that, what you mean?

 

[igold]

Yes. Try the second line of the posted code.

Worksheets("Prisliste").ComboBox1.Activate

 

[KlausW]

I am sorry but it still not return to the Combobox.

Sub GoToCell()

'For a Form try
Me.ComboBox1.SetFocus

'For a Worksheet try

Worksheets("Prisliste").ComboBox1.Activate

End Sub

 

[igold]

It worked on my test sheet with a ComboBox named ComboBox1. What is the name of your Combobox?

 

[KlausW]

It worked on my test sheet with a ComboBox named ComboBox1. What is the name of your Combobox?

ComboBox1

 

[KlausW]

Hi igold it's works thanks allot

 

[igold]

You're welcome. Thanks for the feedback.

 

[KlausW]

I I just have to remove this line
Me.ComboBox1.SetFocus
Thanks