rij verbergen ahv celinhoud

[FRENK270]

Beste leden,

ik zou geholpen zijn als iemand me kan helpen met het volgende.
Ik zou graag in 'n calculatie sheet, rijen (of kolommen) verbergen of net zichtbaar maken ahv 'n celinhoud
in mijn geval zou ik 'n rijen willen verbergen als de cel leeg is,
en zichtbaar maken als de cel gevuld is.

de cellen worden wel of niet gevuld door berekeningen op 'n ander werkblad.
Op deze manier kan ik het uiteindelijke resultaten overzicht naar wens vullen.

alvast bedankt voor jullie reactie.

 

[sylvester-ponte]

net zichtbaar maken kan met voorwaardelijke opmaak
verbergen kan ook:
gebruik een filter
of VBA

 

[FRENK270]

gelukt,

dank je,

het gaat idd prima met filters. ik moet alleen handmatig het filter opnieuw toepassen als de waardes wijzigen,
maar dat kan ook met 'n macro

met voorwaardelijke opmaak onderdruk je geen rijen volgens mij ?

probleempje is wel opgelost.

 

[VenA]

Ik heb even zitten knutselen. In mijn voorbeeldje worden de rijen en kolommen van A1 t/m J10 verborgen als of de rij of de kolom leeg is.

De code kan zeer zeker verbeterd worden maar werkt wel.

Private Sub Worksheet_Change(ByVal Target As Range)
ar = 10 'aantal rijen
ak = 10 'aantal kolommen
    With Sheets("Opmaak")
        For r = 1 To ar
            t = 0
            For k = 1 To ak
                If Not .Cells(r, k) = "" Then
                    t = t + 1
                    k = ak
                End If
            Next k
            If t = 0 Then .Rows(r).EntireRow.Hidden = True Else .Rows(r).EntireRow.Hidden = False
        Next r
        For k = 1 To ak
            t = 0
            For r = 1 To ar
                If Not .Cells(r, k) = "" Then
                    t = t + 1
                    r = ar
                End If
            Next r
            If t = 0 Then .Columns(k).EntireColumn.Hidden = True Else .Columns(k).EntireColumn.Hidden = False
            'If t = 0 Then .Columns(k).ColumnWidth = 1 Else .Columns(k).ColumnWidth = 10
        Next k
    End With
End Sub

Als je een rij of een kolom in blad "data" leegmaakt zal je het effect zien in blad "opmaak"

 

[FRENK270]

geweldig

VenA,

Helemaal geweldig hoor, ben er echt mee geholpen, en wat ik helemaal mooi vind is dat je je er de moeite voor gedaan hebt.

Heb zelf ook wel e.e.a. met VBA gemaakt, maar heb geen kennis van de code, ik zit meestal wat macro's aan te passen, kom je al 'n eind mee, maar dit was me nog niet gelukt
Nogmaals dank voor je reactie