Ayuda con macro para eliminar celdas

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...

hola, (...) ???

Mostrar la cita

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.

Funciona perfectamente siempre y cuando la celda este completamente vacia
pero el caso es que las celdas a eliminar son un pega-valor de otras celdas que contenian "" (una cadena vacia)
y al buscarlas, tu algoritmo no las encuentra porque lo que busca son celdas vacias.
Eso si, si hago F2 y enter en cualquiera de ellas, la encuentra y la elimina sin problemas.
(No escribo ni borro nada en la celda, sólo hago F2 y pulso enter)
Pero claro, eso no me sirve, porque hacerlo con todas las que tengo, es peor que hacerlo a mano.
Pues eso, muchas gracias, y si se te ocurre algo mas, seguire leyendo.

Mostrar la cita

Mostrar la cita

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

hola, (...) ?

Mostrar la cita

Funciona perfectamente siempre y cuando la celda este completamente vacia
pero el caso es que las celdas a eliminar son un pega-valor de otras
celdas que contenian "" (una cadena vacia)
y al buscarlas, tu algoritmo no las encuentra porque lo que busca son
celdas vacias.
Eso si, si hago F2 y enter en cualquiera de ellas, la encuentra y la
elimina sin problemas.
(No escribo ni borro nada en la celda, sólo hago F2 y pulso enter)
Pero claro, eso no me sirve, porque hacerlo con todas las que tengo, es
peor que hacerlo a mano.
Pues eso, muchas gracias, y si se te ocurre algo mas, seguire leyendo.

(hasta donde se)... eso que comentas pasa (regularmente) cuando se dejan
"ciertos detalles en el tintero" :))
inicialmente solicitabas eliminar celdas (expresamente) "vacias" (que no
es lo mismo que "con cadenas vacias")
para el caso que (ahora) expones, intenta con una instruccion previa y
luego la misma de la propuesta anterior...
(solo "ajusta" el rango a tu caso real)

(primero)
[a1:f20] = evaluate("transpose(transpose(a1:f20))")

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

si cualquier duda (o surge informacion adicional)... comentas ?
saludos,
hector.

__ las consultas anteriores __
Mostrar la cita

Mostrar la cita

Mostrar la cita

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