clauspou Praktikant
12. september 2017 - 15:21 Der er 11 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 Guru
12. september 2017 - 18:37 #1
Prøv i et nyt projekt, her fungerer det fint.
Dan Elgaard Seniormester
13. september 2017 - 07:56 #2
Ja, jeg har heller ingen problemer...
Dan Elgaard Seniormester
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 Seniormester
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 Seniormester
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 Guru
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 Seniormester
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 Seniormester
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 Seniormester
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.
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
De 30 største danske it-virksomheder: Her er antallet af ansatte - og hvor mange penge, der bruges på løn
Top 100: Computerworld har nærstuderet årsregnskaberne fra 499 danske it- og televirksomheder og kan her bringe listen med de 30 største arbejdspladser. Se antallet af ansatte og få et indblik i, hvor mange penge virksomhederne bruger på løn til medarbejderne.
CIO
Du risikerer at blive hægtet helt af, hvis ikke dit netværk bliver fremtidssikret - og det haster
Klumme: Hver dag går mere 168,1 petabyte gennem netværket hos AT&T, hvilket svarer til 130 millioner timers video i HD. Det viser, hvor store krav der i dag stilles til en virksomheds netværk. Er du klar til det?
Comon
Oversigt: Her er de bedste Android-smartphones der kan købes i Danmark
Det vrimler med spændende Android-smartphones på markedet. Vi har samlet en oversigt over de bedste Android-telefoner, du kan købe herhjemme netop nu.
Job & Karriere
Se listen: Disse it-folk bliver ansat på stedet - cheferne skriger efter helt bestemte it-kompetencer
Der er en markant mangel på it-folk med helt bestemte kompetencer samtidig med, at it-cheferne er i gang med at øge bemandingen i it-organisationerne. Se listen med de mest efterspurgte it-kompetencer netop nu.
White paper
Undersøgelse: Digital succes kræver opgør med statisk it-infrastruktur - men det er ikke uden problemer
Det digitale kapløb er i fuld sving i erhvervslivet, og mange toneangivende virksomheder søger den nødvendige fleksibilitet ved at skifte til tredieparts-datacentre og hybrid cloud-infrastruktur. Det viser en stor undersøgelse blandt 752 europæiske virksomheder, som analysehuset IDC har foretaget for Interxion. Men flere virksomheder har samtidig betydelige bekymringer i forhold til stabilitet og sikkerhed i sådan en grad, at det hæmmer de digitale ambitioner. Læs i dette whitepaper om undersøgelsens resultater og nogle af svarene på de udfordringer, digitale virksomheder aktuelt står over for. 24 sider på engelsk.