Skjul rækker

Makro som indsættes i arkmodul.
Alt+F11 > F7, kopier koden ind og tryk F5


Sub skjul()
Rows.Hidden = False
For Each værdi In Range("E21:E48")
    If værdi.Value = 0 Then
        Rows(værdi.Row).Hidden = True
    End If
Next værdi
End Sub

Denne er bedre, da den kun starter med at vise rækkerne igen i dit område

Sub skjul()
Rows("21:48").Hidden = False
For Each værdi In Range("E21:E48")
    If værdi.Value = 0 Then
        Rows(værdi.Row).Hidden = True
    End If
Next værdi
End Sub

Hej

Du er da vist lidt en pro til dette, jeg havde prøvet ligende, men det ville ikke.

den virker ok, men hvis e21 ændrer sig, vises rækken ikke igen.

eksempel:
e21 til e48 er nu skjult, hvis jeg så via min rullemenu vælger noget og summen i e21 pludeslig er 35,00 skal rækken kunne vises igen på fakturaen.

kan det lade sig gøre?

Venlig hilsen
Christian

Hej

Macroen skal helst køre fra jeg åbner til jeg lukker arket, så det opdateres efter de valg jeg laver.

kan man lave en knappe, så det kan slåes til eller fra, hvis jeg skal redigere teksten eller ligende i rækken

eller har excel en genvejs tast til at kortvarigt deaktivere macros

Et forslag som du måske kan bruge
Makroen kopieres ind i arkmodul. Variablen Flag skal stå for sig selv som den øverste linie i kode vinduet.
Den viser rækkerne ligeså snart du stiller dig i området A21:E48.
Når du forlader området igen, køres makroen og linjer skjules.
Et andet forslag er at lave en knap som henholdsvis viser og skjuler rækker, som du selv er inde på.


Dim Flag As Boolean


Private Sub worksheet_selectionchange(ByVal target As Range)

If Not Intersect(target, Range("A21:E48")) Is Nothing Then
    If Flag = True Then
        Rows("21:48").Hidden = False
        Flag = False
    End If
End If
   
If Intersect(target, Range("A21:E48")) Is Nothing Then
    If Flag = False Then
        For Each værdi In Range("E21:E48")
            If værdi.Value = 0 Then
                Rows(værdi.Row).Hidden = True
            End If
        Next værdi
        Flag = True
    End If
End If

End Sub

Hej,

kan ikke få det til at virke.
Du skal også lige vide at jeg vælger alle data fra rullemenuer jeg vil normalt aldrig arbejde i række 21 til 48.

jeg vælger alt i rullemenuer i række 1 til 21

jeg forhøjer med 40 points hvis dette lykkedes.

For at skære det ud i pap:

hvis der kommer en total sum i række 21 skal den vises også når jeg printer, men hvis summen er 0 skal det ikke vises eller skrives ud.
dette gælder række e21 til e48, som er del sums felter

du skal nok forklare det helt ned i detaljer.

venligst
Christian

Mener du ikke "rullemenuer i række 1 til 20"
I så fald kopier denne kode ind i arkmodulet. den kører så hver gang der sker en ændring af værdien i din rullemenu. Rullemenuen er forudsat i området E1:E20, hvilket du bare ændrer i 2. linje i koden.



Private Sub worksheet_change(ByVal target As Range)
   
If Not Intersect(target, Range("E1:E20")) Is Nothing Then
    For Each værdi In Range("E21:E48")
        If værdi.Value = 0 Then
            Rows(værdi.Row).Hidden = True
        End If
    Next værdi
End If
   
End Sub

Hej,

Jeg oplever at macroen ikke virker.

Din anden kommentar virkede ok, men hvis jeg ændrede noget i rullemenuen kan rækken ikke vises igen.

kan der modificeres i den macro du lavede som nummer 2, så rækken opdateres og vises
igen.

Du skrev:

Denne er bedre, da den kun starter med at vise rækkerne igen i dit område

Sub skjul()
Rows("21:48").Hidden = False
For Each værdi In Range("E21:E48")
    If værdi.Value = 0 Then
        Rows(værdi.Row).Hidden = True
    End If
Next værdi
End Sub

der skal lige tilføjes at jeg har rullemenuer i alle rækker og kolonne fra a1 til e 20

håber du lige gider hænge på så vi kan løse dette problem.

Ups en lille fejl. Prøv denne


Private Sub worksheet_change(ByVal target As Range)
   
If Not Intersect(target, Range("E1:E20")) Is Nothing Then
    For Each værdi In Range("E21:E48")
        If værdi.Value = 0 Then
            Rows(værdi.Row).Hidden = True
        Else
            Rows(værdi.Row).Hidden = False
        End If
    Next værdi
End If
   
End Sub

Husk at ændre E1:E20 til cellerne med din rullemenu

Hej

jeg kan ikke få den til at virke, jeg kan kun få denne til at virke.

Sub skjul()
Rows.Hidden = False
For Each værdi In Range("E21:E48")
    If værdi.Value = 0 Then
        Rows(værdi.Row).Hidden = True
    End If
Next værdi
End Sub

Jeg har rullemenuer fra a12 til e12, a15 til e15 og fra a18 til e18, i cellen under
hver rullemenu er der en cellekæde, som angiver hvad valg jeg har lavet.

feks.

hvis jeg vælger menu punkt 1 (noget tekst)i a12, vises der i a13 1.

men rullemenuerne har ikke noget med delsummen e21 til 48 ad gøre

Macroen skal "bare" overvåge e21 til 48 og så gemme eller vise dem alt efter havd summen er. Så den ovenstående du lavede er megtig god den skal bare vise rækkerne hvis delsummen ændres fra 0 til feks 333,00

Håber du forstår ...

Hvis ikke det kan laves kan man så lave en knap som man først bruger når man er klar til at printe.

En knap som skjuler rækker med delsum 0 og en knap som "resetter" og viser alt igen, så man kan arbejde vidre og se alle celler

Venlig hilsen
Christian Ovesen

Du skriver at rullemenuerne ikke har noget med delsummen at gøre. Hvad er det så der gør at summerne i E21:E48 ændrer sig ?

Agh jo...sorry

det er der da

Rullemenuerne bestemmer delsummen, men der står tekst rullemenuen, ingen tal.

Et simpelt eksempel:

a12 = rullemenu, som indeholder 3 valg
a13 = cellekæde til rullemenu, som viser 3 hvis valg 3 er valgt i rullemenuen osv.

a21 til D21 = tekst og tal celler som bliver opdateret ud fra valg i rullemenu

E21 = summen af tal i a21 til d21

hvis der står 0 i E21 skal rækken skjules
hvis e21 indeholder alt andet en 0 skal den vises

sådan skal det være i E21 til E48.

Så makroen skal kører aut. hver gang der sker en ændring i rullemenuerne, korrekt ?

ja

Ja så burde denne virke.


Private Sub worksheet_change(ByVal target As Range)
   
If Not Intersect(target, Range("A12:E18")) Is Nothing Then
    Rows.Hidden = False
    For Each værdi In Range("E21:E48")
        If værdi.Value = 0 Then
            Rows(værdi.Row).Hidden = True
        End If
    Next værdi
End If
   
End Sub

Kan ikke få den til at virke, men den første kode har jeg nu modificeret
så den virker på 2 knapper.

Og dette virker fint for mig, så der er ingen grund til at gå vidre.

knap 1 skjuler rækker med 0 og printer ud
knap 2 resetter valg og viser alt

du skal have dine points, du gav mig jo koden og den er jeg taknemlig for

mange tak for din hjælp.

Jamen ok. Hvis du er tilfreds med det. Den anden virker fint hos mig og kører automatisk hver gang du ændrer en værdi i en af dine rullemenuer. Men måske jeg ikke helt forstår din opbygning af fakturaen. Ihvertfald godt du fik det til at virke.