trouble with advancedfilter of date column

I

infested_tr

Mustafa Kocaman;

I have a problem such that; i have crated a userform which is t
fill an order sheet namely "normal" . User enters the date in the dat
fields in the form and other datas like "11.08.2005" then we have
complete list of orders in "normal". İ wrote a macro to advanc
filter the dates in a separete workshee but no results returned. On th
other hand if i manually double-click a date cell and press enter th
date becomes to be available for the filtering. i think i have to d
something about the format of the date. what is your suggestions.

thanks.

filter macro code is
________________________________________________
Sub ApplyFilter()
Dim wsDL As Worksheet
Dim wsO As Worksheet
Dim rngAD As Range
Set wsDL = Sheets("normal")
Set wsO = Sheets("Normal Tarih Sor")
Set rngAD = wsDL.Range("B4:B100")

wsDL.Range("A4:AC50000").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=wsO.Range("A1:B2"), _
CopyToRange:=wsO.Range("A6:AC500"), Unique:=True
End Sub
_________________________________________________
 
S

STEVE BELL

The problem may be that when your code transfers the date from the form it
is now a String and not a number or a date. You must convert the text from
the form into a date.

--
steveB

Remove "AYN" from email to respond
"infested_tr" <[email protected]>
wrote in message
news:[email protected]...
 
I

infested_tr

Thanx STEVE ;

İ got the problem now; but i can not figure out how to write a
code to convert string inpu to a number (date). I have to insert the
code somewhere in that portion of the codes.
here is the userform code.
Private Sub yenigiris_Click()
Dim iRow As Long
Dim ws As Worksheet
Dim mycell As Range
Set ws = Worksheets("Normal")


'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
..End(xlUp).Offset(1, 0).Row

'check for a part number
If Trim(Me.orderid.Value) = "" Then
Me.orderid.SetFocus
MsgBox "Bir Sipariş numarası girmelisiniz"
Exit Sub
End If

'copy the data to the database


ws.Cells(iRow, 1).Value = Me.orderid.Value
ws.Cells(iRow, 2).Value = Me.date.Value
 
S

STEVE BELL

I am not the best at doing this - but if you can send me a copy of your
workbook - I'll work
on it and see if I can make it work.

As for dates - using a calander control or using 3 ComboBoxes or Listboxes
to select the date works fairly well for inputing dates.

--
steveB

Remove "AYN" from email to respond
"infested_tr" <[email protected]>
wrote in message
news:[email protected]...
 
S

Syed Haider Ali

Dear,

You can write the following code in textbox of date.

Private sub txtdate_afterupdate()

with txtVdate

..value = Formate (.value, "dd/mm/yyyy")

End with

End sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top