Saltar al contenido

agregar a una macro que al copiar conserve ancho de columnas

publicado

estimados compañeros del foro, si son tan amables de darme sugerencias con una macro,a la cual para mi gusto no le falta nada mas que al copiar a otra carpeta,esta no pierda el ancho de las columnas.

esta es mi macro:

Sub Salvar()

mio = ActiveWorkbook.Name

ruta = ActiveWorkbook.Path

Workbooks.Add

otro = ActiveWorkbook.Name

Workbooks(mio).Activate

nombre = Range("E4").Value

Range("A1:K63").Copy

Workbooks(otro).Activate

Sheets(3).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("E4").Value = Range("E4").Value + 1

End Sub

Featured Replies

publicado
  • Autor

G:applause:racias a ti he podido solucionar este gran problema. Realmente te agradezco.

"Tema Solucionado"

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.