Forums Últimos mensajes - Powered by IBM
 

Eliminar celdas vacías.

13/05/2005 - 12:58 por Respuesta X \(menguillo bcn\) | Informe spam
HOla chicos!!

Estoy desesperado por ver si alguien me puede dar una salución al siguiente
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
 

Leer las respuestas

#1 Respuesta X \(menguillo bcn\)
13/05/2005 - 13:22 | Informe spam
Tpc (tampoco) me sirve esta:

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


gracias
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





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

2 preguntas, 1 respuesta:
PARTICIPA
"Respuesta X (menguillo bcn)" escribió en el mensaje
news:#
HOla chicos!!

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


siguiente
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


Preguntas similares