Groep Rijen weergeven / verbergen

[pf.de.vries]

Dag allemaal,

Ik heb een grote tabel waar ik het volgende mee wil doen.
Als de gebruiker in een bepaalde cel de weeknummer invoerd en op de knop drukt moet de betreffende week opgezocht worden in de tabel en de desbetreffende dagen + weektotaal weergegeven worden.

Ik stel het me zo voor dat een waarde ( de week) wordt gezocht in de tabel.
Ik heb in G2 al een hulpcel gemaakt vwb de waarde die gezocht moet worden in kolom A
Dan wordt de betreffende rij plus de 7 bovenliggende rijen weergegeven.
De rijen 6 tot en met 435 (behalve dan de gezochte week) worden verborgen.

Ook moet de mogelijkheid blijven bestaan de al aanwezige knoppen te gebruiken; deze geven de groepen weer(dagen, weken, perioden)

Ik weet alleen niet hoe ik de macro moet schrijven.

Iemand een idee?

BVD

Groeten, Pascal
ps. ik heb het bestand bijgevoegd

 

[Wigi]

Je vraagt wel veel ineens Pascal. Misschien is het beter om alles stap voor stap te doen en zelf aan te geven wat je precies in een eerste stap wilt hebben. Tevens waar je vast zit.

Wigi

 

[pf.de.vries]

Dag Wigi,

De vraag is in het kort:

Hoe kan ik dmv een gegeven de rij + 7 bovenliggende rijen weergeven en de rest verbergen?

Hoe schrijf je die code...

Groeten Pascal

 

[Wigi]

Dag Wigi,

De vraag is in het kort:

Hoe kan ik dmv een gegeven de rij + 7 bovenliggende rijen weergeven en de rest verbergen?

Hoe schrijf je die code...

Groeten Pascal

Zoiets in deze stijl?

Application.ScreenUpdating = False
Rows("1:500").Hidden = True
Rows(rijnummer-7 & ":" & rijnummer).Hidden = False
Application.ScreenUpdating = True

Wigi

 

[pf.de.vries]

maar hoe bepaal ik de rijnummer?
deze moet gezocht worden in de tabel aan de hand van de waarde in H2..

 

[Wigi]

maar hoe bepaal ik de rijnummer?
deze moet gezocht worden in de tabel aan de hand van de waarde in H2..

De VBA help functie bevat uitgeschreven code voor het zoeken: Find dus.

Wigi

 

[pf.de.vries]

Dag Wigi,

Ik zit dus met mijn beperkte kennis te $#@**,
want ik kom er nog niet uit.
Maar misschien is mijn uitgangspunt gewoon niet goed.
VBA geeft een fout bij de laatste regel een fout.
Ik heb dit tot zover..
Misschien weet jij wat ik verkeerd doe?


Sub Zoeken()
Dim week As Range, rij As Long

Set week = Worksheets("Blad1").Range("H2")
Range("B6").Select
Do While ActiveCell <> week
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Select
rij = ActiveCell.Row
Rows("6:435" - (rij - 7 & ":" & rij)).Hidden = True

End Sub

Groeten, Pascal

 

[Wigi]

Wat wil je precies in die laatste lijn doen? Is me niet duidelijk.

 

[pf.de.vries]

IK BEN ER UIT!
ik zat te veel te rotzooien met die laatste regel
ik heb hem nu gewoon geplitst en het werkt
zie hieronder:

Sub Zoeken()
ActiveSheet.Unprotect

Dim week As Range, rij As Long
Set week = Worksheets("Blad1").Range("H2")
Range("B6").Select
Do While ActiveCell <> week
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Select
rij = ActiveCell.Row
Rows("6:435").Hidden = True
Rows(rij - 7 & ":" & rij).Hidden = False

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

In ieder geval bedankt voor je aandacht!
Groeten Pascal

 

[Wigi]

ik heb hem nu gewoon geplitst en het werkt

Zet aub eens code tags rond je code, dat maakt het allemaal leesbaar. Selecteer de code en klik op het hekje.

1. Ik dacht niet dat je daar problemen mee had aangezien je bijna letterlijk kon overnemen wat ik geschreven had.

2.

ActiveCell.Select

mag weg.

3. Over de loop die je uitvoert: dit is heeeeel inefficiënt. Wat als je 1000 rijen hebt en hetgeen je zoekt staat ongeveer na 900 rijen... Dat duurt enorm lang. De Find functie is veel handiger.

Als je manueel een nummer opzoekt doe je dat toch ook met Bewerken > Zoeken en niet rij per rij alles nagaan. Toch?

Moraal van het verhaal: zoek Find in de VBA help files en bouw het voorbeeldje na. Ook op het forum hier en op het internet vind je massa's situaties waar soortgelijke code staat. Zelfs vandaag nog heb ik zulke code geschreven in een topic hier.

Wigi