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

Al seleccionar celda extraer sus dígitos automáticamente

Necesito dos favores, la idea es que al seleccionar una celda numérica de 4 dígitos del rango "af1;aj42" esta automáticamente extraiga sus cifras a la columna "a1, b1, c1, d1" como se muestra en la imagen Y lo segundo como puedo quitarle el msgbox a...
2 respuestas

Ingresar información en una hoja y rescatar los datos principales en otra hoja ordenadamente.

Debo hacer cotizaciones y necesito guardar la información de los datos de las personas en una BD, sin ocupar Tablas. Lo principal de esto es que queden ordenada según el número de la cotización y mantener el número correlativo de la cantidad de...
1 respuesta

¿Cómo ajustar con VBA un rango de impresión a partir de un rango dinámico?

Recurro a su amplia experiencia para resolver un inconveniente: He creado una plantilla para hacer una consulta de ordenes de pedido por medio del RFC del cliente, la plantilla esta dividida en tres rangos: Primer rango B1:I22 se ubican los datos...
1 respuesta

How do you perform Change Data Capture when replicating Salesforce data?

A challenge that comes with using these cloud-based CRMs is in integrating them with the internal data systems and reporting modules that rely upon getting up to date data from the CRM.
5 respuestas

Macro eliminar filas con valor

Tengo esta macro que me elimina las filas cuando el valor es #N/D, pero me ha dejado de funcionar cuando el valor es #CALC! Me podéis echar una mano. Muchas gracias. Sub Borrar_Filas() Dim ultifila As Integer 'guardo la última fila utilizada en la...
2 respuestas

¿Cómo ajustar texto automáticamente en celdas combinadas en Excel 2019?

Solicito amablemente su valiosa ayuda para ajustar automáticamente un rango de celdas de una columna, he intentado con la opción de ajuste autamático de filas, también con al opción de ajustar texto de la pestaña inicio e incluso con la siguiente...
1 respuesta

Conversión de números a letras en LPP

Necesito desarrollar un algoritmo con la función MIENTRAS que permita la entrada de un numero de un dígito y escriba su valor en letras, el algoritmo se debe repetir hasta que se ingrese una letra. Ejemplo: si el usuario digita el número 4, el...
3 respuestas

Macro para copiar valor de texbox a hoja2

Necesito un poco de ayuda con una macro estoy aprendiendo mi duda es la siguiente tengo una hoja llamada Principal utilizo un botón de comando para llamar a userform1 el cual tiene varios texbox numerados 1,2,3,4,5,6,7,8,9,10,11 aquí utilizo solo...
1 respuesta

Poner contraseña en visual basic thisworkbook

Tengo una función en ThisWorkbook que elimina el libro al llegar a una fecha de caducidad, ahora requiero colocar una contraseña para protección, la cual, al colocar una contraseña errónea, ejecute el borrado de la hoja
2 respuestas

Macro exportar excel a sentencia SQL

Desde un archivo excel necesito crear un archivo *.txt para incorporar a mi base sql. Te adjunto lo que necesitaría en una imagen. (En este caso son dos filas pero podrían ser más). Se que traspasa lo que es una duda, pero es que los conocimientos en...
2 respuestas