Avatar billede Cale Mester
24. februar 2018 - 19:02 Der er 21 kommentarer og
4 løsninger

Rulleliste / Skjul

Jeg har en spørgsmål:

Jeg har en skabelon med rulleliste med 10 personer. Hvor jeg kan vælger fra 1 til 10 personer.

Problemet er, når jeg vælger i rulleliste eks. 5 personer, fra 6 person til 10 person skal kunne skjule række. Hvis jeg vælger kun 1 person skal kunne skjule række fra 2 til 10 person hele rækken

Jeg kan ikke få den til at virke. Noget forslag?


How many person        10   
            Name(s)       
person 1           
person 2           
person 3           
person 4           
person 5           
person 6           
person 7           
person 8           
person 9           
person 10
25. februar 2018 - 09:09 #1
Prøv evt. at formulere spørgsmålet på engelsk - det er ikke helt til at gennemskue, hvad du ønsker.
Avatar billede Cale Mester
25. februar 2018 - 16:19 #2
På mit først indslag står

How many person    10

nr.10 er et rulleliste hvor jeg kan vælge fra 1 til 10

Person 1-10 nedad, hvis jeg vælger på mit rulleliste 1 så skal kun vises nedad række person nr.1

Vælger jeg på rulleliste 3

Person 1
Person 2
Person 3
(resten række nedad skjules)
Avatar billede xl-Enthusiast Ekspert
25. februar 2018 - 19:09 #3
Kan det her bruges?

https://www.dropbox.com/s/obcq8ul30zv6li5/Rulleliste.xlsx?dl=0

Indholdet i T6:U15 kan flyttes (ikke kopieres), hvis du ønsker det, men det må ikke slettes.
Avatar billede Cale Mester
25. februar 2018 - 19:23 #4
Ja og nej. Den du viste er næsten perfekt.

Når man vælger på dit værk eks. 4

Fra A11 til A16 række skal kunne skjule. Dvs. hele rækken skjul.
Avatar billede xl-Enthusiast Ekspert
25. februar 2018 - 21:00 #5
Hvis jeg vælger 4 i A6 så vises der noget i A7:A10.

Hvis ikke det er sådan du mener, så må du forklare bedre.
Avatar billede xl-Enthusiast Ekspert
26. februar 2018 - 10:21 #6
Er du opmærksom på, at det er en matrixformel der er indtastet i A7 og kopieret ned til A25?

Matrixformel skal afsluttes ved at holde Ctrl og Shift nede før tryk på Enter. Herved sætter Excel automatisk {} omkring formlen. Når én matrixformel er indtastet korrekt kan den kopieres på normal måde til andre celler.
Avatar billede Cale Mester
26. februar 2018 - 14:05 #7
Jeg tror man skal bruge makro for den til at skjul linjer eller rækker.

Jeg prøver og forklare på anden måde:

På A6 vælger man (1) vises kun A7 og resten fra A16 til A8 skjul alle række. Dvs. Der skal man kun se at A7 og A17.
Vælger man på A6 med (2) vises kun A7 & A8 og resten ned af fra A16 til A9 skjul alle række. Der kan man kun se A7, A8 og A17.
Du ved man skal trække tællene op eller ned på siden for at vise eller skjul nummer.

Jeg ved ikke om det hjælper min forklaring.
Avatar billede xl-Enthusiast Ekspert
26. februar 2018 - 15:25 #8
Jeg forstår ikke hvad du skriver.

I din første post skrev du, at der er 10 personer. Hvis vi er enige om, at startcelle er A7, så skal der vel ikke stå noget i A17 - eller hvad?
Avatar billede store-morten Ekspert
26. februar 2018 - 16:17 #9
Prøv:

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Not Intersect(Target, Range("A6")) Is Nothing Then
    Rows("7:16").EntireRow.Hidden = False

        Select Case Target
            Case Is = 1
                Rows("8:16").EntireRow.Hidden = True
            Case Is = 2
                Rows("9:16").EntireRow.Hidden = True
            Case Is = 3
                Rows("10:16").EntireRow.Hidden = True
            Case Is = 4
                Rows("11:16").EntireRow.Hidden = True
            Case Is = 5
                Rows("12:16").EntireRow.Hidden = True
            Case Is = 6
                Rows("13:16").EntireRow.Hidden = True
            Case Is = 7
                Rows("14:16").EntireRow.Hidden = True
            Case Is = 8
                Rows("15:16").EntireRow.Hidden = True
            Case Is = 9
                Rows("16:16").EntireRow.Hidden = True
        End Select
    End If
End Sub
Avatar billede Cale Mester
26. februar 2018 - 16:29 #10
Store-morten, Sådan en , TAK!
Avatar billede store-morten Ekspert
26. februar 2018 - 18:14 #11
Velbekomme:-)
Avatar billede Cale Mester
26. februar 2018 - 19:15 #12
Hej igen

Kan man lave kopi af den neden under?
Avatar billede store-morten Ekspert
26. februar 2018 - 19:44 #13
Ikke forstået?
Avatar billede Cale Mester
26. februar 2018 - 19:48 #14
Jeg skal have 2 af dem. Den ene er fint.

Hvis jeg skal have 1 til, nedenunder f.eks Fra A20 A29 sammen måde A6 til A16.

Man skal lave anden kodning eller skal man bare sætte "formler i Markroer?
Avatar billede store-morten Ekspert
26. februar 2018 - 20:04 #15
Skal "skjul" stædig reagerer på cell A6 ?
Avatar billede Cale Mester
26. februar 2018 - 20:12 #16
Ja, og den anden. Det skal ikke hænge sammen. Den anden skal kunne også reagere når man ændre fra 1 til 10
Avatar billede store-morten Ekspert
26. februar 2018 - 20:12 #17
Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Not Intersect(Target, Range("A6")) Is Nothing Then
    Rows("7:16").EntireRow.Hidden = False
    Rows("20:29").EntireRow.Hidden = False
   
        Select Case Target
            Case Is = 1
                Rows("8:16").EntireRow.Hidden = True
                Rows("20:29").EntireRow.Hidden = True
            Case Is = 2
                Rows("9:16").EntireRow.Hidden = True
            Case Is = 3
                Rows("10:16").EntireRow.Hidden = True
            Case Is = 4
                Rows("11:16").EntireRow.Hidden = True
            Case Is = 5
                Rows("12:16").EntireRow.Hidden = True
            Case Is = 6
                Rows("13:16").EntireRow.Hidden = True
            Case Is = 7
                Rows("14:16").EntireRow.Hidden = True
            Case Is = 8
                Rows("15:16").EntireRow.Hidden = True
            Case Is = 9
                Rows("16:16").EntireRow.Hidden = True
        End Select
    End If
End Sub
Avatar billede store-morten Ekspert
26. februar 2018 - 21:15 #18
Hvis du vælger 1 i A6 (kun 1)
Skjules række 8 til 16 og 20 til 29

Hvis det virker rigtigt, skal resten tilføjes ; -)
Avatar billede store-morten Ekspert
26. februar 2018 - 21:29 #19
Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Not Intersect(Target, Range("C1")) Is Nothing Then
    Rows("3:12").EntireRow.Hidden = False
        Select Case Target
            Case Is = 1
                Rows("4:12").EntireRow.Hidden = True
            Case Is = 2
                Rows("5:12").EntireRow.Hidden = True
            Case Is = 3
                Rows("6:12").EntireRow.Hidden = True
            Case Is = 4
                Rows("7:12").EntireRow.Hidden = True
            Case Is = 5
                Rows("8:12").EntireRow.Hidden = True
            Case Is = 6
                Rows("9:12").EntireRow.Hidden = True
            Case Is = 7
                Rows("10:12").EntireRow.Hidden = True
            Case Is = 8
                Rows("11:12").EntireRow.Hidden = True
            Case Is = 9
                Rows("12:12").EntireRow.Hidden = True
        End Select
    End If
   
        If Not Intersect(Target, Range("C16")) Is Nothing Then
    Rows("18:27").EntireRow.Hidden = False
        Select Case Target
            Case Is = 1
                Rows("19:27").EntireRow.Hidden = True
            Case Is = 2
                Rows("20:27").EntireRow.Hidden = True
            Case Is = 3
                Rows("21:27").EntireRow.Hidden = True
            Case Is = 4
                Rows("22:27").EntireRow.Hidden = True
            Case Is = 5
                Rows("23:27").EntireRow.Hidden = True
            Case Is = 6
                Rows("24:27").EntireRow.Hidden = True
            Case Is = 7
                Rows("25:27").EntireRow.Hidden = True
            Case Is = 8
                Rows("26:27").EntireRow.Hidden = True
            Case Is = 9
                Rows("27:27").EntireRow.Hidden = True
        End Select
    End If
End Sub
Avatar billede Cale Mester
26. februar 2018 - 21:38 #20
Tak for det! Dejligt :)
Avatar billede Cale Mester
06. marts 2018 - 14:07 #21
Hej

Kan man også lave en kopi på Ark 2 samme placering antal personer? Fra 1 til 10 personer.
Når man vælger på rulleliste C1 på Ark 1, eks. 5 så viser kun fra 1 til 5 person på række 3 til 7. Og den skal kunne også vises i Ark 2 også samme antal 5 person uden rulleliste. 

Jeg har på Ark 1 den kode:

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Not Intersect(Target, Range("C1")) Is Nothing Then
    Rows("3:12").EntireRow.Hidden = False
        Select Case Target
            Case Is = 1
                Rows("4:12").EntireRow.Hidden = True
            Case Is = 2
                Rows("5:12").EntireRow.Hidden = True
            Case Is = 3
                Rows("6:12").EntireRow.Hidden = True
            Case Is = 4
                Rows("7:12").EntireRow.Hidden = True
            Case Is = 5
                Rows("8:12").EntireRow.Hidden = True
            Case Is = 6
                Rows("9:12").EntireRow.Hidden = True
            Case Is = 7
                Rows("10:12").EntireRow.Hidden = True
            Case Is = 8
                Rows("11:12").EntireRow.Hidden = True
            Case Is = 9
                Rows("12:12").EntireRow.Hidden = True
        End Select
    End If
Avatar billede store-morten Ekspert
07. marts 2018 - 01:19 #22
Altså skjule/vise samme rækker på Ark2 når man vælger på rulleliste C1 på Ark1?
Avatar billede Cale Mester
07. marts 2018 - 01:36 #23
Ja lige præcis.
Avatar billede store-morten Ekspert
07. marts 2018 - 01:51 #24
Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Not Intersect(Target, Range("C1")) Is Nothing Then
    Sheets(1).Rows("3:12").EntireRow.Hidden = False
    Sheets(2).Rows("3:12").EntireRow.Hidden = False
        Select Case Target
            Case Is = 1
                Sheets(1).Rows("4:12").EntireRow.Hidden = True
                Sheets(2).Rows("4:12").EntireRow.Hidden = True
            Case Is = 2
                Sheets(1).Rows("5:12").EntireRow.Hidden = True
                Sheets(2).Rows("5:12").EntireRow.Hidden = True
            Case Is = 3
                Sheets(1).Rows("6:12").EntireRow.Hidden = True
                Sheets(2).Rows("6:12").EntireRow.Hidden = True
            Case Is = 4
                Sheets(1).Rows("7:12").EntireRow.Hidden = True
                Sheets(2).Rows("7:12").EntireRow.Hidden = True
            Case Is = 5
                Sheets(1).Rows("8:12").EntireRow.Hidden = True
                Sheets(2).Rows("8:12").EntireRow.Hidden = True
            Case Is = 6
                Sheets(1).Rows("9:12").EntireRow.Hidden = True
                Sheets(2).Rows("9:12").EntireRow.Hidden = True
            Case Is = 7
                Sheets(1).Rows("10:12").EntireRow.Hidden = True
                Sheets(2).Rows("10:12").EntireRow.Hidden = True
            Case Is = 8
                Sheets(1).Rows("11:12").EntireRow.Hidden = True
                Sheets(2).Rows("11:12").EntireRow.Hidden = True
            Case Is = 9
                Sheets(1).Rows("12:12").EntireRow.Hidden = True
                Sheets(2).Rows("12:12").EntireRow.Hidden = True
        End Select
    End If
End Sub
Avatar billede Cale Mester
07. marts 2018 - 13:07 #25
Det virker perfekt.
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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