Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Control de Cambios - Fechador

30/09/2011 - 18:19 por Johann Romero Gonzalez | Informe spam
Ayuda Hacer una pregunta
Una consulta, espero me puedan ayudar a mejorar esta macro, muchas
gracias desde ahora.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.MoveAfterReturn = False
If Target.Count = 1 Then
If (Target.Column = 4 And Target <> 0) Then
Target.Offset(-0, 1) = Now
End If
End If
End Sub


Esta macro lo que hace es que en la columna 4 el dato que uno ingrese
automaticamente en la 5ta columna en la misma fila aparece la fecha y
hora, todo funciona muy bien, pero quisiera que se guarde un
historico, es decir, si es la primera vez que ingreso un dato, en la
columna 5 se ingrese la fecha automaticamente, pero si mas adelante,
nuevamente se modifica ese datos, en la columna 6 tendria que
ingresarse la nueva fecha, como puedo hacer eso?

gracias
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Pedro F. Pardo
03/10/2011 - 17:42 | Informe spam
A ver que te parece esta modificación:
(Observación: He eliminado el signo negativo del 0 en el offset porque
no veo que fuera necesario)

La rutina Do While... Loop es la que busca la siguiente celda vacia a
la derecha de la columna 4.


Private Sub Worksheet_Change(ByVal Target As Range)
Application.MoveAfterReturn = False
If Target.Count = 1 Then
If (Target.Column = 4 And Target <> 0) Then
Target.Offset(0, 1).Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Value = Now
Target.Select
End If
End If
End Sub

Saludos,

On Sep 30, 5:19 pm, Johann Romero Gonzalez
wrote:
Una consulta, espero me puedan ayudar a mejorar esta macro, muchas
gracias desde ahora.

Private Sub Worksheet_Change(ByVal Target As Range)
     Application.MoveAfterReturn = False
     If Target.Count = 1 Then
         If (Target.Column = 4 And Target <> 0) Then
            Target.Offset(-0, 1) = Now
         End If
     End If
 End Sub

Esta macro lo que hace es que en la columna 4 el dato que uno ingrese
automaticamente en la 5ta columna en la misma fila aparece la fecha y
hora, todo funciona muy bien, pero quisiera que se guarde un
historico, es decir, si es la primera vez que ingreso un dato, en la
columna 5 se ingrese la fecha automaticamente, pero si mas adelante,
nuevamente se modifica ese datos, en la columna 6 tendria que
ingresarse la nueva fecha, como puedo hacer eso?

gracias

Preguntas similares

 

Busqueda sugerida :