search dates and text

Please could someone post how to search for text and dates within a database. I have a spreadsheet that can search for any part of text but I cannot search by date.

The existing code is as follows:

Private Sub Search_Click()
Dim LR As Long, Val As String, cell As Range, Rng As Range, Code As Boolean
Dim dSh As Worksheet, v

'Setup
Sheets("SEARCH-HERE").Activate
If Range("E2") <> "" Then
Val = Range("E2").Value & ""
Code = True
ElseIf Range("E3") <> "" Then
Val = Range("E3").Value
Code = False
Else
MsgBox "Please enter ONE search criteria and try again."
Exit Sub
End If
Application.ScreenUpdating = False
Application.EnableEvents = False
Set dSh = Sheets("DATABASE")
Range("B10:J200").ClearContents

'Transfer matching data
LR = dSh.Range("A" & Rows.Count).End(xlUp).Row
dSh.Range("A2").AutoFilter
dSh.Range("A2").AutoFilter Field:=1, Criteria1:="=*" & Val & "*"
dSh.Range("B2:J" & LR).SpecialCells(xlCellTypeVisible).Copy Range("B9")
dSh.Range("A2").AutoFilter




Any help would be appreciated.

Thanks,


Stewart

Thanks for the reply Stan. I must tell you though that I am a complete novice with this. I have found this on code on an existing spreadsheet and I have amended it to search for the correct range. How do I merge the two together? I have a search box where I enter my query and a command button which retrieves the data from another sheet.

Any further help would be great.

Stewart

Here you go. Hope you can help


Stewart

Hi Stan,

If you are still about, did you have a chance to have a look at it.

Thanks,


Stewart

Hi Stan,

That is much better, thank you! Is there anyway of just having one cell dedicated to searching all the data the same as in the search here tab. I dont want to dumb it down but it needs to be used by folks that are not really familiar with spreadsheets and if they were able to "enter, press and go" it would cut out possible problems. I owe you a pint so far!

Thanks again,

Stewart

Can anyone else help? There has to be a way to search for both text and dates. Please see the "search-here tab" and you will see what I mean.

Thanks


Stewart

Hi Stan,

Sorry for a delayed reply,

firstly, just letting you know that E3 and F3 are merged if that makes a difference.

Anyway as my "DATABASE" is showing dates as 09/03/2010 I have been searching that way also.

I have tried changing the whole date column in "DATABASE" so it can read read 09 march 2010 then going back to the "SEARCH-HERE"and typing just "march" but again I get nothing.

(wish my boss had ACCESS, its already got a customer service template LOL!)

I hope that made some sense.


Thanks Stan,

Stewart