clauspou Praktikant
12. september 2017 - 15:21 Der er 13 kommentarer

Kan ikke navigere

Hej
Jeg har lavet denne lille VBA-kode, men når boksen kommer frem, kan jeg ikke navigere i den.
Sub Vis_alle_ark()
'
' Makro1 Makro
' Vis alle ark
'
' Genvejstast:Ctrl+i
'
    x = ActiveWorkbook.Sheets.Count
    If x > 16 Then
        Application.CommandBars("Workbook Tabs").Controls("Flere ark...").Execute
    Else
        Application.CommandBars("Workbook Tabs").ShowPopup
    End If

End Sub


Nogen bud?
Jan Hansen Ekspert
12. september 2017 - 18:37 #1
Prøv i et nyt projekt, her fungerer det fint.
Dan Elgaard Professor
13. september 2017 - 07:56 #2
Ja, jeg har heller ingen problemer...
Dan Elgaard Professor
13. september 2017 - 08:13 #3
Oh, en lille detalje, der måske kan være problemet: Hvis du har et eller flere ark, der er skjutle, så virker...

Application.CommandBars("Workbook Tabs").Controls(16).Execute

...ikke...

Så skal du bruge:

Application.CommandBars("Workbook Tabs").ShowPopup
Dan Elgaard Professor
13. september 2017 - 13:01 #4
Sub Vis_alle_ark()
     
      Dim WS As Worksheet
      Dim Counter As Long

      For Each WS In ActiveWorkbook.Worksheets
            If WS.Visible <> xlSheetVisible Then Counter = Counter + 1
      Next

      If ActiveWorkbook.Sheets.Count > 16 And Counter = 0 Then
            Application.CommandBars("Workbook Tabs").Controls(16).Execute
      Else
            Application.CommandBars("Workbook Tabs").ShowPopup
      End If

      Set WS = Nothing

End Sub
Dan Elgaard Professor
13. september 2017 - 13:02 #5
Hvorfor forsvandt mine indrykninger?!?

Nåh, koden er ikke så indviklet, så mon ikke du kan gennemskue den alligevel :-)
Jan Hansen Ekspert
13. september 2017 - 13:06 #6
Opdater skærm og de kommer igen, er kun når man lige har sendt indrykninger forsvinder.

Jan
Dan Elgaard Professor
13. september 2017 - 13:11 #7
Yep, see that now :-)
clauspou Praktikant
13. september 2017 - 19:46 #8
Hmmm. Det virker sådan set - men ikke, når jeg bruger genvejstasten (Ctrl+i). Og det vil jeg jo gerne, for det vil jo gøre det hurtigere at navigere i projektmappen.
Dan Elgaard Professor
13. september 2017 - 20:06 #9
Kan du ikke bare tildele den genvejskombination til makroen???
clauspou Praktikant
13. september 2017 - 20:31 #10
Har jeg forsøgt, men det virker ikke. Boksen kommer fint frem, men jeg kan ikke navigere. Hvis jeg kører makroen uden brug af genvejstast, virker det,  som det skal.
Dan Elgaard Professor
14. september 2017 - 08:15 #11
Hmmm.... underligt...
Jeg har lige forsøgt, at tildele markoen genvejstasten [CTRL] + [i] her hos mig selv, og der virker det uden problemer...
...jeg kan fint benytte pile tasterne til at navigere op og ned i listen...
...så, det kan jeg ikke lige svare på - det må være noget hos dig selv, for makroen virker.
clauspou Praktikant
22. september 2017 - 15:31 #12
Hej
Det er også min oplevelse, at jeg aktivere via genvejstasten og med piletasterne navigere op og ned mellem de forskellige ark, men jeg kan ikke vælge et af arkene. Kan du det?
Dan Elgaard Professor
22. september 2017 - 15:42 #13
Yep - har lige testet igen...

jeg benytter pile tasterne til at vælge et ark, og når jeg har markeret et ark, så trykker jeg [Enter] og arket bliver valgt.
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

Opret Preview

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





Computerworld
Så nemt er det at fuppe sig til 80.000 kroner: Her er læren af den seneste MobilePay-svindel
ComputerViews:En tidligere chefredaktør på Computerworld blev for nylig svindlet for 80.000 kroner via MobilePay. Men det betyder ikke, at systemet er usikkert.
CIO
Dansk it-afdeling med 140 ansatte vil væk fra 'brændende platform'
Landbrugsstyrelsens it-afdeling, der nærmer sig 140 medarbejdere, har en klar mission: “Jeg håber, at vi hurtigst muligt er ude af den brændende platform, hvor it er den begrænsende faktor,” lyder det fra underdirektør.
Comon
Ugens tip: Find ud af hvem der ringer til dig med Facebook og MobilePay
Hvis du bliver ringet op af et nummer, du ikke kender, kan du lynhurtigt bruge en af to smarte tricks til at finde ud af, hvem de er - også selv om nummeret er beskyttet
Job & Karriere
Dansk it-virksomhed indførte fire-dages arbejdsuge: I dag er sygefraværet rekord-lavt og direktøren har tabt sig 13 kilo
Interview: Great Place To Work kategori-vinderen IIH Nordic har indført en fire-dages arbejdsuge og taget et opgør med forstyrrende storrums-kontorer og en frustrerende mailkultur. I dag er medarbejderne gladere end nogensinde før.
White paper
Mobility - her er de aktuelle udfordringer
Hvad med sikkerheden? Mobility-bølgen fejer igennem danske virksomheder, og der er masser af muligheder og faldgruber. Sikkerheden halter, men det kan der gøres noget ved. Produceret af Computerworld.dk i oktober 2014.