• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

met opdrachtknop keuzelijsten uitvoeren

Status
Niet open voor verdere reacties.

tjsylvie

Nieuwe gebruiker
Lid geworden
18 okt 2013
Berichten
3
Hallo,

Ik heb in excel checklists gemaakt mbt overheidsopdrachten. Ik heb ook in vba een formulier gemaakt met daarop 2 keuzelijsten en een opdrachtknop die ik GO! heb genoemd.

Nu zou ik graag hebben dat als men in de 2 keuzelijsten een combinatie maakt (vb ComboBox1: Openbare aanbesteding en ComboBox2: nieuw dossier) dat hij dan bij het drukken op de GO button automatisch naar het tabblad gaat met de checklist.

Ik ben absoluut geen expert op het gebied van VBA.

Ik hoop dat iemand mij op de goede weg kan zetten...

Ik had gedacht aan een IIf functie, maar daar kom ik niet uit!

Groetjes Sylvie
 
Wat lukt er niet? naar de juiste tab gaan? formulier sluiten? meerdere combinaties maken?
 
Wel zal even zeggen wat ik al heb:

voor de keuzelijsten:

Private Sub ComboBox1_DropButtonClick()
ComboBox1.List = Array("Openbare aanbesteding", "Beperkte aanbesteding")

End Sub

Private Sub ComboBox2_DropButtonClick()
ComboBox2.List = Array("nieuw dossier", "uitvoeringsincident")
End Sub


Als ik nu zou kiezen in de eerste lijst voor "openbare aanbesteding" en in de tweede lijst voor "nieuw dossier"; dan zou ik willen met een opdrachtknop naar het juiste tabblad gaan. maar ik weet niet welke code ik moet invoeren bij
Private Sub CommandButton1_Click()
??????????

End Sub

Er kunnen dus meerdere combinaties gemaakt worden (beperkte aanbesteding + nieuw etc...)
 
Even uit het hoofd zo zoiets dan moeten kunnen:

Code:
if Combobox1.Text = "Openbare aanbesteding" then
   if Combobox2.Text = "nieuw dossier"" then
      Sheets("checklist1").activate
   else
      Sheets("checklist2").activate
   end if
else
   if Combobox2.Text = "nieuw dossier"" then
      Sheets("checklist3").activate
   else
      Sheets("checklist4").activate
   end if
end if

me.hide

Indien er in werkelijkheid veel meer keuzes zijn, kan je het mogelijk beter anders opbouwen (spel en typefouten in code voorbehouden ;) )
 
Super...

Bedankt alvast voor de snelle (en eigenlijk toch wel logische)oplossing!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan