Eliminar celdas vacías.

Hola atodos espero q hayan tenido unas felices fiestas mi pregunta es la
sgte. este macro me ayudaron aca en el foro pero lo q deseo es q se
oculten las celdas q estan en blanco ( sin ningun valor) me pueden ayudar

de antemano

Sub EsconderFilas()
ActiveSheet.Unprotect "miclave" 'Desprotege
Application.ScreenUpdating = False
Dim Rango As Range, c As Range

Set Rango = Range("C8:C42")
For Each a In Rango
If a = 0 And a <> vbNullString Then
a.EntireRow.Hidden = True
Else
a.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="miclave" ' Vuelve a proteger
End Sub

HOla chicos!!

Estoy desesperado por ver si alguien me puede dar una salución al

problema

Tengo distribuidos en un total de 18 .xls's con muchas pestañas cada uno
rangos de datos en dos columas.
Entre todos los documentos tengo mas de 14.000 registros en filas.

Algunas de las celdas, tanto en la 1ª como en la 2ª columna están vacías y
necesito de una manera automática eliminar esas celdas vacias desplazando
las siguientes hacia arriba.

Una súplica: quien me ayuda????!!!!

Gracias!


xD [Gracias Por Vuestra Participación] xD
Preguntas, ¿te responden?
Preguntan, ¿respondes?

2 preguntas, 1 respuesta:
PARTICIPA