Requiero insertar en 2 celdas hora inicio y hora fin
Necesito una macro que inserte la hora en la celda B a partir del llenado de la celda J y que a su vez también ponga la hora en la celda C a partir del llenado de datos de la celda m en excel... Espero me ayuden es primera vez que pido ayuda en un foro
tengo esta macro pero solo funciona la rutina 1
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("J:K"), Target) Is Nothing Then Exit Sub
Cells(Target.Row, 2) = Format(Time, "hh:mm")
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("M:L"), Target) Is Nothing Then Exit Sub
Cells(Target.Row, 3) = Format(Time, "hh:mm")
End Sub
Desde ya agradecido
Atentamente
hugo
tengo esta macro pero solo funciona la rutina 1
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("J:K"), Target) Is Nothing Then Exit Sub
Cells(Target.Row, 2) = Format(Time, "hh:mm")
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("M:L"), Target) Is Nothing Then Exit Sub
Cells(Target.Row, 3) = Format(Time, "hh:mm")
End Sub
Desde ya agradecido
Atentamente
hugo
1 respuesta
Respuesta de emoren
1
Bueno la verdad solo entiendo que si j tiene información entonces en b se ponga la hora, igualmente para c, pero lo que no entiendo es en que fila se debe evaluar si hay información y en que fila se debe poner la hora, recuerde que en excel las letras identifican columnas y los números las filas y el cruce de una columna con una fila se denomina celda (A1), entonces supongo que siempre se debe poner en B1 y en C1, de acuerdo a esto acontinaucion le dejo la macro que hace lo que pides:
Sub ayuda()
If (Range("J1").Value <> Empty) Then
Range("B1").Value = Format(Time, "HH:mm")
Else
If (Range("M1").Value <> Empty) Then
Range("C1").Value = Format(Time, "HH:mm")
End If
End If
Exit Sub
End Sub
Bueno, recuerde que esto lo inserta en un modulo y en la hoja de excel inserta una autoforma y le asigna la macro, si esto es lo que necesitaba NO OLVIDAR PUNTUAR Y FINALIZAR LA PREGUNTA, de lo contrario aclare su consulta y con mucho gusto le colaboro, que tenga un feliz día!
Sub ayuda()
If (Range("J1").Value <> Empty) Then
Range("B1").Value = Format(Time, "HH:mm")
Else
If (Range("M1").Value <> Empty) Then
Range("C1").Value = Format(Time, "HH:mm")
End If
End If
Exit Sub
End Sub
Bueno, recuerde que esto lo inserta en un modulo y en la hoja de excel inserta una autoforma y le asigna la macro, si esto es lo que necesitaba NO OLVIDAR PUNTUAR Y FINALIZAR LA PREGUNTA, de lo contrario aclare su consulta y con mucho gusto le colaboro, que tenga un feliz día!
