Copiar rango de celdas con formatos y formulas en otra hoja y que se acumulen uno tras otro
algo similar como puedo copiar un rango de celdas ejemplo con sus formatos y fórmulas a1:m31 en una hoja 2 y que cada vez que ejecute la macro con un botón se acumulen una copiada tras otra en la hoja dos, gracias.
1 respuesta
Te mando la solución. Solo tienes que dibujar un botón en tu hoja y adjudicarle esta macro y todo listo!
Sub copiado()
'por luismondelo
Range("a1:m31").Copy Destination:=Sheets("hoja2").Range("a65000").End(xlUp).Offset(1, 0)
End SubLa ejecutamos desde la hoja inicial y lo copiará, acumulándolo, a la hoja2
Recuerda finalizar y puntuar
Muchas gracias estimado, y como haría para que se copie las celdas con el formato, ancho y todo igual en la otra hoja, estoy probando unas opciones que veo pero no me funciona?
Hasta donde yo sé cuando copiamos rangos no se copian los anchos de columna pero si se copia el formato integro de la celda.
De todas formas te mando la macro que consigue igualar los formatos de anchos de columnas de ambas hojas:
En mi ejemplo estoy trabajando con dos hojas llamadas: hoja1 y hoja2
Sub prueba()
Sheets("hoja1").Select
Range("a1").Select
For c = 1 To 13
ancho = ancho & "," & Val(ActiveCell.ColumnWidth)
ActiveCell.Offset(0, 1).Select
Next
ancho = Mid(ancho, 2, Len(ancho) - 1)
MsgBox ancho
ancho = Split(ancho, ",")
Sheets("hoja2").Select
Range("a1").Select
For x = 0 To UBound(ancho)
ActiveCell.ColumnWidth = ancho(x)
ActiveCell.Offset(0, 1).Select
Next
End Sub
