• 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.

Userform2

Status
Niet open voor verdere reacties.
Sytse1

Sytse1

Gebruiker
Lid geworden
9 aug 2007
Berichten
584
Office versie
miDer
Met behulp van een CommandButton wil ik userform2 openen.
Met een andere knop open ik foutloos Userform1
Hetzelfde VBA als voor het openen van het userform1 wordt gebruikt.
Voor UserForm1
Code: 
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Voor UserForm2
Code: 
Private Sub CommandButton4_Click()
UserForm2.Show
End Sub
Alleen dan krijg ik de volgende foutmelding
1004 fout tijdens uitvoering
Door de toepassing of object gedefinieerde fout.

Beide userforms zijn aanwezig. Iemand enig idee
 
Wat staat er in de Initialize() van form2?

Plaats anders je bestand.
 
Harry,

De toepassing heb ik wat uitgekleed.
Wat wil ik met userform2.
Zoals je kan zien staat in elk werkblad de naam van het werkblad in cel i1.
De naam wordt vervolgens ook de naam van het tabblad.
Aangezien in gebruik het lint e.d. wordt verborgen en de tabbladen niet gewijzigd kunnen worden moet de gebruiker dmv het userform2 de naam en automatisch de naam van het tabblad kunnen wijzigen. Daarna ook de inhoud van de cellen die ingevuld kunnen worden. De mogelijkheid heb ik bij de knop om het jaar te wijzigen ingebouwd.
Alleen gebeurd het wissen daar voor alle werkbladen en worden de kalenders voor het gekozen jaar aangepast.
Ga naar het tabblad knoppen om het eea te zien.

Code: 
Private Sub UserForm_Initialize()
With Me
.Height = Application.Height
.Width = Application.Width
.Left = Application.Left
.Top = Application.Top
End With
TextBox1.Value = Sheets(1).Cells(I1) 'gegevens de eeste sheet in textbox
End Sub
 

Bijlagen

  • Afwezigheidsregistratiehelpmij.zip
    216,7 KB · Weergaven: 22
Range("I1") i.p.v. Cells(I1)
 
Harry,
Ik heb het aangepast maar bij het het aanroepen middels de commandknop van userform2 krijg ik dezelfde foutmelding.
Inmiddels de fout gevonden. TextBox1.Value = Sheets(1).Range("I1") aanhalingsteken om i1
 
Laatst bewerkt:
Toch moet het daar aan liggen

Code: 
TextBox1.Value = Sheets(1).Range("I1")
 
Leer jezelf aan om de controls van je userform zinnige namen te geven, dat maakt het veel makkelijker om de VBA code van het formulier te begrijpen. Dus niet CommandButton1, maar cmdOK, niet CommandBUtton2, maar cmbCancel. Niet TextBox1 maar tbxName. Enzovoorts. Het lijkt saai en vervelend werk, maar het maakt de code zoveel makkelijker te begrijpen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan