Hi Ron
Hope you had a good sleep you deserve it :-)
You are the best - works great.
Two questions:
1. Can the format be changed - it displays dates in the format "mm/dd/yyyy"
and I would like it to be "yyyy.mm.dd"
2. I am using the dates to filter a list of dates and with the format used
by the Calendar (mm/dd/yyyy) everything works :-), but with the other date
format there seems to be a problem (yyyy.mm.dd). The filter (custom) is setup
right but the filter dosn't work right before I activate i manualy once more
- can you help on that?
-------------------------------------------
If ErrorHandling Then
...
Else
Dim sStart, sEnd As String
sStart = txtStartDate.Value
sEnd = txtEndDate.Value
Selection.AutoFilter Field:=3, Criteria1:=">=" & sStart,
Operator:=xlAnd, Criteria2:="<=" & sEnd
End If
--------------------
"Ron de Bruin" wrote:
> Add one line in the click event
>
> Private Sub Calendar1_Click()
> UserForm2.ActiveControl.Value = Me.Calendar1.Value
> UserForm2.ActiveControl.SetFocus
> Unload Me
> End Sub
>
>
> Good night
>
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Ron de Bruin" <(E-Mail Removed)> wrote in message news:%(E-Mail Removed)...
> > Hi Steen
> >
> > Try this basic example
> >
> > Add two userforms to the workbook
> > One with only the calendar named Userform1
> >
> > Add this code event
> >
> > Private Sub Calendar1_Click()
> > UserForm2.ActiveControl.Value = Me.Calendar1.Value
> > Unload Me
> > End Sub
> >
> > And one with the name Userform2 with this code
> >
> > Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
> > UserForm1.Show
> > End Sub
> >
> > Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
> > UserForm1.Show
> > End Sub
> >
> >
> > Run the userform named Userform2 to test
> >
> >
> >
> > --
> > Regards Ron de Bruin
> > http://www.rondebruin.nl
> >
> >
> > "Steen" <(E-Mail Removed)> wrote in message news:803B8D47-6463-4277-8123-(E-Mail Removed)...
> >> Useform
> >>
> >> "Ron de Bruin" wrote:
> >>
> >>> Hi Steen
> >>>
> >>> Userform or Sheet ?
> >>>
> >>> See this page
> >>> http://www.rondebruin.nl/calendar.htm
> >>>
> >>> --
> >>> Regards Ron de Bruin
> >>> http://www.rondebruin.nl
> >>>
> >>>
> >>> "Steen" <(E-Mail Removed)> wrote in message news:3A595944-8B79-4D28-ADB5-(E-Mail Removed)...
> >>> > Hi
> >>> >
> >>> > Im pretty new in VBA but have managed to create the Calender following the
> >>> > information given in http://www.fontstuff.com/vba/vbatut07.htm. Now i wood
> >>> > like to use this for inserting dates in a form (Start Date and EndDate). I
> >>> > have created the form and made all the code and is seems to work. I am using
> >>> > to txt fields for entering the start og end dates. I woold like the Calendar
> >>> > to be the only tool used for entrering dates (no manual date written) - how
> >>> > can I do this task?
> >>> >
> >>> > /Stony
> >>>
>
Similar Threads
