Windows 7 - Desactivar autofiltro en Private Sub Worksheet_Change

Asked By titopose on 08-Aug-12 06:03 PM
? Hola !
Estimados:

Tengo en la hoja MAT la siguiente Private Sub Worksheet que al ingresar un
valor
en ?F? coloca en la celda contigua en ?E? el resultado
de ese valor multiplicado por ?C2?.
Todo va bien siempre y cuando no est? activado el autofiltro para celdas
con valor mayor que cero en columna ?E?.
Pregunto cual ser?a el c?digo para que se desactive el filtro
antes de ejecutarse y se active al salir.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("f1:f100")) Is Nothing Then
ActiveCell.Offset(-1, 0).Activate
ActiveCell.Offset(, -1).Formula = "=c2* " & ActiveCell.Address
ActiveCell.Offset(1, 0).Select
End If
End Sub

Saludos y
gracias!