Pegar celdas intercaladas, en espacios donde hay celdas en blanco, sin sobreescribir en las que tienen datos.

Quería pedirles me ayudaran si se puede de alguna menera, copiar celdas intercaladas y pegarlas en un espacio donde hay celdas en blanco y celdas con datos, pero solo rellenar las que están en blanco y no sobreescribir en las que tienen datos.

No se si me doy a entender!

Respuesta
1

No aportas datos de como seleccionas la celdas de origen ni las destino, por lo que el primer paso seria hacer una rutina que indique lo que ha de copiar y en dónde, luego solo tienes que incluir esta instrucción:

if celdaDestino =""  then celdaDestino = celdaOrigen

TE AGRADEZCO, Que hallas contestado muy rápido!

Si, Ejemplo: en la columna "a1" a "a10" tengo celdas que están en blanco intercaladas, Este rango al copiarlo quisiera se peque en el rango "b1" a "b10" PERO en ese rango ya hay datos y quisiera que se peque nada más en las que están en blanco.

NO se si me di ha entender

Te agradezco mucho

La subrutina más simple seria esta:

Sub MiCopiador

For f = 1 To 10   
If Cells(f, "B") = "" Then Cells(f, "B") = Cells(f, "A")

Next

end sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas