Tema: [Solucionado] concatenar filas con referencia a dos columnas

Hola mario,


bienvenido al foro.

Esto parece funcionar:

Código:

Sub prueba()

    Dim celda As Range
    
    With Range("a1").CurrentRegion.Columns(1).SpecialCells(4)
        For Each celda In .Offset(-1, 1)
            With celda
                .FormulaR1C1 = "=""" & Replace(.Value, """", "''") & """&r[1]c"
                .Value = .Value
            End With
        Next celda
        .EntireRow.Delete
    End With
    
End Sub

has las pruebas correspondientes en una copia de tus datos, no vaya a ser que todo salga terriblemente mal.

y creo que hay un error en el código, debería ser así:

Código:

Sub prueba()

    Dim celda As Range
    
    With Range("a1").CurrentRegion.Columns(1).SpecialCells(4)
        For Each celda In .Offset(-1, 1)
            With celda
                .FormulaR1C1 = "=""" & Replace(.Value, """", "''") & """&r[1]c"
            End With
        Next celda
        .CurrentRegion.Value = .CurrentRegion.Value
        .EntireRow.Delete
    End With
    
End Sub

Ves lo de hacer pruebas en una copia de tus datos hasta asegurarte de que funciona correctamente .

hola mauricio estaba intentando buscar una solucion con formulas pero ya vi tu respuesta y la puse en practica (subo archivo) anda perfecto, aunque pregunto se puede hacer una macro que contrareste esta? es decir en este archivo le puse el boton que llama a la macro si se presiona de nuevo que haga lo contrario o vuelva el documento a su estado original, preguntando y aprendiendo.- saludos.

Iniciado por mjrofra

y creo que hay un error en el código, debería ser así:

Código:

Sub prueba()

    Dim celda As Range
    
    With Range("a1").CurrentRegion.Columns(1).SpecialCells(4)
        For Each celda In .Offset(-1, 1)
            With celda
                .FormulaR1C1 = "=""" & Replace(.Value, """", "''") & """&r[1]c"
            End With
        Next celda
        .CurrentRegion.Value = .CurrentRegion.Value
        .EntireRow.Delete
    End With
    
End Sub

Ves lo de hacer pruebas en una copia de tus datos hasta asegurarte de que funciona correctamente .

y por alguna razón no me gustaba mucho como se veía esta macro, así que la reescribí así (aunque en esencia es lo mismo, pero no sé por qué me parece que se ve mejor ... es que ya uno empieza a desarrollar ciertas neurosis jajajaj:

Código:

Sub prueba()

    Dim celda As Range
    
    With Range("a1").CurrentRegion
        For Each celda In .Columns(1).SpecialCells(4).Offset(-1, 1)
            celda.FormulaR1C1 = "=""" & Replace(celda.Value, """", "''") & """&r[1]c"
        Next celda
        .Columns(2).Value = .Columns(2).Value
        .Columns(1).SpecialCells(4).EntireRow.Delete
    End With
    
End Sub

Iniciado por Ernesto_uy

hola mauricio estaba intentando buscar una solucion con formulas pero ya vi tu respuesta y la puse en practica (subo archivo) anda perfecto, aunque pregunto se puede hacer una macro que contrareste esta? es decir en este archivo le puse el boton que llama a la macro si se presiona de nuevo que haga lo contrario o vuelva el documento a su estado original, preguntando y aprendiendo.- saludos.

y mientras yo estaba acá peleando con mi neurosis, tú Ernesto escribías. Antes que nada saludarte.

Me parece un poco difícil lo de volver el documento a su estado original, pues puede ser un poco complejo determinar en qué punto se cortaron antes las líneas... de pronto, pensando en que sería conveniente tener la versión original y la versión reestructurada, se pueda hacer la reestructuración de los datos en una copia, algo así mejor dicho:

Código:

Sub prueba()

    Dim celda As Range
    
    Sheets("EXPLOSION").Copy Sheets(1)
    
    With Range("a1").CurrentRegion
        For Each celda In .Columns(1).SpecialCells(4).Offset(-1, 1)
            celda.FormulaR1C1 = "=""" & Replace(celda.Value, """", "''") & """&r[1]c"
        Next celda
        .Columns(2).Value = .Columns(2).Value
        .Columns(1).SpecialCells(4).EntireRow.Delete
    End With
    
End Sub

si o que la macros abra una nueva hoja con los cambios en el mismo libro (hoja 1 datos originales ) corre macros (hoja 2 datos nuevos) que tal? no es mala idea, que opinas?

... y creo que puede ser una buena práctica esto de crear por medio de la macro una copia de los datos (al menos mientras se prueba), así no se alteran los datos originales que era la recomendación que le hacia a alex en mi primera respuesta (probar la macro en una copia de los datos)... adjunto el archivo con la última macro.

Iniciado por Ernesto_uy

si o que la macros abra una nueva hoja con los cambios en el mismo libro (hoja 1 datos originales ) corre macros (hoja 2 datos nuevos) que tal? no es mala idea, que opinas?

¡JA! justo lo que decía, jajaj.

Definitivamente es una buena idea Ernesto , gracias por tomarte el tiempo de apoyarme acá en este tema, aprecio tus comentarios.

Iniciado por mario tapia

Muchas gracias Ernesto tu aportacion junto con la de Mauricio se logro algo muy gratificante, gracias y seguieremos en contacto

Este mensaje fue enviado por Mario Tapia a mi PV, considerando que el mayor aporte aqui presente corresponde a Mauricio le doy con todo placer el credito correspondiente, desde ya gracias Mauricio por hacer tan gratificante este foro; considerando que dicho pedido fue solucionado doy por cerrado el tema.-