skjule rækker

Hej Mathias

Glædelig Jul.

Hvordan har du tænkt dig at aktivere macroen ?

Med venlig hilsen, Nicolai

Her er 2 eksempler du måske kan bruge som "byggesten" - 2 makroer der hhv viser  hvordan man skjuler en række ad gangen eller viser 1 række ad gangen...


Sub vis()
Range("A5").Select
For x = 1 To 10
If ActiveCell.EntireRow.Hidden = True Then
ActiveCell.EntireRow.Hidden = False
End If
ActiveCell.Offset(1, 0).Select

Next
End Sub

Sub skjul()

Range("A15").Select
For x = 1 To 10
If ActiveCell.EntireRow.Hidden = False Then
ActiveCell.EntireRow.Hidden = True
End If
ActiveCell.Offset(-1, 0).Select

Next
End Sub


mvh Kurt

i lige måde nicolai - macroen skal aktiveres med knap

kurt, din macro virker næsten - den skal bare KUN skjule én celle pr. gang. Din skjule ALLE celler, dog én efter en ..? :-)

Hej Mathias

Ønsker du ikke hele rækken skjult ??

Med venlig hilsen, Nicolai

Min seneste besked var noget sludder!

Jeg ønsker hele rækken skjult - den skal bare KUN skjule én række pr. gang jeg kører makroen. Kurts skjuler ALLE rækker ved kørsel af makroen, dog én efter en ..? :-)

Sub skjul()
    For r = 17 To 5 Step -1
        If Rows(r).Hidden = False Then
            Rows(r).Hidden = True
            Exit For
        End If
    Next r
End Sub
Sub vis()
    For r = 5 To 17
        If Rows(r).Hidden = True Then
            Rows(r).Hidden = False
            Exit For
        End If
    Next r
End Sub

Jeg her ikke helt 100% sikker på at jeg forstår hvornår det er du vil skjule - du skriver at hvis række 17 er skjult skal række 16 skjules - hvad hvis ingen rækker er skjult?

prøv disse 2 istedet:
skjul makroen skjuler intet hvis række 17 ikke er skjult - ellers tager den en række ad gangen - og modsat med makroen  :-)

Sub vis2()

Range("A4").Select
For x = 1 To 13
    If ActiveCell.Offset(x + 1, 0).EntireRow.Hidden = False Then
    ActiveCell.Offset(x, 0).EntireRow.Hidden = False
    End If
Next x

End Sub

Sub skjul2()

Range("A4").Select
For x = 1 To 13
    If ActiveCell.Offset(x + 1, 0).EntireRow.Hidden = True Then
    ActiveCell.Offset(x, 0).EntireRow.Hidden = True
End If
Next x

End Sub

Kurt, jeg kan altså ikke få din til at virke ? :/

MEN supertekst virker næsten efter hensigten. Det eneste der går galt er i makroen 'skjul', hvor, når den har skjult den sidste i rækken og man klikker, så viser den en række, klikker man igen, skjuler den en række osv...
Kan dette fikses?

Skal prøve..

tak, supertekst.

Sub skjul()
    For r = 17 To 4 Step -1
        If Rows(r).Hidden = False And r > 4 Then
            Rows(r).Hidden = True
            Exit For
        End If
    Next r
End Sub

Flot arbejdet ;) smit et svar

flot arbejde*

Hov - måske lidt sent at sige nu, men er det muligt at slette værdien i i celle x,b og x,c, hvor x svarer til den række som lige er blevet skjult, tænkte lidt på: (r,b)="" &(r,c)="" eller noget i den stil?

vh
Mathias

Tak - nu smider jeg et svar og så ser jeg på #14

Har set:

Sub skjul()
    For r = 17 To 4 Step -1
        If Rows(r).Hidden = False And r > 4 Then
            Range("B" & r & ":" & "C" & r) = ""
            Rows(r).Hidden = True
            Exit For
        End If
    Next r
End Sub

Den virker lige efter hensigten, du for sej supertekst!