Add Sheets to ComboBox

Solved/Closed

smuneeb Posts 67 Registration date Saturday 5 September 2015 Status Member Last seen 8 March 2017 - 21 Nov 2015 à 09:30
smuneeb Posts 67 Registration date Saturday 5 September 2015 Status Member Last seen 8 March 2017 - 24 Nov 2015 à 07:07

Hello,

Hi
I would like to know that how to add sheets (which are exist in active workbook) in ComboBox used in Userform.

Thanks

Add Sheets to ComboBox
Google sheets download - Download - Spreadsheets
Microsoft save as pdf or xps add-in - Download - Other
How to add at the rate in laptop - Guide
How to add authorized user t mobile - Guide
Vba add sheet - Guide

1 response

Réponse 1 / 1

BashirYazbik Posts 58 Registration date Monday 9 November 2015 Status Member Last seen 6 December 2015 14
22 Nov 2015 à 00:08

Smuneeb,

Let's say we have in column A1 to A5
A1 = 1
A2 = 2
A3 = 3
A4 = 4
A5 = 5

- Right click your combobox and choose "Format Control".
- Click on the "Input Range" field.
- Click cell A1 and drag all the way to A5.

That's it. Click on the combobox and you have all the values in it.

smuneeb Posts 67 Registration date Saturday 5 September 2015 Status Member Last seen 8 March 2017 1
22 Nov 2015 à 08:11

Hi
this is ok but I have requested that ComboBox shows no of sheets which is existed in workbook. Please do it in UserForm.
Thanks

Rayh > smuneeb Posts 67 Registration date Saturday 5 September 2015 Status Member Last seen 8 March 2017
22 Nov 2015 à 16:19

Either of these should do what you need.

Private Sub UserForm_Initialize()
ComboBox1.List = Array("Red", "Green", "Yellow", "Blue")
End Sub

Private Sub UserForm_Initialize()
With ComboBox1
    .Clear
    .AddItem "Red"
    .AddItem "Green"
    .AddItem "Yellow"
    .AddItem "Blue"
End With
End Sub

Private Sub UserForm_Initialize()
With ComboBox1
    .Clear
    .AddItem "Red"
    .AddItem "Green"
    .AddItem "Yellow"
    .AddItem "Blue"
End With
End Sub

RayH > Rayh
23 Nov 2015 à 18:59

Or this???

Private Sub userform_Initialize()
ComboBox1.Clear

For n = 1 To Worksheets.Count
    ComboBox1.AddItem Worksheets(n).Name
Next n

End Sub

smuneeb Posts 67 Registration date Saturday 5 September 2015 Status Member Last seen 8 March 2017 1
24 Nov 2015 à 07:07

Hi
Great RayH
How could I Thank You
Marvelous Job

Similar discussions

Ig stories from close friends to public

How to add a contact on WhatsApp

How to add Facebook messenger into my website

Similar discussions

Subscribe To Our Newsletter!