Avatar billede joge39 Nybegynder
24. april 2006 - 20:15 Der er 2 kommentarer

Knap til ark afhængig af indtastning

Hvordan får jeg makro til at gå til det ark jeg vælger?

Jeg ville kunne taste navn på ark ind i celle, eksempelvis "3" og nøjes med én makro frem for at have en makro per (200) ark.

Sheets("3").Select

Sheets(????).Select

Tak
Avatar billede kabbak Professor
24. april 2006 - 21:34 #1
Public Sub SkiftArk()
Sheets(ActiveCell).Activate
End Sub
Avatar billede bak Forsker
24. april 2006 - 21:44 #2
Hvis det fx er B1 du ønsker at indtaste i

Sub test()
  On Error GoTo Fejlfanger
  Application.Goto Sheets(Range("B1").Text).Range("A1"), True
  Exit Sub
Fejlfanger:
  MsgBox "Arket findes ikke", vbCritical
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester