K
K1KKKA
I just know this is going to be easy.
using the code below to place 2 dates into specific cells on a sheet
the generates my autofilter to run a query between these dates, this
bit works fine, apart from the date entry, i would like the date to
show as "dd mm yy" but when i enter it into the form it appears as "mm
dd yy" i know that it will be a case of adding the 'Format' to the
code within the form but am having trouble exactly where to place it.
Any help please
Steve
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(17, 0).Row
ws.Cells(iRow, 10).Value = Me.date1.Value
ws.Cells(iRow, 11).Value = Me.date2.Value
Me.date1.Value = ""
Me.date2.Value = ""
Me.date1.SetFocus
End Sub
using the code below to place 2 dates into specific cells on a sheet
the generates my autofilter to run a query between these dates, this
bit works fine, apart from the date entry, i would like the date to
show as "dd mm yy" but when i enter it into the form it appears as "mm
dd yy" i know that it will be a case of adding the 'Format' to the
code within the form but am having trouble exactly where to place it.
Any help please
Steve
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(17, 0).Row
ws.Cells(iRow, 10).Value = Me.date1.Value
ws.Cells(iRow, 11).Value = Me.date2.Value
Me.date1.Value = ""
Me.date2.Value = ""
Me.date1.SetFocus
End Sub