eduardocabre

calvuch respondió: Prueba así: Sub ajuste() Dim r As Range Dim f As Integer f = Application.WorksheetFunction.CountA(Range("A:A")) If f = 0 Then Exit Sub Application.ScreenUpdating = False For Each r In Range("A1" & ":" & "A" & f) If InStr(1, r.Text, ":") = 0 Then If...

calvuch respondió: Lo puedes arreglar con un macro que recorra los rangos y concatene las cadenas con la cadena ":" Preguntas: ¿El autómata te pasa automáticamente los datos a la hoja excel?... ¿En qué rangos? ( Columna fecha y columna hora y desde que fila comienzan)...