Disposición de datos horizontal a vertical

[fdbchp]

Buenas tardes, adjunto un excel.zip. Aparecen una serie de tasas ordenadas que

- comienzan con las letras tx,

- el numero de tasas,

- la moneda

- y el importe de la tasa acompañado de dos letras que la identifican.

Lo que quisiera es que cualquier serie de tasas quede como las de la fila B. He intentado con alguna función pero no se me ocurre nada o no termino de aplicarlo bien.

¿Alguien puede ayudarme? gracias al foro x adelantado

Borja

tasas.zip

[Armando Montes]

Hola Borja, intenta con esto:

Sub OneCol()

Application.ScreenUpdating = False

Hoja1.Range("B4:B13").ClearContents

Hoja1.Range("A1").CurrentRegion.Copy Hoja2.Range("A1")

    With Hoja2

        .Range("A1").CurrentRegion.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _

            FieldInfo:=Array(Array(0, 1), Array(20, 1), Array(42, 1)), TrailingMinusNumbers:=True

        For Each Rng In .Range("A1", .Range("A1").End(xlDown))

            .Range(Rng, Rng.End(xlToRight)).Copy

            .Cells(Rows.Count, 6).End(xlUp).PasteSpecial Transpose:=True

            Next Rng

            .Range("F2").CurrentRegion.Copy Hoja1.Range("B5")

        .Cells.ClearContents

    End With

Range("B5").Select

Application.ScreenUpdating = True

End Sub

[/CODE]

[fdbchp]

buenos dias,

Muchísimas gracias por tu aportación. Era lo que necesitaba. He adjuntado en la hoja 2 del mismo archivo la misma situación pero sin la parte de "tx01, etc". Intenté adaptar tu macro pero no consigo que quede igual pero con las nuevas informaciones. ¿Podrías ayudarme?

Gracias

pd volví a subir el archivo y puse la consulta en la hoja 2

tasas.zip

[Armando Montes]

Hola, veo vacia la hoja 2, ayudaria incluyas resultado esperado.

[fdbchp]

Disculpa, ahora sí que está adjunto

Un saludo, y una vez más gracias

Borja

tasas.zip