rijen verberegn met macro, regels invoegen

[pvana]

Hallo,

Via een macro (gekoppeld aan een knop) heb ik opgenomen dat een aantal rijen zichtbaar worden als ik op dat knopje klik.
Echter wanneer ik daarboven een rij invoeg neemt de macro dit niet mee en woden de verkeerde rijen zichtbaar ls ik op de knop klik. Is dit ook te verhelpen?

alvast bedankt,

Groet Pieter

 

[WinteE]

Waarschijnlijk heb je in je macro adressen hard gedefinieerd. Cel-adressen in een macro veranderen niet mee als je rijen of kolommen invoegd (zoals je gewent bent in formules).

Wat ikzelf doorgaans doe is een verborgen kolom aanmaken waarin ik met formules een 1 of 0 laat berekenen. Een 1 als de rij getoond moet worden, een 0 als de rij verborgen moet worden.

Je knop zou dan bijvoorbeeld de volgende code kunnen starten:

For Each c in Range("A1:A100")
  If c.Value = 1 Then
    c.EntireRow.Hidden = True
  Else
    c.EntireRow.Hidden = False
  End If
Next c

 

[Haije]

Pieter,

welkom op Helpmij.nl.

Het helpt heel erg als je ook een voorbeeldbestand (ontdaan van evt. "gevoelige" info) als bijlage beschikbaar stelt.

 

[pvana]

Pieter,

welkom op Helpmij.nl.

Het helpt heel erg als je ook een voorbeeldbestand (ontdaan van evt. "gevoelige" info) als bijlage beschikbaar stelt.

Hieronder een voorbeeld.


Bekijk bijlage voorbeeld help mij forum.xls

 

[Haije]

Pieter,

zorg eerst dat je te verbergen rijen zichtbaar zijn
selecteer dan in bv kolom A de cellen van het te verbergen gebied(in je voorbeeld A7:A11)
geef edeze selectie een naam, bv verborgen (dat kan via invoegen > naam of via het naamvak vlak boven de letter A van kolom A)
wijzig de code in de macro in:

   Range("verborgen").EntireRow.Hidden = False

zie bijlage

 

[pvana]

Pieter,

zorg eerst dat je te verbergen rijen zichtbaar zijn
selecteer dan in bv kolom A de cellen van het te verbergen gebied(in je voorbeeld A7:A11)
geef edeze selectie een naam, bv verborgen (dat kan via invoegen > naam of via het naamvak vlak boven de letter A van kolom A)
wijzig de code in de macro in:

   Range("verborgen").EntireRow.Hidden = False

zie bijlage

Dit is wat ik bedoelde, tnx!

 

[Haije]

Pieter,

zet je dan de status op "opgelost"?
(bovenaan waar je de vraag gestart bent)