Pegar valores traspuestos
Estimado, he buscado esta respuesta por todo internet, he visto que muchos tienen la misma inquietud, pero no he podido dar con la respuesta. Necesito una macro que pueda utilizar para pegar valores traspuestos que anteriormente yo copié, pero que estos se peguen en la celda activa que yo seleccione. Tengo una planilla que debo hacer esto más de 100 veces al día. Por favor necesito de vuestra ayuda. El procedimiento seria: copiar los valores, activar la celda de destino y correr la macro. Intenté con la grabadora pero no me funciona. Un ex colega la tenía pero se fue y se llevó todo!. :x
1 respuesta
Respuesta de Enrique Bernal
1
SI te sirve con un input esto te podría ayudar.
Range("A1:A5").Select
Selection. Copy
A = InputBox("Indicar la celda en la que se va a pegar la info")
Range(a).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Range("A1").Select
Range("A1:A5").Select
Selection. Copy
A = InputBox("Indicar la celda en la que se va a pegar la info")
Range(a).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Range("A1").Select
La he probado y funciona, pero necesito que sea al rango que yo seleccione, pero el modulo esta hecho de A1 a A5. y lo otro... ¿el inbox se puede completar al hacer click en la celda activa de destino?...
A ver necesitas que el rango sea modificable, ¿en base a que?
¿Puede ser con otro input?
No sabría como hacerlo para detener la macro y que busque la celda que actives luego, lo que si puedo hacer es que tu ya parado en la celda de destino la macro te pregunte el rango que quieres copiar y lo pegue en la celda en la que te situaste antes de correr la macro, es decir, si tye sitúas en B30 y corres la macro, esta te preguntaría cual es el rango a copiar, pro ejemplo tu le respondes A1:A5, y la macro copia ese rango y lo pega en la celda B30 porque hay estabas situado al momento de correr la amcro, ¿esto último te sirve?
¿Puede ser con otro input?
No sabría como hacerlo para detener la macro y que busque la celda que actives luego, lo que si puedo hacer es que tu ya parado en la celda de destino la macro te pregunte el rango que quieres copiar y lo pegue en la celda en la que te situaste antes de correr la macro, es decir, si tye sitúas en B30 y corres la macro, esta te preguntaría cual es el rango a copiar, pro ejemplo tu le respondes A1:A5, y la macro copia ese rango y lo pega en la celda B30 porque hay estabas situado al momento de correr la amcro, ¿esto último te sirve?
¿Necesito qué el rango sea de acuerdo a mi selección?, es decir: una vez que selecciono, corro la macro, y que la macro tome mi selección, ahora la celda de destino esta bien como lo enviaste. Lo ideal era en celda activa pero parece que no se puede hacer eso.
Saludos
Ariel
Saludos
Ariel
Pues si solo es eso, elimina la primera parte que elige el rango y ya:
Sub()
Selection. Copy
A = InputBox("Indicar la celda en la que se va a pegar la info")
Range(a).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Range("A1").Select
End sub
Sub()
Selection. Copy
A = InputBox("Indicar la celda en la que se va a pegar la info")
Range(a).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Range("A1").Select
End sub
Bien, lo único que habría que cambiar es paste xlpastevalues en ves de xlpasteall. Pero bien Gracias. Un saludo para ti y para tos quienes ayudan a través de esta página.
