Tabla Dinamica Viceversa

Con un macro:

En Sheet1: A1: ID, B1: Nombre, C1: BASE, D1: AREA, E1: TIPO
En Sheet2: A1: COL1, B1: COL2

Public Sub listgen()
Dim wb As Workbook
Dim sInput, sOutput As Worksheet
Dim i, r, c As Integer
Set wb = ThisWorkbook
Set sInput = wb.Sheets("Sheet1")
Set sOutput = wb.Sheets("Sheet2")
c = 1: r = 2: i = 2
sOutput.Activate
While sInput.Cells(r, c).Value <> Empty
sOutput.Cells(i, c).Value = sInput.Cells(r, (c + 4)).Value &
sInput.Cells(r, c).Value & "N"
sOutput.Cells(i, (c + 1)).Value = sInput.Cells(r, (c + 1)).Value: i
= i + 1
sOutput.Cells(i, c).Value = sInput.Cells(r, (c + 4)).Value &
sInput.Cells(r, c).Value & "B"
sOutput.Cells(i, (c + 1)).Value = sInput.Cells(r, (c + 2)).Value: i
= i + 1
sOutput.Cells(i, c).Value = sInput.Cells(r, (c + 4)).Value &
sInput.Cells(r, c).Value & "A"
sOutput.Cells(i, (c + 1)).Value = sInput.Cells(r, (c + 3)).Value: i
= i + 1: r = r + 1
Wend
Set sOutput = Nothing
Set sInput = Nothing
Set wb = Nothing
End Sub




"Alex Carmen" schreef in bericht
news:%

Hola amigos, tengo una hoja en excel con la siguiente estructura:

ID NOMBRE BASE AREA TIPO
01 Alex B1 xx 10
02 Edgar B2 dd 10
01 Walter B3 mm 11
02 Jorge B4 kk 11

En otra hoja quiero obtener los sgts. tesultados.
COL1 COL2
1001N Alex
1001B B1
1001A xx
1102N Edgar
1102B B2
1102A dd
1103N Walter
1103B B3
1103A mm
1104N Jorge
1104B B4
1104A kk

Donde COL1 es igual a la concatenacion del campo tipo+id y por cada fila
de
la "lista1" me genera 3 filas contiendo cada fila el contenido de las
columnas Nombre,Base,Area segun corresponda. (transformar las columnas a
filas).

Espero su valioso aporte, necesariamente tiene que ser en Excel, talvez
con
formulas o macros.
Gracias por su atencion.

Atte.
Alex Carmen Z.
Dpto. Informática


Atte.
Alex Carmen Z.
Dpto. Informática