Har søgt og søgt, men kan ikke finde noget der passer.
Jeg er ved og lave et excelark, i forbindel med personalestyring. Troede det bare var lige ud af landevejen ...... men jeg er blevet klogere.
Jeg har 6 personalegrupper fordelt på 6 ark, 1 ark til feriestyring og 1 ark til daglig afkrydsning af personalet. Der ud over her jeg 1 ark med globale tal & tekster(så skal der kun rettes 1 sted) og så 1 forside med kontrolelementknapper.
Meningen er at når man åbner excel kan man kun se arket "Forside" herefter klikker men på en kontrolknap og hopper over i det man nu skal lave.
Men det virker ikke når jeg skjuler de resterende ark.
Nogle bud på hvordan ?
/SheQ
oO(dahm - håbede der fantes en løsning på nettet jeg bare skulle tilrette)
Hvis du mner at knappen ikke "hopper til arket", så er det nok fordi, din kodeikke starter mwed at gøre arket "synligt. Man kan ikke "hoppe til" eller aktivere et skjult ark.
jeppson.> Hvis alle ark, bortset fra det første, er skjult, vil det ikek have meget effekt at klikke på en knap med din kode bag, da knappen så aldrig vil gøre noget. I stedet kan man tilføje
Sheets("arknavn").visisble = True før koden, der aktiverer arket, men så skal man samtidgt finde en løsning, der skjuler det igen, når man går tilbage til forsiden.
Min løsning er at skjule arkfanerne. I stedet for en 'forside' bruger jeg en menu, men en forside med kommandoknapper kan også bruges. På den side du 'hopper' til skal der så være en kommandoknap der skal klikkes på for at komme tilbage til forsiden. Det forudsætter naturligvis at du ikke har behov for at skjule siderne for alvor. Du skjuler arkfaner ved at gå i menuen [Funktioner], punktet [Indstillinger], fanen [Vis]og fjerne 'hakket' nederst til højre ved 'Arkfaner'.
Men så kan man i koden til arkene (højre klik på arkfanen og vælg "Vis programkode")- dog ikke det første ark :-) - i eventen worksheet_deactivate sørge for at arket skjules nå man deaktivere arket (går fra det).
Det kunne være: Private Sub Worksheet_Deactivate() Sheets("Dit arknavn").Visible = False End Sub
og den anden kode kunne så rettes til: Private Sub Commandbutton_click() On Error GoTo Errorhandler Sheets("Dit arknavn").Visible = True Sheets("Dit arknavn").Activate ErrorHandler: Exit sub End sub
Har jeg overset et eller andet ;-D?
Synes godt om
Ny brugerNybegynder
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.
