Copiar celdas con formato y valor en otro libro MACRO
Tengo una macro con botones en una hoja y quiero que con un botón se realice lo siguiente:
Copiar celdas A1:E500
En un nuevo libro y que incluya, formato, valores, tamaño, imagen situada en A1, alto y ancho de celda.
1 Respuesta
Respuesta de Dante Amor
2
H o l a : Te anexo la macro.
Cambia en la macro "Picture 1", por el nombre de la imagen que se va a copiar. Para saber el nombre de tu imagen, selecciona la imagen, y el nombre aparecerá en el Cuadro de nombres.
La macro te copiará el rango en un libro nuevo.
Sub Copiar_Rango()
'Por.Dante Amor
imagen = "Picture 1"
Set h1 = ActiveSheet
h1.Copy
Set h2 = ActiveSheet
h2.Range(Cells(1, "F"), Cells(1, Columns.Count)).EntireColumn.Delete
h2.Rows("501:" & Rows.Count).Delete
h2.DrawingObjects.Delete
h1.DrawingObjects(imagen).Copy
arr = h1.DrawingObjects(imagen).Top
izq = h1.DrawingObjects(imagen).Left
ActiveSheet.Paste
Selection.Top = arr
Selection.Left = izq
End SubPrueba y me comentas cualquier duda
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
