Hi, I've got the following probl

[Joep1972]

Hi,

I've got the following problem,
when I chose in the calendar of my userform a date in november it doesn't work can somebody have look what is the problem. HELP I'm getting mad.


Private Sub CommandButton3_Click()
If Me.Calendar1.Day <= Day(&quot;301102&quot And Me.Calendar1.Day >= Day(&quot;11102&quot Then
Worksheets(&quot;Budget maand November 2002&quot.Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot.Cells(13, 4) = Me.Calendar1.Day
Sheets(&quot;Budget maand November 2002&quot.Activate
End If
If Me.Calendar1.Day <= Day(&quot;311203&quot And Me.Calendar1.Day >= Day(&quot;11202&quot Then
Worksheets(&quot;Budget Maand December 2002&quot.Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget Maand December 2002&quot.Cells(13, 4) = Me.Calendar1.Day
Sheets(&quot;Budget Maand December 2002&quot.Activate
End If
Unload Me
End Sub

Many many thx

 

[VBslammer]

It looks like you're working too hard. Try to simplify your logic:

Private Sub CommandButton3_Click()
  Dim strSheet As String
  
  strSheet = "Budget maand " & Format(Calendar1, "mmmm") & " " & Year(Calendar1)
  
  With Sheets(strSheet)
    .Cells(13, 3).Value = Me.TextBox1.Text
    .Cells(13, 4) = Calendar1.Value
    .Activate
  End With
  
  Unload Me
  
End Sub

With this logic, as long as your sheet names use the same format, you'll never have to change the code.
VBSlammer

Unemployed in Houston, Texas