Inicio > Microsoft Excel > elsamatilde > FECHA AUTOMATICA (mas de 1 al mismo tiempo)

FECHA AUTOMATICA (mas de 1 al mismo tiempo)

Experto:
Usuario:
Fecha: 22/12/2006
Valoración: (5,00 sobre 5) Categoría: Microsoft Excel
20/12/2006
crodriguezh, usuario preguntando en Microsoft Excel
Usuario
Hola Elsa

Funciono muy bien la solucion de la fecha de registro de la consulta anterior, sin embargo trate de hacerle un cambio para que pudiera ademas hacer lo mismo en la misma hoja pero en otra columna de la misma hoja, pero me marca el sigueinte error "la declaracion del procedimiento no coincide con la descripcion del evento o el procedimientoque tiene el mismo nombre" ya trate de cambiarle el nombre al procedimiento pero sin exito mi codigo es el siguiente:

Private Sub Worksheet_Change(ByVal Target As Range, ByVal Target2 As Range)
If Target.Column = 2 Then
Target.Offset(0, 5).Value = Time()
End If
If Target2.Column = 10 Then
Target2.Offset(0, -2).Value = Time()
End If
End Sub

como lo puedo resolver? ya que no me acepta un procedimiento adicional con otro nombre y necesito que lo haga en las dos columnas de la misma hoja y es probable que se añada una tercera.
21/12/2006
crodriguezh, experto respondiendo en Microsoft Excel
Experto
Probala así:

Private Sub Worksheet_Change(ByVal Target As Range, ByVal Target2 As Range)
If Target.Column = 2 Then
Target.Offset(0, 5).Value = Time()
elseif Target2.Column = 10 Then
Target2.Offset(0, -2).Value = Time()
else
'otra col
End If

End Sub

Saludos
Elsa
21/12/2006
crodriguezh, usuario preguntando en Microsoft Excel
Usuario
hola Elsa

Hice la modificación:

Private Sub Worksheet_Change(ByVal Target As Range, ByVal Target2 As Range)
If Target.Column = 2 Then
Target.Offset(0, 5).Value = Time()
ElseIf Target2.Column = 10 Then
Target2.Offset(0, -2).Value = Time()
End If
End Sub

Pero me sigue marcando el mismo error,el detalle esta en que si dejo solo el primer target funciona perfectamente bien.

Pero si agrego al procedimiento el target2 desde el primer momento ya no funciona el procedimiento.

La idea es que cuando llegue un cliente se registre su nombre y en automatico se asiga la hora del sistema, despues de esperar turno se le asigna a un ejecutivo cuando se capture el numero de ejecutivo se debe registrar la hora del sistema y cuando el ejecutivo termina de atender al cliente al teclear "concluido" se debe registar la hora del sistema, todo se registra en la misma hoja en diferentes columnas.

¿en que estoy fallado?

saludos
22/12/2006
crodriguezh, experto respondiendo en Microsoft Excel
Experto
Lo siento, pero como mantuve tus instrucciones no me percaté del error que tenías al utilizar 2 target diferentes.
Quitale el 2 al target !

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(0, 5).Value = Time()
elseif Target.Column = 10 Then
Target.Offset(0, -2).Value = Time()
else
'otra col
End If

End Sub

Saludos y comentame!
22/12/2006
crodriguezh, usuario preguntando en Microsoft Excel
Usuario
Excelente. Una fantástica solución.
Enlaces patrocinados