Searching for date in future (Excel)

[2ks]

I am writing a Excel database and one of the functions will include the automated searching of appts that the date = tomorrows date, which will obviously be diff each day

The column that the date of appt is in date format.

Can any one advise me on the VBA for this function.

Thanks

 

[PHV]

tomorrows date is simply Date + 1

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[2ks]

Tried suggestion and does not show the line as required

Attached code below

Sub newdate()
'
' newdate Macro
' Macro recorded 13/01/2007 by Home
'

'
Selection.AutoFilter Field:=21, Criteria1:=Date + 1
End Sub

 

[PHV]

What is the code generated by the macro recorder when you do the filtering manually ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[2ks]

When I generate the code manually I only know who to select a specific date and that works fine.

problem is, as I will need to run the macro daily the selection date will change daily, so a fixed date filter is not possible.

Also the spreadsheet will grow and grow so it needs to look at the whole column

 

[PHV]

Again, what is the code generated when you select a specific date ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[2ks]

I see

this is what the manual macro has produced but after running it goes onto the first blank line, hiding any lines of data that may have been selected.

Sub tom_date()
'
' tom_date Macro
' Macro recorded 13/01/2007 by Home
'

'

Selection.AutoFilter Field:=21, Criteria1:="14/01/07"
End Sub

Your help is very appreciated. I feel a total pleb not being able to work this out

 

[PHV]

after running it goes onto the first blank line
You don't have data matching the filter ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[2ks]

Thanks for your help

All it was I was using date format dd/mm/yy instead of dd/mm/yyyy and as soon as corrected. Bingo

Many thanks for your help

Til the next time

Cheers