Guardar Hoja con las mismas dimencionesde la original
Hola Luis.
Nuevamente solicitándote algo de ayuda.
Tengo este código para guardar la hoja, le hice algunos arreglos y me funciona muy bien, solo una cosita;
Al guardar la hoja ,lo hace pero si tengo columnas mas anchas me guarda la hoja con dichas columnas mas estrechas.
Prueba tu mismo este código, solo da un ancho a columnas superior al ancho por defecto y ejecuta la macro, luego abre lo guardado y veras lo que sucede.
Quisiera que guardara la hoja tal como esta la hoja original.
Agradecido
1 respuesta
Creo que esta pregunta está repetida, pero te lo envío por si acaso:
Si quieres conservar el formato de una hoja al copiarla en otro libro y dejarla independiente del resto utiliza esta macro:
-Debemos estar posicionados en la hoja que queremos copiar.
-El nombre del nuevo archivo será el contenido de las celdas C8 y E8
-El nuevo archivo se grabará en la misma ruta del primero.
-El nuevo archivo solo tendrá una hoja, la copiada.
Sub ejemplo()
'por luismondelo
mio = ActiveWorkbook.Name
nombre = Range("C8") & "_" & Range("E8")
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(mio).Activate
ActiveSheet.Copy before:=Workbooks(otro).Sheets(1)
Application.DisplayAlerts = False
For x = 2 To Sheets.Count
Sheets(2).Delete
Next
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & nombre
ActiveWorkbook.Close False
End Subrecuerda finalizar
Perfecto, Guarda tal como quería.
Solo que los botones que tiene la hoja también pasan a la copiada pero eso lo arreglo para que no aparezcan en la copia..
Gracias Luis3
Cuanto a pregunta doble, fue porque hice esta pregunta pero me olvide de insertarte el código y como no hay forma de edición, hice nueva pregunta pero mencione que se me había olvidado dejar el código.
