Hoja guardada modifica el folio

Hola a todos, tengo una hoja llamada "CREMACION" que utilizo para elaborar presupuestos. Le puse una macro para que al abrir aumente en 1 el folio y no estarlo cambiando porque luego se me olvida. También puse una macro para que al cerrarla la guardara con el nombre "presupuesto" y el numero del folio con que se creó, como un respaldo para consultar presupuestos anteriores.
Las macros son las sig:
Private Sub Workbook_open()
'al abrir el libro incrementa una celda
Sheets("CREMACION").Range("L2").Value = Sheets("CREMACION").Range("L2").Value + 1
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim nbre As String
nbre = "presupuesto" & Sheets("CREMACION").Range("L2").Value
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & nbre & ".xls"
End Sub
Mi problema es que al abrir alguna de las hojas "presupuesto" para consultar algún dato anterior, me aumenta el folio lo que provoca que al abrir la hoja "CREMACION" ya no sea el consecutivo correcto. ¿Es posible que al abrir la hoja presupuesto solo la abra pero que no la incremente? Necesito que solo se incremente en la hoja "CREMACION" que es la que se utiliza para elaborar los presupuestos y que el archivo "presupuesto" se abra para consultar pero sin que aumente el folio.
Espero haber sido claro y me puedan ayudar.
Saludos cordiales

1 respuesta

Respuesta
1
Podemos controlar el nombre del libro al momento de abrirlo.
Como desconozco cual es el nombre del libro principal, mejor me lo aclaras para darte las instrucciones precisas.
Hola, gracias por responder.
El libro se llama "PRESUPUESTO FSJ", la hoja que ocupo se llama "CREMACION" y el archivo que se guarda como respaldo es "presupuesto" junto con el folio utilizado.
Saludos cordiales
Entonces la macro del Open debe quedarte así:
Private Sub Workbook_open()
'al abrir el libro incrementa una celda
if activeworkbook.name = "PRESUPUESTO FSJ" then
Sheets("CREMACION").Range("L2").Value = Sheets("CREMACION").Range("L2").Value + 1
end if
Hola Elsa, mil gracias por el apoyo.
Mira que vi tu macro y se me hace muy buena y lógica, pero al aplicarla no me incrementa el valor de la celda. Ya estuve revisándola muchas veces por si anote algo mal, pero sin suerte. La macro se me hace excelente, ¿me faltara habilitar algo?
Private Sub Workbook_open()
'al abrir el libro incrementa una celda
If ActiveWorkbook.Name = "PRESUPUESTO FSJ" Then
Sheets("CREMACION").Range("L2").Value = Sheets("CREMACION").Range("L2").Value + 1
End If
End Sub
Saludos cordiales
Colocá esta línea al inicio solo por única vez para poder observar el nombre completo del libro, porque seguramente te falta la extensión que yo desconozco
Private Sub Workbook_open()
'al abrir el libro incrementa una celda
msgbox activeWorkbook.name
'sigue el resto
Una vez obtenido el nombre completo del libro, colocá ese texto en la comparación, quitando la agregada obviamente. Por ej:
If ActiveWorkbook.Name = "PRESUPUESTO FSJ.xlsm" Then

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Destacar OptionButton al cargar formulario

Tengo un formulario con tres OptionButton y los tengo asignado a una misma celda. El valor al hacer click son 1,2 y 3 respectivamente. La idea es que al cargar el formulario me pueda mostrar activo el OptionButton que había asignado anteriormente, es...
1 respuesta

Numeracion automatica de archivo excel

Tengo hechas unas plantillas con excel en las cuales querría conseguir dos cosas: 1 Al abrir el archivo incrementar en 1 una celda que corresponderá al numero de factura, pedido o albarán con respecto al archivo anterior abierto o sea cada vez que...
1 respuesta

Correlativo automático al abrir la hoja

Estoy tratando de que en una celda aparezca un número que se irá incrementando cada vez que abro el libro. (La idea es que no sea mediante un botón si no con el sólo hecho de abrir); Ej en la celda FOLIO el número es 200301 cerrar. Al abrir FOLIO =...
1 respuesta

Correlativo automático cuando se abre la hoja

Estoy tratando de crear una hoja de Excel que al momento que se abra tome un número correlativo nuevo (ej. Ordenes de trabajo). Es para llevar un control posterior a que se imprima, yo no soy muy hábil en Excel pero he tratado de varias formas y no...
1 respuesta

Ocultar filas con celdas vacías

No he programado en mi vida una Macro, así que os cuento lo que necesito y lo que he utilizado "de oídas" buscando por internet. Tengo un Libro con distintas Hojas vinculadas y en una de ellas quiero ocultar las filas (desde la 52 hasta la 71) en las...
2 respuestas

Guardar como pdf excel

Estoy realizando una macro que pueda unificar el contenido de varias hojas en un solo PDF, quiero que automáticamente seleccione un rango diferente en cada hoja para que solo imprima ese rango seleccionado en el PDF final. Ej: tengo 4 hojas...
1 respuesta

Copiar nombre archivo en celda

Me gustaría saber si es posible vincular el nombre del archivo automáticamente a una celda determinada, para cuando se abra el archivo, aparezca dicho nombre en una celda.
1 respuesta

Autonumérico

Como hago para ejemplo tengo un numero de 1254 en una celda y lo guardo como. Pero cuando habro de nuevo la planilla quiero que ese numero pase a 1255 y así sucesivamente por ej. Una orden de compra tengo que corregirle el nº cada vez que hago una...
5 respuestas

Auto ejecutar una macro

Quiero que se autoejecute una macro que tengo en un libro pero no se como ya que soy muy novato, el nombre de la macro es Private Sub Worksheet_Change(ByVal Target As Range).
1 respuesta

Como habilitar o deshabilitar un botón con macros.

Espero puedan ayudarme, no se mucho de macros, estoy elaborando en una misma plantilla de excel, ya sea una factura o un recibo, Tengo un botón que al presionarlo me muestra el texto del tipo de documento a generar "factura o Recibo" y me oculta...
1 respuesta