Excel cambio de formato

Tengo una hoja de excel con una columna con datos en formato texto de la siguiente forma
01h05m06s
05m25s
55m33s
01h35m26s
55s
22s
55m
Esto es un ejemplo, y quiero que los datos de esa columna aparezcan en tres columnas diferentes donde la primera seria h la segunda fuera m y la tercera fuera es y fueran números para poder calcularos. Agradecería mucho tu ayuda para poder solucionar este tema. Muchas gracias de antemano. Safua

1 respuesta

Respuesta
1
Puedes usar la siguiente MACRO
Sub Separador()
Dim nFila As Integer
Dim nTotalFilas As Integer
Dim sCelda As String
    Range("A1").Select 'Suponiendo que aquí inicie la lista
    Range(Selection, Selection.End(xlDown)).Select 'Seleccionamos toda la columna
    nTotalFilas = Selection.Cells.Count 'Obtenemos el total de filas
    For nFila = 1 To nTotalFilas 'Recorremos toda la columna
        sCelda = "A" & nFila
        'Buscamos si en la celda hay Horas y las asignamos a la columna B
        If InStr(1, UCase(Range(sCelda).Value), "H") > 0 Then _
            Range("B" & nFila).Value = Mid(Range(sCelda). Value, (InStr(1, UCase(Range(sCelda).Value), "H") - 2), 3)
        'Buscamos si en la celda hay Minutos y las asignamos a la columna C
        If InStr(1, UCase(Range(sCelda).Value), "M") > 0 Then _
            Range("C" & nFila).Value = Mid(Range(sCelda).Value, InStr(1, UCase(Range(sCelda).Value), "M") - 2, 3)
        'Buscamos si en la celda hay Segundos y las asignamos a la columna D
        If InStr(1, UCase(Range(sCelda).Value), "S") > 0 Then _
            Range("D" & nFila).Value = Mid(Range(sCelda).Value, InStr(1, UCase(Range(sCelda).Value), "S") - 2, 3)
    Next
End Sub
He probado la macro y funciona excelente, pero si hay alguien que ha introducido los valores de la siguiente forma
1h25m5s
Da un error por no tener un 0 en la hora y el 0 en el segundo
es decir 1h25m5s -> frente a 01h25m05s
se podría corregir esto para que introduzca un 0 donde falte...
Muy agradecida de todas formas la usare muy a menudo muchísimas gracias
A ver hice algunos cambios
Sub Separador()
Dim sCad1 As String
Dim sHoras As String
Dim sMins As String
Dim sSegs As String
Dim nFila As Integer
Dim nTotalFilas As Integer
Dim sCelda As String
Dim nPos As Integer
Dim nChar As Integer
    Range("A1").Select 'Suponiendo que aquí inicie la lista
    Range(Selection, Selection.End(xlDown)).Select 'Seleccionamos toda la columna
    nTotalFilas = Selection.Cells.Count 'Obtenemos el total de filas
    For nFila = 1 To nTotalFilas 'Recorremos toda la columna
        sCelda = "A" & nFila
        For nPos = 1 To Len(Range(sCelda).Value)
            If IsNumeric(Mid(Range(sCelda).Value, nPos, 1)) Then
                sCad1 = sCad1 & Mid(Range(sCelda).Value, nPos, 1)
            Else
                If UCase(Mid(Range(sCelda).Value, nPos, 1)) = "H" Then
                    If Len(sCad1) < 2 Then
                        sHoras = "0" & sCad1 & "h"
                    Else
                        sHoras = sCad1 & "h"
                    End If
                    sCad1 = ""
                ElseIf UCase(Mid(Range(sCelda).Value, nPos, 1)) = "M" Then
                    If Len(sCad1) < 2 Then
                        sMins = "0" & sCad1 & "m"
                    Else
                        sMins = sCad1 & "m"
                    End If
                    sCad1 = ""
                ElseIf UCase(Mid(Range(sCelda).Value, nPos, 1)) = "S" Then
                    If Len(sCad1) < 2 Then
                        sSegs = "0" & sCad1 & "m"
                    Else
                        sSegs = sCad1 & "m"
                    End If
                    sCad1 = ""
                End If
            End If
        Next nPos
        Range("B" & nFila).Value = sHoras
        Range("C" & nFila).Value = sMins
        Range("D" & nFila).Value = sSegs
        sHoras = ""
        sMins = ""
        sSegs = ""
    Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Pasar de hoja resumen a plantilla de factura

Tengo un Excel, con un hoja resumen de datos, y lo que quisiera hacer, es que me pasara los datos que tengo en cada línea de la hoja resumen de forma de forma automática, a diferentes hojas de excel del mismo libro, en unas celdas concretas,...
2 respuestas

Es estrictamente necesario que una aplicación para android e ios se vea diferente

Si una empresa lanza su aplicación en las tiendas para Android y App Store ¿Esta tendría que verse diferente? Ya que he visto aplicaciones de empresas famosas que se ven un poco mejor diseñadas en Iphone ¿Es estrictamente necesario ofrecer una...
2 respuestas

Boot para firmar pdf con firma digital

Tengo que firmar numerosos pdf's con firma digital, ¿Habría alguna manera de automatizar la tarea con un boot? La firma se realizaría siempre en la misma hoja dependiendo del documento, tengo dos tipos de documentos. Ejm: Documento 1 simpre la firma...
4 respuestas

Conocer en VBA donde se encuentran las bases de Datos

Necesito a través de VBA conocer el emplazamiento de las Bases de Datos.
3 respuestas

Forma de ampliar datos en excel

En un excel, tengo una columna con varios rangos de años, pero quiero ver de qué forma la puedo "ampliar", lo pongo entre comillas porque ahora lo quiero explicar: En mi columna 1, tengo un rango de años, lo que quiero es que en lugar de que aparezca...
2 respuestas

Vaciar la memoria después de realizar Cálculos en un Formulario

Necesito después de realizar Cálculos en un Formulario vaciar la memoria ya que al realizar otros cálculos en el mismo Form me hace un desbordamiento de Memoria saliéndose del Formulario que esta abierto. Y trabajando.
1 respuesta

¿Cómo funciona el Ctrl+z de los ordenadores?

Quería saber como funciona de verdad el Ctrl+z. Es decir, cada programa guarda sus estados anteriores, ¿Y cuándo pulso Ctrl+z se restablecen? No se si me explico, quiero decir: ejemplo: Escribo este texto, y ahora cuando voy por la mitad me paro. El...
9 respuestas

Evitar el parpadeo de un Formulario al realizar cálculos

Tengo un Formulario continuo Principal que desde un botón acceso a otro Form donde realizo cálculos y después de su finalización pasa los resultado al Principal. Este segundo form trabaja de forma oculta. Con cada una de las instruncciones: Refresh,...
1 respuesta

Bloquear celdas al escribir un dato

Estimado profesional acudo a sus conocimientos para poder darle una solución a mi consulta tengo mi archivo excel dónde en cada hoja tengo una tabla y me gustaría bloquear las celdas desde el rango de C3 hasta F500 que cuando se escriba el dato o se...
1 respuesta

Enviar datos una hoja de excel a otra hoja que uso como base de datos.

Enviar datos a una hoja que tiene fórmulas en algunas columnas y en otras no. Ejemplo en una base de datos que se vayan agregando los datos consecutivos. Los voy agregar de un formulario de otra hoja de excel. A2 B2 C2 D2 E2 F2 formulas vacio vacio...
1 respuesta