AUTOMATIC SEARCH FILTERS IN EXCEL

Описание: Do you want to search as you type in EXCEL?
Are you looking in hundreds or thousands of lines at the same time, and you would like to automate your EXCEL?
In this video, you can see exactly how to do it, step-by-step.
Enjoy!
-------------------------------------------------------------------------------
🌟VIP AREA:
To access the VIP AREA:
1. Go to https://firemagos.com/vip-area
2. Insert the password from the most recent (should be the same month/year)video
3. Access all the FREE resources: FREE EXCEL FILES, FREE HOW-TO GUIDES, FREE POWERPOINT PRESENTATIONS, FREE EMAIL TEMPLATES, FREE EXCEL VBA CODES, PLAY WITH OUR FUNNY AI (HAPPY & GRUMPY), LISTEN FREE ONLINE MUSIC, READ BOOKS FOR FREE, PLAY ONLINE QUIZZES.
We update the resources on a recurrent basis, and all that we want is you to enjoy the experience with this YouTube Channel, and our Partner YouTube Channels. There is no other catch at all.
-------------------------------------------------------------------------------
🌐RESOURCES MENTIONED IN THE VIDEO:
1. The EXCEL file is available for FREE DOWNLOAD in our FIREMAGOS VIP-AREA: https://firemagos.com/vip-area#excel
2. The VBA code can be also DOWNLOADED FOR FREE from our FIREMAGOS VIP-AREA: https://firemagos.com/vip-area#vba
3. The step-by-step guide is available in this BLOG POST: https://firemagos.com/blog/automatic-...
4. Here are the VBA CODEs presented in this video:
Option Explicit
Private Sub Company_Change()
Application.ScreenUpdating = False
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:="*" & [I4] & "*", Operator:=xlFilterValues
Application.ScreenUpdating = True
End Sub
Private Sub Fname_Change()
Application.ScreenUpdating = False
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:="*" & [G4] & "*", Operator:=xlFilterValues
Application.ScreenUpdating = True
End Sub
Private Sub Lname_Change()
Application.ScreenUpdating = False
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:="*" & [H4] & "*", Operator:=xlFilterValues
Application.ScreenUpdating = True
End Sub
Private Sub Position_Change()
Application.ScreenUpdating = False
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=4, Criteria1:="*" & [J4] & "*", Operator:=xlFilterValues
Application.ScreenUpdating = True
End Sub
Sub Clear_All_Filters()
Dim lo As ListObject
Set lo = Sheet1.ListObjects(1)
lo.AutoFilter.ShowAllData
Call Clear_Fname_Data
End Sub
Sub Clear_Fname_Data()
Dim ws As Worksheet
Set ws = Worksheets("Smart Filters")
If Application.WorksheetFunction.IsText(ws.Range("G4")) = True Then
ws.Range("G4") = ""
Else
End If
Call Clear_Lname_Data
End Sub
Sub Clear_Lname_Data()
Dim ws As Worksheet
Set ws = Worksheets("Smart Filters")
If Application.WorksheetFunction.IsText(ws.Range("H4")) = True Then
ws.Range("H4") = ""
Else
End If
Call Clear_Company_Data
End Sub
Sub Clear_Company_Data()
Dim ws As Worksheet
Set ws = Worksheets("Smart Filters")
If Application.WorksheetFunction.IsText(ws.Range("I4")) = True Then
ws.Range("I4") = ""
Else
End If
Call Clear_PositionData
End Sub
Sub Clear_PositionData()
Dim ws As Worksheet
Set ws = Worksheets("Smart Filters")
If Application.WorksheetFunction.IsText(ws.Range("J4")) = True Then
ws.Range("J4") = ""
Else
End If
End Sub
-------------------------------------------------------------------------------
🤝AFFILIATE LINKS:
N/A This is video is not sponsored 🙃, and do not include affiliate links ☝.
-------------------------------------------------------------------------------
👍YOU MIGHT ALSO LIKE :
HOW TO Export your LINKEDIN data:    • HOW TO EXPORT YOUR LINKEDIN DATA  
-------------------------------------------------------------------------------
❤️‍🔥LET'S CONNECT:
FIREGLIS WEBSITE: https://firemagos.com/
-------------------------------------------------------------------------------
🎤 🎥 LICENSES USED:
N/A FIREMAGOS material 😎
-------------------------------------------------------------------------------