skjul linie

Kommer her, husk at der er forskel på små og store bogstaver :o)

mvh

Dali


sub Fjern()

Application.ScreenUpdating = False

Cells(1, 1).Select 'Den celle hvor du vil starte

    Do
        If InStr(ActiveCell, "X") Then
            ActiveCell.Select
            Selection.EntireRow.Hidden = True
            ActiveCell.Offset(1, 0).Activate
        Else
            ActiveCell.Offset(1, 0).Activate
        End If
       
    Loop Until ActiveCell.Value = ""
   
End Sub

Sorry - skal selvfølgelig hedde cells(1,4).select når det er kolonne D.

Mvh

Dali

hej dali

nu er det jo hele kolonne D der skal benyttes, så hvad mener du med hvilken celle jeg starter i

åhh havde ikke lige set dit svar

skal active cells også være 1, 4

Hej laurbjerg,

Nej den skulle virker som den er. Activecell.offset(1,0).activate betyder blot at den hopper en række ned.

Mvh

Dali

Prøv med Autofilter

Hej laurbjerg - fik du det til at virke?

Hej da-li

ja det gjorde. tak for hjælpen