Mover datos con macro

12/07/2004 - 04:57 por Fernando Riveros | Informe spam
Cuando lean este problema seguramente se van a reir, se trata de lo
siguiente: Tengo una hoja que tiene 3 columnas, pero las quiero en muchas
columnas, es un ejemplo así:

Jorge Lopez
Enero 1200
Febrero 1100
Marzo 1500
Abril 900

Jaime Gut
Enero 1200
Febrero 1100
Marzo 1500
Abril 900
Francisco Pe
Enero 1200
Febrero 1100
Marzo 1500
Abril 900

Yo quisiera que apareciera de esta forma:

Enero Febrero Marzo Abril
Jorge Lopez 1200 1100 1500 900
Jaime Gut 1200 1100 1500 900
Francisco Pe 1200 1100 1500 900

Para un experto como los hay en este foro se que debe ser un problema super
sencillo, pero para mi es un dolor de cabeza porque lo tengo que hacer a
mano y me lleva horas terminar con cada hoja, de las que tengo muchas por
arreglar así, de modo que acudo a la buena voluntad y disposición de quien
tenga la gentileza de ayudarme en este problema. Muchas gracias de antemano
y quedo a sus órdenes.

Preguntas similare

Leer las respuestas

#1 Víctor
12/07/2004 - 11:12 | Informe spam
Una posible solución puede ser ésta:

Suposición: Tu tabla está en las columnas A, B y C.

En F1 coloca 1
En G1 coloca 2
En H1 coloca 3
En I1 coloca 4
(con esto confeccionamos la columna de los meses; en vez
de enero, febrero,... debemos colocar números para
simplificar el proceso).

En E2 coloca Jorge Lopez
En E3 coloca Jaime Gut
En E4 coloca Francisco P
(ya tenemos montadas las coordenadas de la tabla destino)

Por último, en F2 prueba esta fórmula:

ÞSREF(INDIRECTO(DIRECCION(COINCIDIR
($E2;$A:$A;);3));F$1;)

y cópiala hacia abajo y hacia la derecha las veces que
haga falta.

Si no te funciona o tienes algún problema, vuelve a
escribir.

:-)

Cuando lean este problema seguramente se van a reir, se


trata de lo
siguiente: Tengo una hoja que tiene 3 columnas, pero las


quiero en muchas
columnas, es un ejemplo así:

Jorge Lopez
Enero 1200
Febrero 1100
Marzo 1500
Abril 900

Jaime Gut
Enero 1200
Febrero 1100
Marzo 1500
Abril 900
Francisco Pe
Enero 1200
Febrero 1100
Marzo 1500
Abril 900

Yo quisiera que apareciera de esta forma:

Enero Febrero Marzo


Abril
Jorge Lopez 1200 1100 1500 900
Jaime Gut 1200 1100 1500


900
Francisco Pe 1200 1100 1500 900

Para un experto como los hay en este foro se que debe


ser un problema super
sencillo, pero para mi es un dolor de cabeza porque lo


tengo que hacer a
mano y me lleva horas terminar con cada hoja, de las que


tengo muchas por
arreglar así, de modo que acudo a la buena voluntad y


disposición de quien
tenga la gentileza de ayudarme en este problema. Muchas


gracias de antemano
y quedo a sus órdenes.


.

Respuesta Responder a este mensaje
#2 nico
12/07/2004 - 17:17 | Informe spam
Selecciona los datos por ejemplo:
A
1 Enero
2 Febrero
3 Marzo
4 Abril

Copialos, elije la celda donde los vas a pegar por eje. B2
en menu edición elije pegado especial
activa la casilla de verificación TRANSPONER y Aceptar

Resultado
Enero Febrero Marzo Abril
Cuando lean este problema seguramente se van a reir, se


trata de lo
siguiente: Tengo una hoja que tiene 3 columnas, pero las


quiero en muchas
columnas, es un ejemplo así:

Jorge Lopez
Enero 1200
Febrero 1100
Marzo 1500
Abril 900

Jaime Gut
Enero 1200
Febrero 1100
Marzo 1500
Abril 900
Francisco Pe
Enero 1200
Febrero 1100
Marzo 1500
Abril 900

Yo quisiera que apareciera de esta forma:

Enero Febrero Marzo


Abril
Jorge Lopez 1200 1100 1500 900
Jaime Gut 1200 1100 1500


900
Francisco Pe 1200 1100 1500 900

Para un experto como los hay en este foro se que debe ser


un problema super
sencillo, pero para mi es un dolor de cabeza porque lo


tengo que hacer a
mano y me lleva horas terminar con cada hoja, de las que


tengo muchas por
arreglar así, de modo que acudo a la buena voluntad y


disposición de quien
tenga la gentileza de ayudarme en este problema. Muchas


gracias de antemano
y quedo a sus órdenes.


.

Respuesta Responder a este mensaje
#3 nico
12/07/2004 - 17:21 | Informe spam
Con codigo seria algo asi:
Range("A1:A4").Select 'Selecciona el rango de datos
Selection.Copy 'Lo copia al portapapeles
Range("B3").Select 'Selecciona la celda destino
Selection.PasteSpecial Paste:=xlPasteAll,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True 'Pegado espial con
Transponer

Cuando lean este problema seguramente se van a reir, se


trata de lo
siguiente: Tengo una hoja que tiene 3 columnas, pero las


quiero en muchas
columnas, es un ejemplo así:

Jorge Lopez
Enero 1200
Febrero 1100
Marzo 1500
Abril 900

Jaime Gut
Enero 1200
Febrero 1100
Marzo 1500
Abril 900
Francisco Pe
Enero 1200
Febrero 1100
Marzo 1500
Abril 900

Yo quisiera que apareciera de esta forma:

Enero Febrero Marzo


Abril
Jorge Lopez 1200 1100 1500 900
Jaime Gut 1200 1100 1500


900
Francisco Pe 1200 1100 1500 900

Para un experto como los hay en este foro se que debe ser


un problema super
sencillo, pero para mi es un dolor de cabeza porque lo


tengo que hacer a
mano y me lleva horas terminar con cada hoja, de las que


tengo muchas por
arreglar así, de modo que acudo a la buena voluntad y


disposición de quien
tenga la gentileza de ayudarme en este problema. Muchas


gracias de antemano
y quedo a sus órdenes.


.

Respuesta Responder a este mensaje
#4 Víctor
12/07/2004 - 18:02 | Informe spam
OK, estoy de acuerdo. Envíamelo, pero a esta otra
dirección:

victorvictorARROBAmixmail.com

La que pongo aquí en los encabezados está repleta de
j*dido spam.

:-)

Esrimado Victor:

Muchísimas gracias por tu respuesta, en verdad que fue


muy rápido. Mira,
intenté el método que me dices, pero creo que soy muy


piedra en estos
asuntos de las fórmulas y las macros, de modo que no me


funcionó :(. Mira,
probablemente si te envío un archivo con el detalle que


quiero arreglar
quedará más claro el panorama, no sé si estés de


acuerdo, y al mismo tiempo
no quiero abusar de tu gentileza. Si no te es posible lo


entenderé
perfectamente y sigo muy agradecido por tu fina atención.

Gracias nuevamente y recibe un fuerte abrazo



"Víctor" escribió en


el mensaje
news:2b91301c467f0$565ddb20$
Una posible solución puede ser ésta:

Suposición: Tu tabla está en las columnas A, B y C.

En F1 coloca 1
En G1 coloca 2
En H1 coloca 3
En I1 coloca 4
(con esto confeccionamos la columna de los meses; en vez
de enero, febrero,... debemos colocar números para
simplificar el proceso).

En E2 coloca Jorge Lopez
En E3 coloca Jaime Gut
En E4 coloca Francisco P
(ya tenemos montadas las coordenadas de la tabla destino)

Por último, en F2 prueba esta fórmula:

ÞSREF(INDIRECTO(DIRECCION(COINCIDIR
($E2;$A:$A;);3));F$1;)

y cópiala hacia abajo y hacia la derecha las veces que
haga falta.

Si no te funciona o tienes algún problema, vuelve a
escribir.

:-)

Cuando lean este problema seguramente se van a reir, se


trata de lo
siguiente: Tengo una hoja que tiene 3 columnas, pero las


quiero en muchas
columnas, es un ejemplo así:

Jorge Lopez
Enero 1200
Febrero 1100
Marzo 1500
Abril 900

Jaime Gut
Enero 1200
Febrero 1100
Marzo 1500
Abril 900
Francisco Pe
Enero 1200
Febrero 1100
Marzo 1500
Abril 900

Yo quisiera que apareciera de esta forma:

Enero Febrero Marzo


Abril
Jorge Lopez 1200 1100 1500




900
Jaime Gut 1200 1100 1500


900
Francisco Pe 1200 1100 1500




900

Para un experto como los hay en este foro se que debe


ser un problema super
sencillo, pero para mi es un dolor de cabeza porque lo


tengo que hacer a
mano y me lleva horas terminar con cada hoja, de las que


tengo muchas por
arreglar así, de modo que acudo a la buena voluntad y


disposición de quien
tenga la gentileza de ayudarme en este problema. Muchas


gracias de antemano
y quedo a sus órdenes.


.






Respuesta Responder a este mensaje
#5 Víctor
12/07/2004 - 23:15 | Informe spam
Fernando, revisa tu correo... Te he enviado la solución.

:-)
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida