Copiar rango de celdas desde una macro
Buenos días,
Un favor necesito copiar un rango de celdas de una hoja a otra con una macro; pero que respete el formato original de dicho rango... No realizando un pegado especial.
Muchas gracias,
Saludos,
Alfredo.
Un favor necesito copiar un rango de celdas de una hoja a otra con una macro; pero que respete el formato original de dicho rango... No realizando un pegado especial.
Muchas gracias,
Saludos,
Alfredo.
Respuesta
1
Pues la forma más fácil sería hacer una macro que haga el pegado especial con sólo valores en la nueva hoja, pero si de todas formas quiere hacerlo sin pegado especial, tendría que hacer un ciclo para el rango de celdas que desee llenar con información ("for each celda in rango") y luego traer los valores a cada celda con algo como esto:
celda.value=sheets("x").range(cells(x,x),cells(x,x))
celda.value=sheets("x").range(cells(x,x),cells(x,x))
Es cierto lo que recomiendas pero como se puede hacer en caso que tengan las celdas por ejemplo colores o negrita, ¿el tipo o tamaño de letra... hay forma de que estos formatos también se respeten con la copia?
Gracias,
Alfredo.
Gracias,
Alfredo.
Cuando utilizas una macro como la que te había recomendado, lo que sucede es que VBA asigna el valor guardado en una celda y lo asigna a otra celda, por consiguiente no tiene nada que ver con los formatos, sólo los valores. Ejm:
Range("A1").Value=Sheets(2).Range("B2")
En este caso, se le asigna el valor que tiene la celda B2 en la segunda hoja del actual libro de excel a la celda A1 de la hoja actual. En este caso no he hecho "copiar", lo que realmente hice fue guardar el valor de B2 en memoria y luego asignarlo a A1.
Range("A1").Value=Sheets(2).Range("B2")
En este caso, se le asigna el valor que tiene la celda B2 en la segunda hoja del actual libro de excel a la celda A1 de la hoja actual. En este caso no he hecho "copiar", lo que realmente hice fue guardar el valor de B2 en memoria y luego asignarlo a A1.