Macro para pegar rangos Excell

Hola Violeta,

Hola a todos, os cuento lo que me pasa:

Al ejecutar una macro que pega o que vincula distintos rangos de excell a un
documento de word, la ejecuta pegando o vinculando solamente el último rango
marcado. El código que genera la macro es siguiente:


Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 15/10/2007
'
Selection.MoveDown Unit:=wdLine, Count:q
Selection.MoveUp Unit:=wdLine, Count:
Selection.PasteExcelTable False, False, False
Selection.MoveDown Unit:=wdLine, Count:ƒ
Selection.PasteExcelTable False, False, False
Selection.MoveDown Unit:=wdLine, Count:x
Selection.PasteExcelTable False, False, False
Selection.MoveDown Unit:=wdLine, Count:=2
End Sub


Gracias, espero me podais ayudar.

Pues se supone según el codigo que expones, que estas pegando en word
una tabla de excel de [ rangos o celdas ] que estan en el Clipboard o
portapapeles, [ osea se copiar y pegar ] y sin vincularlos.

Pero esto solo funcionara con el ultimo valor copiado , es decir que el
codigo siempre te tomara el ultimo valor del rango, celda ,tabla copiado
de excel para pegarlo en word , entonces

Pregunto :

Necesitas traerte rangos de excel a word vinculados ?

Comentanos como tienes extruturado el documento de word para poder
importar esos datos de excel,


Comentanos ok? :)

Saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com