Autonumerico

20/03/2006 - 21:36 por Luis A. Catalán Grau | Informe spam
Hola amigos,
tengo una hoja de excel de presupuestos en formato de plantilla, con lo cual
cada vez que la abro me aparece todo en blanco . Hay una celda que es el nº
de presupuesto y lo que quiero es que cada vez que abra la plantilla en la
celda "nº de presupuesto" me aparezca un numero correlativo con el año y
cada vez que cambia el año, comience de 1. Ej. 0001/2006 .xxxx/2006,
0001/2007 .xxxx/2007, etc.
Un saludo,
Luis
 

Leer las respuestas

#1 Héctor Miguel
22/03/2006 - 01:34 | Informe spam
hola, Luis !

Mostrar la cita
suponiendo que tu hoja 'en formato plantilla' ES un complemento .XLA -?-

1) convendria si expones si actualmente ya estas 'autonumerando' tus presupuestos [y el como lo estas haciendo]
[ademas de en cual hoja y celda es que se pone el 'no. de presupuesto' y el formato numerico [si alguno personalizado] :)

2) en caso de que te este haciendo falta el 'procedimiento' completo...
-> puedes descargar [alguno de o los] dos complementos para 'autonumerar' plantillas en...
http://www.excelesp.com/descargas/c...racion.zip
http://www.excelesp.com/descargas/c...ciones.zip

3) si tu caso es mas 'sencillo'... y suponiendo que en la 'hoja_x' controlas el numero en 'A1' y el a#o en 'A2'
y luego lo pasas o concatenas o ... -> a la hoja y celda donde se pone el 'no. de presupuesto'...
prueba copiando las siguientes lineas en el modulo de codigo del libro [ThisWorkbook]
Private Sub Workbook_Open()
With Worksheets("hoja oculta")
If Year(Date) = .[a2] Then
.[a1] = .[a1] + 1
Else
.[a2] = Year(Date)
.[a1] = 1
End If
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares