Filas a columnas
Hola, necesito convertir esta filas,
BIB Texto
3455 Pera
3455 Manzana
5678 Tomate
5678 Kiwi
5678 Palta
3489 Maíz
23566 Arroz
23566 Porotos
23566 Lechugas
23566 Coliflor
En estás columnas,
5455 Pera/ Manzana
5678 Tomate/ Kiwi/ Palta
3489 Maíz
23566 Arroz, Porotos/ Lechugas/ Coliflor
La cantidad de filas con el número bib es variable, pueden ser tres, cuatro, dos, siete etc.
Atentamente.,
Ernesto
BIB Texto
3455 Pera
3455 Manzana
5678 Tomate
5678 Kiwi
5678 Palta
3489 Maíz
23566 Arroz
23566 Porotos
23566 Lechugas
23566 Coliflor
En estás columnas,
5455 Pera/ Manzana
5678 Tomate/ Kiwi/ Palta
3489 Maíz
23566 Arroz, Porotos/ Lechugas/ Coliflor
La cantidad de filas con el número bib es variable, pueden ser tres, cuatro, dos, siete etc.
Atentamente.,
Ernesto
1 respuesta
Respuesta de sir_drake
1
¿Qué utilizas para guardar estos datos?
Si lo tienes en access o excel, a través de código vba puedes hacerlo.
Necesitas recorrer la tabla con los campos y mientras que el campo BIB sea igual guardar en una variable el valor del campo texto .
Un ejemplo sencillo para access:
Cont = 0
set rst = curentdb.openrecordset ("select BIB, Texto FROM MiTabla")
while not rst.eof
aux_BIB = rst.fields(0)
Aux_Texto = rst.fields(0)
if cont = 0 then
Id_Bib = Aux_BIB
Total_texto = Aux_Texto
Cont = 1
else
If Aux_Bib = Id_Bib then
Total_texto = Total_Texto & "/" & Aux_Texto
Else
Msgbox "Codigo BIB: " & Id_Bib & " Texto " & Total_Texto
aux_BIB = rst.fields(0)
Total_Texto = rst.fields(1)
end if
end if
rst.movenext
Wend
Si lo tienes en access o excel, a través de código vba puedes hacerlo.
Necesitas recorrer la tabla con los campos y mientras que el campo BIB sea igual guardar en una variable el valor del campo texto .
Un ejemplo sencillo para access:
Cont = 0
set rst = curentdb.openrecordset ("select BIB, Texto FROM MiTabla")
while not rst.eof
aux_BIB = rst.fields(0)
Aux_Texto = rst.fields(0)
if cont = 0 then
Id_Bib = Aux_BIB
Total_texto = Aux_Texto
Cont = 1
else
If Aux_Bib = Id_Bib then
Total_texto = Total_Texto & "/" & Aux_Texto
Else
Msgbox "Codigo BIB: " & Id_Bib & " Texto " & Total_Texto
aux_BIB = rst.fields(0)
Total_Texto = rst.fields(1)
end if
end if
rst.movenext
Wend
Hola los datos están en una planilla de excel, disculpa la ignorancia, pero dónde escribo el código vba de este ejemplo.
Atentamente.,
Ernesto
Atentamente.,
Ernesto
Si nunca has hecho nada en vba, te va a ser complicado, he hecho una pequeña base de datos en access, con dos tablas "Importar" y "Convertido", copia las dos columnas de la hoja excel en la tabla "Importar" y luego abre el formulario que hay, pinchas en el botón y se rellenará la tabla "Convertido" con los datos convertidos. Simplemente copias esos datos a una hoja excel y ya los tienes.
Puedes descargar el ejemplo que te he preparado de aquí:
http://www.megaupload.com/?d=RZSX3GZ0
Puedes descargar el ejemplo que te he preparado de aquí:
http://www.megaupload.com/?d=RZSX3GZ0
