CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

MartinJ1234 Nybegynder

01. oktober 2015 - 15:50 Der er 4 kommentarer og
1 løsning

Makro til vis/skjul fane

Jeg har et regneark, hvor jeg har 4 faner som høre til 4 forskellige perioder.

Jeg vil gerne have at de 4 faner er skjult, men når jeg kører en makro så bliver den vist.

Tjeklist1 - periode 1/1 - 31/3
Tjeklist2 - periode 1/4 - 30/6
Tjeklist3 - periode 1/7 - 30/9
Tjeklist4 - periode 1/10 - 31/3

Hvis celle E5 = 31/8, så når man kører makroen, så bliver fanen tjeklist4 vist.

og vis den så fx er 30/6, så er det Tjekliste2 som bliver vist.

Håber der er nogen som kan hjælpe

Synes godt om

erikjuul (ikke aktiv længere) Mester

01. oktober 2015 - 16:01 #1

Brug disse linjer:

Sheets("Tjekliste1").Visible = xlVeryHidden
Sheets("Tjekliste2").Visible = True
Sheets("Tjekliste3").Visible = xlVeryHidden
Sheets("Tjekliste4").Visible = xlVeryHidden

Synes godt om

MartinJ1234 Nybegynder

01. oktober 2015 - 16:22 #2

Hvordan får jeg cellen E5 til af bestemme hvilken fane som er true?

Hvordan inddeler jeg de 4 tjekliste i hver deres periode?

Synes godt om

store-morten Ekspert

01. oktober 2015 - 21:04 #3

Prøv:

Sub Vis_Skjul_Fane()
Application.ScreenUpdating = False

Sheets("Tjeklist1").Visible = False
Sheets("Tjeklist2").Visible = False
Sheets("Tjeklist3").Visible = False
Sheets("Tjeklist4").Visible = False

If DateValue("1/1/2015") < Cells(5, 5) And Cells(5, 5) < DateValue("31/3/2015") Then
Sheets("Tjeklist1").Visible = True
End If

If DateValue("1/4/2015") < Cells(5, 5) And Cells(5, 5) < DateValue("30/6/2015") Then
Sheets("Tjeklist2").Visible = True
End If

If DateValue("1/7/2015") < Cells(5, 5) And Cells(5, 5) < DateValue("30/9/2015") Then
Sheets("Tjeklist3").Visible = True
End If

If DateValue("1/10/2015") < Cells(5, 5) And Cells(5, 5) < DateValue("31/12/2015") Then
Sheets("Tjeklist4").Visible = True
End If

Application.ScreenUpdating = True
End Sub

Synes godt om

MartinJ1234 Nybegynder

02. oktober 2015 - 14:17 #4

Store-morten hvis du sender svar, så få du point.

Din kode virker perfekt, mange tak for hjælpen

Synes godt om

store-morten Ekspert

02. oktober 2015 - 16:03 #5

'Svar' kommer her ;-} Velbekomme.

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Skrive tekst fra celle i formel Af SFrede i Excel	1	I går 14:54	I går 15:43
slette rækker automatisk Af torben lind i Excel	10	24/04/202418:52	I går 19:58
Ctrl + Backspace Af xl-Enthusiast i Excel	7	22/04/202408:15	22/04/202410:12
Lopslag Af Mariacecilia i Excel	9	19/04/202419:00	20/04/202420:01
Vagtliste med rul mellem skifter Af Klaus W i Excel	0	19/04/202413:33	-

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS