Foro Excel

Hola amigos, dos cuestiones:

1) se puede eliminar de una vez, las filas que estén ocultas??

2) y en un autofiltro??

gracias


PD: Si en vez de con Macro se puede hacer con: IR A... también me vale!!

gracias, un saludo a todos

Hola,

Esta macro elimina las filas ocultas de tu auto filtro, siempre y cuando, tu base de datos inicie en A1

Si no inicia en A1 debes cambiar una parte de la macro uindicando la celda donde inicia tu base de datos:, la linea que debes cambiar es la linea debajo del comentario.



Sub Delete_Filas_Ocultas()
Dim ColumnRangeOfDuplicates As Range
Dim DeleteRange As Range
Dim Rng As Range
Dim EndRowCount As Long
Application.ScreenUpdating = False
'Cambiar Range("A1"), por Range("La celda de tu base")
Set ColumnRangeOfDuplicates = Range("A1").CurrentRegion
For Each Rng In ColumnRangeOfDuplicates
If Rng.EntireRow.Hidden = True Then
If DeleteRange Is Nothing Then
Set DeleteRange = Rng.EntireRow
Else
Set DeleteRange = Application.Union(DeleteRange, Rng.EntireRow)
End If
End If
Next Rng
DeleteRange.Delete shift:=xlUp
ActiveSheet.ShowAllData
EndRowCount = ColumnRangeOfDuplicates.Rows.Count
End Sub


FELICIDADES!!!!!!!!!!!!!!!!!!