VBA Advanced Filter Problem for Range criteria

[AbdulkareemAlhassni]

Hey Gents,

I have the following issue

Worksheets("Raw Data for PR Dist").Range("A6:AL1048550").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _
        :=Sheets("Advanced Filter sheet").Range("B10:D174"), Unique:=False

i want the criteria " Range("B10:D174) " to read up to the last value dynamically whenever it changes plus or minus !

such as having " Range("B:10:Up to last value") "

how can i do that ?

 

[Norie]

Try this.

Worksheets("Raw Data for PR Dist").Range("A6:AL1048550").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _
        :=Sheets("Advanced Filter sheet").Range("B10", Sheets("Advanced Filter Sheet").Range("D" & Rows.Count).End(xlUp)), Unique:=False

 

[AbdulkareemAlhassni]

Try this.

Worksheets("Raw Data for PR Dist").Range("A6:AL1048550").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _
        :=Sheets("Advanced Filter sheet").Range("B10", Sheets("Advanced Filter Sheet").Range("D" & Rows.Count).End(xlUp)), Unique:=False

what if i want to use it for column B only ?

B1:B last value ?

 

[AbdulkareemAlhassni]

Try this.

Worksheets("Raw Data for PR Dist").Range("A6:AL1048550").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _
        :=Sheets("Advanced Filter sheet").Range("B10", Sheets("Advanced Filter Sheet").Range("D" & Rows.Count).End(xlUp)), Unique:=False

Appreciate it, i changed D to B and it worked.

Thanks alot