Forums Últimos mensajes - Powered by IBM
 

Ayuda con macro para eliminar celdas

27/02/2008 - 20:22 por Citronio | Informe spam
Buenas tardes.
Estoy intentando crear una macro que elimine las celdas vacías de un rango,
desplazando hacia la izquierda las que tengan datos.
Ejemplo. Supongamos que queremos agrupar todos los cuadros negros de un
tablero de ajedrez (8x8 celdas), en la izquierda del tablero, eliminando los
blancos, y de forma que nos quedaría un tablero de 8 filas y sólo 4
columnas.
Creo que me he explicado bien.
El problema es que el rango no es de 8x8 sino bastante más grande 4500 x 36
aproximadamente
Lo he intentado pero me hago un lío con los rangos y los desplazamientos.
Muchas gracias y un saludo


Por cierto, he estado leyendo los mensajes del último mes y no he encontrado
nada que me sirviera para esto, pero sí para otras macros.
Buen trabajo de los "profes", si señor.
 

Leer las respuestas

#1 Héctor Miguel
28/02/2008 - 00:13 | Informe spam
hola, (...) ???

Estoy intentando crear una macro que elimine las celdas vacias de un rango, desplazando hacia la izquierda las que tengan datos.
Ejemplo. Supongamos que queremos agrupar todos los cuadros negros de un tablero de ajedrez (8x8 celdas)
en la izquierda del tablero, eliminando los blancos, y de forma que nos quedaria un tablero de 8 filas y sólo 4 columnas.
Creo que me he explicado bien.
El problema es que el rango no es de 8x8 sino bastante mas grande 4500 x 36 aproximadamente
Lo he intentado pero me hago un lío con los rangos y los desplazamientos...



el siguiente ejemplo lo puedes ejecutar desde la ventana de inmediato (atajo: ctfl+G) en el editor de vba y pulsas {enter}
-> solo corrige el rango de las 4500 x 36 (yo probe con un rango "ligeramemte" mas corto: 10 x 6) :))

[a1:f10].specialcells(xlcelltypeblanks).delete shift:=xltoleft

saludos,
hector.

Preguntas similares