clauspou Novice
12. september 2017 - 15:21 Der er 12 kommentarer og
1 løsning

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 Ekspert
13. september 2017 - 07:56 #2
Ja, jeg har heller ingen problemer...
Dan Elgaard Ekspert
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 Ekspert
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 Ekspert
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 Ekspert
13. september 2017 - 13:11 #7
Yep, see that now :-)
clauspou Novice
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 Ekspert
13. september 2017 - 20:06 #9
Kan du ikke bare tildele den genvejskombination til makroen???
clauspou Novice
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 Ekspert
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 Novice
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 Ekspert
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
Interneteksperternes mareridt er gået i opfyldelse: EU godkender omstridt direktiv, der "ødelægger internettet for altid"
EU's lovgivende udvalg har godkendt nye copyright-regler, som indeholder to kontroversielle paragraffer. Eksperter advarer imod, at artikel 11 og 13 kan ødelægge internettet for altid. Reglerne mangler stadig at blive endeligt vedtaget.
CIO
Henrik Jeberg om at arbejde i Silicon Valley: "Er du dygtig nok får du tilbud der får en til at falde ned af stolen."
Henrik Jeberg bor i San Francisco og er direktør i Hampleton Partners, der rådgiver om opkøb med særligt fokus på teknologi. Hør ham fortælle om forskellen på Danmark og Silicon Valley - og om nogle af de vilde forhold der hersker i verdens ubestridte tech-hovedstad.
Job & Karriere
KMD opsagde tryghedsaftaler med medarbejderne få måneder før 300 medarbejdere blev outsourcet til IBM
KMD har i løbet af foråret opsagt to såkaldte tryghedsaftaler med en del af selskabets medarbejdere. Når aftalerne stopper ved udgangen af 2018, er de pågældende medarbejdere ikke længere berettiget til særlig godtgørelse. Det kan få konsekvenser, hvis IBM som forventet skærer i antallet af de 300 KMD-medarbejdere, som selskabet overtager.