Bastante a menudo se reciben peticiones para solucionar el tema de la numeración de documentos (Facturas, Albaranes, Pedidos, Asientos, etc..).
En el libro, encontrareis una hoja con el nombre NUMERADORES, con 2 columnas:
Columna 1) Nombre del numerador
Columna 2) Número de documento
Pueden definirse tantos numeradores como se quieran.
También hay un formulario con el nombre NUMERADORES.
El funcionamiento es el siguiente:
En el libro donde hay que numerar documentos, añadir en Thisworkbook:
Private Sub Workbook_Open()
Workbooks.Open ThisWorkbook.Path & "\NUMERADORES.xls"
ThisWorkbook.ActiveSheet.Activate
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Workbooks("NUMERADORES.xls").Close
End Sub
[/CODE]
Al abrir el libro, se abre el libro [b]NUMERADORES.xls[/b], Que debe estar en el mismo directorio, y se crea un punto de menú con el nombre "[b]Numerador de documentos[/b]", con un submenú con el nombre "[b]Numerar[/b]".
Al seleccionar el submenú "[b]Numerar[/b]", se mostrará el formulario [b]NUMERADORES[/b], seleccionar la celda donde debe ir el Nº de Documento, seleccíonar el Numerador deseado, y pulsar el botón "Conforme", el formulario desaparecerá y el Nº de Documento se trasladara a la celda activa.
En Excel 2003, supongo que el menú aparecerá en la barra de menú, en Excel 2007, aparece dentro de la pestaña Complementos en la barra de menú.
Que lo disfruteis.
Saludos a todos. Antoni.
[color=#ff0000][b][u]VERSION MODIFICADA[/u]
[/b][/color][color=#0000cd][b]He añadido la posibilidad de poner una serie alfanumérica al principio del Nº de Documento y también la posibilidad de fijar la su longitud alineando con ceros entre la serie y el número.[/b][/color][color=#ff0000][/color]
Hola:
Bastante a menudo se reciben peticiones para solucionar el tema de la numeración de documentos (Facturas, Albaranes, Pedidos, Asientos, etc..).
En el libro, encontrareis una hoja con el nombre NUMERADORES, con 2 columnas:
Columna 1) Nombre del numerador
Columna 2) Número de documento
Pueden definirse tantos numeradores como se quieran.
También hay un formulario con el nombre NUMERADORES.
El funcionamiento es el siguiente:
En el libro donde hay que numerar documentos, añadir en Thisworkbook:
Al abrir el libro, se abre el libro [b]NUMERADORES.xls[/b], Que debe estar en el mismo directorio, y se crea un punto de menú con el nombre "[b]Numerador de documentos[/b]", con un submenú con el nombre "[b]Numerar[/b]".
Al seleccionar el submenú "[b]Numerar[/b]", se mostrará el formulario [b]NUMERADORES[/b], seleccionar la celda donde debe ir el Nº de Documento, seleccíonar el Numerador deseado, y pulsar el botón "Conforme", el formulario desaparecerá y el Nº de Documento se trasladara a la celda activa.
En Excel 2003, supongo que el menú aparecerá en la barra de menú, en Excel 2007, aparece dentro de la pestaña Complementos en la barra de menú.
Que lo disfruteis.
Saludos a todos. Antoni.
[color=#ff0000][b][u]VERSION MODIFICADA[/u]
[/b][/color][color=#0000cd][b]He añadido la posibilidad de poner una serie alfanumérica al principio del Nº de Documento y también la posibilidad de fijar la su longitud alineando con ceros entre la serie y el número.[/b][/color][color=#ff0000][/color]
NUMERADORES II.xls