Add Sheets to ComboBox

Solved/Closed

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

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
2007 microsoft office add-in microsoft save as pdf or xps - Download - Other
How to add songs to sound picker - Guide
How to add @ in laptop - Guide
Sheets right to left - Guide
Add messenger to home screen - Guide

1 response

Answer 1 / 1

BashirYazbik Posts 58 Registration date Monday November 9, 2015 Status Member Last seen December 6, 2015 14
Nov 22, 2015 at 12:08 AM

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 September 5, 2015 Status Member Last seen March 8, 2017 1
Nov 22, 2015 at 08:11 AM

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 September 5, 2015 Status Member Last seen March 8, 2017
Nov 22, 2015 at 04:19 PM

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
Nov 23, 2015 at 06:59 PM

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 September 5, 2015 Status Member Last seen March 8, 2017 1
Nov 24, 2015 at 07:07 AM

Hi
Great RayH
How could I Thank You
Marvelous Job

Similar discussions

Ig stories from close friends to public

Similar discussions

Subscribe To Our Newsletter!