Tabeller i excel vis/skjul

Dette er noget, jeg har lavwet i anden anledning. Koden ligger i kodemodulet til det ark, hvor jeg har min PullDown, som indeholde navnene på de områder, som jeg kan vælge mellem.

Koden skjuler/viser kolonner, men kan hurtigt ændres til i stedet at vise/skjule rækker.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a2")) Is Nothing Then
        Select Case Range("a2").Value
            Case Is = "Alle"
                Cells.Select
                Selection.EntireColumn.Hidden = False
                Range("A2").Select
            Case Is = "SKP1"
                Cells.Select
                Selection.EntireColumn.Hidden = False
                Range("J:AD").Select
                Selection.EntireColumn.Hidden = True
                Range("A2").Activate
            Case Is = "SKP2"
                Cells.Select
                Selection.EntireColumn.Hidden = False
                Range("B:I,T:AD").Select
                Selection.EntireColumn.Hidden = True
                Range("A2").Activate
            Case Is = "SKP3"
                Cells.Select
                Selection.EntireColumn.Hidden = False
                Range("B:S").Select
                Selection.EntireColumn.Hidden = True
                Range("A2").Activate
        End Select
    End If
End Sub

Det virker næsten.

Jeg har korrigeret koden således:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a2")) Is Nothing Then
        Select Case Range("a2").Value
            Case Is = "Total"
                Cells.Select
                Selection.EntireRow.Hidden = False
                Range("a80:a190").Select
                Selection.EntireRow.Hidden = True
                Range("A2").Activate
            Case Is = "SEL1"
                Cells.Select
                Selection.EntireRow.Hidden = False
                Range("a3:a79").Select
                Selection.EntireRow.Hidden = True
                Range("a132:a190").Select
                Selection.EntireRow.Hidden = True
                Range("A2").Activate
            Case Is = "SEL2"
                Cells.Select
                Selection.EntireRow.Hidden = False
                Range("a3:a131").Select
                Selection.EntireColumn.Hidden = True
                Range("A2").Activate
            Case Is = "All"
                Cells.Select
                Selection.EntireRow.Hidden = False
                Range("A2").Activate
               
        End Select
    End If
End Sub
________________

Men makroen aktiveres jo kun ved en ændring af A2-cellen, og dette sker jo ikke automatisk. Kan du hjælpe med dette?

pft
hpo

Men tak for koden :)

I det konkrete tilfælde skrives resultatet af et ændret valg i komboksen ned i A2. derfor er det ændringen her, der "trigger" makroen. Hvornår skal den afspilles hos dig?

Jeps - det er rigtigt - jeg ser at resultat ændrer sig i cellen, men makroen aktiveres først, hvis jeg efterfølgende stiller mig i A2 og trykker "F2 + enter".

Makroen skal aktiveres med det samme.

/hpo

Det lyder godt nok underligt. Hos mig kører den fint, hver gang jeg ændrer i dropdownboksen. Er arket sat til manuel beregning?

Nej - automatisk.

Jeg har valgt en combo-boks, og kan se at værdien i A2 ændrer sig, men makroen trigges først når jeg ændrer, som anført ovenfor.

Smid et svar. Det lader til at jeg sidder fast :(

Et svar :-)

Prøv at tilføje Application.Volatile som den første linie efter Sub og se om det gør nogen forskel.

skal koden ikke indsættes i ComboBoxen ?

Excelent-> Jeg har koden liggende i arkmodulet på Worksheet_Change hændelsen. Dette indtræffer jo hver gang jeg ændrer i comboboksen.

ja men den kode trikker ikke ved valg i comboboxen, selv om der er link til A2

Nej selvfølgelig ikke. Det er fordi jeg slet ikke bruger en comboboks men i stedet datavalidering :-(

;-)

Hvordan indsætter jeg koden i combo-boksen?

/hpo

Højreklik på Compoboxen. Vælg Vis kode. Indsæt din kode mellem de to linjer, der er vist:

If Not Intersect(Target, Range("a2")) Is Nothing Then
        Select Case Range("a2").Value
            Case Is = "Total"
                Cells.Select
                Selection.EntireRow.Hidden = False
                Range("a80:a190").Select
                Selection.EntireRow.Hidden = True
                Range("A2").Activate
            Case Is = "SEL1"
                Cells.Select
                Selection.EntireRow.Hidden = False
                Range("a3:a79").Select
                Selection.EntireRow.Hidden = True
                Range("a132:a190").Select
                Selection.EntireRow.Hidden = True
                Range("A2").Activate
            Case Is = "SEL2"
                Cells.Select
                Selection.EntireRow.Hidden = False
                Range("a3:a131").Select
                Selection.EntireColumn.Hidden = True
                Range("A2").Activate
            Case Is = "All"
                Cells.Select
                Selection.EntireRow.Hidden = False
                Range("A2").Activate
               
        End Select
    End If

Og det er selvfølgelig ikke rigtigt, for når du bruger comboboxen kan du ikke bruge target. Så slet If not... og End if.. i den anden ende.

OK.

Tak til jer begge, point til jkrons.