Hunuloeloe
Gebruiker
- Lid geworden
- 12 sep 2016
- Berichten
- 311
Beste helpers,
Ik heb de volgende userform
Die ieder keer zichtbaar wordt als ik het tabblad dagplanning open. In het tabblad dagplanning is de volgende code opgenomen
De userform vult cel B1 maar nu zou ik graag willen dat wanneer ik het bestand opsla en in cel B1 al een waarde staat de userform niet opnieuw weer in beeld komt. (het werkt prima, maar het is gewoon irritant )
Hierbij het vb bestand
Bekijk bijlage vb bestand met userform.xlsm
Ik heb de volgende userform
Code:
Private Sub CommandButton1_Click()
If Not IsDate(TextBox2) Then
MsgBox "Geen geldige datum ingegeven!"
TextBox2 = ""
TextBox2.SetFocus
Exit Sub
End If
Sheets("Dagplanning").Cells(1, 2) = Format(TextBox2.Value, "dd/mm/yyyy")
Unload Me
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_AfterUpdate()
CommandButton1.SetFocus
End Sub
Private Sub UserForm_Initialize()
TextBox2.SetFocus
Sheets("Dagplanning").Cells(1, 2) = ""
End Sub
Die ieder keer zichtbaar wordt als ik het tabblad dagplanning open. In het tabblad dagplanning is de volgende code opgenomen
Code:
Private Sub Worksheet_Activate()
On Error GoTo oeps
UserForm1.Show
oeps:
End Sub
De userform vult cel B1 maar nu zou ik graag willen dat wanneer ik het bestand opsla en in cel B1 al een waarde staat de userform niet opnieuw weer in beeld komt. (het werkt prima, maar het is gewoon irritant )
Hierbij het vb bestand
Bekijk bijlage vb bestand met userform.xlsm