Hello

I have a range of dates in col A formated as 'ddd dd-mm-yyyy' the range is
named 'DataSheetDate', I would like a Macro that will find a date = today's
date and select the the cell offset(0,1).

Thanks.

This will find the first date in the list and then stop looking:

Sub DateFind()
Dim c As Range

For Each c In Range("DataSheetDate")
If c = Date Then
c.Offset(, 1).Select
Exit Sub
End If
Next
End Sub

Mike F
"LaDdIe" wrote in message
...
Hello

I have a range of dates in col A formated as 'ddd dd-mm-yyyy' the range is
named 'DataSheetDate', I would like a Macro that will find a date =
today's
date and select the the cell offset(0,1).

Thanks.

Perfecto:)

"Mike Fogleman" wrote:

This will find the first date in the list and then stop looking:

Sub DateFind()
Dim c As Range

For Each c In Range("DataSheetDate")
If c = Date Then
c.Offset(, 1).Select
Exit Sub
End If
Next
End Sub

Mike F
"LaDdIe" wrote in message
...
Hello

I have a range of dates in col A formated as 'ddd dd-mm-yyyy' the range is
named 'DataSheetDate', I would like a Macro that will find a date =
today's
date and select the the cell offset(0,1).

Thanks.


.

Hi,

Replace A1:A6 by your range

=MIN(IF(ISNUMBER(MATCH(A1:A6,N(A1:A6=TODAY())*A1: A6,0)),A1:A6))



"LaDdIe" a écrit dans le message de groupe de
discussion : ...
Hello

I have a range of dates in col A formated as 'ddd dd-mm-yyyy' the range is
named 'DataSheetDate', I would like a Macro that will find a date = today's
date and select the the cell offset(0,1).

Thanks.

I forgot to say you need to validate the formula by Ctrl + Maj + Enter

Replace A1:A6 by your range

=MIN(IF(ISNUMBER(MATCH(A1:A6,N(A1:A6=TODAY())*A1: A6,0)),A1:A6))



"LaDdIe" a écrit dans le message de groupe de
discussion : ...
Hello

I have a range of dates in col A formated as 'ddd dd-mm-yyyy' the range is
named 'DataSheetDate', I would like a Macro that will find a date = today's
date and select the the cell offset(0,1).

Thanks.

And in case one cell within your range is empty :

Validation : Maj + Ctrl + Enter
=MIN(IF((ISNUMBER(MATCH(A1:A6,N(A1:A6=TODAY())*A1 :A6,0))*(LEN(A1:A6)0))0,A1:A6))



"michdenis" a écrit dans le message de groupe de discussion :
...
I forgot to say you need to validate the formula by Ctrl + Maj + Enter

Replace A1:A6 by your range

=MIN(IF(ISNUMBER(MATCH(A1:A6,N(A1:A6=TODAY())*A1: A6,0)),A1:A6))



"LaDdIe" a écrit dans le message de groupe de
discussion : ...
Hello

I have a range of dates in col A formated as 'ddd dd-mm-yyyy' the range is
named 'DataSheetDate', I would like a Macro that will find a date = today's
date and select the the cell offset(0,1).

Thanks.

Sorry, i misread the question,

But we can use this :

'-----------------------------------
Sub test()
With Worksheets("Sheet1")
.Activate
With .Range("A1:A6") ' Your range
Range(Evaluate("ADDRESS(MATCH(MIN(IF((ISNUMBER(MAT CH(" & _
.Address & ",N(" & .Address & "=TODAY())*" & _
.Address & ",0))*(LEN(" & .Address & ")0))0," & _
.Address & "))," & .Address & ",0)," & _
.Column + 1 & ")")).Select
End With
End With
End Sub
'-----------------------------------





"michdenis" a écrit dans le message de groupe de discussion :
...
And in case one cell within your range is empty :

Validation : Maj + Ctrl + Enter
=MIN(IF((ISNUMBER(MATCH(A1:A6,N(A1:A6=TODAY())*A1 :A6,0))*(LEN(A1:A6)0))0,A1:A6))



"michdenis" a écrit dans le message de groupe de discussion :
...
I forgot to say you need to validate the formula by Ctrl + Maj + Enter

Replace A1:A6 by your range

=MIN(IF(ISNUMBER(MATCH(A1:A6,N(A1:A6=TODAY())*A1: A6,0)),A1:A6))



"LaDdIe" a écrit dans le message de groupe de
discussion : ...
Hello

I have a range of dates in col A formated as 'ddd dd-mm-yyyy' the range is
named 'DataSheetDate', I would like a Macro that will find a date = today's
date and select the the cell offset(0,1).

Thanks.