Find min in filtered range in VBA

[QuestionBaker]

I wish to prepare Gannt chart from a sheet where bunch of projects are listed.
I am unable to find oldest date after filtering the relevant project.

I've tried min (K3 to N1770) (data is there till row 1770) but it gives an answer as Sep 2016, so I know I am making a mistake.

How do I find min and max in a filtered range

my data looks as follows

 

[Fluff]

How about adding an extra column to your data with

=SUBTOTAL(3,A2)

and drag down, change the A2 to reference a column that will have values on every row.
Then you can refer to that extra column in your formula. Are you trying to find the min date in a specific column or just the min date in all the columns?

 

[QuestionBaker]

How about adding an extra column to your data with

=SUBTOTAL(3,A2)

and drag down, change the A2 to reference a column that will have values on every row.
Then you can refer to that extra column in your formula. Are you trying to find the min date in a specific column or just the min date in all the columns?

Thanks for the response, but would that work in VBA?
I forgot to mention it in my post but i included in in the title

 

[Fluff]

Yes it will. Can you answer my question?

 

[QuestionBaker]

Just one min date, doesn't matter which column it occurs

 

[Fluff]

Ok, how about

Sub QuestionBaker()
   msgbox Evaluate("min((K3:N1770)*(O3:O1770=1))")
End Sub

Change col O if needed to which ever col you have put the Subtotal formula in.

 

[Marcelo Branco]

Maybe...

=AGGREGATE(15,5,K3:N1770,1)

M.

 

[Dave Patton]

T202108a.xlsm
	A	B
1
2	25-May-21
3	Start	Criteria
6	25-May-21	B
11	14-Jul-21	B
17	12-Sep-21	B
18
19
2b

Cell Formulas
Range	Formula
A2	A2	=SUBTOTAL(105,Table1[Start])

T202108a.xlsm
	K	L
1
2	25-May-21
3	Start	Criteria
6	25-May-21	B
11	14-Jul-21	B
17	12-Sep-21	B
18
2b

Cell Formulas
Range	Formula
K2	K2	=SUBTOTAL(105,K3:K17)

 

[Fluff]

Definitely over thought it, no need for the helper column you can just use

Sub QuestionBaker()
   MsgBox Evaluate("subtotal(105,K3:N1770)")
End Sub

 

[Marcelo Branco]

Or

Sub xTest()
    Dim lMinDate As Long
    
    lMinDate = Application.Aggregate(15, 5, Range("K3:N1770"), 1)
    MsgBox lMinDate
End Sub

M.