Ayuda con la implementación de función para actualizar el estado de la hora
Hola experto, te molesto con la sig consulta:
Tengo que registrar 3 horarios diferentes en tres momentos diferentes, para lo cual utilice la función 1° SI(estexto(f2);ahora();" "), 2° SI(esnumero(g2);ahora();" ") y la 3ra ídem anterior. Todo bien hasta ahí, pero cuando cargo un número pr ej en g2 me actualiza la hora en f2 y así sucesivamente. Te comento que no tengo idea de como solucionarlo. He leído unas consultas hechas por otros usuarios sobre este tema y las respuestas que le han dado pr ej VBA lo copie y pegue pero no lo solucione, seguro que no lo estoy realizando de la manera correcta.
Mil disculpas y desde ya gracias Edgardo.
Tengo que registrar 3 horarios diferentes en tres momentos diferentes, para lo cual utilice la función 1° SI(estexto(f2);ahora();" "), 2° SI(esnumero(g2);ahora();" ") y la 3ra ídem anterior. Todo bien hasta ahí, pero cuando cargo un número pr ej en g2 me actualiza la hora en f2 y así sucesivamente. Te comento que no tengo idea de como solucionarlo. He leído unas consultas hechas por otros usuarios sobre este tema y las respuestas que le han dado pr ej VBA lo copie y pegue pero no lo solucione, seguro que no lo estoy realizando de la manera correcta.
Mil disculpas y desde ya gracias Edgardo.
{"Lat":-33.0918831152338,"Lng":-68.4216713905334}
1 Respuesta
Respuesta de Elsa Matilde
1
Tenés 2 opciones:
La manual, que es copiar y pegar la celda sobre si misma, con opción de pegado especial solo valores, al completar las celdas f2 y g2
La automática, con VBA
Entrá al Editor, seleccioná con doble clic el objeto HOJA (del panel a tu izquierda) que sea la hoja donde tengas estas celdas.
Y copiá esta rutina:
Private Sub Worksheet_Change(ByVal Target As Range)
'controla lo ingresado en F2 o G2
If Target.Address = "$F$2" Then
'si es texto coloca la hora
If VarType(Target) = 8 Then Range("A30") = Now()
ElseIf Target.Address = "$G$2" Then
'si es nro coloca la hora
If IsNumeric(Target) Then Range("B30") = Now()
'elseif ............... **
End If
End Sub
** Te queda para completar la 3er opción. Probala y si todo quedó resuelto no olvides finalizar la consulta.
La manual, que es copiar y pegar la celda sobre si misma, con opción de pegado especial solo valores, al completar las celdas f2 y g2
La automática, con VBA
Entrá al Editor, seleccioná con doble clic el objeto HOJA (del panel a tu izquierda) que sea la hoja donde tengas estas celdas.
Y copiá esta rutina:
Private Sub Worksheet_Change(ByVal Target As Range)
'controla lo ingresado en F2 o G2
If Target.Address = "$F$2" Then
'si es texto coloca la hora
If VarType(Target) = 8 Then Range("A30") = Now()
ElseIf Target.Address = "$G$2" Then
'si es nro coloca la hora
If IsNumeric(Target) Then Range("B30") = Now()
'elseif ............... **
End If
End Sub
** Te queda para completar la 3er opción. Probala y si todo quedó resuelto no olvides finalizar la consulta.
