Welk invoervak moet de Userform beginnen.

[kabebanaan]

Hallo,

Ik heb een Userform met een knop afsluiten.
Nu wil ik dat ik na het afsluiten terugkeer naar een bepaald vak. (Bijv. terug naar Combobox1).

Welke code dien ik mee te geven aan het einde van de knop "Afsluiten" ?

 

[leprechaun]

En die combobox staat op een ander userform?
Of staat die ergens op een excel blad?

 

[kabebanaan]

En die combobox staat op een ander userform?
Of staat die ergens op een excel blad?

Staat op hetzelfde Userform.
Ik wil dus met een leeg formulier beginnen met als start het eerste invoervak.

 

[Demeter]

.........

Misschien wel handig als je een voorbeeld / test file bijvoegd.
Dit is vaak 100x duidelijker dan een 1/2 vraag.
In jouw geval een userform op blad a met een tekst vlak ernaast wat er moet gebeurren in welk blad/form.cel als je op de knop drukt.

Groet,
Ferenc

ps.
Is niet persoonlijk bedoelt maar zo wordt alles wel duidelijker en wordt er sneller antwoord gegeven

 

[kabebanaan]

Okee dan, komt het voorbeeld.
Na het invullen van de gegevens en een klik op de button "OK" springt de cursor naar cel A1 van het werkblad.
Ik wil dat de sprong naar het Userform wordt gemaakt en dan zowaar het eerste invoervak "Name"

Hoop dat het nu duidelijker is?

 

[leprechaun]

Zoiets dus?

 

[kabebanaan]

Zoiets dus?

Dat bedoel ik ..... als je me nu ook wilt vertellen wat je eraan veranderd hebt, dan ben ik ook een stuk wijzer geworden. :thumb:

 

[leprechaun]

Zie de laatste 2 regels van deze functie. In plaats van de cel A1 te selecteren wordt nu de userform opnieuw geladen .

Private Sub cmdOK_Click()
ActiveWorkbook.Sheets("Course Bookings").Activate
Range("A1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = txtName.Value
ActiveCell.Offset(0, 1) = txtPhone.Value
ActiveCell.Offset(0, 2) = cboDepartment.Value
ActiveCell.Offset(0, 3) = cboCourse.Value
If optIntroduction = True Then
ActiveCell.Offset(0, 4).Value = "Intro"
ElseIf optIntermediate = True Then
ActiveCell.Offset(0, 4).Value = "Intermed"
Else
ActiveCell.Offset(0, 4).Value = "Adv"
End If
If chkLunch = True Then
ActiveCell.Offset(0, 5).Value = "Yes"
Else
ActiveCell.Offset(0, 5).Value = "No"
End If
If chkVegetarian = True Then
ActiveCell.Offset(0, 6).Value = "Yes"
Else
If chkLunch = False Then
ActiveCell.Offset(0, 6).Value = ""
Else
ActiveCell.Offset(0, 6).Value = "No"
End If
End If
' Range("A1").Select
UserForm_Initialize
End Sub

 

[kabebanaan]

Nu wil ik weten hoe je na het afsluiten in een ander invoervak kunt beginnen.

 

[leprechaun]

Even ervan uitgaand dat je bedoelt dat je een ander besturingselement op je userform wilt activeren:

Helemaal onderaan de code die bepaalt wat er moet gebeuren op het moment dat je form geladen wordt, staat ook welk element "geactiveerd" wordt. In het origineel is dat het element 'txtName'

Private Sub UserForm_Initialize()
txtName.Value = ""
txtPhone.Value = ""
With cboDepartment
.AddItem "Sales"
.AddItem "Marketing"
.AddItem "Administration"
.AddItem "Design"
.AddItem "Advertising"
.AddItem "Dispatch"
.AddItem "Transportation"
End With
cboDepartment.Value = ""
With cboCourse
.AddItem "Access"
.AddItem "Excel"
.AddItem "PowerPoint"
.AddItem "Word"
.AddItem "FrontPage"
End With
cboCourse.Value = ""
optIntroduction = True
chkLunch = False
chkVegetarian = False
txtName.SetFocus
End Sub

Verander de naam van dit element in een ander, en that's it.
Om standaard bijvoorbeeld het element txtPhone (het invoerveld 'Phone') te activeren, wordt het:

Private Sub UserForm_Initialize()
txtName.Value = ""
txtPhone.Value = ""
With cboDepartment
.AddItem "Sales"
.AddItem "Marketing"
.AddItem "Administration"
.AddItem "Design"
.AddItem "Advertising"
.AddItem "Dispatch"
.AddItem "Transportation"
End With
cboDepartment.Value = ""
With cboCourse
.AddItem "Access"
.AddItem "Excel"
.AddItem "PowerPoint"
.AddItem "Word"
.AddItem "FrontPage"
End With
cboCourse.Value = ""
optIntroduction = True
chkLunch = False
chkVegetarian = False
txtPhone.SetFocus
End Sub

Is dat wat je bedoelt?

 

[kabebanaan]

Dit is wat ik bedoel .... Dankje !!!!