[VBA] Excell - pulldown-menu'tje

[RaZ]

ik heb nu een macro gemaakt voor in Excell die een aantal dingen doet. Met een pop-up'je vraagt dat ding 3 vragen:
Begin-kolom-letter Eind-kolom-letter en aantal records

Weet iemand het commando om 1 pop-up-scherm van de kolom vragen een pulldown-menu'tje te maken is? Dus dat die de header geeft?

[Skinny]

Je kunt een UserForm aanmaken waarin je de 3 vragen stelt.
(Menuutje Invoegen - UserForm, in de Visal Basic Editor)

Dan op het UserForm ook een knop aanmaken die de verschillende velden samensmeed tot een adres.

Semi-Code:

code:

Sub CmdButton_OK_Click() 

Adres = txt_Rij & txt_Kol
Unload UserForm

End Sub

[RaZ]

Zo'n userform invoegen snap ik. Nu alleen, hoe krijg ik daar een pulldown-menu in. Als ik zoek op pulldown in de help, komt daar nada nix uit

De twee pulldown-menu's moeten dus alle variable gebruiken die ik uit het scannen van de header gehaald heb. Welk commando gebruik ik om die pulldown te krijgen. geen idee waar ik zoeken moet, imputbox krijgt z'n eigen pop-up, ik wil er dus 1 hebben

[Skinny]

Ik snap niet echt wat je bedoeld. Wil je nu een Dropdown menu als popup hebben ? Dan is de enige manier toch echt om dat ding op een userform te proppen. Je kan hem ook rechtstreeks in een sheet zetten en dan via VBA de properties wijzigen (oa het bereik).

[RaZ]

Ok.. ik heb een dBase-file die ik in Excell open wil met adresgegevens.

Nu is het de bedoeling dat de lege naam-regels opschuiven

Voorbeeld: (aangeleverd)

code:

[naam1]   [naam2]    [naam3]
bedrijf       persoon

Voorbeeld: (einde macro)

code:

[naam1]   [naam2]    [naam3]
        bedrijf    persoon

Nu is kolom naam2 leeg aangeleverd, en de waarde in naam1 moet dan in naam2 komen.
De macro opzich werkt prima die dit regelt. Nu komt er voor de volgende vragen een pop-up omhoog met de vragen:
- beginkolom-letter
- eindkolom-letter
- aantal records

Nu zou ik die graag in 1 pop-up willen hebben, dat je via pulldown de header-naam kan opgeven voor deze marco.

dan krijg je dus iets van:

code:

 ________________________________________
|                           |
|     begin: [selecteer kolom] \/     |
|     einde: [selecteer kolom] \/     |
|     records: _____ ex.             |
|________________________________________|

ipv 3 wazige pop-ups

[NetForce1]

Bedoel je met een pulldownmenu een combobox?

Dan krijg je dus iets als

code:

For a = 1 to 26
  letter = chr(97+a)
  ComboBox1.addItem letter
Next a

chr(97) is volgens mij de ASCII waarde voor a.

[RaZ]

Geen idee. Maar wat de bedoeling is, is dat als ik die macro start, er 1 pop-ups scherm komt, met daarin m'n haalt mooi ge-code pop-up-schermpje.

In dat scherm, wil ik waar selecteer kolom staat uit een variable is ik gezet heb de lijst met veldnamen weer geven.

Ipv dat je de kolom-letter moet invullen, gewoon dropdown/pulldown, weet ik veel wat de juiste benaming is. Het gaat hier om een multeple-choise vraag, met antwoorden: de veldnamen in in regel 1 staan.

[BtM909]

eehmm, dan maak je toch gewoon een form waarin je die 2 pull down menu's in maakt en een invul-veld?

Dan kan je deze form gewoon laden tijdens het openen van je excel-sheet.

Mocht je niet weten wat ik bedoel, dan kan ik ook ff een voorbeeldje opsturen (of online zetten!)

[RaZ]

Op dinsdag 29 januari 2002 14:59 schreef BtM909 het volgende:
eehmm, dan maak je toch gewoon een form waarin je die 2 pull down menu's in maakt en een invul-veld?

Als dat zo heet, ja.. een schermpje met 2 pulldown's en een invulveld

Dan kan je deze form gewoon laden tijdens het openen van je excel-sheet.

Die waardes moeten in de macro zitten. Omdat ik daaruit werk.

Mocht je niet weten wat ik bedoel, dan kan ik ook ff een voorbeeldje opsturen (of online zetten!)

Gaarne

[Skinny]

code:

Sub ShowFormulier()

Load UserForm
UserForm.ComboBox.Clear
    
InputBlad.Range("A1").Select

For Each myCell In Range(Selection, Selection.End(xlToRight))

    UserForm.ComboBox.AddItem CStr(myCell.Value)

Next myCell

UserForm.Show

End Sub

Dit scrippie pakt dus alle gevulde cellen op de eerste rij van InputBlad. De waarden hiervan voegt ie toe aan de ComboBox op UserForm.

Dit moet je toch in de goede richting helpen

[RaZ]

Thanx, ik ga hier ff mee stoeien. Het vage is dat zowel in de help als VB & Excell niets te vinden is over combobox.

[NetForce1]

Op dinsdag 29 januari 2002 15:13 schreef RaZ het volgende:
Thanx, ik ga hier ff mee stoeien. Het vage is dat zowel in de help als VB & Excell niets te vinden is over combobox.

Bij mij wel hoor, ga naar VB via Extra, Macro's VB-editor.
Dan help, inhoudsopgave en index

Zowel bij index als bij zoeken vind 'ie wat, en bij inhoud zal ook wel wat staan, moet je ff zoeken

[RaZ]

Nou snap ik er helemaal nix meer van Die code werk niet bij mij. Ik 100% n00b op dit gebied, enig basic wat ik ken stamde uit de jare '80, MS-Dos' GWBasic. Line-nummers en goto's.

Maargoed, al om al, ken ik nix vinden in die help. Zou je die ff kunnen mailen anders?

[NetForce1]

Op dinsdag 29 januari 2002 15:32 schreef RaZ het volgende:
Nou snap ik er helemaal nix meer van Die code werk niet bij mij. Ik 100% n00b op dit gebied, enig basic wat ik ken stamde uit de jare '80, MS-Dos' GWBasic. Line-nummers en goto's.

Maargoed, al om al, ken ik nix vinden in die help. Zou je die ff kunnen mailen anders?

Ook niet bij Inhoud - Microsoft Froms naslag voor objectmodellen - Besturingselementen - Combobox?

[RaZ]

Wijs hem ff aan aub, want met zoeken kan je niet op commando's zoeken

Ik ga zo m'n monitor een kopstoot geven

[NetForce1]

Op dinsdag 29 januari 2002 15:43 schreef RaZ het volgende:
Wijs hem ff aan aub, want met zoeken kan je niet op commando's zoeken
[afbeelding]
Ik ga zo m'n monitor een kopstoot geven

Bij Excel 97 kun je zoeken (geen Antw wizard)

[RaZ]

De ene comp met Excell '97 erop staat in ander gebouw.. en geen i-net, bleh.. draait hiero alles op 2000 versie's. Naja, dan maar boek kopen. Thanx anyways & as allways