Skjule "0" linier?

Er de skrevet direkte ind i cellerne, eller kom de som resultatet af en formel?

De er ført over fra et data ark

Så der i cellernes formellinie står f.eks. =Ark1!B2

Er det tilfældet, så kan du bruge en hvis-funktion

hvis(Ark1!B2="0","",Ark1!B2)

Tester først, næste er hvis sand og sidste er hvis falsk

Jamen, jeg mangler da stadig den funktion, at den skjuler nul-linien?

Okay, du vil gerne have at hele linie bliver skjult, hvis der står 0 i et/flere af felterne der i?

> funktioner > indstillinger > fanen "Vis" fjern flueben i "Nulværdier"

Hilsen KOL

Ja, jeg vil gerne have, at den skjuler den linie hvor alle tre tal er "0"
og de linier, hvor én eller to tal er anderledes end "0", skal bare vises som de er

Okay, det ved jeg ikke om man kan

Prøv denne, jeg går ud fra at de 3 nuller står ved siden af hinanden.

klik ind på en celle i den første kolonne, som kan indeholde 0, kør så makroen 'Skjul_0_rækker'

den anden er til at vise dem igen


Public Sub Skjul_0_rækker()
Dim Rw As Long
Rw = Cells(65536, ActiveCell.Column).End(xlUp).Row
For Each C In Range(Cells(1, ActiveCell.Column), Cells(Rw, ActiveCell.Column))
If C = 0 And Not IsEmpty(C) And C.Offset(0, 1) = 0 And Not IsEmpty(C.Offset(0, 1)) And C.Offset(0, 2) = 0 And Not IsEmpty(C.Offset(0, 2)) Then
C.EntireRow.Hidden = True
Else
C.EntireRow.Hidden = False
End If
Next
End Sub

Public Sub Vis_alle_rækker()
Cells.EntireRow.Hidden = False
End Sub

jeg har prøvet et par gange, har ikke helt fået det til at funke endnu

Hej KOL tak for indlægget, men ikke helt det jeg skulle bruge, men jeg lærte da en ny funktion! mvh

OK!

KOL