Meerdere drop down keuzes en regels verbergen.

JoepG · 28 dec 2021

Beste,
Ik heb een code gemaakt voor het verbergen en weergeven van drop down keuze knopen, samen met het verbergen van regels.
Volgens mij ben ik dit heel omslachtig aan het doen, en zou dat veel makkelijke moeten kunnen.
Dit is een deel van de code, uiteindelijk gaat het om 3x 12 verschillende opties, dus 36 verschillende situaties het sheet op moet worden aangepast.

Code:

Sub Aantal_Soort()
If Sheets("Data").Range("$S$8") = 1 And Sheets("Data").Range("$F$7") = 4 Then
     Rows("1:6").Hidden = False
     Rows("7").Hidden = True
     Rows("8").Hidden = False
     Rows("9:11").Hidden = True
     Rows("12:21").Hidden = False
     Rows("22:34").Hidden = True
     Rows("35:38").Hidden = False
     Rows("39:40").Hidden = True
     Rows("41:44").Hidden = False
     Rows("45:48").Hidden = True
     Rows("49:51").Hidden = False
     Rows("52:55").Hidden = True
     Rows("56:60").Hidden = False
     Rows("61:720").hidden = True
ActiveSheet.Shapes("Drop Down 1").Visible = True
ActiveSheet.Shapes("Drop Down 2").Visible = True
ActiveSheet.Shapes("Drop Down 3").Visible = True
ActiveSheet.Shapes("Drop Down 4").Visible = False
ActiveSheet.Shapes("Drop Down 5").Visible = True
ActiveSheet.Shapes("Drop Down 6").Visible = True
ActiveSheet.Shapes("Drop Down 7").Visible = False
ActiveSheet.Shapes("Drop Down 8").Visible = False
ActiveSheet.Shapes("Drop Down 9").Visible = True
ActiveSheet.Shapes("Drop Down 11").Visible = False
ActiveSheet.Shapes("Drop Down 12").Visible = False
ActiveSheet.Shapes("Drop Down 14").Visible = False
ActiveSheet.Shapes("Drop Down 15").Visible = False
ActiveSheet.Shapes("Drop Down 16").Visible = False
ActiveSheet.Shapes("Drop Down 17").Visible = False
ActiveSheet.Shapes("Drop Down 18").Visible = False
ActiveSheet.Shapes("Drop Down 19").Visible = False
ActiveSheet.Shapes("Drop Down 20").Visible = False
ActiveSheet.Shapes("Drop Down 21").Visible = False
ActiveSheet.Shapes("Drop Down 22").Visible = False
ActiveSheet.Shapes("Drop Down 23").Visible = False
ActiveSheet.Shapes("Drop Down 24").Visible = False
ActiveSheet.Shapes("Drop Down 25").Visible = False
ActiveSheet.Shapes("Drop Down 26").Visible = False
ActiveSheet.Shapes("Drop Down 27").Visible = False
ActiveSheet.Shapes("Drop Down 28").Visible = False
ActiveSheet.Shapes("Drop Down 29").Visible = False
ActiveSheet.Shapes("Drop Down 30").Visible = False
ActiveSheet.Shapes("Drop Down 31").Visible = False
ActiveSheet.Shapes("Drop Down 32").Visible = False
ActiveSheet.Shapes("Drop Down 33").Visible = False
ActiveSheet.Shapes("Drop Down 34").Visible = False
ActiveSheet.Shapes("Drop Down 35").Visible = False
ActiveSheet.Shapes("Drop Down 36").Visible = False
ActiveSheet.Shapes("Drop Down 37").Visible = False
ActiveSheet.Shapes("Drop Down 38").Visible = False
ActiveSheet.Shapes("Drop Down 39").Visible = False
ActiveSheet.Shapes("Drop Down 41").Visible = False
ActiveSheet.Shapes("Drop Down 42").Visible = False
ActiveSheet.Shapes("Drop Down 43").Visible = False
ActiveSheet.Shapes("Drop Down 44").Visible = False
ActiveSheet.Shapes("Drop Down 45").Visible = False
ActiveSheet.Shapes("Drop Down 46").Visible = False
ActiveSheet.Shapes("Drop Down 47").Visible = False
ActiveSheet.Shapes("Drop Down 48").Visible = False
ActiveSheet.Shapes("Drop Down 49").Visible = False
ActiveSheet.Shapes("Drop Down 50").Visible = False
ActiveSheet.Shapes("Drop Down 51").Visible = False
ActiveSheet.Shapes("Drop Down 52").Visible = False
ActiveSheet.Shapes("Drop Down 53").Visible = False
ActiveSheet.Shapes("Drop Down 54").Visible = False
ActiveSheet.Shapes("Drop Down 55").Visible = False
ActiveSheet.Shapes("Drop Down 56").Visible = False
ActiveSheet.Shapes("Drop Down 57").Visible = False
ActiveSheet.Shapes("Drop Down 58").Visible = False
ActiveSheet.Shapes("Drop Down 59").Visible = False
ActiveSheet.Shapes("Drop Down 60").Visible = False
ActiveSheet.Shapes("Drop Down 61").Visible = False
ActiveSheet.Shapes("Drop Down 62").Visible = False
ActiveSheet.Shapes("Drop Down 63").Visible = False
ActiveSheet.Shapes("Drop Down 64").Visible = False
ActiveSheet.Shapes("Drop Down 65").Visible = False
     PageSetup.PrintArea = "A1:O60"
End If

If Sheets("Data").Range("$S$8") = 1 And Sheets("Data").Range("$F$7") = 5 Then
     Rows("1:6").Hidden = False
     Rows("7").Hidden = True
     Rows("8").Hidden = False
     Rows("9:11").Hidden = True
     Rows("12:21").Hidden = False
     Rows("22:34").Hidden = True
     Rows("35:38").Hidden = False
     Rows("39:40").Hidden = True
     Rows("41:44").Hidden = False
     Rows("45:48").Hidden = True
     Rows("49:51").Hidden = False
     Rows("52:58").Hidden = True
     Rows("59:60").Hidden = False
     Rows("61:63").Hidden = True
     Rows("64").Hidden = False
     Rows("69:71").Hidden = True
     Rows("72:81").Hidden = False
     Rows("82:94").Hidden = True
     Rows("95:98").Hidden = False
     Rows("99:100").Hidden = True
     Rows("101:104").Hidden = False
     Rows("105:108").Hidden = True
     Rows("109:111").Hidden = False
     Rows("112:117").Hidden = True
     Rows("118:120").Hidden = False
     Rows("121:720").hidden = True
ActiveSheet.Shapes("Drop Down 1").Visible = True
ActiveSheet.Shapes("Drop Down 2").Visible = True
ActiveSheet.Shapes("Drop Down 3").Visible = True
ActiveSheet.Shapes("Drop Down 4").Visible = False
ActiveSheet.Shapes("Drop Down 5").Visible = True
ActiveSheet.Shapes("Drop Down 6").Visible = True
ActiveSheet.Shapes("Drop Down 7").Visible = False
ActiveSheet.Shapes("Drop Down 8").Visible = False
ActiveSheet.Shapes("Drop Down 9").Visible = True
ActiveSheet.Shapes("Drop Down 11").Visible = False
ActiveSheet.Shapes("Drop Down 12").Visible = False
ActiveSheet.Shapes("Drop Down 14").Visible = True
ActiveSheet.Shapes("Drop Down 15").Visible = True
ActiveSheet.Shapes("Drop Down 16").Visible = True
ActiveSheet.Shapes("Drop Down 17").Visible = False
ActiveSheet.Shapes("Drop Down 18").Visible = True
ActiveSheet.Shapes("Drop Down 19").Visible = True
ActiveSheet.Shapes("Drop Down 20").Visible = False
ActiveSheet.Shapes("Drop Down 21").Visible = False
ActiveSheet.Shapes("Drop Down 22").Visible = True
ActiveSheet.Shapes("Drop Down 23").Visible = False
ActiveSheet.Shapes("Drop Down 24").Visible = False
ActiveSheet.Shapes("Drop Down 25").Visible = False
ActiveSheet.Shapes("Drop Down 26").Visible = False
ActiveSheet.Shapes("Drop Down 27").Visible = False
ActiveSheet.Shapes("Drop Down 28").Visible = False
ActiveSheet.Shapes("Drop Down 29").Visible = False
ActiveSheet.Shapes("Drop Down 30").Visible = False
ActiveSheet.Shapes("Drop Down 31").Visible = False
ActiveSheet.Shapes("Drop Down 32").Visible = False
ActiveSheet.Shapes("Drop Down 33").Visible = False
ActiveSheet.Shapes("Drop Down 34").Visible = False
ActiveSheet.Shapes("Drop Down 35").Visible = False
ActiveSheet.Shapes("Drop Down 36").Visible = False
ActiveSheet.Shapes("Drop Down 37").Visible = False
ActiveSheet.Shapes("Drop Down 38").Visible = False
ActiveSheet.Shapes("Drop Down 39").Visible = False
ActiveSheet.Shapes("Drop Down 41").Visible = False
ActiveSheet.Shapes("Drop Down 42").Visible = False
ActiveSheet.Shapes("Drop Down 43").Visible = False
ActiveSheet.Shapes("Drop Down 44").Visible = False
ActiveSheet.Shapes("Drop Down 45").Visible = False
ActiveSheet.Shapes("Drop Down 46").Visible = False
ActiveSheet.Shapes("Drop Down 47").Visible = False
ActiveSheet.Shapes("Drop Down 48").Visible = False
ActiveSheet.Shapes("Drop Down 49").Visible = False
ActiveSheet.Shapes("Drop Down 50").Visible = False
ActiveSheet.Shapes("Drop Down 51").Visible = False
ActiveSheet.Shapes("Drop Down 52").Visible = False
ActiveSheet.Shapes("Drop Down 53").Visible = False
ActiveSheet.Shapes("Drop Down 54").Visible = False
ActiveSheet.Shapes("Drop Down 55").Visible = False
ActiveSheet.Shapes("Drop Down 56").Visible = False
ActiveSheet.Shapes("Drop Down 57").Visible = False
ActiveSheet.Shapes("Drop Down 58").Visible = False
ActiveSheet.Shapes("Drop Down 59").Visible = False
ActiveSheet.Shapes("Drop Down 60").Visible = False
ActiveSheet.Shapes("Drop Down 61").Visible = False
ActiveSheet.Shapes("Drop Down 62").Visible = False
ActiveSheet.Shapes("Drop Down 63").Visible = False
ActiveSheet.Shapes("Drop Down 64").Visible = False
ActiveSheet.Shapes("Drop Down 65").Visible = False
     PageSetup.PrintArea = "A1:O120"
End If


If Sheets("Data").Range("$S$8") = 1 And Sheets("Data").Range("$F$7") = 6 Then
     Rows("1:6").Hidden = False
     Rows("7").Hidden = True
     Rows("8").Hidden = False
     Rows("9:11").Hidden = True
     Rows("12:21").Hidden = False
     Rows("22:34").Hidden = True
     Rows("35:38").Hidden = False
     Rows("39:40").Hidden = True
     Rows("41:44").Hidden = False
     Rows("45:48").Hidden = True
     Rows("49:51").Hidden = False
     Rows("52:58").Hidden = True
     Rows("59:60").Hidden = False
     Rows("61:63").Hidden = True
     Rows("64").Hidden = False
     Rows("69:71").Hidden = True
     Rows("72:81").Hidden = False
     Rows("82:94").Hidden = True
     Rows("95:98").Hidden = False
     Rows("99:100").Hidden = True
     Rows("101:104").Hidden = False
     Rows("105:108").Hidden = True
     Rows("109:111").Hidden = False
     Rows("112:118").Hidden = True
     Rows("119:120").Hidden = False
     Rows("121:123").Hidden = True
     Rows("124").Hidden = False
     Rows("129:131").Hidden = True
     Rows("132:141").Hidden = False
     Rows("142:154").Hidden = True
     Rows("155:158").Hidden = False
     Rows("159:160").Hidden = True
     Rows("161:164").Hidden = False
     Rows("165:168").Hidden = True
     Rows("169:171").Hidden = False
     Rows("172:178").Hidden = True
     Rows("179:180").Hidden = False
     Rows("181:720").Hidden = True
ActiveSheet.Shapes("Drop Down 1").Visible = True
ActiveSheet.Shapes("Drop Down 2").Visible = True
ActiveSheet.Shapes("Drop Down 3").Visible = True
ActiveSheet.Shapes("Drop Down 4").Visible = False
ActiveSheet.Shapes("Drop Down 5").Visible = True
ActiveSheet.Shapes("Drop Down 6").Visible = True
ActiveSheet.Shapes("Drop Down 7").Visible = False
ActiveSheet.Shapes("Drop Down 8").Visible = False
ActiveSheet.Shapes("Drop Down 9").Visible = True
ActiveSheet.Shapes("Drop Down 11").Visible = False
ActiveSheet.Shapes("Drop Down 12").Visible = False
ActiveSheet.Shapes("Drop Down 14").Visible = True
ActiveSheet.Shapes("Drop Down 15").Visible = True
ActiveSheet.Shapes("Drop Down 16").Visible = True
ActiveSheet.Shapes("Drop Down 17").Visible = False
ActiveSheet.Shapes("Drop Down 18").Visible = True
ActiveSheet.Shapes("Drop Down 19").Visible = True
ActiveSheet.Shapes("Drop Down 20").Visible = False
ActiveSheet.Shapes("Drop Down 21").Visible = False
ActiveSheet.Shapes("Drop Down 22").Visible = True
ActiveSheet.Shapes("Drop Down 23").Visible = False
ActiveSheet.Shapes("Drop Down 24").Visible = False
ActiveSheet.Shapes("Drop Down 25").Visible = True
ActiveSheet.Shapes("Drop Down 26").Visible = True
ActiveSheet.Shapes("Drop Down 27").Visible = True
ActiveSheet.Shapes("Drop Down 28").Visible = False
ActiveSheet.Shapes("Drop Down 29").Visible = True
ActiveSheet.Shapes("Drop Down 30").Visible = True
ActiveSheet.Shapes("Drop Down 31").Visible = False
ActiveSheet.Shapes("Drop Down 32").Visible = False
ActiveSheet.Shapes("Drop Down 33").Visible = True
ActiveSheet.Shapes("Drop Down 34").Visible = False
ActiveSheet.Shapes("Drop Down 35").Visible = False
ActiveSheet.Shapes("Drop Down 36").Visible = False
ActiveSheet.Shapes("Drop Down 37").Visible = False
ActiveSheet.Shapes("Drop Down 38").Visible = False
ActiveSheet.Shapes("Drop Down 39").Visible = False
ActiveSheet.Shapes("Drop Down 41").Visible = False
ActiveSheet.Shapes("Drop Down 42").Visible = False
ActiveSheet.Shapes("Drop Down 43").Visible = False
ActiveSheet.Shapes("Drop Down 44").Visible = False
ActiveSheet.Shapes("Drop Down 45").Visible = False
ActiveSheet.Shapes("Drop Down 46").Visible = False
ActiveSheet.Shapes("Drop Down 47").Visible = False
ActiveSheet.Shapes("Drop Down 48").Visible = False
ActiveSheet.Shapes("Drop Down 49").Visible = False
ActiveSheet.Shapes("Drop Down 50").Visible = False
ActiveSheet.Shapes("Drop Down 51").Visible = False
ActiveSheet.Shapes("Drop Down 52").Visible = False
ActiveSheet.Shapes("Drop Down 53").Visible = False
ActiveSheet.Shapes("Drop Down 54").Visible = False
ActiveSheet.Shapes("Drop Down 55").Visible = False
ActiveSheet.Shapes("Drop Down 56").Visible = False
ActiveSheet.Shapes("Drop Down 57").Visible = False
ActiveSheet.Shapes("Drop Down 58").Visible = False
ActiveSheet.Shapes("Drop Down 59").Visible = False
ActiveSheet.Shapes("Drop Down 60").Visible = False
ActiveSheet.Shapes("Drop Down 61").Visible = False
ActiveSheet.Shapes("Drop Down 62").Visible = False
ActiveSheet.Shapes("Drop Down 63").Visible = False
ActiveSheet.Shapes("Drop Down 64").Visible = False
ActiveSheet.Shapes("Drop Down 65").Visible = False
     PageSetup.PrintArea = "A1:O240"
     
     End If
     
'Alles zichtbaar
If Sheets("Data").Range("$S$4") = 1 Then
     Rows("1:720").Hidden = False
ActiveSheet.Shapes("Drop Down 1").Visible = True
ActiveSheet.Shapes("Drop Down 2").Visible = True
ActiveSheet.Shapes("Drop Down 3").Visible = True
ActiveSheet.Shapes("Drop Down 4").Visible = True
ActiveSheet.Shapes("Drop Down 5").Visible = True
ActiveSheet.Shapes("Drop Down 6").Visible = True
ActiveSheet.Shapes("Drop Down 7").Visible = True
ActiveSheet.Shapes("Drop Down 8").Visible = True
ActiveSheet.Shapes("Drop Down 9").Visible = True
ActiveSheet.Shapes("Drop Down 11").Visible = True
ActiveSheet.Shapes("Drop Down 12").Visible = True
ActiveSheet.Shapes("Drop Down 14").Visible = True
ActiveSheet.Shapes("Drop Down 15").Visible = True
ActiveSheet.Shapes("Drop Down 16").Visible = True
ActiveSheet.Shapes("Drop Down 17").Visible = True
ActiveSheet.Shapes("Drop Down 18").Visible = True
ActiveSheet.Shapes("Drop Down 19").Visible = True
ActiveSheet.Shapes("Drop Down 20").Visible = True
ActiveSheet.Shapes("Drop Down 21").Visible = True
ActiveSheet.Shapes("Drop Down 22").Visible = True
ActiveSheet.Shapes("Drop Down 23").Visible = True
ActiveSheet.Shapes("Drop Down 24").Visible = True
ActiveSheet.Shapes("Drop Down 25").Visible = True
ActiveSheet.Shapes("Drop Down 26").Visible = True
ActiveSheet.Shapes("Drop Down 27").Visible = True
ActiveSheet.Shapes("Drop Down 28").Visible = True
ActiveSheet.Shapes("Drop Down 29").Visible = True
ActiveSheet.Shapes("Drop Down 30").Visible = True
ActiveSheet.Shapes("Drop Down 31").Visible = True
ActiveSheet.Shapes("Drop Down 32").Visible = True
ActiveSheet.Shapes("Drop Down 33").Visible = True
ActiveSheet.Shapes("Drop Down 34").Visible = True
ActiveSheet.Shapes("Drop Down 35").Visible = True
ActiveSheet.Shapes("Drop Down 36").Visible = True
ActiveSheet.Shapes("Drop Down 37").Visible = True
ActiveSheet.Shapes("Drop Down 38").Visible = True
ActiveSheet.Shapes("Drop Down 39").Visible = True
ActiveSheet.Shapes("Drop Down 41").Visible = True
ActiveSheet.Shapes("Drop Down 42").Visible = True
ActiveSheet.Shapes("Drop Down 43").Visible = True
ActiveSheet.Shapes("Drop Down 44").Visible = True
ActiveSheet.Shapes("Drop Down 45").Visible = True
ActiveSheet.Shapes("Drop Down 46").Visible = True
ActiveSheet.Shapes("Drop Down 47").Visible = True
ActiveSheet.Shapes("Drop Down 48").Visible = True
ActiveSheet.Shapes("Drop Down 49").Visible = True
ActiveSheet.Shapes("Drop Down 50").Visible = True
ActiveSheet.Shapes("Drop Down 51").Visible = True
ActiveSheet.Shapes("Drop Down 52").Visible = True
ActiveSheet.Shapes("Drop Down 53").Visible = True
ActiveSheet.Shapes("Drop Down 54").Visible = True
ActiveSheet.Shapes("Drop Down 55").Visible = True
ActiveSheet.Shapes("Drop Down 56").Visible = True
ActiveSheet.Shapes("Drop Down 57").Visible = True
ActiveSheet.Shapes("Drop Down 58").Visible = True
ActiveSheet.Shapes("Drop Down 59").Visible = True
ActiveSheet.Shapes("Drop Down 60").Visible = True
ActiveSheet.Shapes("Drop Down 61").Visible = True
ActiveSheet.Shapes("Drop Down 62").Visible = True
ActiveSheet.Shapes("Drop Down 63").Visible = True
ActiveSheet.Shapes("Drop Down 64").Visible = True
ActiveSheet.Shapes("Drop Down 65").Visible = True
     PageSetup.PrintArea = "A1:O720"
End If

End Sub

Excel wordt er ook een beetje traag van, iemand suggesties?

city guy · 29 dec 2021

Goedemorgen

Ik heb geen idee wat je doel is maar ik zie wel dat er vaste patronen in zitten.

In een andere omgeving zou ik voor het volgende kiezen:
1. De vaste structuur apart vast leggen, in een andere tab of pagina. Maak ook van bereiken van 1 cel of rij een range. Dat is bevorderlijk voor een uniforme verwerking.

2. Kopieer de voorbewerkte structuur naar waar je ze wilt hebben, afhankelijk van de selectie in dropdown. Is het mogelijk om in jouw code objecten en hun properties (cel, rij, kolom) als array te benaderen? Doe dat dan.

3. Stel automatisch bijwerken van cellen even uit tot dat de nieuwe situatie verwerkt is en je de ge-update cellen echt wilt zien.

Het voorgaande geldt alleen als de structuren echt vast liggen. Je gebruikt meer ruimte maar wint aan snelheid. En, het is geen sluitende oplossing, meer een denkwijze over je probleem. Een suggestie dus.

Succes
CG

JoepG · 3 jan 2022

Goede middag,

En als eerste nog de beste wensen

Ja er zit een patroon in,
12 lijsten met vaste indeling, waar afhankelijk van de keuze bij elk lijst de zelfde regels worden verborgen.

Er is een keuze gemaakt tussen de 1 & 12 (identieke) lijsten
vervolgens een keuze van het soort lijst 1, 2 of 3

in elke lijst zijn 11 drop down menu's

1 lijst, en soort lijst 1
alles onder regel 60 wordt verborgen,
en een regel 28 wordt ook verborgen.

Wanneer 1 lijst van soort 2 wordt gekozen
dan wordt een deel van lijst 1 verborgen waar ook drop down menu's in staan,

Alleen alle dropdown keuze schuiven dan naar boven en verdwijnen niet, waardoor ze over elkaar schuiven en het niet meer duidelijk is, of je kan de juiste niet een vinden.

Met Array krijg ik nog niet voor elkaar (ben daar niet bekend mee) weet niet goed hoe dat werkt.
Is dat de beste manier om de dropdown samen met de rijen te verbergen of is er dan nog een optie mee?

snb · 3 jan 2022

Een mooie beschrijving; een voorbeeldbestand leidt echter veel sneller tot duidelijkheid.

JoepG · 3 jan 2022

Klopt, heb je gelijk in,

Hierbij een voorbeeld lijst, je ziet de drop down lijsten over elkaar heen vallen.

met dit aantal valt het nog wel mee,
maar in origineel heb je dus elke pagina (60 regels) 11 dropdown menu's en als je dan 1 of 2 lijsten hebt dan is het niet meer werkbaar.

gr. J

JoepG · 4 jan 2022

Is het mogelijk met een korte regel alle drop down te verwijderen?

(Ook als er een aantal nummer ontbreken in de benamingen van de drop down selecties)

Code:

ActiveSheet.Shapes("Drop Down 41").Visible = False
ActiveSheet.Shapes("Drop Down 42").Visible = False
ActiveSheet.Shapes("Drop Down 45").Visible = False
ActiveSheet.Shapes("Drop Down 46").Visible = False

Dit werkt bij mij namelijk niet:

Code:

ActiveSheet.Shapes("Drop Down 41:46").Visible = False

Gr. J

snb · 4 jan 2022

Kijk eens in je basisboek Excel bij validatie.

JoepG · 4 jan 2022

Bij validatie kan ik toch geen keuze lijst zichtbaar houden?
Dat dat pijltje naar beneden er continu staat.

Dan kom ik toe steeds uit bij een keuzelijst me invoerveld,
Ook moeten er gegevens opgezocht worden afhankelijk van de keuze die gemaakt wordt.

Ik kom dan toch bij een lange code en daarmee traag excel bestand.

Zal proberen het daadwerkelijke bestand aan te passen dat ik deze kan uploaden, zonder privacy gevoelige zaken.

city guy · 4 jan 2022

JoepG zei:
Bij validatie kan ik toch geen keuze lijst zichtbaar houden?
Dat dat pijltje naar beneden er continu staat.

Dan kom ik toe steeds uit bij een keuzelijst me invoerveld,
Ook moeten er gegevens opgezocht worden afhankelijk van de keuze die gemaakt wordt.

Ik kom dan toch bij een lange code en daarmee traag excel bestand.

Zal proberen het daadwerkelijke bestand aan te passen dat ik deze kan uploaden, zonder privacy gevoelige zaken.

Ik heb de spreadsheet bekeken. Misschien is het de moeite waard om eens te kijken of dit in een access-database opgelost kan worden.

Mijn argumenten hiervoor (ook nu ik over privacy lees):
- de database en de procedure kunnen eventueel gescheiden worden
- er wordt nu meer met gegevens geschoven dan dat er gerekend wordt
- in een spreadsheet kunnen, tenzij goed afgeschermd, gegevens ongewild corrupt worden door een typefout
- ik zie in de spreadsheet berekende cellen met samengestelde inhoud gevuld staan die eigenlijk net zo goed ad hoc aangemaakt kunnen worden
- de gegevenspool is overzichtelijker opgedeeld in de nodige tabellen
- De presentatie op het scherm kan overzichtelijker gehouden worden met gebruik van een userform en een aantal controls.
- het is mogelijk SQL en VBA te gebruiken. (Misschien interessant wanneer dit op een webserver zou moeten draaien, ik geef maar een voorzet)
- de relaties tussen de tabellen zijn makkelijker te realiseren.

Dit voorstel is gebaseerd op access-formaten t/m 2016

JoepG · 18 jan 2022

Dank jullie wel voor de input,
Ik heb het nu middels twee tabbladen gedaan, en hierin al een voor selectie gemaakt.
Dit werkt het beste (in excel) met Acces database is misschien wel iets voor de toekomst,
Het document dient in elke geval ook offline te gebruiken zijn.
Dank je wel voor het mee denken allemaal.

Meerdere drop down keuzes en regels verbergen.

JoepG

Gebruiker

city guy

Gebruiker

JoepG

Gebruiker

snb

Verenigingslid

JoepG

Gebruiker

Bijlagen

JoepG

Gebruiker

snb

Verenigingslid

JoepG

Gebruiker

city guy

Gebruiker

JoepG

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy