Skjul linier med hjælp af makro

Denne er noget hurtigere:

Sub skjullinier()
    Application.ScreenUpdating = False
    Data = Range("A1:A" & 4928)
    For r = 7 To 4928
        If Data(r, 1) = "" Then
            Rows(r).Hidden = True
        End If
    Next r
    Application.ScreenUpdating = True
End Sub

Lækkert ...

Og når jeg skulle spørge på kolonne 10 ... skriver jeg ...

Mon så ikke bare jeg skal kalde data for

    Data = Range("j1:j" & 4928)

Hvis der er mange huller, kan denne gøre det noget hurtigere:

Sub skjullinier()
    Maks = 4928 + 1
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Data = Range("A1:A" & Maks)
    For R = 7 To 4928
        If Data(R, 1) = "" Then
            For T = R + 1 To Maks
                If Data(T, 1) <> "" Or T = Maks - 1 Then
                    Range("A" & R & ":" & "A" & T - 1).EntireRow.Hidden = True
                    R = T
                    Exit For
                End If
            Next
        End If
    Next R
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

Sub Skjul()
Range("J7:J4928").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

01/02-2008 14:05:42: Korrekt.

Tak excelent

Det jo ikke bare lidt hurtigere ...

Sender du et svar.

må jeg dele med akyhne :-)

excelent ... hvis jeg nu skulle spørge efter > 5 ... hvad gjorde jeg så ...

så skal der anvendes en løkke som i akyhne's eks

Tak ...

... du glemte vel ikke svaret ... :)

På 57000 rækker med ca hver 2. celle tom, er min kode ca 3 gange hurtigere, men excelents kode er selvfølgelig noget mere simpel.

Akyhne ... for den sidste version du sendte, må indrømme at jeg ikke testede den, for excelents var bare kanon hurtig ...

Din kan jeg bedre bruge en anden gang, hvis jeg ikke lige skal teste for ""

Der missede jeg en kommentar ...

Dele vil være kanon med mig ...

Det er helt op til dig hvem der skal have point. Jeg føler mig ikke snydt hvis du giver dem til excelent. Hans kode kan være meget mere overskuelig de fleste tilfælde.

Men her er i hvertfald et svar.

ok hjemme igen, her er svar fra mig også

vedr. kommentar 01/02-2008 14:21:03
hvor mange celler er der data i, er det formler eller blot talværdier?

Excelent: I tilfældet her er det kun værdier, måske max 40 linier ...

så ville jeg gøre sådan (hvis det stadig er i J7:J4928)

Sub talSkjul()
Range("J7:J4928").SpecialCells(xlCellTypeConstants, 1).Select
  For Each c In Selection
    If c > 5 Then c.EntireRow.Hidden = True
  Next
End Sub

Tak Excelent ... vil have det "i mente" ...

Disse SpecialCells funktioner virker kun op til et vist antal rækker
mener det er omkring 7000 stk., men det rækker normalt også i de fleste tilfælde.
velbekom.