Skjule ark ud fra Userform + brugerark

Yderligere!

Det er faktisk kun ud fra kolonne A og M i arket, at det skal vælges hvilke ark, som vises.

I Kolonne A har jeg det korrekte arknavn, og Kolonne M angives med 1 hvis arket skal være vist, og 0 hvis arket skal være skjult.

Hej besida,

Jeg er heller ikke den store programmør, men har lige prøvet følgende kode:

    For Each c In Range("M1:M30") 'tilpas blot området til de rækker der er relevante
        If c.Value = 0 Then
            Sheets(c.Offset(1, -12).Value).Visible = False 'Vigtigt at teksten i kolonne A stemmer overens med arknavnene
        Else: Sheets(c.Offset(1, -12).Value).Visible = True
        End If
    Next

Af en eller anden årsag virker koden, men den melder alligevel fejl. Jeg kan prøve at kigge på den igen i morgen når jeg er lidt friskere, men den kan måske hjælpe dig på sporet.

Hvis du gerne vil lave noget i userform, kan jeg måske hjælpe, men jeg forstår ikke helt hvordan du vil bygge det op.

Hej besida

Skal jeg forstå det sådan at:

Du manuelt taster 0 eller 1 i kolonne M, hvorefter du klikker på en knap og de ark(navne) fra de respektive rækker i kolonne A, som har et 1´tal i kolonne M vises og dem med 0 skjules ???

Mvh Nicolai

Ja lige nøjagtig. Ved ikke om det er hvad du vil?

Jeg rodede lidt med koden:

        For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp)) 'området er nu dynamisk og tilpasses antallet af linjer der er skrevet i.
            Sheets(c.Value).Visible = (c.Offset(, 12) = 1)
        Next c

Nicolai @ misforstod dit indlæg

Hej C_Thyge og Nicolai/lalocin

Tak indtil videre:)

Mht. userformen, har jeg bare lavet en, hvor jeg kan krydse af, hvilke ark jeg vil se, hvis de er skjulte, dvs. den tester blot på om der står 1 eller 0 i menu arket.

Jeg har en stor model (revision / kvalitetsstyring ) hvor jeg i stamarket, bestemmer om der skal laves revision eller review osv. Vælges revision, så sætter den selv 1/0-taller i menu arket, ud for de respektive ark.

Men koden skal blot / når der trykkes på en knap, skjule de inaktive ark, hvor der står 0 i kolonne M:)

Jeg prøver lige ovenstående koder.

Hej C_Thyge

JEg får runtime error 9 i dit sidste forslag. Den viser fejlen i linie 2 med offset formlen.

Den første virker som du selv skriver, ikke. Den skjuler de første par ark, men giver fejl.

Det er fordi noget af den tekst du har i kolonne A ikke stemmer overens med arkenes navne. Hvis der er den mindste forskel kan den ikke finde ud af det.

Vær opmærksom på at makroen gennemgår hele kolonnen. Hvis den ikke skal det skal der defineres et range.

Du er velkommen til at sende det - eller en mockup - til mig.

Hej C_Thyge

Hvis du stikker mig en mail, sender jeg den meget gerne til dig.

Mvh

Daniel Jørgensen

Så fik jeg skidtet til at virke.

Tak for hjælpen Thyge, dine koder virkede.

Sender du et svar :)

Super :)