Anónimo
Después de numfac0()... GUARDAR
Hola;
Esto me funciona, pero ocurre que en el documento original no incrementa el numero de factura automáticamente y cada vez que lo inicio me genera el mismo numero. Pero si después de abrirlo, manualmente presiono guardar, entonces si que guarda en el documento original el numero nuevo.
¿Cómo puedo hacer este procedimiento automático?
Private Sub Workbook_Open()
Call numfac0
Sub numfac0()
ActiveSheet.Unprotect "*********"
x = Hoja2.Range("D9")
Range("D9").Value = (x + 1)
ActiveSheet.Protect "*********"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call guardarComo
Sub guardarComo()
ruta = "C:\Documents and settings\Jan Tes\Escritorio\Avis\Avis"
ruta = ruta & ActiveSheet.Cells(9, 4).Value
ActiveWorkbook.SaveAs Filename:=ruta
End Sub
Esto me funciona, pero ocurre que en el documento original no incrementa el numero de factura automáticamente y cada vez que lo inicio me genera el mismo numero. Pero si después de abrirlo, manualmente presiono guardar, entonces si que guarda en el documento original el numero nuevo.
¿Cómo puedo hacer este procedimiento automático?
Private Sub Workbook_Open()
Call numfac0
Sub numfac0()
ActiveSheet.Unprotect "*********"
x = Hoja2.Range("D9")
Range("D9").Value = (x + 1)
ActiveSheet.Protect "*********"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call guardarComo
Sub guardarComo()
ruta = "C:\Documents and settings\Jan Tes\Escritorio\Avis\Avis"
ruta = ruta & ActiveSheet.Cells(9, 4).Value
ActiveWorkbook.SaveAs Filename:=ruta
End Sub
Respuesta de paramisolo
1
Por lo que veo tienes 2 libros, uno la plantilla que abres y otro el que guardas como, evidentemente el que guardas si tiene el valor pero la plantilla no primero tienes que decirle que guarde y después que guarde como seguirás teniendo 2 libros pero la plantilla si habrá tomado el dato de x+1.
Osea antes del primer end sub debes de poner ActiveWorkBook. Sabe y si no quieres que te pregunte que si quieres sustituir el libro pones
Application.DisplayAlerts = False
Espero que te lo solucione
>Un saludo
>Julio
Osea antes del primer end sub debes de poner ActiveWorkBook. Sabe y si no quieres que te pregunte que si quieres sustituir el libro pones
Application.DisplayAlerts = False
Espero que te lo solucione
>Un saludo
>Julio