Private Sub CommandButton1_Click()
'
' Annuleerinvoerform1 Macro
' De macro is opgenomen op 25-11-2002 door Joep Spronck.
'
'
UserForm1.Hide
End Sub
Private Sub CommandButton3_Click()
Worksheets("Test".Cells(14, 8).Value = Me.TextBox1.Text
Sheets("test".Cells(14, 9) = Me.Calendar1.Day
Unload Me
End Sub
Private Sub ListBox1_Click()
UserForm1.ListBox1.RowSource = Sheets("test".Range("g14:g27"
End Sub
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.