Vraagje over Excel

[boneless]

Hallo iedereen,

Ik ben in excel bezig om een formulier op te zetten.

Nu vroeg ik me af of het mogelijk was om het hele formulier aan te passen aan de hand van een keuze die wordt gedaan.

Ik heb bijvoorbeeld twee keuzes, verlichting en motoren. Aan de hand van de keuze moet een formulier in beeld komen. Voor elk van de keuzes is heeft het formulier andere keuzes en invoervelden.

Is dit mogelijk?

Alvast bedankt.

[Jule]

Daar ik nogal ne dommen ben, begrijp ik uw vraag niet goed. Ik voeg een voorbeeld toe maar ik weet niet of u daar veel aan hebt. Let wel, ik heb een macro toegevoegd, uw macrobeveiliging moet dus op laag ingesteld zijn om het voorbeeld te doen werken. Dit zijn de toegevoegde macro's in VBA :
Voor het aanvinkvakje:
Private Sub CheckBox1_Click()
Worksheets("Blad2").Visible = True
Worksheets("Blad2").Activate
End Sub
Voor het keuzerondje:
Private Sub OptionButton1_Click()
Worksheets("Blad3").Visible = True
Worksheets("Blad3").Activate
End Sub
Dus als een van beiden aangeklikt wordt, komt het opgegeven werkblad zichtbaar (voor u klikt, ziet u enkel Blad1) en wordt het vooraan geplaatst. (Geactiveerd) Als u iets anders wil laat het weten. Succes!

[boneless]

Dat is wel zo'n beetje het idee. We zijn al aan het knutselen geweest en kwamen op een soortgelijke oplossing. Alleen met rijen en kolommen die verbergen.
We zijn weer een stukje verder, dank u!

[Jule]

Rijen en kolommen die verbergen?? Ok, dat is ook een mogelijkheid. Maar om het geheel overzichtelijk te houden, verkies ik toch meerdere werkbladen. Aan het einde van het werkblad maak je een opdrachtknop om het huidige te sluiten en een ander te openen. Zoiets als :
Private Sub Commandbutton1()
Worksheets("Blad2").Visible = False
Worksheets("Blad1").Activate
End Sub
Met de goto en scroll functie kan je trouwens een ander blad op gelijk welke cel gaan openen.
Voorbeeld
In het volgende voorbeeld wordt cel A154 in Blad1 geselecteerd en wordt het werkblad verschoven zodat het bereik wordt weergegeven.
<CODE>Application.Goto Reference:= _</CODE>
<CODE>Worksheets("Blad1").Range("A154"), _</CODE>
<CODE>scroll:=True</CODE>
<CODE></CODE>En in plaats van Blad1, Blad2, ... te gebruiken, kan je Blad1 zijn naam wijzigen naar Algemeen; Blad2 = Motoren; Blad3 = Verlichting, ... Lijkt mij toch aangenamer om mee te werken. Maar u bent vrij in doen en laten ... Succes!








</PRE>

[boneless]

Well, nu we toch hier bezig zijn.

Is het mogelijk om automatisch een UserForm te laden bij het opstarten van een werkmap?

[Jule]

Ja, maar ik kan geen UserForm schrijven. Zoals eerder aangegeven : ik ben gene slimme. Probeer eens met :
Private Sub Worksheet_Activate()
userform1.show
End Sub
Het moet ook nog mogelijk zijn om een UserForm te openen in een module, maar hier ken ik echt niet genoeg van. Maar jij zal wel weten wat je doet?!! Succes!

[boneless]

Heb het zelf al gevonden

Nieuwe module aanmaken naast de Userform.

Sub Auto_Open()
UserForm1.Show
End Sub

Sub FormOff()
Unload UserForm1
End Sub

Misschien dat iemand anders er nog een keer iets aan heeft
Ben nu wat meer in VB gedoken, kan er wel veel mee, was er altijd een beetje bang voor .

Nog een vraagje. Ik heb nu steeds dat de code zo breed is dat het buiten het scherm valt. Een enter drukken kan niet omdat VB dan een fout ziet. Is hier een eenvoudige oplossing voor?

[sankey]

Hoi,

Ik weet dat je in access mag verspringen van regel met een spatie en een underscore " _" waar de code door een comma gescheiden wordt. VB:

VarWaarden = Array("Stad ", "Land ", "Postcode ", _
" Naam ", "Voornaam ", " Beroep ")

Hopelijks heb je hier wat aan.

[boneless]

Dankje Kan inderdaad ook met excel, waren we alweer achtergekomen. Scheelt weinig of ik ben zelf al een VBA expert geworden