necesito ayuda

Mira si te sirve este código, que deberás pegar en el módulo del libro de tu plantilla (en ThisWorkbook):


Option Explicit
Const strRuta As String = "C:\Facturas\" 'Ruta donde se guardarán las facturas (poner la que se desee).
Dim strNombreLibro As String

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Static blnRecursiva As Boolean
If blnRecursiva Then Exit Sub
If Me.Path <> "" Then Exit Sub

Dim intRespuesta As Integer

intRespuesta = MsgBox(prompt:="¿Desea salir sin guardar esta factura?" & vbNewLine & vbNewLine & "<Sí> para cerrar el libro sin guardarlo. " & vbNewLine & "<No> para guardar la factura como " & strNombreLibro & ".xls y cerrar el libro." & vbNewLine & "<Cancelar> para volver al libro sin guardarlo.", Buttons:=vbYesNoCancel + vbQuestion)
If intRespuesta = vbYes Then
Cancel = True
blnRecursiva = True
Me.Close savechanges:=False
ElseIf intRespuesta = vbNo Then
Application.EnableEvents = False
Me.SaveAs Filename:=strNombreLibro, FileFormat:=xlWorkbookNormal
Application.EnableEvents = True
ElseIf intRespuesta = vbCancel Then
Cancel = True
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Me.Path <> "" Then Exit Sub
Application.EnableEvents = False
Me.SaveAs Filename:=strNombreLibro, FileFormat:=xlWorkbookNormal
Application.EnableEvents = True
Cancel = True
ActiveWindow.Caption = strNombreLibro
End Sub

Private Sub Workbook_Open()
If Me.FileFormat = xlTemplate Or Me.Path <> "" Then Exit Sub

Dim fsB As FileSearch
Dim intNuevoNúmero As Integer
Set fsB = Application.FileSearch

With fsB
.NewSearch
.LookIn = strRuta
.SearchSubFolders = False
.Filename = "Fact*.xls"
If .Execute() = 0 Then intNuevoNúmero = 1 Else intNuevoNúmero = fsB.FoundFiles.Count + 1
End With

Me.Worksheets("Hoja1").Range("A1") = intNuevoNúmero 'El número de factura se pondría en A1
strNombreLibro = strRuta & "Fact" & Right("000" & intNuevoNúmero, 4)
ActiveWindow.Caption = strNombreLibro & " - Sin guardar"

Set fsB = Nothing
End Sub


La ruta donde deben almacenarse las facturas se determina en la segunda instrucción (Const strRuta... etc.)
Al basar un libro nuevo en la plantilla, debería aparecer como título de la ventana el nombre de la nueva factura, con la indicación "Sin guardar". La primera vez que se vaya a guardar el libro, ya sea desde el botón correspondiente o desde las opciones "Guardar" o "Guardar como" del menú "Archivo", se guardará automáticamente el libro en el directorio que se haya especificado, sin preguntar nada, con el nombre "Fact" seguido de su número consecutivo, y la indicación "Sin guardar" debería desaparecer. Si después se vuelve a hacer "Guardar como", ya se abrirá el diálogo normal de Excel para ello.

Si se intenta cerrar el libro usando la X de la ventana o las opciones "Cerrar" o "Salir" del menú archivo, se presentará un diálogo preguntando si se quiere cerrar el libro guardándolo o sin guardarlo. Esto también sucederá tan sólo mientras no se haya guardado el libro al menos una vez.

He hecho varias pruebas y parece que todo funciona como debe, pero no estará de más que tú hagas también tus pruebas antes de confiar en el código. Mi consejo es que crees una plantilla y un directorio para estas pruebas.

Una cuestión a tener en cuenta al trabajar de esta forma con plantillas es que el código se propaga a todos los libros basados en ellas, lo que significa que si estuviéramos hablando de muchas facturas, acabarías con unos cuantos Kbs. de código en tu disco duro que no sirven para nada...
Un saludo.


Fernando Arroyo
MS MVP - Excel



"Luis Mari" escribió en el mensaje news:blmbn7$97l$

Hola,

Necesito que un campo de una tabla excel tenga un contador. Quiero hacer
facturas, tengo la plantilla preparada pero necesito que cuando abra una
hoja para preparar nueva factura, mire en la carpeta donde guardo las
facturas la cantidad de excel que hay y ponga el nº siguiente, es decir, que
me numere las facturas.
¿Como se puede hacer esto??

Gracias de antemano.
Un saludo al grupo

Muchas gracias:
Es mas complicado de lo que pensaba. Soy usuario básico de excel.
No se ni que quieres decir con "pegarlo en el módulo de mi plantilla"
En resumen, no se hacerlo.
Me dedico a la informática (diseño), tengo una empresa de reciente
constitución y me he creado una plantilla en excel para facturar hasta que
pueda comprar un programa, pero es un rollo tener que mirar cada vez cual
era el nº de la última factura.
Si te mando mi plantilla lo puedes añadir tú? ¿Es mucho trabajo para tí?

Gracias de todas maneras.

Un saludo, Luis Mari.

"Fernando Arroyo" escribió en el mensaje
news:
Mira si te sirve este código, que deberás pegar en el módulo del libro de tu
plantilla (en ThisWorkbook):


Option Explicit
Const strRuta As String = "C:\Facturas\" 'Ruta donde se guardarán las
facturas (poner la que se desee).
Dim strNombreLibro As String

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Static blnRecursiva As Boolean
If blnRecursiva Then Exit Sub
If Me.Path <> "" Then Exit Sub

Dim intRespuesta As Integer

intRespuesta = MsgBox(prompt:="¿Desea salir sin guardar esta factura?" &
vbNewLine & vbNewLine & "<Sí> para cerrar el libro sin guardarlo. " &
vbNewLine & "<No> para guardar la factura como " & strNombreLibro & ".xls y
cerrar el libro." & vbNewLine & "<Cancelar> para volver al libro sin
guardarlo.", Buttons:=vbYesNoCancel + vbQuestion)
If intRespuesta = vbYes Then
Cancel = True
blnRecursiva = True
Me.Close savechanges:=False
ElseIf intRespuesta = vbNo Then
Application.EnableEvents = False
Me.SaveAs Filename:=strNombreLibro, FileFormat:=xlWorkbookNormal
Application.EnableEvents = True
ElseIf intRespuesta = vbCancel Then
Cancel = True
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Me.Path <> "" Then Exit Sub
Application.EnableEvents = False
Me.SaveAs Filename:=strNombreLibro, FileFormat:=xlWorkbookNormal
Application.EnableEvents = True
Cancel = True
ActiveWindow.Caption = strNombreLibro
End Sub

Private Sub Workbook_Open()
If Me.FileFormat = xlTemplate Or Me.Path <> "" Then Exit Sub

Dim fsB As FileSearch
Dim intNuevoNúmero As Integer
Set fsB = Application.FileSearch

With fsB
.NewSearch
.LookIn = strRuta
.SearchSubFolders = False
.Filename = "Fact*.xls"
If .Execute() = 0 Then intNuevoNúmero = 1 Else intNuevoNúmero fsB.FoundFiles.Count + 1
End With

Me.Worksheets("Hoja1").Range("A1") = intNuevoNúmero 'El número de
factura se pondría en A1
strNombreLibro = strRuta & "Fact" & Right("000" & intNuevoNúmero, 4)
ActiveWindow.Caption = strNombreLibro & " - Sin guardar"

Set fsB = Nothing
End Sub


La ruta donde deben almacenarse las facturas se determina en la segunda
instrucción (Const strRuta... etc.)
Al basar un libro nuevo en la plantilla, debería aparecer como título de la
ventana el nombre de la nueva factura, con la indicación "Sin guardar". La
primera vez que se vaya a guardar el libro, ya sea desde el botón
correspondiente o desde las opciones "Guardar" o "Guardar como" del menú
"Archivo", se guardará automáticamente el libro en el directorio que se haya
especificado, sin preguntar nada, con el nombre "Fact" seguido de su número
consecutivo, y la indicación "Sin guardar" debería desaparecer. Si después
se vuelve a hacer "Guardar como", ya se abrirá el diálogo normal de Excel
para ello.

Si se intenta cerrar el libro usando la X de la ventana o las opciones
"Cerrar" o "Salir" del menú archivo, se presentará un diálogo preguntando si
se quiere cerrar el libro guardándolo o sin guardarlo. Esto también sucederá
tan sólo mientras no se haya guardado el libro al menos una vez.

He hecho varias pruebas y parece que todo funciona como debe, pero no estará
de más que tú hagas también tus pruebas antes de confiar en el código. Mi
consejo es que crees una plantilla y un directorio para estas pruebas.

Una cuestión a tener en cuenta al trabajar de esta forma con plantillas es
que el código se propaga a todos los libros basados en ellas, lo que
significa que si estuviéramos hablando de muchas facturas, acabarías con
unos cuantos Kbs. de código en tu disco duro que no sirven para nada...
Un saludo.


Fernando Arroyo
MS MVP - Excel



"Luis Mari" escribió en el mensaje
news:blmbn7$97l$

Hola,

Necesito que un campo de una tabla excel tenga un contador. Quiero hacer
facturas, tengo la plantilla preparada pero necesito que cuando abra una
hoja para preparar nueva factura, mire en la carpeta donde guardo las
facturas la cantidad de excel que hay y ponga el nº siguiente, es decir,

que

me numere las facturas.
¿Como se puede hacer esto??

Gracias de antemano.
Un saludo al grupo

Es mucho mas fácil de lo que parece :-))
Abre tu plantilla (o, mejor, crea una copia para hacer algunas pruebas), y pulsa Alt + F11. Ahora deberías estar en el editor de VBA (Visual Basic para Aplicaciones). A la izquierda deberías poder ver el nombre de tu plantilla, precedido de "VBAProject" y encerrado entre paréntesis. El proyecto de la plantilla debería estar abierto, pero si no fuera así ábrelo pulsando sobre el signo +.

Verás que "colgando" de la carpeta llamada "Microsoft Excel Objetos" hay tantos elementos como hojas tenga la plantilla, y al final hay un elemento llamado "ThisWorkbook". Haz doble click sobre él. Ahora, "ThisWorkbook" debería aparecer dentro de un rectángulo gris, lo que significa que estás editando su código. Pega lo siguiente en la ventana de código (la más grande, a la derecha):


Option Explicit
Const strRuta As String = "C:\Facturas\" 'Ruta donde se guardarán las facturas (poner la que se desee).
Dim strNombreLibro As String

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Static blnRecursiva As Boolean
If blnRecursiva Then Exit Sub
If Me.Path <> "" Then Exit Sub

Dim intRespuesta As Integer

intRespuesta = MsgBox(prompt:="¿Desea salir sin guardar esta factura?" & vbNewLine & vbNewLine & "<Sí> para cerrar el libro sin guardarlo. " & vbNewLine & "<No> para guardar la factura como " & strNombreLibro & ".xls y cerrar el libro." & vbNewLine & "<Cancelar> para volver al libro sin guardarlo.", Buttons:=vbYesNoCancel + vbQuestion)
If intRespuesta = vbYes Then
Cancel = True
blnRecursiva = True
Me.Close savechanges:=False
ElseIf intRespuesta = vbNo Then
Application.EnableEvents = False
Me.SaveAs Filename:=strNombreLibro, FileFormat:=xlWorkbookNormal
Application.EnableEvents = True
ElseIf intRespuesta = vbCancel Then
Cancel = True
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Me.Path <> "" Then Exit Sub
Application.EnableEvents = False
Me.SaveAs Filename:=strNombreLibro, FileFormat:=xlWorkbookNormal
Application.EnableEvents = True
Cancel = True
ActiveWindow.Caption = strNombreLibro
End Sub

Private Sub Workbook_Open()
If Me.FileFormat = xlTemplate Or Me.Path <> "" Then Exit Sub

Dim fsB As FileSearch
Dim intNuevoNúmero As Integer
Set fsB = Application.FileSearch

With fsB
.NewSearch
.LookIn = strRuta
.SearchSubFolders = False
.Filename = "Fact*.xls"
If .Execute(SortBy:=msoSortByFileName, sortorder:=msoSortOrderDescending) = 0 Then intNuevoNúmero = 1 Else intNuevoNúmero = Val(Mid(.FoundFiles(1), Len(.LookIn) + 6, 4)) + 1
End With

Me.Worksheets("Hoja1").Range("A1") = intNuevoNúmero 'El número de factura se pondría en A1
strNombreLibro = strRuta & "Fact" & Right("000" & intNuevoNúmero, 4)
ActiveWindow.Caption = strNombreLibro & " - Sin guardar"

Set fsB = Nothing
End Sub


Y guarda la plantilla. Si tuvieras que volver a abrirla para modificar su diseño, te aconsejo que respondas "Deshabilitar macros" al abrirla.

Los libros que bases en la plantilla "heredarán" su código, pero en este caso sí que deberás autorizar la ejecución de las macros, aunque esto sólo es necesario en este momento, al crear el libro. Una vez guardado el libro, el código no sirve para nada.

He modificado el código con respecto a mi mensaje anterior, creo que para mejorarlo: ahora el número de factura no se calcula contando el número de ficheros llamados "Fact*.xls" en la carpeta C:\Facturas, sino usando el número de factura más alto de los almacenados en dicha carpeta. Esto significa que tan sólo es necesario dejar en dicha carpeta la última factura creada, aunque no pasa nada si hay más.

Si no consigues que te funcione, envíame la plantilla, si quieres. Mi dirección de correo electrónico es la que aparece en mis mensajes, quitando QUITA y ESTO. Te recuerdo que el nombre de la carpeta donde deben ser almacenadas las facturas lo tienes que establecer en la segunda instrucción (Const strRuta as String...). Tal como está el código, dicha carpeta sería C:\Facturas. Ten también en cuenta que la celda donde debe aparecer el número de factura se establece en la cuarta instrucción, empezando por el final (Me.Worksheets...). Tal como está el código, el número se pondría en la celda A1 de Hoja1.
Un saludo.


Fernando Arroyo
MS MVP - Excel



"Luis Mari" escribió en el mensaje news:blndhn$n9$

Muchas gracias:
Es mas complicado de lo que pensaba. Soy usuario básico de excel.
No se ni que quieres decir con "pegarlo en el módulo de mi plantilla"
En resumen, no se hacerlo.
Me dedico a la informática (diseño), tengo una empresa de reciente
constitución y me he creado una plantilla en excel para facturar hasta que
pueda comprar un programa, pero es un rollo tener que mirar cada vez cual
era el nº de la última factura.
Si te mando mi plantilla lo puedes añadir tú? ¿Es mucho trabajo para tí?

Gracias de todas maneras.

Un saludo, Luis Mari.

Bien, estupendo
Funciona, pero ahora, ¿puede ser que el contador empiece por 1001,1002,1003,
etc
El caso es que tengo dos plantillas diferentes y quiero que unas facturas
empiecen por 1000 y las otras por F0001, F0002
Donde se le indica eso.
Yo, como te dije, me dedico al diseño mecánico. Si puedo hacer algo por tí,
me lo dices. Estoy muy agradecido.
La ruta de la carpetas y la celda ya se modificarlo. Ahora me faltaría el
contador.

Muchísimas gracias.
Que tengas un buen día.



"Fernando Arroyo" escribió en el mensaje
news:#imqg$
Es mucho mas fácil de lo que parece :-))
Abre tu plantilla (o, mejor, crea una copia para hacer algunas pruebas), y
pulsa Alt + F11. Ahora deberías estar en el editor de VBA (Visual Basic para
Aplicaciones). A la izquierda deberías poder ver el nombre de tu plantilla,
precedido de "VBAProject" y encerrado entre paréntesis. El proyecto de la
plantilla debería estar abierto, pero si no fuera así ábrelo pulsando sobre
el signo +.

Verás que "colgando" de la carpeta llamada "Microsoft Excel Objetos" hay
tantos elementos como hojas tenga la plantilla, y al final hay un elemento
llamado "ThisWorkbook". Haz doble click sobre él. Ahora, "ThisWorkbook"
debería aparecer dentro de un rectángulo gris, lo que significa que estás
editando su código. Pega lo siguiente en la ventana de código (la más
grande, a la derecha):


Option Explicit
Const strRuta As String = "C:\Facturas\" 'Ruta donde se guardarán las
facturas (poner la que se desee).
Dim strNombreLibro As String

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Static blnRecursiva As Boolean
If blnRecursiva Then Exit Sub
If Me.Path <> "" Then Exit Sub

Dim intRespuesta As Integer

intRespuesta = MsgBox(prompt:="¿Desea salir sin guardar esta factura?" &
vbNewLine & vbNewLine & "<Sí> para cerrar el libro sin guardarlo. " &
vbNewLine & "<No> para guardar la factura como " & strNombreLibro & ".xls y
cerrar el libro." & vbNewLine & "<Cancelar> para volver al libro sin
guardarlo.", Buttons:=vbYesNoCancel + vbQuestion)
If intRespuesta = vbYes Then
Cancel = True
blnRecursiva = True
Me.Close savechanges:=False
ElseIf intRespuesta = vbNo Then
Application.EnableEvents = False
Me.SaveAs Filename:=strNombreLibro, FileFormat:=xlWorkbookNormal
Application.EnableEvents = True
ElseIf intRespuesta = vbCancel Then
Cancel = True
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Me.Path <> "" Then Exit Sub
Application.EnableEvents = False
Me.SaveAs Filename:=strNombreLibro, FileFormat:=xlWorkbookNormal
Application.EnableEvents = True
Cancel = True
ActiveWindow.Caption = strNombreLibro
End Sub

Private Sub Workbook_Open()
If Me.FileFormat = xlTemplate Or Me.Path <> "" Then Exit Sub

Dim fsB As FileSearch
Dim intNuevoNúmero As Integer
Set fsB = Application.FileSearch

With fsB
.NewSearch
.LookIn = strRuta
.SearchSubFolders = False
.Filename = "Fact*.xls"
If .Execute(SortBy:=msoSortByFileName,
sortorder:=msoSortOrderDescending) = 0 Then intNuevoNúmero = 1 Else
intNuevoNúmero = Val(Mid(.FoundFiles(1), Len(.LookIn) + 6, 4)) + 1
End With

Me.Worksheets("Hoja1").Range("A1") = intNuevoNúmero 'El número de
factura se pondría en A1
strNombreLibro = strRuta & "Fact" & Right("000" & intNuevoNúmero, 4)
ActiveWindow.Caption = strNombreLibro & " - Sin guardar"

Set fsB = Nothing
End Sub


Y guarda la plantilla. Si tuvieras que volver a abrirla para modificar su
diseño, te aconsejo que respondas "Deshabilitar macros" al abrirla.

Los libros que bases en la plantilla "heredarán" su código, pero en este
caso sí que deberás autorizar la ejecución de las macros, aunque esto sólo
es necesario en este momento, al crear el libro. Una vez guardado el libro,
el código no sirve para nada.

He modificado el código con respecto a mi mensaje anterior, creo que para
mejorarlo: ahora el número de factura no se calcula contando el número de
ficheros llamados "Fact*.xls" en la carpeta C:\Facturas, sino usando el
número de factura más alto de los almacenados en dicha carpeta. Esto
significa que tan sólo es necesario dejar en dicha carpeta la última factura
creada, aunque no pasa nada si hay más.

Si no consigues que te funcione, envíame la plantilla, si quieres. Mi
dirección de correo electrónico es la que aparece en mis mensajes, quitando
QUITA y ESTO. Te recuerdo que el nombre de la carpeta donde deben ser
almacenadas las facturas lo tienes que establecer en la segunda instrucción
(Const strRuta as String...). Tal como está el código, dicha carpeta sería
C:\Facturas. Ten también en cuenta que la celda donde debe aparecer el
número de factura se establece en la cuarta instrucción, empezando por el
final (Me.Worksheets...). Tal como está el código, el número se pondría en
la celda A1 de Hoja1.
Un saludo.


Fernando Arroyo
MS MVP - Excel



"Luis Mari" escribió en el mensaje
news:blndhn$n9$

Muchas gracias:
Es mas complicado de lo que pensaba. Soy usuario básico de excel.
No se ni que quieres decir con "pegarlo en el módulo de mi plantilla"
En resumen, no se hacerlo.
Me dedico a la informática (diseño), tengo una empresa de reciente
constitución y me he creado una plantilla en excel para facturar hasta que
pueda comprar un programa, pero es un rollo tener que mirar cada vez cual
era el nº de la última factura.
Si te mando mi plantilla lo puedes añadir tú? ¿Es mucho trabajo para tí?

Gracias de todas maneras.

Un saludo, Luis Mari.

"Luis Mari" escribió en el mensaje news:blp2c0$dri$

Bien, estupendo
Funciona, pero ahora, ¿puede ser que el contador empiece por 1001,1002,1003,
etc
El caso es que tengo dos plantillas diferentes y quiero que unas facturas
empiecen por 1000 y las otras por F0001, F0002
Donde se le indica eso.
Yo, como te dije, me dedico al diseño mecánico. Si puedo hacer algo por tí,
me lo dices. Estoy muy agradecido.
La ruta de la carpetas y la celda ya se modificarlo. Ahora me faltaría el
contador.

Muchísimas gracias.
Que tengas un buen día.

Hola de nuevo, y gracias por tu amabilidad. Espero que te vaya muy bien en tu nueva empresa.

Respecto al código, tendrás que cambiarlo para hacer lo que necesitas, pero sólo a partir de la instrucción Private Sub Workbook_Open(). Lo mejor es que borres el código a partir de esa línea (ella incluida), y lo sustituyas por el que te pongo a continuación.

Éste sería para la serie que debe empezar en 1000:


Private Sub Workbook_Open()
If Me.FileFormat = xlTemplate Or Me.Path <> "" Then Exit Sub

Dim fsB As FileSearch
Dim intNuevoNúmero As Integer
Set fsB = Application.FileSearch

With fsB
.NewSearch
.LookIn = strRuta
.SearchSubFolders = False
.Filename = "Fact*.xls"
If .Execute(SortBy:=msoSortByFileName, sortorder:=msoSortOrderDescending) = 0 Then intNuevoNúmero = 1000 Else intNuevoNúmero = Val(Mid(.FoundFiles(1), Len(.LookIn) + 6, 4)) + 1
End With

Me.Worksheets("Hoja1").Range("A1") = intNuevoNúmero 'El número de factura se pondría en A1
strNombreLibro = strRuta & "Fact" & intNuevoNúmero
ActiveWindow.Caption = strNombreLibro & " - Sin guardar"

Set fsB = Nothing
End Sub


Y éste para la serie que debe comenzar en F0001:


Private Sub Workbook_Open()
If Me.FileFormat = xlTemplate Or Me.Path <> "" Then Exit Sub

Dim fsB As FileSearch
Dim intNuevoNúmero As Integer
Set fsB = Application.FileSearch

With fsB
.NewSearch
.LookIn = strRuta
.SearchSubFolders = False
.Filename = "FactF*.xls"
If .Execute(SortBy:=msoSortByFileName, sortorder:=msoSortOrderDescending) = 0 Then intNuevoNúmero = 1 Else intNuevoNúmero = Val(Mid(.FoundFiles(1), Len(.LookIn) + 7, 4)) + 1
End With

Me.Worksheets("Hoja1").Range("A1") = "F" & Right("000" & intNuevoNúmero, 4) 'El número de factura se pondría en A1
strNombreLibro = strRuta & "FactF" & Right("000" & intNuevoNúmero, 4)
ActiveWindow.Caption = strNombreLibro & " - Sin guardar"

Set fsB = Nothing
End Sub


Los nombres de los libros empezarán por Fact y FactF.
Un saludo.


Fernando Arroyo
MS MVP - Excel