Desactivar autofiltro en Private Sub Worksheet_Change

09/08/2012 - 00:00 por titopose | Informe spam

¡ 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!