2 Preguntas

Antes que nada muchas gracias por el comentario de Jesús y el de Héctor.
Realmente he aprendido mucho con ambos aportes.

La última pregunta que tengo es que hubo un error en le requerimiento del
usuario y ahora lo que me pide es la hora y no la fecha. Es decir necesito la
hora en que se realizó el registro. Tengo una tabla de datos y al ellos
colocarle que el material llegó se necesita la hora y la misma debe quedar
fija.

Gracias a todos,

Ing. Deiniel Cárdenas


"Jesus Peralta" escribió:

Que tal Déiniel Cardenas:
aqui te envio un codigo, aqui me lo facilitaron, lo uso actualmente y
ahorita que requieres algo que te ponga la fecha, jugue con el, claro
respetando el original te pone la fecha, solo que ocuparias nombrar una
hoja de tu libro de excel "B" sin las comillas, al momento de abrir o
ejecutar te pedira si "VAS A CREAR NUEVO DIA PARA SCANEAR" le dices que si y
te pondra le fecha actual, si el dia de mañana vuelves a te enviara el mismo
mensaje y le dics que no, y se quedara la fecha actual. o puedes jugar con
el codigo, este codigo fui extraido parte del original, y efectivamente yo
hice la pregunta de que se estampe la fecha y no cambie , pero por consejo
de Hector Miguel no lo utilce por ser una macro y cargaria mas mi libro que
tengo 3 macros que lo mueven , pero juega
aqui el codigo:

Private Sub Workbook_Open()

' Seleccionamos el tamaño del papel DIN A4
Worksheets("B").ScrollArea = "A1:AB350"

' Mensaje para saber si se va a hacer un presupuesto nuevo
' y cambiar el numero y la fecha
If MsgBox("VAS A CREAR NUEVO DIA PARA SCANEAR", vbYesNo, "Confirmar") _
= vbYes Then

' Incrementamos el numero del presupuesto
Sheets("B").Range("B3") = Sheets("B").Range("B3")


' Colocamos la fecha del sistema
Range("D1").Value = Date

' Seleccionamos la celda para empezar a colocar los datos del cliente
Range("B3").Select

Else
End If

End Sub


"Déiniel Cárdenas" <Diniel C escribió en
el mensaje news:
> Hola a todos,
>
> La primera pregunta es la siguiente:
>
> Cómo puedo hacer para con una macro se guarde un archivo con un nombre
> predeterminado por la fecha. Es decir corro la macro y hoy por ejemplo me
> guarde un archivo llamado RECAUDACIÓN 20-09-05.
>
> Por otro lado, es una pregunta que hicieron días atrás pero creo que no
tuvo
> ninguna respuesta. Cómo puedo hacer para que la fecha después de una
formula
> =hoy() no se cambie. Ojo la solución no podría incluir la desactivación
del
> generador automático de formulas por que hay varios calculos que se están
> generando.
>
> Gracias a todos de antemano.
>
> Déiniel Cárdenas

Hola Deiniel,

1) el atajo pasara a ser a Ctrl+: (dos puntos)
2) la formula en la celda seria =AHORA()
3) el primer codigo de Hector Miguel sera asi:

ActiveWorkbook.SaveAs "Recaudacion " _
& Format(Time, "hh-mm-ss"), xlWorkbookNormal

Ojo - las unidades de tiempo los he separado por guiones porque dos puntos
(:) no valen dentro de un nombre de archivo.

4) el segundo codigo de Hector Miguel sera asi:

en un modulo de codigo 'normal' ==Sub Congela_Fecha()
If ActiveCell.HasFormula Then _
If ActiveCell.Formula = "=NOW()" Then _
ActiveCell = Time: Exit Sub
MsgBox "Selecciona PRIMERO la celda a ""congelar""", , ""
End Sub

5) el codigo de Jesus sera asi:

Private Sub Workbook_Open()
Worksheets("B").ScrollArea = "A1:AB350"
If MsgBox("VAS A CREAR NUEVO DIA PARA SCANEAR", _
vbYesNo, "Confirmar") = vbYes Then
Sheets("B").Range("B3") = Sheets("B").Range("B3")
Range("D1").Value = Time
Range("B3").Select
End If
End Sub

Saludos,
KL


"Deiniel Cardenas" wrote in
message news:

Antes que nada muchas gracias por el comentario de Jesus y el de Hector.
Realmente he aprendido mucho con ambos aportes.

La ultima pregunta que tengo es que hubo un error en le requerimiento del
usuario y ahora lo que me pide es la hora y no la fecha. Es decir necesito
la
hora en que se realizo el registro. Tengo una tabla de datos y al ellos
colocarle que el material llego se necesita la hora y la misma debe quedar
fija.

Gracias a todos,

Ing. Deiniel Cardenas


"Jesus Peralta" escribio:

Que tal Deiniel Cardenas:
aqui te envio un codigo, aqui me lo facilitaron, lo uso actualmente y
ahorita que requieres algo que te ponga la fecha, jugue con el, claro
respetando el original te pone la fecha, solo que ocuparias nombrar una
hoja de tu libro de excel "B" sin las comillas, al momento de abrir o
ejecutar te pedira si "VAS A CREAR NUEVO DIA PARA SCANEAR" le dices que
si y
te pondra le fecha actual, si el dia de manana vuelves a te enviara el
mismo
mensaje y le dics que no, y se quedara la fecha actual. o puedes jugar
con
el codigo, este codigo fui extraido parte del original, y efectivamente
yo
hice la pregunta de que se estampe la fecha y no cambie , pero por
consejo
de Hector Miguel no lo utilce por ser una macro y cargaria mas mi libro
que
tengo 3 macros que lo mueven , pero juega
aqui el codigo:

Private Sub Workbook_Open()

' Seleccionamos el tamano del papel DIN A4
Worksheets("B").ScrollArea = "A1:AB350"

' Mensaje para saber si se va a hacer un presupuesto nuevo
' y cambiar el numero y la fecha
If MsgBox("VAS A CREAR NUEVO DIA PARA SCANEAR", vbYesNo, "Confirmar") _
= vbYes Then

' Incrementamos el numero del presupuesto
Sheets("B").Range("B3") = Sheets("B").Range("B3")


' Colocamos la fecha del sistema
Range("D1").Value = Date

' Seleccionamos la celda para empezar a colocar los datos del cliente
Range("B3").Select

Else
End If

End Sub


"Deiniel Cardenas" <Diniel C escribio
en
el mensaje news:
> Hola a todos,
>
> La primera pregunta es la siguiente:
>
> Como puedo hacer para con una macro se guarde un archivo con un nombre
> predeterminado por la fecha. Es decir corro la macro y hoy por ejemplo
> me
> guarde un archivo llamado RECAUDACION 20-09-05.
>
> Por otro lado, es una pregunta que hicieron dias atras pero creo que no
tuvo
> ninguna respuesta. Como puedo hacer para que la fecha despues de una
formula
> =hoy() no se cambie. Ojo la solucion no podria incluir la desactivacion
del
> generador automatico de formulas por que hay varios calculos que se
> estan
> generando.
>
> Gracias a todos de antemano.
>
> Deiniel Cardenas

Hola nuevamente a todos, de verdad perdonen la molestia con tantas preguntas.
Pero la última macro que escribío KL la corrí, pero realmente no sé muy bien
cómo opera...Me coloco sobre la celda que quiero "congelar" pero al escribir
otra fecha la primera se actualiza de forma automática.

Fecha Depósito Fecha Recibido Lote
01/09/2005 02/09/2005 195295 26/09/2005 09:26
01/09/2005 02/09/2005 195295 26/09/2005 09:26
01/09/2005 02/09/2005 195295 26/09/2005 09:26

Les anexo una parte del archivo. Bueno cabe acotar que tiene como 10
columnas que son las que al final generan el número de lote. Si revisan este
es la combinatoria de las fechas de depósito+fecha de recibido+un número de
correlativo. La última columna que es la fecha más la hora es la que quisiera
que no se modificiada. De hecho quisiera que solamente apareciera la hora en
que se anotó la fecha de recibido. Esto se hace con la finalidad de que ellos
puedan agrupar después por orden de llegada los recaudos.

El planteamiento concreto es que cuando ellos introduzcan la fecha de
recepción, todo lo demás se genere en forma automática o mediante la
pulsación de un botón o en su defecto corriendo una macro. Realmente esto es
lo único que necesito terminar de puntualizar para entregar el proyecto.

Saludos y mil gracias nuevamente.




Ing. Deiniel Cárdenas


"KL" escribió:

Hola Deiniel,

1) el atajo pasara a ser a Ctrl+: (dos puntos)
2) la formula en la celda seria =AHORA()
3) el primer codigo de Hector Miguel sera asi:

ActiveWorkbook.SaveAs "Recaudacion " _
& Format(Time, "hh-mm-ss"), xlWorkbookNormal

Ojo - las unidades de tiempo los he separado por guiones porque dos puntos
(:) no valen dentro de un nombre de archivo.

4) el segundo codigo de Hector Miguel sera asi:

en un modulo de codigo 'normal' ==> Sub Congela_Fecha()
If ActiveCell.HasFormula Then _
If ActiveCell.Formula = "=NOW()" Then _
ActiveCell = Time: Exit Sub
MsgBox "Selecciona PRIMERO la celda a ""congelar""", , ""
End Sub

5) el codigo de Jesus sera asi:

Private Sub Workbook_Open()
Worksheets("B").ScrollArea = "A1:AB350"
If MsgBox("VAS A CREAR NUEVO DIA PARA SCANEAR", _
vbYesNo, "Confirmar") = vbYes Then
Sheets("B").Range("B3") = Sheets("B").Range("B3")
Range("D1").Value = Time
Range("B3").Select
End If
End Sub

Saludos,
KL


"Deiniel Cardenas" wrote in
message news:
> Antes que nada muchas gracias por el comentario de Jesus y el de Hector.
> Realmente he aprendido mucho con ambos aportes.
>
> La ultima pregunta que tengo es que hubo un error en le requerimiento del
> usuario y ahora lo que me pide es la hora y no la fecha. Es decir necesito
> la
> hora en que se realizo el registro. Tengo una tabla de datos y al ellos
> colocarle que el material llego se necesita la hora y la misma debe quedar
> fija.
>
> Gracias a todos,
>
> Ing. Deiniel Cardenas
>
>
> "Jesus Peralta" escribio:
>
>> Que tal Deiniel Cardenas:
>> aqui te envio un codigo, aqui me lo facilitaron, lo uso actualmente y
>> ahorita que requieres algo que te ponga la fecha, jugue con el, claro
>> respetando el original te pone la fecha, solo que ocuparias nombrar una
>> hoja de tu libro de excel "B" sin las comillas, al momento de abrir o
>> ejecutar te pedira si "VAS A CREAR NUEVO DIA PARA SCANEAR" le dices que
>> si y
>> te pondra le fecha actual, si el dia de manana vuelves a te enviara el
>> mismo
>> mensaje y le dics que no, y se quedara la fecha actual. o puedes jugar
>> con
>> el codigo, este codigo fui extraido parte del original, y efectivamente
>> yo
>> hice la pregunta de que se estampe la fecha y no cambie , pero por
>> consejo
>> de Hector Miguel no lo utilce por ser una macro y cargaria mas mi libro
>> que
>> tengo 3 macros que lo mueven , pero juega
>> aqui el codigo:
>>
>> Private Sub Workbook_Open()
>>
>> ' Seleccionamos el tamano del papel DIN A4
>> Worksheets("B").ScrollArea = "A1:AB350"
>>
>> ' Mensaje para saber si se va a hacer un presupuesto nuevo
>> ' y cambiar el numero y la fecha
>> If MsgBox("VAS A CREAR NUEVO DIA PARA SCANEAR", vbYesNo, "Confirmar") _
>> = vbYes Then
>>
>> ' Incrementamos el numero del presupuesto
>> Sheets("B").Range("B3") = Sheets("B").Range("B3")
>>
>>
>> ' Colocamos la fecha del sistema
>> Range("D1").Value = Date
>>
>> ' Seleccionamos la celda para empezar a colocar los datos del cliente
>> Range("B3").Select
>>
>> Else
>> End If
>>
>> End Sub
>>
>>
>> "Deiniel Cardenas" <Diniel C escribio
>> en
>> el mensaje news:
>> > Hola a todos,
>> >
>> > La primera pregunta es la siguiente:
>> >
>> > Como puedo hacer para con una macro se guarde un archivo con un nombre
>> > predeterminado por la fecha. Es decir corro la macro y hoy por ejemplo
>> > me
>> > guarde un archivo llamado RECAUDACION 20-09-05.
>> >
>> > Por otro lado, es una pregunta que hicieron dias atras pero creo que no
>> tuvo
>> > ninguna respuesta. Como puedo hacer para que la fecha despues de una
>> formula
>> > =hoy() no se cambie. Ojo la solucion no podria incluir la desactivacion
>> del
>> > generador automatico de formulas por que hay varios calculos que se
>> > estan
>> > generando.
>> >
>> > Gracias a todos de antemano.
>> >
>> > Deiniel Cardenas
>>
>>
>>

Hola Deiniel,


En mi mensaje anterior te puse 3 codigos ligeramente modificados que se
habian postedo por Hector Miguel y Jesus Peralta. Solo reemplace la funcion
Date por Time.

Dos preguntas:
1) a cual de los tres codigos te estas refiriendo
2) el codigo al que te refieres te habia funcionado antes de que yo lo
hubiera modificado?

Saludos,
KL

"Deiniel Cardenas" wrote in
message news:

Hola nuevamente a todos, de verdad perdonen la molestia con tantas
preguntas.
Pero la ultima macro que escribio KL la corri, pero realmente no se muy
bien
como opera...Me coloco sobre la celda que quiero "congelar" pero al
escribir
otra fecha la primera se actualiza de forma automatica.

Fecha Deposito Fecha Recibido Lote
01/09/2005 02/09/2005 195295 26/09/2005 09:26
01/09/2005 02/09/2005 195295 26/09/2005 09:26
01/09/2005 02/09/2005 195295 26/09/2005 09:26

Les anexo una parte del archivo. Bueno cabe acotar que tiene como 10
columnas que son las que al final generan el numero de lote. Si revisan
este
es la combinatoria de las fechas de deposito+fecha de recibido+un numero
de
correlativo. La ultima columna que es la fecha mas la hora es la que
quisiera
que no se modificiada. De hecho quisiera que solamente apareciera la hora
en
que se anoto la fecha de recibido. Esto se hace con la finalidad de que
ellos
puedan agrupar despues por orden de llegada los recaudos.

El planteamiento concreto es que cuando ellos introduzcan la fecha de
recepcion, todo lo demas se genere en forma automatica o mediante la
pulsacion de un boton o en su defecto corriendo una macro. Realmente esto
es
lo unico que necesito terminar de puntualizar para entregar el proyecto.

Saludos y mil gracias nuevamente.




Ing. Deiniel Cardenas


"KL" escribio:

Hola Deiniel,

1) el atajo pasara a ser a Ctrl+: (dos puntos)
2) la formula en la celda seria =AHORA()
3) el primer codigo de Hector Miguel sera asi:

ActiveWorkbook.SaveAs "Recaudacion " _
& Format(Time, "hh-mm-ss"), xlWorkbookNormal

Ojo - las unidades de tiempo los he separado por guiones porque dos
puntos
(:) no valen dentro de un nombre de archivo.

4) el segundo codigo de Hector Miguel sera asi:

en un modulo de codigo 'normal' ==>> Sub Congela_Fecha()
If ActiveCell.HasFormula Then _
If ActiveCell.Formula = "=NOW()" Then _
ActiveCell = Time: Exit Sub
MsgBox "Selecciona PRIMERO la celda a ""congelar""", , ""
End Sub

5) el codigo de Jesus sera asi:

Private Sub Workbook_Open()
Worksheets("B").ScrollArea = "A1:AB350"
If MsgBox("VAS A CREAR NUEVO DIA PARA SCANEAR", _
vbYesNo, "Confirmar") = vbYes Then
Sheets("B").Range("B3") = Sheets("B").Range("B3")
Range("D1").Value = Time
Range("B3").Select
End If
End Sub

Saludos,
KL


"Deiniel Cardenas" wrote in
message news:
> Antes que nada muchas gracias por el comentario de Jesus y el de
> Hector.
> Realmente he aprendido mucho con ambos aportes.
>
> La ultima pregunta que tengo es que hubo un error en le requerimiento
> del
> usuario y ahora lo que me pide es la hora y no la fecha. Es decir
> necesito
> la
> hora en que se realizo el registro. Tengo una tabla de datos y al ellos
> colocarle que el material llego se necesita la hora y la misma debe
> quedar
> fija.
>
> Gracias a todos,
>
> Ing. Deiniel Cardenas
>
>
> "Jesus Peralta" escribio:
>
>> Que tal Deiniel Cardenas:
>> aqui te envio un codigo, aqui me lo facilitaron, lo uso actualmente y
>> ahorita que requieres algo que te ponga la fecha, jugue con el, claro
>> respetando el original te pone la fecha, solo que ocuparias nombrar
>> una
>> hoja de tu libro de excel "B" sin las comillas, al momento de abrir o
>> ejecutar te pedira si "VAS A CREAR NUEVO DIA PARA SCANEAR" le dices
>> que
>> si y
>> te pondra le fecha actual, si el dia de manana vuelves a te enviara el
>> mismo
>> mensaje y le dics que no, y se quedara la fecha actual. o puedes jugar
>> con
>> el codigo, este codigo fui extraido parte del original, y
>> efectivamente
>> yo
>> hice la pregunta de que se estampe la fecha y no cambie , pero por
>> consejo
>> de Hector Miguel no lo utilce por ser una macro y cargaria mas mi
>> libro
>> que
>> tengo 3 macros que lo mueven , pero juega
>> aqui el codigo:
>>
>> Private Sub Workbook_Open()
>>
>> ' Seleccionamos el tamano del papel DIN A4
>> Worksheets("B").ScrollArea = "A1:AB350"
>>
>> ' Mensaje para saber si se va a hacer un presupuesto nuevo
>> ' y cambiar el numero y la fecha
>> If MsgBox("VAS A CREAR NUEVO DIA PARA SCANEAR", vbYesNo, "Confirmar")
>> _
>> = vbYes Then
>>
>> ' Incrementamos el numero del presupuesto
>> Sheets("B").Range("B3") = Sheets("B").Range("B3")
>>
>>
>> ' Colocamos la fecha del sistema
>> Range("D1").Value = Date
>>
>> ' Seleccionamos la celda para empezar a colocar los datos del cliente
>> Range("B3").Select
>>
>> Else
>> End If
>>
>> End Sub
>>
>>
>> "Deiniel Cardenas" <Diniel C
>> escribio
>> en
>> el mensaje news:
>> > Hola a todos,
>> >
>> > La primera pregunta es la siguiente:
>> >
>> > Como puedo hacer para con una macro se guarde un archivo con un
>> > nombre
>> > predeterminado por la fecha. Es decir corro la macro y hoy por
>> > ejemplo
>> > me
>> > guarde un archivo llamado RECAUDACION 20-09-05.
>> >
>> > Por otro lado, es una pregunta que hicieron dias atras pero creo que
>> > no
>> tuvo
>> > ninguna respuesta. Como puedo hacer para que la fecha despues de una
>> formula
>> > =hoy() no se cambie. Ojo la solucion no podria incluir la
>> > desactivacion
>> del
>> > generador automatico de formulas por que hay varios calculos que se
>> > estan
>> > generando.
>> >
>> > Gracias a todos de antemano.
>> >
>> > Deiniel Cardenas
>>
>>
>>

Hola KL este es el código que estoy tomando. Realmente no sé muy bien lo que
hace. Otra forma que he pensado es la siguiente: Imaginate que se pueda hacer
una macro que copie y pegue especial como valor en la columna que yo tengo
identificado como hora. Crees que se pueda?

A B C D
1 1/09/2005 02/09/2005 1952951 26/09/2005 09:26
2 1/09/2005 02/09/2005 1952952 26/09/2005 09:27

Es decir cuando rellenes el Campo B1 automáticamente ponga la fecha. Cuando
actives la macro reconozca que esta es la fila activa y copie y pegue
especial el valor de la celda D1. Y así con B2, B3.

Espero tu respuesta y de antemano muchas gracias por todo...


en un modulo de codigo 'normal' ==>> Sub Congela_Fecha()

If ActiveCell.HasFormula Then _
If ActiveCell.Formula = "=NOW()" Then _
ActiveCell = Time: Exit Sub
MsgBox "Selecciona PRIMERO la celda a ""congelar""", , ""
End Sub

Ing. Deiniel Cárdenas


"KL" escribió:

Hola Deiniel,


En mi mensaje anterior te puse 3 codigos ligeramente modificados que se
habian postedo por Hector Miguel y Jesus Peralta. Solo reemplace la funcion
Date por Time.

Dos preguntas:
1) a cual de los tres codigos te estas refiriendo
2) el codigo al que te refieres te habia funcionado antes de que yo lo
hubiera modificado?

Saludos,
KL

"Deiniel Cardenas" wrote in
message news:
> Hola nuevamente a todos, de verdad perdonen la molestia con tantas
> preguntas.
> Pero la ultima macro que escribio KL la corri, pero realmente no se muy
> bien
> como opera...Me coloco sobre la celda que quiero "congelar" pero al
> escribir
> otra fecha la primera se actualiza de forma automatica.
>
> Fecha Deposito Fecha Recibido Lote
> 01/09/2005 02/09/2005 195295 26/09/2005 09:26
> 01/09/2005 02/09/2005 195295 26/09/2005 09:26
> 01/09/2005 02/09/2005 195295 26/09/2005 09:26
>
> Les anexo una parte del archivo. Bueno cabe acotar que tiene como 10
> columnas que son las que al final generan el numero de lote. Si revisan
> este
> es la combinatoria de las fechas de deposito+fecha de recibido+un numero
> de
> correlativo. La ultima columna que es la fecha mas la hora es la que
> quisiera
> que no se modificiada. De hecho quisiera que solamente apareciera la hora
> en
> que se anoto la fecha de recibido. Esto se hace con la finalidad de que
> ellos
> puedan agrupar despues por orden de llegada los recaudos.
>
> El planteamiento concreto es que cuando ellos introduzcan la fecha de
> recepcion, todo lo demas se genere en forma automatica o mediante la
> pulsacion de un boton o en su defecto corriendo una macro. Realmente esto
> es
> lo unico que necesito terminar de puntualizar para entregar el proyecto.
>
> Saludos y mil gracias nuevamente.
>
>
>
>
> Ing. Deiniel Cardenas
>
>
> "KL" escribio:
>
>> Hola Deiniel,
>>
>> 1) el atajo pasara a ser a Ctrl+: (dos puntos)
>> 2) la formula en la celda seria =AHORA()
>> 3) el primer codigo de Hector Miguel sera asi:
>>
>> ActiveWorkbook.SaveAs "Recaudacion " _
>> & Format(Time, "hh-mm-ss"), xlWorkbookNormal
>>
>> Ojo - las unidades de tiempo los he separado por guiones porque dos
>> puntos
>> (:) no valen dentro de un nombre de archivo.
>>
>> 4) el segundo codigo de Hector Miguel sera asi:
>>
>> en un modulo de codigo 'normal' ==> >> Sub Congela_Fecha()
>> If ActiveCell.HasFormula Then _
>> If ActiveCell.Formula = "=NOW()" Then _
>> ActiveCell = Time: Exit Sub
>> MsgBox "Selecciona PRIMERO la celda a ""congelar""", , ""
>> End Sub
>>
>> 5) el codigo de Jesus sera asi:
>>
>> Private Sub Workbook_Open()
>> Worksheets("B").ScrollArea = "A1:AB350"
>> If MsgBox("VAS A CREAR NUEVO DIA PARA SCANEAR", _
>> vbYesNo, "Confirmar") = vbYes Then
>> Sheets("B").Range("B3") = Sheets("B").Range("B3")
>> Range("D1").Value = Time
>> Range("B3").Select
>> End If
>> End Sub
>>
>> Saludos,
>> KL
>>
>>
>> "Deiniel Cardenas" wrote in
>> message news:
>> > Antes que nada muchas gracias por el comentario de Jesus y el de
>> > Hector.
>> > Realmente he aprendido mucho con ambos aportes.
>> >
>> > La ultima pregunta que tengo es que hubo un error en le requerimiento
>> > del
>> > usuario y ahora lo que me pide es la hora y no la fecha. Es decir
>> > necesito
>> > la
>> > hora en que se realizo el registro. Tengo una tabla de datos y al ellos
>> > colocarle que el material llego se necesita la hora y la misma debe
>> > quedar
>> > fija.
>> >
>> > Gracias a todos,
>> >
>> > Ing. Deiniel Cardenas
>> >
>> >
>> > "Jesus Peralta" escribio:
>> >
>> >> Que tal Deiniel Cardenas:
>> >> aqui te envio un codigo, aqui me lo facilitaron, lo uso actualmente y
>> >> ahorita que requieres algo que te ponga la fecha, jugue con el, claro
>> >> respetando el original te pone la fecha, solo que ocuparias nombrar
>> >> una
>> >> hoja de tu libro de excel "B" sin las comillas, al momento de abrir o
>> >> ejecutar te pedira si "VAS A CREAR NUEVO DIA PARA SCANEAR" le dices
>> >> que
>> >> si y
>> >> te pondra le fecha actual, si el dia de manana vuelves a te enviara el
>> >> mismo
>> >> mensaje y le dics que no, y se quedara la fecha actual. o puedes jugar
>> >> con
>> >> el codigo, este codigo fui extraido parte del original, y
>> >> efectivamente
>> >> yo
>> >> hice la pregunta de que se estampe la fecha y no cambie , pero por
>> >> consejo
>> >> de Hector Miguel no lo utilce por ser una macro y cargaria mas mi
>> >> libro
>> >> que
>> >> tengo 3 macros que lo mueven , pero juega
>> >> aqui el codigo:
>> >>
>> >> Private Sub Workbook_Open()
>> >>
>> >> ' Seleccionamos el tamano del papel DIN A4
>> >> Worksheets("B").ScrollArea = "A1:AB350"
>> >>
>> >> ' Mensaje para saber si se va a hacer un presupuesto nuevo
>> >> ' y cambiar el numero y la fecha
>> >> If MsgBox("VAS A CREAR NUEVO DIA PARA SCANEAR", vbYesNo, "Confirmar")
>> >> _
>> >> = vbYes Then
>> >>
>> >> ' Incrementamos el numero del presupuesto
>> >> Sheets("B").Range("B3") = Sheets("B").Range("B3")
>> >>
>> >>
>> >> ' Colocamos la fecha del sistema
>> >> Range("D1").Value = Date
>> >>
>> >> ' Seleccionamos la celda para empezar a colocar los datos del cliente
>> >> Range("B3").Select
>> >>
>> >> Else
>> >> End If
>> >>
>> >> End Sub
>> >>
>> >>
>> >> "Deiniel Cardenas" <Diniel C
>> >> escribio
>> >> en
>> >> el mensaje news:
>> >> > Hola a todos,
>> >> >
>> >> > La primera pregunta es la siguiente:
>> >> >
>> >> > Como puedo hacer para con una macro se guarde un archivo con un
>> >> > nombre
>> >> > predeterminado por la fecha. Es decir corro la macro y hoy por
>> >> > ejemplo
>> >> > me
>> >> > guarde un archivo llamado RECAUDACION 20-09-05.
>> >> >
>> >> > Por otro lado, es una pregunta que hicieron dias atras pero creo que
>> >> > no
>> >> tuvo
>> >> > ninguna respuesta. Como puedo hacer para que la fecha despues de una
>> >> formula
>> >> > =hoy() no se cambie. Ojo la solucion no podria incluir la
>> >> > desactivacion
>> >> del
>> >> > generador automatico de formulas por que hay varios calculos que se
>> >> > estan
>> >> > generando.
>> >> >
>> >> > Gracias a todos de antemano.
>> >> >
>> >> > Deiniel Cardenas
>> >>
>> >>
>> >>
>>
>>
>>