Poner fecha cuando una celda tiene datos

[lphant]

Buenas noches;

Estando en la cama, se me ha ocurrido algo que me vendría muy bien pero ni idea de como hacerlo, haber si alguien me puede ayudar.

necesito que se ponga automáticamente en la columna A (la fecha) y en la columna B (la hora), de cuando se ponga un dato en la columna C.

se podría hacer??.

muchísimas gracias de antemano

Fecha.xls

[tese1969]

Incluye este código en la Hoja1, no en un módulo y me cuentas...

Por cierto, intenta utilizar la cama para pensar en cosas más interesantes...

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Columns("c")) Is Nothing Then

If Target.Row = 1 Then Exit Sub

Target.EntireRow.Columns("a") = Date

Target.EntireRow.Columns("b") = Time

End If

End Sub[/CODE]

Un saludo,

Tese

[Antoni]

Otra forma usando solo una columna (A) para la fecha y la hora, por lo tanto los datos empezarían en la columna B.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 And Target.Row > 1 Then

  If Trim(Target) = Empty Then

      Target.Offset(0, -1) = Empty

  Else

      If Target.Offset(0, -1) = Empty Then

        Target.Offset(0, -1) = Now

      End If

  End If

End If

End Sub[/CODE]

[Armando Montes]

Hola todos, un ejemplo con formula y macro, prefiero la segunda:

Hora y Fecha Estatica.xls

[lphant]

muchísimas gracias a los tres, funcionan perfectamente, ahora no se con que quedarme, esta tarde de pruebas jejeeejeee...

Pd: que razón tienes tese1969, la cama es para otras cosas mas interesantes jejejeee...

[tese1969]

Pues está claro, Iphant, con cuál tienes que quedarte , la que hace exactamente lo que pedías.

La del maestro Macro es típica de su estilo (ahora pongo todo en una columna porque yo lo valgo y punto! ) y después Armando y sus queridísimas fórmulas que quiere incluir dónde le dejen .

Y yo me pregunto, ¿es que no os gusta la mía? ó aún mejor ¿es necesario ofrecer 3 respuestas antes de que el usuario consultante diga algo a la primera?

Es que sois muy abusones...

Y sí, Iphant, por ejemplo, la cama sirve para apoyar el PC y en vez de pensarlo, ponerte a hacerlo!!

Cuidaros todos,

Tese

[Antoni]

@[uSER=99562]tese1969[/uSER]

La del maestro Macro es típica de su estilo (ahora pongo todo en una columna porque yo lo valgo y punto! ) y después Armando y sus queridísimas fórmulas que quiere incluir dónde le dejen .

A ti te quería pillar, mi solución es mucho mas mejor y bonita que la tuya, ¡ Zas en toda la boca!, eso para empezar, pero es que además hace mas cosas.

Si se borra la celda de la columna "B", también se borra la columna "A".

Si se modifica la columna "B", se mantiene el valor de la columna "A".

¿ Es eso lo que quería @[uSER=106393]lphant[/uSER]? Pues no lo se, pero me ha quedado preciosa la macro.

¡Qué! ¿ Como se te ha "quedao" el cuerpo ? :D:D

[tese1969]

Pues, espérate, que aún no he parado de reír, pero vamos, que tu "mucho más mejor y bonita" es una frase claramente escrita tras la ingesta de algún tipo de código de evento como mínimo

Qué sería de la vida sin estos ratillos!

En fin, maestro, cuídate mucho, que a tu edad estos ataques de "macritis" no pueden venirte bien

Chao,