Macros Para Extraer Información de una Hoja y Copiarla en otra en otra

[Yaneth]

Hola, soy nueva en éste asunto de Visual Basic, e intento extraer información de una hoja1 de excel y copiarlos a una hoja 2, en la hoja1 tengo una base de datos con una estructura así:

codigo	nombre	cod1	cod2	cod3
0001	COMPRA1	X	X	X
0002	COMPRA2	X		x
0003	COMPRA3		X

<tbody>
</tbody>

el codigo de la primera columna es un numero unico para cada articulo y necesito que en la hoja 2 cuando yo escriba en una columa el codigo de un articulo la macro vaya a la hoja 1 y me devuelva los nombres de las columnas en las que encuentra el valor x para el codigo digitado, es decir si he digitado el código 0002 deberia devolverme:

cod1
cod3

Agradecere mucho pero mucho su ayuda.

 

[Greg Truby]

Hola Yaneth,
Usted no ocupa un macro para solucionar este problema. Se puede resolver con solo usar fórmulas. Suponemos que sus datos se ve así.

Excel Workbook
	A	B	C	D	E	F	G	H	I	J
1	codigo	nombre	cod1	cod2	cod3	cod4	cod5	cod6	cod7	cod8
2	0001	COMPRA1			X	X	X
3	0002	COMPRA2		X				X	X	X
4	0003	COMPRA3	X			X			X	X
5	0004	COMPRA4	X							X
6	0005	COMPRA5
7	0006	COMPRA6	X			X		X	X	X
8	0007	COMPRA7	X						X	X
9	0008	COMPRA8						X		X
10	0009	COMPRA9		X				X
11	0010	COMPRA10		X	X			X		X
12
Sheet1

En la segunda hoja usted pone el valor que se busca en la celda A1. La fórmula en la celda A2 devuelve la primera cabeza con “X” en la fila. A3 la segunda, etc. Note que la fórmula en la A2 es diferente que las fórmulas en las de A3 para abajo.

Excel Workbook
	A
1	0003
2	cod1
3	cod4
4	cod7
5	cod8
6
7
8
9
10
Sheet2