Necesito Macro que guarde la hoja de excel en otro archivo con numero consecutivo de una casilla.
Al guardarlo me acabo de dar cuenta que no me guarda el formato, solo el texto.
Supongo que habrá que añadir algo mas a lo anterior, y cuando he querido duplicarlo para que me funcionara en otra hoja cambiando el nombre de pestaña ( alquiler) por el nombre correspondiente me dice que no.
Tampoco es problema, lo que si me importa es lo del formato, como lo puedo solucionar? Muchas gracias.
1 Respuesta
Respuesta de Luis Mondelo
1
Te mando la macro con algunos cambios:
-Ahora no hace falta estar en una hoja llamada alquiler, puedes estar en cualquier otra pero eso sí, tienes que tener en dicha hoja el número escrito en la celda J16 que será el futuro nombre de archivo.
-Ahora cuando te hace la copia te lo hace con los formatos.
Sub ejemplo()
'por luismondelo
mio = ActiveWorkbook.Name
ruta = ActiveWorkbook.Path
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(mio).Activate
nombre = Range("j16").Value
Range("a1:m65").Copy
Workbooks(otro).Activate
Sheets(1).Select
Range("a1").select
activesheet.paste
ActiveWorkbook.SaveAs ruta & "\" & nombre
ActiveWorkbook.Close False
MsgBox "proceso terminado. El archivo se ha guardado en la carpeta: " & ruta & " con el nombre " & nombre
range("j16").value = range("j16").value +1
End Subrecuerda finalizar
