How to convert this VBA code to UDF code?

[shafiey]

Option Explicit
Sub FilterBasedOnCellValueAnotherSheet()
Dim category As Range
With Worksheets("Sheet8")
Set category = .Range("C2")
End With
With Worksheets("Sheet7")
With .Range("B4:G13")
.AutoFilter Field:=2, Criteria1:=category, VisibleDropDown:=True
End With
End With
End Sub

 

[Herakles]

C5:C13 has the following formula:



How can I apply the filter for the above formula?

So do you want to apply two criteria?

If C5:C13 cells all hold the same value why filter on that column?

 

[shafiey]

So do you want to apply two criteria?

If C5:C13 cells all hold the same value why filter on that column?

No, All numbers are not the same, the numbers are 4 digits and different. For example, 1352, 1400, 1402, etc

 

[Herakles]

Sorry.
In N2, there is a number with a general format and a pattern similar to 1352/10/24.
When the formula is implemented on it, only its 4-digit number remains, for example 1352.

So use something like this but you will to change the D5:D13=1 to whatever column you want to filter and the criteria value.

=FILTER(B5:G13,(C5:C13=Sheet8!C2) *(D5:D13=1),"")