K
K1KKKA
Hi,
Hope someone can help with this,
i have a userform that the user can input 2 dates and they in turn are
placed into a sheet called "Data", when the Date format is entered
i.e. 11/02/07 meaning 11 Feb 2007, it is shown on the page as being 02
Nov 2007. i have attached the code i am using for the userform and
have tried to use the Format command in various places but to no
avail. any help please ??
Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data")
iRow = ws.Cells(Rows.Count, 18) _
.End(xlUp).Offset(0, 0).Row
ws.Cells(iRow, 12).Value = Me.date1.Value
ws.Cells(iRow, 13).Value = Me.date2.Value
Me.date1.Value = ""
Me.date2.Value = ""
Me.date1.SetFocus
End Sub
Steve
Hope someone can help with this,
i have a userform that the user can input 2 dates and they in turn are
placed into a sheet called "Data", when the Date format is entered
i.e. 11/02/07 meaning 11 Feb 2007, it is shown on the page as being 02
Nov 2007. i have attached the code i am using for the userform and
have tried to use the Format command in various places but to no
avail. any help please ??
Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data")
iRow = ws.Cells(Rows.Count, 18) _
.End(xlUp).Offset(0, 0).Row
ws.Cells(iRow, 12).Value = Me.date1.Value
ws.Cells(iRow, 13).Value = Me.date2.Value
Me.date1.Value = ""
Me.date2.Value = ""
Me.date1.SetFocus
End Sub
Steve