Hej!
För att lösa detta behöver du ett makro.
*** Enklaste lösningen med knappar ***
Den enklaste lösningen är att lägga till en knapp för varje sidval, men gör det först när du har gjort ett makro för flytt. Börja alltså med att ställa dig på menysidan, starta inspelning av ett makro och ge den ett lämpligt namn, t.ex. FlyttTillSida1. Därefter flyttar du till önskad cell i sidan och avslutar inspelningen av makrot.
Testa att makrot fungerar.
Om makrot fungerar så lägger du till en knapp och kopplar den till makrot du just gjorde. Det finns två typer av knappar. Välj den översta i menyn.
*** Mer komplicerad lösning ***
Om du har så många val att knappar inte är aktuella så kan du göra din rullgardin. Välj rullgardinen "Kombinationsruta" under ActiveX kontrollerna i menyn. Fyll rullgardinen med val genom att först på valfri plats i arket eller i annat ark skapa en lista i ett antal celler. Högerklicka därefter på rullgardingen och välj egenskaper. Leta upp egenskapen ListFillRange och fyll där i t.ex. M14:M16 om din lista finns i M14 - M16 i samma ark eller Blad5!M14:M16 om listan finns i M14-M16 i Blad5. Leta även upp egenskapen Value och skriv där "Välj önskad sida".
Nu är förmodligen designläge aktiverat i fliken Utvecklare. I så fall ser du inte värdena i rullgardinen. Klicka i så fall på knappen designläge för att gå ur designläge. Nu skall du se listan i rullgardinen.
Återgå till designläge genom att klicka på knappen designläge.
Dubbelklicka därefter på rullgardinen och du får se en VBA kod som körs när någon ändrat värde i rullgardinen.
Du kan då skriva kod för varje val du har i listan. Om din combobox heter ComboBox1 och dina val är Sida2 och Sida3 kan du skriva
Private Sub ComboBox1_Change()
If ComboBox1.Value = "Sida2" Then
Blad2.Activate
ElseIf ComboBox1.Value = "Sida3" Then
Blad3.Activate
End If
End Sub
Skriv alltså först en rad med bara if och därefter önskat antal rader med ElseIf och avsluta det hela med en enda End Sub.
Lycka till!
Kihlman