Seleccionar celdas Autofiltro

Hola Daniel,

Tal vez algo asi:

Sub test()
With ActiveSheet
If .AutoFilterMode Then
With .AutoFilter.Range
.Resize(.Rows.Count - 1).Offset(1) _
.SpecialCells(xlCellTypeVisible).Select
End With
End If
End With
End Sub


Saludos,
KL



"Daniel Pozzi" wrote in message news:u$

Uso autofiltro para filtrar un rango de celdas. Cómo puedo hacer una macro
para seleccionar este rango de celdas q he filtrado filtrado?
Gracias!

Daniel

Gracias! funciona
Saludos

Daniel



"KL" escribio en el mensaje
news:
Hola Daniel,

Tal vez algo asi:

Sub test()
With ActiveSheet
If .AutoFilterMode Then
With .AutoFilter.Range
.Resize(.Rows.Count - 1).Offset(1) _
.SpecialCells(xlCellTypeVisible).Select
End With
End If
End With
End Sub


Saludos,
KL



"Daniel Pozzi" wrote in message
news:u$

Uso autofiltro para filtrar un rango de celdas. Cómo puedo hacer una macro
para seleccionar este rango de celdas q he filtrado filtrado?
Gracias!

Daniel