Excel User Form with Combo box

[mmue]

Hello everyone,

I try to create user form and one part i have is combobox wit customer IDs within it. What I want to do is ACTIVATE the correct sheet renamed into IDs, after I make a choice. e.g if i choose ID 10002 I wanna activate sheet 10002.

can you please help on this

thanks and regards

 

[Sahak]

hi Mmue,

Try this

Private Sub ComboBox1_Change()
    Dim id As String
    id = ComboBox1.Value
    Sheets(id).Select
End Sub

 

[Domenic]

Maybe...

[font=Verdana][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] ComboBox1_Change()
    [color=darkblue]Dim[/color] sh [color=darkblue]As[/color] [color=darkblue]Object[/color]
    [color=darkblue]With[/color] Me.ComboBox1
        [color=darkblue]If[/color] .Text <> "" [color=darkblue]Then[/color]
            [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] [color=darkblue]Next[/color]
            [color=darkblue]Set[/color] sh = Sheets(.Text)
            [color=darkblue]If[/color] sh [color=darkblue]Is[/color] [color=darkblue]Nothing[/color] [color=darkblue]Then[/color]
                [color=darkblue]Exit[/color] [color=darkblue]Sub[/color]
            [color=darkblue]Else[/color]
                Sheets(.Text).Activate
            [color=darkblue]End[/color] [color=darkblue]If[/color]
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/font]