VBA to Select Active Cell and use as filter

SanjayGMusafir

Well-known Member
Joined
Sep 7, 2018
Messages
1,503
Office Version
  1. 2021
Platform
  1. MacOS
Hi Experts
I need to use value of active cell from current sheet as a filter on another sheet. I tried my hands on it but for sure I'm missing something...
The code I tried is here under
Please help
Thanks
VBA Code:
Sub VisitsFilterCurrent()
'
' VisitsFilterCurrent Macro
'
    'Application.Calculate
    
    Dim x1 As Range
    
    Set x1 = ActiveSheet.ActiveCell.Select 'This seems to be the problem area
    
    Sheets("Visits").Select
    
    Call VisitsSortBack
    
    ActiveSheet.ListObjects("Visits").Range.AutoFilter Field:=1, Criteria1:=x1.Value
    Range("Visits[[#Headers],[QType]]").End(xlDown).Select
    
    On Error Resume Next
    Err.Clear
    
    ActiveSheet.ListObjects("Visits").ShowAutoFilterDropDown = False
    
    'ActiveWorkbook.Save
   
End Sub
 

Excel Facts

What is =ROMAN(40) in Excel?
The Roman numeral for 40 is XL. Bill "MrExcel" Jelen's 40th book was called MrExcel XL.

Forum statistics

Threads
1,223,901
Messages
6,175,277
Members
452,629
Latest member
SahilPolekar

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top