............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro eliminar filas en blanco.

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro eliminar filas en blanco.

Mensaje por palmacure el Jue Mayo 03, 2012 4:05 pm

Hola.
Tengo un pequeño problema y consiste en que necesitaba una macho para poder eliminar filas en blanco de una hoja de excel y vi el siguiente ejemplo:

Sub eliminarfilavacia()
For fila = 1 To 166
If Cells(fila, 4).Value = "" Then
Rows(fila).Delete
End If
Next fila
End Sub

Al ejecutar la macho una vez me elimina un determinado número de filas en blanco, pero me sigue dejando filas cuyo contenido esta vacio.
Al volver a ejecutar la macro una segunda vez me vuelve a eliminar algunas filas y así sucesivamente hasta que me elimina todas que estaban comprendidas entre la fila 1 y la 166.

Mi pregunta es ¿Como podría hacer para que me eliminara las filas que se encuentran en blanco entre las filas 1 a la 166 si tener que ejecutar la macro repetidas veces?

Un saludo y Gracias.



palmacure

Cantidad de envíos : 24
Fecha de inscripción : 28/04/2008

Volver arriba Ir abajo

Re: Macro eliminar filas en blanco.

Mensaje por Tatayayan el Jue Mayo 03, 2012 5:15 pm

Hola, adapta este ejemplo a tus necesidades:
Sub ElimiarFilasVacias()
Dim r As Long
Dim RngFilt As Range
Set RngFilt = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
If ActiveSheet.FilterMode Then
ActiveSheet.AutoFilter
RngFilt.AutoFilter Field:=1, Criteria1:="="
Else
RngFilt.AutoFilter Field:=1, Criteria1:="="
End If
RngFilt.Offset(1, 0).Resize(RngFilt.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Range("A1").AutoFilter
End Sub
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: Macro eliminar filas en blanco.

Mensaje por palmacure el Vie Mayo 11, 2012 4:25 pm

Gracias Tatayayan, no he podido darte las gracias antes, he estado un poco liado y he tenido que aparcar un poco el hobby.

Un saludo.

palmacure

Cantidad de envíos : 24
Fecha de inscripción : 28/04/2008

Volver arriba Ir abajo

Re: Macro eliminar filas en blanco.

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.