Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: Allen cellen met een symbool weergeven

  1. #1
    Vraag is opgelost

    Allen cellen met een symbool weergeven

    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
    Attached Files Attached Files

  2. #2
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Met een extra kolom een het autofilter.
    Attached Files Attached Files
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  3. #3
    Mega Senior AlexCEL's avatar
    Geregistreerd
    3 april 2014
    Locatie
    Groningen
    Afstand tot server
    ±117 km
    Mogelijke oplossing met hulpkolommetje en filter.

    Edit zelfde als VenA dus.
    Attached Files Attached Files
    Laatst aangepast door AlexCEL : 12 oktober 2017 om 14:23
    -- een voorbeeldbestandje zegt meer dan 1000 woorden --

  4. #4
    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

  5. #5
    Mega Senior AlexCEL's avatar
    Geregistreerd
    3 april 2014
    Locatie
    Groningen
    Afstand tot server
    ±117 km
    Met dezelfde hulpkolom en een aparte "samenvatting"sheet:
    Attached Files Attached Files
    -- een voorbeeldbestandje zegt meer dan 1000 woorden --

  6. #6
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    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
    Attached Files Attached Files
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Aanbiedingen