Ik zit met het volgende probleem: op mijn werk gebruiken we een excelsheet (excel2003) als werklijst en ik ben de gelukkige die deze lijst mag 'beheren'. Met behulp van macro's heb ik wat eenvoudige handelingen vastgelegd en deze onder command buttons gestopt (bv het weergeven van de kolommen F t/m K door de anderen simpelweg te verbergen), so far so good.
Nu is er een iets "geavanceerder" verzoek gekomen. Nu moet ik niet alleen de kolommen F:H weergeven maar als in rij x de cellen Fx t/m Hx leeg zijn dan mag rij x ook verborgen worden zodat alleen de rijen met een waarde in F, G of H overblijven.
Ik heb wat gezocht en gelezen op http://msdn.microsoft.com/en-us/library/bb386107.aspx en de volgende code opgedoken die vanaf cell A5 de rijen doorzoekt en stopt bij de eerste lege A cell. De rijen zijn altijd gevuld vanaf A dus dit leek me wel een goede manier om te stoppen bij de eerste lege rij.
Het probleem zit dus bij het stukje "Insert your code here.", hier zou dus de code moeten komen die kijkt of alle cellen in het bereik F(activecell) t/m K(activecell) leeg zijn (of één van de cellen in hetzelfde bereik niet leeg is). Als de rij hieraan voldoet dan mag deze dus verborgen worden en is de volgende rij aan de beurt.
Ik hoop dat ik eea duidelijk heb opgeschreven en ik verwacht dat de oplossing relatief simpel zal zijn maar met mijn ervaring (Turbo Pascal >15 jaar geleden en wat simpele Excel macro's.) kom ik er op korte termijn niet uit dus als iemand mij op weg zou willen helpen
.
Nu is er een iets "geavanceerder" verzoek gekomen. Nu moet ik niet alleen de kolommen F:H weergeven maar als in rij x de cellen Fx t/m Hx leeg zijn dan mag rij x ook verborgen worden zodat alleen de rijen met een waarde in F, G of H overblijven.
Ik heb wat gezocht en gelezen op http://msdn.microsoft.com/en-us/library/bb386107.aspx en de volgende code opgedoken die vanaf cell A5 de rijen doorzoekt en stopt bij de eerste lege A cell. De rijen zijn altijd gevuld vanaf A dus dit leek me wel een goede manier om te stoppen bij de eerste lege rij.
Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
| Sub ViewSA () ' Select cell A5, *first line of data*. Range("A5").Select ' Set Do loop to stop when an empty cell is reached. Do Until IsEmpty(ActiveCell) ' Insert your code here. 'Step down 1 row from present location. ActiveCell.Offset(1, 0).Select Loop End Sub |
Het probleem zit dus bij het stukje "Insert your code here.", hier zou dus de code moeten komen die kijkt of alle cellen in het bereik F(activecell) t/m K(activecell) leeg zijn (of één van de cellen in hetzelfde bereik niet leeg is). Als de rij hieraan voldoet dan mag deze dus verborgen worden en is de volgende rij aan de beurt.
Ik hoop dat ik eea duidelijk heb opgeschreven en ik verwacht dat de oplossing relatief simpel zal zijn maar met mijn ervaring (Turbo Pascal >15 jaar geleden en wat simpele Excel macro's.) kom ik er op korte termijn niet uit dus als iemand mij op weg zou willen helpen
[ Voor 2% gewijzigd door Frentik op 27-05-2009 00:37 . Reden: TR gemaakt ]
>> Nieuw! - Twitch << & >> YT Channel