Private Sub aastad_Change()
    Call paev
    Call kuupaev
End Sub

Private Sub CommandButton1_Click()
    Dim prk As Range
    Set prk = Range("alg")
    prk = kuupaevTextBox
End Sub

Private Sub CommandButton2_Click()
    Vorm.Hide
    Unload Vorm
End Sub

Private Sub kuu_Change()
    Call paev
    Call kuupaev
End Sub


Private Sub paevad_Change()
    pp.Value = paevad.Value
    Call kuupaev
End Sub


Private Sub UserForm_Initialize()
    pp.Value = 1
    Call paev
    Call kuupaev
End Sub

Sub paev()
    paevad.Min = 1
    paevad.LargeChange = 1
    paevad.SmallChange = 1
    paevad.Max = Day(DateSerial(aastad, kuu + 1, 0))
End Sub

Sub kuupaev()
    kuupaevTextBox.Value = pp & "." & kuu & "." & aastad
End Sub