FECHA AUTOMÁTICA (más de 1 al mismo tiempo)
Hola Elsa
Funciono muy bien la solución 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 siguiente error "la declaración del procedimiento no coincide con la descripción del evento o el procedimientoque tiene el mismo nombre" ya trate de cambiarle el nombre al procedimiento pero sin éxito mi código 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
¿Cómo 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.
Funciono muy bien la solución 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 siguiente error "la declaración del procedimiento no coincide con la descripción del evento o el procedimientoque tiene el mismo nombre" ya trate de cambiarle el nombre al procedimiento pero sin éxito mi código 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
¿Cómo 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.
1 respuesta
Respuesta de Elsa Matilde
1
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 automático se asiga la hora del sistema, después 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 registrar la hora del sistema, todo se registra en la misma hoja en diferentes columnas.
¿En qué estoy fallado?
Saludos
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 automático se asiga la hora del sistema, después 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 registrar la hora del sistema, todo se registra en la misma hoja en diferentes columnas.
¿En qué estoy fallado?
Saludos
Lo siento, pero como mantuve tus instrucciones no me percaté del error que tenías al utilizar 2 target diferentes.
Quítale 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
Quítale 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
