Filter worksheet data through vba code in excel

 The vba codes which I used in this file are as follow

  • Sub RectangleRoundedCorners3_Click()
  • Dim sht As Worksheet
  • Set sht = Sheets("Sheet1")
  • If sht.Range("c5").Value = "" Then
  • sht.Range("B8:G8").AutoFilter Field:=1, Criteria1:="=*" & sht.Range("C2").Value & "*"
  • sht.Range("B8:G8").AutoFilter Field:=6, Criteria1:="=*" & sht.Range("C3").Value & "*"
  • Else
  • sht.Range("B8:G8").AutoFilter Field:=3, Criteria1:=sht.Range("C5").Value
  • End If
  • End Sub

To clear Filter mode

  • Sub Sheet3_RectangleRoundedCorners3_Click()
  • Dim sht As Worksheet
  • Set sht = Sheets("Sheet1")
  • sht.AutoFilterMode = False
  • End Sub
To download this file click here
Please Subscribe my channel to inspaire me to create new one


1 comment: