Extraer fechas y horas de celdas de texto
Tengo una lista de la C3:C50 llena de fechas y horas como texto dentro de cada celda de esta columna y lo que necesito hacer es extraer la fecha y ponerla en A3:A50 y también la hora en B3:B50 esta funciona lo hace pero solo toma como referencia la C3 y no todo el rango
CÓDIGO:
Dim Fecha as Date
Dim Hora as Date
Fecha = DateValue(ActiveSheet.Range("C3"))
Hora = TimeValue(ActiveSheet.Range("C3"))
Final = Range("C50").End(xlUp).Row
For x = 3 to Final
Cells(x, 1) = Fecha
Next
Final = Range("C50").End(xlUp).Row
For x = 3 to Final
Cells(x, 2) = Hora
Next
Si alguien me lo pudiera corregir por favor agradecido desde ya.
EJEMPLO DE LAS CELDAS C3:C50
9/3/2023 6:27:34 PM
9/4/2023 6:29:34 PM
9/5/2023 6:31:34 PM
Respuesta de Elsa Matilde
4
