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





Premium
Hjalp virksomheder Atea med at klage over omstridt udbud i Region Sjælland? Forsvarer udpeger Ib Kunøe som fællesnævner
Der indløb klager fra flere it-selskaber, da Region Sjælland i 2015 udpegede 3A-it som vinder af et stort it-udbud foran næsen af Atea. Det pudsige er, at klagerne var næsten ens. Forsvarer i Atea-sagen peger på et interessant sammenfald - Ib Kunøe.
Computerworld
Fona-ejer skal betale million-beløb tilbage: Hævede 22 millioner kroner lige inden krak
Fona-ejeren Elkjøp Nordic trak uretmæssigt 22 millioner kroner ud af selskabet lige inden salget af den kendte kæde gik ned med flaget.
CIO
Her er tre vigtige spørgsmål, som du altid bør stille til sælgere af it-systemer
Klumme: Softwareudviklere elsker at hade sælgere, der generelt er lidt for glatte, lidt for smilende, lidt for hjertelige og også dygtige til at undvige eller parere, når man fagligt argumenterer for sine forbehold overfor det system, man lige har fået præsenteret og lynhurtigt har spottet ikke vil fungere.
Job & Karriere
Regeringen vil gøre it-undervisning obligatorisk i folkeskolen: "Planen er, at alle danske børn skal lære at kode," siger undervisningsministeren
Interview: Regeringen indfører obligatorisk undervisning i it i folkeskolen på alle klassetrin og præsenterer fredag ny plan. Ny forsøgsordning i op til 50 skoler skal bane vejen. “Visionen for planen er, at alle danske børn skal lære at kode,” siger undervisningsminister Merete Riisager (LA).
White paper
Står din infrastruktur i vejen for virksomhedens udvikling? … her er de 10 vigtigste overvejelser
Oplever du, at din virksomheds it-infrastruktur er en stopklods for udviklingen af forretningen, digitalisering og konkurrencekraft? Måske er svaret hyperkonvergeret infrastruktur, hvor software og hardware smelter sammen i én konkurrencedygtig enhed, som er nem at administrere. Men der er 10 meget vigtige overvejelser at gøre sig, før man vælger en løsning. Læs dette whitepaper fra Lenovo og bliv klædt bedre på til at vælge rigtigt. 10 Key Considerations for Selecting Hyper-Converged Infrastructure - What to Know Before You Choose a Solution, Lenovo, 18 sider på engelsk.