fijar fecha

Solo consultas sobre Funciones y Fórmulas Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

fijar fecha

Notapor carso » 18 Feb 2010 09:33

Buenas tardes, en post mas abajo he visto uno que creo que es referente a mi consulta, pero intento ver los adjunto y por lo visto, se han perdido.

Bien mi consulta es la siguiente, necesitaria una funcion que me de la fecha de hoy, y me mantenga esa fecha en días posteriores. Yo lo he intentado con SI(A5="";" ";HOY()), pero lo que me ocurre es que si el archivo lo abro mañana, la fecha me la ha cambiado.

Podríais ayudarme??
Un Saludo y muchas gracias por vuestra colaboración.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
carso
Miembro Frecuente
Miembro Frecuente
 
Registrado: 10 Mar 2006 15:41

Re: fijar fecha

Notapor Adrian » 18 Feb 2010 16:43

Hola, no se porque una función, si puedes poner la fecha manualmente.

Lo que puedes hacer es insertar la función hoy, copiarla y pegarla como valor.

Ejemplo:

En A1 coloca =HOY() y das enter, despues te ubicas nuevamente en A1, presionas Ctrl + C (Copiar) y tomas Pegado Especial (ver según versión de Excel) e indicar pegar valores, seguidamente presionar ESC, o crear una macro que haga esto.

Sub PegarFecha()
Dim DireCelda As String
ActiveCell.FormulaR1C1 = "=TODAY()"
DireCelda = ActiveCell.Address
Range(DireCelda).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Adrian
Moderator
Moderator
 
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG

Re: fijar fecha

Notapor Héctor Miguel » 18 Feb 2010 21:55

hola, !

op1: prueba con los atajos de teclado (y segun tu plantilla):
{ctrl} |{shift}| dos_puntos = hora del sistema
{ctrl} |{shift}| punto_y_coma = fecha del sistema

op2: despues de depositar la funcion =hoy() pulsa {F2} {F9} {enter}

op3: en lugar de utilizar funciones de hoja de calculo que son volatiles por naturaleza...
define una funcion personalizada en un modulo de codigo estandar en tu proyecto de macros...
y copia/pega las siguientes instrucciones:

Function miFecha(Celda As Range) As Date
Volatile = False
miHora = Date
End Function

y su uso podria ser de la siguiente forma: [A1] =SI(B1<>"",miFecha(B1))
la instruccion 'Volatile = False' evita que re/calculos en tu modelo modifiquen el resultado
(a menos que la modificacion sea en la celda de referencia)
y para poder poner "otra" fecha, sera necesario primero "borrar" el contenido previo (si <>"")

saludos,
hector.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Héctor Miguel
Miembro Frecuente
Miembro Frecuente
 
Registrado: 26 Mar 2005 18:31

Re: fijar fecha

Notapor galileogali » 18 Feb 2010 22:56

Héctor he querido probar tu UDF, sin lograrlo

la funcion se traba en
Application.Volatile = false
o
Volatile =False.
Probe en Excel 2003 y 2007

No se reconoce a Volatile como variable o Function.....
¿Qué esta ocurriendo?

GALILEOGALI
http://excelgali.mejorforo.net/
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
galileogali
Moderator
Moderator
 
Registrado: 07 Ene 2005 22:46
Ubicación: QUIROGA (ba), ARGENTINA

Re: fijar fecha

Notapor galileogali » 18 Feb 2010 22:59

AAAhm obvio que cambie mihora por mifecha
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
galileogali
Moderator
Moderator
 
Registrado: 07 Ene 2005 22:46
Ubicación: QUIROGA (ba), ARGENTINA

Re: fijar fecha

Notapor Héctor Miguel » 18 Feb 2010 23:58

hola, Galileo (y todos) !

cierto... ha sido una adaptacion "burda" (y sobre las rodillas) a una propuesta similar anterior :-(
esta es "la buena"...

Function miFecha(Celda As Range) As Date
Application.Volatile False
miFecha = Date
End Function

saludos,
hector.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Héctor Miguel
Miembro Frecuente
Miembro Frecuente
 
Registrado: 26 Mar 2005 18:31

Re: fijar fecha

Notapor galileogali » 19 Feb 2010 07:26

Hector, ya que estamos ajustando....
te consulto:¿por qué no esto.....?

=SI(B1<>"";mifecha())

con esto

Function miFecha() As Date
Application.Volatile False
miFecha = Date
End Function

se mantiene igual la Calculation exclusivamente dependiente con el Change en B1?
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
galileogali
Moderator
Moderator
 
Registrado: 07 Ene 2005 22:46
Ubicación: QUIROGA (ba), ARGENTINA

Re: fijar fecha

Notapor Héctor Miguel » 20 Feb 2010 02:06

hola, Galileo !

efectivamente, la funcion =si(... de hoja de calculo condiciona la funcion personalizada
y como comentaba en el post anterior, se trato de una adaptacion "chusca" de una propuesta anterior
(la udf se condicionaba a mas de una celda en el argumento)

por cierto, volvi a adaptar la funcion como estaba originalmente y me funciona (97 a 2007)

Function miFecha(Celda As Range) As Date
Volatile = False
miFecha = Now
End Function

saludos,
hector.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Héctor Miguel
Miembro Frecuente
Miembro Frecuente
 
Registrado: 26 Mar 2005 18:31

Re: fijar fecha

Notapor merops » 23 Feb 2010 08:35

buenos dias :

he intentado hacer lo que comentais , pero no debo hacerlo bien.
en un modulo del libro he puesto
Function miFecha(Celda As Range) As Date
Application.Volatile False
miFecha = Date
End Function

en la columna A, es donde quiero que vaya el HOY() y se mantenga y he puesto la formula que poneis
=SI(a1<>"",miFecha(a1))
vosotros teneis puesto :
[A1] =SI(B1<>"",miFecha(B1))

así que no se por que no se si lo estoy haciendo bien o no.
o explicarme con un ejemplo si es posible, muchas gracias
merops
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
merops
Miembro Frecuente
Miembro Frecuente
 
Registrado: 22 Ago 2005 15:20
Ubicación: Espaí±a.Burgos

Re: fijar fecha

Notapor exi92 » 24 Feb 2010 15:05

¿Hay alguna fórmula para que pueda fijar la fecha en una plantilla que se abre muchas veces al cabo del día y que quede fija para posteriores consultas?
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
exi92
Miembro Frecuente
Miembro Frecuente
 
Registrado: 21 Feb 2010 23:47

Re: fijar fecha

Notapor Antoni » 24 Feb 2010 16:25

* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: fijar fecha

Notapor galileogali » 24 Feb 2010 19:41

Siempre en la misma línea de la propuesta de Antoni, esta UDF
Código: Seleccionar todo
Function FechaCreacion() As Date
FechaCreacion = Application.ActiveWorkbook.BuiltinDocumentProperties(11)
End Function


invocable en celda como
=Fechacreacion()

devuelve el Date Serial de fecha y Hora, se puede visualizar luego sabiendo elegir los formatos adecuados
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
galileogali
Moderator
Moderator
 
Registrado: 07 Ene 2005 22:46
Ubicación: QUIROGA (ba), ARGENTINA

Re: fijar fecha

Notapor exi92 » 04 Mar 2010 07:55

galileogali escribió:Siempre en la misma línea de la propuesta de Antoni, esta UDF
Código: Seleccionar todo
Function FechaCreacion() As Date
FechaCreacion = Application.ActiveWorkbook.BuiltinDocumentProperties(11)
End Function


invocable en celda como
=Fechacreacion()

devuelve el Date Serial de fecha y Hora, se puede visualizar luego sabiendo elegir los formatos adecuados


Seguramente soy un poco (o muy torpe), he leido lo que me dices y he copiado todo y no me sale. Lo he hecho bien o debo borrar lo que está en verde.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
exi92
Miembro Frecuente
Miembro Frecuente
 
Registrado: 21 Feb 2010 23:47


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Funciones y Fórmulas

¿Quién está conectado?

Usuarios navegando por este Foro: Bing [Bot] y 6 invitados