Programas al transponer datos

[fdbchp]

Adjunto un archivo zip

En la hoja hay tres líneas de información que se separan en cuatro columnas,

Al ejecutar la macro no consigo que los números aparezcan como tal y me pone un error del tipo n valor!

¿Alguien me puede ayudar para que se vuelquen los números correctamente?

Gracias y feliz 2014

Borja

transponer tasas.zip

[DiegoPC]

Probé tu forma y solo funciona para tres filas si hubieran más tasas no funciona)

Hice un ensayo con una macro grabada, la cual luego edité para acondicionarla

Transponer tasas_DiegoPC.zip

[fdbchp]

Es exactamente lo que necesitaba.

Genial de verdad

[fdbchp]

Intenté hacer lo mismo tal y como se adjunta en el zip adaptando tu macro grabada pero de forma algo diferente al ejemplo de la hoja 1

En vez de tx01, tx02, etc., aparece al lado de cada tasa la palabra eur, como verás en la hoja 1.

¿Podrías ayudarme para adaptarlo para que quede igual que el ejemplo anterior pero empezando cada tasa con eur?

Gracias

[Armando Montes]

Hola, en un post anterior -15 noviembre- planteaste la misma pregunta, viste la respuesta ofrecida?

Post anterior:

Pendiente - Separacion datos en columna hoja 2 xa quedar como en hoja 3 | Ayuda Excel

[fdbchp]

si, pero me interesa que quede de forma similar a como lo planteó DiegoPC.

Gracias por tu comentario.

[Armando Montes]

El archivo que adjunte en tu post anterior tiene exactamente el mismo resultado pero como no comentaste nada supuse que no lo habias visto.

Seria una amabilidad de tu parte que en todos los posts que tienes pendientes avisaras si estan solucionados o deben cerrarse.

[fdbchp]

el post en el que me responde diego pc está solucinado, y muy bien,

Gracias por indicarmelo. No sé como poner solucionado.

[DiegoPC]

Subo otra versión donde puedes escribir en qué empiezan tus tasas. Para el ejemplo que pedías deberías escribir "EUR" (sin las comillas) y con eso funcionaría bien.

transponer tasas.rar

[fdbchp]

Acabo de modificar tu propio archivo poniendo cómo quiero que empiecen.

Gracias por tu respuesta.

Borja

[fdbchp]

perdona, no había subido la versión que quería plantearte.

Ahi va, en la columna uno está lo que quiero tranponer y al lado cómo quiero que quede.

Gracias una vez más.

Borja

transponer tasas_BORJA.zip

[DiegoPC]

Cambia la última parte del código, debe quedar más o menos así (solo pongo la última parte que debería cambiar)

CeldaRespuesta.CurrentRegion.Columns(CeldaRespuesta.CurrentRegion.Columns.Count).Copy

    CeldaRespuesta.Offset(0, CeldaRespuesta.CurrentRegion.Columns.Count).PasteSpecial

    Contador = 1

    For Each Celda In CeldaRespuesta.CurrentRegion.Offset(0, CeldaRespuesta.CurrentRegion.Columns.Count - 2).Resize(ColumnSize:=2).Cells

        If Contador Mod 2 = 0 Then

            Celda.Value = Right(Celda.Value, 2)

        Else

            Celda.Value = Val(Left(Celda.Value, Len(Celda.Value) - 2))

        End If

        Contador = Contador + 1

    Next

    Application.CutCopyMode = False

    CeldaOriginal.Select

End Sub[/CODE]