I want a upcomings event diary to show me what is coming up in the next
month, It will not allow anymore than 2 weeks. Is there any way to change
this

Also in the listbox on the userform it show the date time and event in 3
columns how do I get the 1st column to show the date in the dd mm yyyy
format

Thanks again

Greg

Private Sub UserForm_Initialize()
Do Until Sheet1.Range("a2").Offset(counter).Value Now + 14
counter = counter + 1
Loop
UserForm1.ListBox1.ColumnCount = 3
UserForm1.ListBox1.List() = Sheet1.Range(Cells(2, 1), Cells(counter,
3)).Value
End Sub

Wherever the date is inserted, use

Format(Date, "dd mm yyyy")

rather than just Date.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Greg B..." wrote in message
...
I want a upcomings event diary to show me what is coming up in the next
month, It will not allow anymore than 2 weeks. Is there any way to
change
this

Also in the listbox on the userform it show the date time and event in 3
columns how do I get the 1st column to show the date in the dd mm yyyy
format

Thanks again

Greg

Private Sub UserForm_Initialize()
Do Until Sheet1.Range("a2").Offset(counter).Value Now + 14
counter = counter + 1
Loop
UserForm1.ListBox1.ColumnCount = 3
UserForm1.ListBox1.List() = Sheet1.Range(Cells(2, 1), Cells(counter,
3)).Value
End Sub

It does not work, I tried that already.

Thanks

Greg

So show us what you are doing in the code.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Greg B..." wrote in message
...
It does not work, I tried that already.

Thanks

Greg

Private Sub UserForm_Initialize()
Do Until Sheet1.Range("a2").Offset(counter).Value Now + 14
counter = counter + 1
Loop
UserForm1.ListBox1.ColumnCount = 3
UserForm1.ListBox1.List() = Sheet1.Range(Cells(2, 1), Cells(counter,
3)).Value
End Sub


Thank you Bob

Greg

Greg,

I assume that you are referring to the Listbox contents. Make sure the
worksheet cells are formatted in the date format of choice, and use

I have tried it and I don't get the problem. The dates load as format
dd/mm/yyyy for me.
--

HTH

RP
(remove nothere from the email address if mailing direct)


"Greg B..." wrote in message
...
Private Sub UserForm_Initialize()
Do Until Sheet1.Range("a2").Offset(counter).Value Now + 14
counter = counter + 1
Loop
UserForm1.ListBox1.ColumnCount = 3
UserForm1.ListBox1.List() = Sheet1.Range(Cells(2, 1), Cells(counter,
3)).Value
End Sub


Thank you Bob

Greg