Skjul rækker hvis en celle har en bestemt værdi

Prøv med betinget formatering. Her kan du vælge at det indtastede i rækken skall have samme farve som baggrunden.

Marker rækken
Vælg Formater->Betinget formatering
I feltet Betingelse1 vælger du "Formlen er" i stedet for "Celleværdien er"
I feltet til højre for, indtaster du formlen =$C1=-1 (C1 ændres selvfælgelig til det aktuelle)
Klik på knappen Formater
I feltet farve vælger du Hvid, og klikker herefter OK 2 gange

Brug herefter formatpenslen til at kopiere formatet til alle de ønskede celler.

Jeg mener ikke skjule, som i at de skal være tomme, men som i at de slet ikke skal kunne ses :)

?????

Prøv at højreklikke på en række og vælg skjul...det er DET, jeg vil gøre...det kaldes at skjule...det med dit forslag skjuler jo kun teksten, ikke cellen

Prøv denne her macro:

Public Sub HideMinusOne()
    Dim lRow As Long
   
    With ActiveSheet
        .Rows("1:65536").Hidden = False
        For lRow = .UsedRange.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
            If .Cells(lRow, 3).Value = -1 Then
                .Cells(lRow, 3).EntireRow.Hidden = True
            End If
        Next
    End With
End Sub

Fik du det løst ?

He...sorry, jeg ikke har fået svaret. Well, faktisk har jeg ikke afprøvet det sidste forslag, da jeg helst vil undgå at skulle til at rode med VBA...ikke fordi jeg ikke kan finde ud af det, men fordi jeg foretrækker at gøre tingene i selve regnearket. Men er der slet ingen måde at gøre det på i selve regnearket, altså f.eks. Indstillinger eller den slags?

Hvis du vil skjule pr. automatik, så er du ovre i VBA - sorry - that's life.

Okay, fair nok...så må jeg lige afprøve den makro :)

Hmm...lige et spørgsmål mere...kan jeg på nogen måde angive at den makro så skal startes når jeg åbner regnearket...og hvordan i så fald?

Ja - i det kodemodul, som hedder "ThisWorkbook" kan du lave det således :

NB. se at der er ændret i linien der starter med WITH - her skal du indsætter det rigtige navn på arket....!!!!

Private Sub Workbook_Open()
    Dim lRow As Long
   
    With Worksheets("Ark1")
        .Rows("1:65536").Hidden = False
        For lRow = .UsedRange.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
            If .Cells(lRow, 3).Value = -1 Then
                .Cells(lRow, 3).EntireRow.Hidden = True
            End If
        Next
    End With
End Sub

Perfekt...det glider jo som i olie :D

Super :-)