• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Allen cellen met een symbool weergeven

Status
Niet open voor verdere reacties.

Visus

Gebruiker
Lid geworden
21 sep 2006
Berichten
101
Hallo,

Ik heb een bestand waarin ik cellen markeer met een X in bepaalde kolommen en rijen. Zie bijlage
Ik ben op zoek naar een mogelijkheid om, na het invullen, alleen de met de X gemarkeerde cellen te tonen, waarbij rij 1 en kolom A moeten blijven staan als de X in betreffende rij en kolom voor komt.

De X mag overigens ook een ander symbool of letter / cijfer zijn.
En ook graag weer een optie om alle cellen weer te tonen.

Groet

Visus
 

Bijlagen

  • Blanco.xlsx
    10,5 KB · Weergaven: 23
Met een extra kolom een het autofilter.
 

Bijlagen

  • Blanco.xlsb
    10,1 KB · Weergaven: 29
Mogelijke oplossing met hulpkolommetje en filter.

Edit zelfde als VenA dus.
 

Bijlagen

  • Blanco (AC).xlsx
    11,7 KB · Weergaven: 27
Laatst bewerkt:
Bedankt voor de snelle reacties, maar in beide gevallen blijven de lege kolommen nog staan ?
Deze zouden ook verborgen moeten worden, daar zat nu juist mijn "uitdaging" 'lege rijen en kolommen verbergen.

Groet

Visus
 
Met dezelfde hulpkolom en een aparte "samenvatting"sheet:
 

Bijlagen

  • Blanco (AC) (2).xlsx
    46,4 KB · Weergaven: 28
Met een macro onder een ToggleButton

Code:
Private Sub ToggleButton1_Click()
Dim r As Range, j As Long, jj As Long, ar
  With ToggleButton1
    .Caption = IIf(.Value, "zichtbaar maken", "verbergen")
    ar = Cells(1).CurrentRegion
    Rows(2).Resize(UBound(ar) - 1).Hidden = .Value
    Columns(2).Resize(, UBound(ar, 2) - 1).Hidden = .Value
    If .Value Then
      For j = 2 To UBound(ar)
        For jj = 2 To UBound(ar, 2)
          If ar(j, jj) <> "" Then
            If r Is Nothing Then Set r = Cells(j, jj) Else Set r = Union(r, Cells(j, jj))
          End If
        Next jj
      Next j
      r.Rows.Hidden = False
      r.Columns.Hidden = False
    End If
  End With
End Sub
 

Bijlagen

  • Blanco.xlsb
    20,6 KB · Weergaven: 37
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan