Select cells in column M, until today's date in column B

[Yulyo]

Hello all,

I need some help and i just can't figure it out by myself. So if you have a few minutes, please help.


I have an excel file with columns from A to X.
On column B, i have some dates, starting from 01.11.2018 (B2)
On column M, i have some values, stating from M2.


Please help me with a macro that can select the values on column M (from a given cell, let's say M5), until today's date is reached in column B.

Thank you in advance.

 

[Fluff]

Something else to try

Sub findToday()
Dim xRng As Range
Set xRng = Columns(2).find([COLOR=#ff0000]CLng[/COLOR](Date), , xlValues, , xlByRows, xlNext)
Range(Cells(5, "M"), Cells(xRng.Row, "M")).Select
End Sub

 

[Yulyo]

Hello again and sorry for the late answer.

I'm beginning to think something is wrong with my table, since non of the two variants it's working.
I have a "Runtime error 91 / Object variable or With block variable not set", on "Range(Cells(5, "M"), Cells(xRng.Row, "M")).Select"

Thank you both for your help...

If you have other ideeas, you can find the test file in the link below:
https://drive.google.com/file/d/15u-45bpGRTMAVoreKrGDFk6eu-sQfRmm/view?usp=sharing

 

[MARK858]

Afraid I can't help as the original code I posted using CDate is working on your file on my computer (other than your dates must be fully in view i.e. the cell width has to be wide enough to show the whole date).

Actually you could also try..

Sub findToday2()
Dim xRng As Range
Set xRng = Columns(2).Find(DateSerial(Year(Date), Month(Date), Day(Date)), , xlValues, , xlByRows, xlNext)
Range(Cells(5, "M"), Cells(xRng.Row, "M")).Select
End Sub