Rijen verbergen die overbodig zijn

[Bokx]

Beste mensen,

Ik ben bezig met een bestandje waarbij het einde van de maand dynamisch is.
Bijvoorbeeld januari heeft 31 dagen, dus is alles zichtbaar tot en met de 31e.
Echter bij februari heb je natuurlijk 28 dagen, en dan zou ik graag willen dat de 28e de laatste zichtbare cel is, en dat 1 t/m 3 maart verborgen zijn.

Hopenlijk wordt een en ander duidelijk met het bijgevoegd bestand. Er staat al een vba code, maar die werkt niet naar behoren.

Alvast bedankt voor de moeite,
Bekijk bijlage Flexibele maand.xls

 

[Cobbe]

Een ander kun je met voorwaardelijke opmaak doen.

=maand(B32)>maand($B$31) opmaak font wit

Cobbe

 

[danny147]

Beste Bokx

Zie bestandje.

Groetjes Danny. :thumb:

 

[Bokx]

Beste mensen,

Bedankt voor de reacties, maar het is net niet wat ik zoek.

Ik heb een voorbeeldbestandje, opgezocht op internet, wat verticaal werkt dus kolommen verbergt.
Nu zou ik graag willen dat die horizontaal gaat werken dus rijen verbergt.
In VBA helpt het veranderen van columns in rows ook niet
In bijgevoegd bestand het originele voorbeeld.

Alvast bedankt!

Bekijk bijlage kalendertest.xls

 

[ExcelAmateur]

Bokx,

Kijk eens of hij het zo wel doet.

Sub Actie()
  Dim i        As Integer
  For i = 31 To 34
    Sheets("Januari").Rows(i).Hidden = (Month(Sheets("Januari").Cells(i, [COLOR="red"]2[/COLOR])) <> Sheets("Blad3").Range("G3"))
  Next
End Sub

 

[Bokx]

Vraag opgelost

ExcelAmateur vriendelijk bedankt!
Dit is exact wat ik in gedachte had maar niet uit kon voeren.

Super bedankt voor de hulp, trouwens allen die gereageerd hebben.