Macro que compare fecha del sistema

hola, Nacho !

... un archivo que es un consecutivo, cada vez que abre va sumando.
... cuando hay cambio de a#o, tengo que resetear el consecutivo a cero manualmente.
... que me compare con el a#o que tiene el sistema... cuando sea cambio de a#o reinicie el consecutivo a cero automaticamente.
Espero haber sido claro, cualquier duda preguntenme.

1) supongo que si abres 'el archvo' y sales SIN guardar [si hubiera] cambios... el 'incremento' NO se realiza [realmente] -?-

2) a menos que 'deposites' en alguna celda/hoja o en las propiedades del documento [ya sean integradas o personalizadas]...
-> las fechas en que se abre [cada vez que se abre] Y la fecha en que realmente se acepta el [ultimo] incremento... -???-

3) podrias comentar como y donde es que vas 'controlando' el consecutivo en el archivo ?
[y que tan... 'a prueba de errores' necesitas un nuevo 'control'] :))

saludos,
hector.

Hola Hector:

Te explico mas detalladamente.
Tengo un archivo de excel en el que se hacen las cotizaciones, al momento en
que el usuario guarda ese archivo tengo una macro que hace lo siguiente:

Workbooks.Open Filename:="f:\cotizar\consecutivo.xls"
Range("B1").Select 'año del consecutivo
mano = ActiveCell.Value
Range("A1").Select 'numero consecutivo
mdato = ActiveCell.Value
ActiveCell.Value = ActiveCell.Value + 1
ActiveWorkbook.Save
ActiveWorkbook.Close

Posteriormente ese número consecutivo es el nombre del archivo con el que se
va a guardar.
Lo que necesito es poner una especie de if en el que compare el año del
consecutivo con el año del sistema, para que en cada cambio de año, reinicie
el contador.

Gracias de antemano


"Héctor Miguel" escribió:

hola, Nacho !

> ... un archivo que es un consecutivo, cada vez que abre va sumando.
> ... cuando hay cambio de a#o, tengo que resetear el consecutivo a cero manualmente.
> ... que me compare con el a#o que tiene el sistema... cuando sea cambio de a#o reinicie el consecutivo a cero automaticamente.
> Espero haber sido claro, cualquier duda preguntenme.

1) supongo que si abres 'el archvo' y sales SIN guardar [si hubiera] cambios... el 'incremento' NO se realiza [realmente] -?-

2) a menos que 'deposites' en alguna celda/hoja o en las propiedades del documento [ya sean integradas o personalizadas]...
-> las fechas en que se abre [cada vez que se abre] Y la fecha en que realmente se acepta el [ultimo] incremento... -???-

3) podrias comentar como y donde es que vas 'controlando' el consecutivo en el archivo ?
[y que tan... 'a prueba de errores' necesitas un nuevo 'control'] :))

saludos,
hector.

hola, Nacho !

Tengo un archivo de excel en el que se hacen las cotizaciones
al momento en que el usuario guarda ese archivo tengo una macro que hace lo siguiente:
Workbooks.Open Filename:="f:\cotizar\consecutivo.xls"
Range("B1").Select 'a#o del consecutivo
mano = ActiveCell.Value
Range("A1").Select 'numero consecutivo
mdato = ActiveCell.Value
ActiveCell.Value = ActiveCell.Value + 1
ActiveWorkbook.Save
ActiveWorkbook.Close
Posteriormente ese numero consecutivo es el nombre del archivo con el que se va a guardar.
Lo que necesito es poner una especie de if en el que compare el a#o del consecutivo con el a#o del sistema
para que en cada cambio de a#o, reinicie el contador.

suponiendo que en -> "f:\cotizar\consecutivo.xls" [solo] vas aumentando el consecutivo cada vez que se guardan cotizaciones...
y que [de alguna manera] 'tomas' del consecutivo 'la siguiente' numeracion para las cotizaciones 'en curso' -?-
prueba con las siguientes lineas [en sustitucion de las que ya usas]...
Workbooks.Open FileName:="f:\cotizar\consecutivo.xls"
If Year(Date) = [b1] + 1 Then
[b1] = Year(Date)
[a1] = 1
Else
[a1] = [a1] + 1
End If
ActiveWorkbook.Close True

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

Muchas Gracias

Funciona a la perfección.

Te agradezco el tiempo que le dedicaste a mi pregunta

Saludos

"Héctor Miguel" escribió:

hola, Nacho !

> Tengo un archivo de excel en el que se hacen las cotizaciones
> al momento en que el usuario guarda ese archivo tengo una macro que hace lo siguiente:
> Workbooks.Open Filename:="f:\cotizar\consecutivo.xls"
> Range("B1").Select 'a#o del consecutivo
> mano = ActiveCell.Value
> Range("A1").Select 'numero consecutivo
> mdato = ActiveCell.Value
> ActiveCell.Value = ActiveCell.Value + 1
> ActiveWorkbook.Save
> ActiveWorkbook.Close
> Posteriormente ese numero consecutivo es el nombre del archivo con el que se va a guardar.
> Lo que necesito es poner una especie de if en el que compare el a#o del consecutivo con el a#o del sistema
> para que en cada cambio de a#o, reinicie el contador.

suponiendo que en -> "f:\cotizar\consecutivo.xls" [solo] vas aumentando el consecutivo cada vez que se guardan cotizaciones...
y que [de alguna manera] 'tomas' del consecutivo 'la siguiente' numeracion para las cotizaciones 'en curso' -?-
prueba con las siguientes lineas [en sustitucion de las que ya usas]...
Workbooks.Open FileName:="f:\cotizar\consecutivo.xls"
If Year(Date) = [b1] + 1 Then
[b1] = Year(Date)
[a1] = 1
Else
[a1] = [a1] + 1
End If
ActiveWorkbook.Close True

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