Dam_Autofiltro con MACRO en excel
Tengo una hoja con 8 columnas en la cual quisiera hacer un autofiltro por cada una de ellas desde diferentes celdas, por ahora solo logre hacer con una pero no puedo hacer otro criterio desde otra celda, este mi código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Suspendidos").Range("I1") = Empty Then
Range("A1").AutoFilter
Range("A1").AutoFilter
Else
Range("D1").Select
Selection.AutoFilter
ActiveSheet.Range("$D$1:$D$1").AutoFilter field:=4, Criteria1:=[I1]
Cells(Range("D1").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).Row, 1).Select
Range("I1").Select
End If
End Sub
Lo quisiera es que al digitar en una celda por me haga la misma función pero con otra columna digamos columna B, C, DE o E cada uno independiente en diferentes celdas, solo tengo el filtrado con la columna DE.