Søg
Avatar billede magmat Nybegynder
09. oktober 2007 - 21:10 Der er 8 kommentarer og
1 løsning

macro der skjuler ark

kan jeg lave en macro der skjuler nogle ark.

hvis jeg står på arket4 og ark1 eller ark2 eller ark3 aktiveres skal ark5 skjules.
jeg havde tænkt mig noget som nedenfor.
men det virker ikke

Private Sub Worksheet_deactivate()
If Worksheets("ark1").Activate Then Call Macroderskujulerark
Else
If Worksheets("ark2").Activate Then Call Macroderskujulerark
Else
If Worksheets("ark3").Activate Then Call Macroderskujulerark
Else
Exit Sub
End If
End Sub
Avatar billede jlemming Nybegynder
09. oktober 2007 - 21:15 #1
Hvordan ser din macroderskujulerark ud?
Avatar billede rosco Novice
09. oktober 2007 - 21:24 #2
Sub SkjulArk()
Worksheets("ark1").Visible = False
End Sub
Avatar billede magmat Nybegynder
09. oktober 2007 - 21:28 #3
Sub macroderskjulerark()
    Sheets("ark5").Select
    ActiveWindow.SelectedSheets.Visible = False
End Sub
Avatar billede jlemming Nybegynder
09. oktober 2007 - 21:31 #4
er det kun når du står på ark4, og ark1-3 bliver aktiveret eller er det altid når ark1-3 bliver aktiveret f.eks fra ark5
Avatar billede word-hajen Nybegynder
09. oktober 2007 - 21:38 #5
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name = "ark4" Then
        Call HideArk5
    End If
End Sub

Public Sub HideArk5()
    If ActiveSheet.Name = "ark1" Or ActiveSheet.Name = "ark2" Or ActiveSheet.Name = "ark3" Then
        ActiveWorkbook.Sheets("ark5").Visible = False
    End If
End Sub
Avatar billede magmat Nybegynder
09. oktober 2007 - 21:39 #6
det er kun når jeg står på ark5 og aktiverer ark1 eller ark2 eller ark3 den skal skjules.

Jeg har derfor forsøgt at lave en
Private Sub Worksheet_deactivate()
i ark5 ´s grundmodul

Det virker også, men jeg kan ikke finde udaf lave en kode der siger:
IF ark1 ELLER ark2 ELLER ark3 aktiveres
Avatar billede kabbak Professor
10. oktober 2007 - 02:39 #7
Sættes i ThisWorkbook modulet

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Ark1" Or Sh.Name = "Ark2" Or Sh.Name = "Ark3" Then
        Worksheets("Ark5").Visible = False
    Else
        Worksheets("Ark5").Visible = True
    End If
End Sub
Avatar billede magmat Nybegynder
19. oktober 2007 - 11:54 #8
ja, den sidste virker.
undskyld at jeg ikke er vendt tilbage før nu
Avatar billede kabbak Professor
19. oktober 2007 - 12:02 #9
et svar ;-))
Avatar billede 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. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Beregning af flextid - formler Af Slettet bruger i Excel 0 I går 18:29 -
Udseende af datoer Af ErikHg i Excel 8 24/05/202614:56 I går 19:06
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 5 17/04/202616:11 27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel 6 13/04/202614:32 15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:29 Beregning af flextid - formler Af Slettet bruger i Excel
I går 10:05 Sætte flere billeder sammen til et billede - IPad seneste version Af nu_igen i Billedbehandling
24/0514:56 Udseende af datoer Af ErikHg i Excel
23/0509:37 hvilken AI synes I er bedst? Af jcr18 i Andre onlineløsninger
22/0518:51 Pausepil på youtube i chrome Af valby i Browsere
White papers
Flere white papers »