Aun no obtengo lo que quiero...please help me...

Patricia:
Sustituyelo por esto, lo que pasa es que se corto la primera linea

Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False


Avisame cualquier cosa


Ronald E. Sánchez
El Salvador-San Salvador


"Patricia" escribió en el mensaje
news:

Ronald, eso es lo que necesito... pero aun tengo error de sintaxis en esta

linea:

Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Altamente agradecida
Paty

Hola Patricia:

Prueba este codigo y avisame si es lo que quieres.


Sheets("Sheet2").Select
Range("A2:L2").Select
Range(Selection, Selection.End(xlDown)).Select '(para que tome

las

celdas que encuentre a partir del rango definido)
Selection.Copy
Sheets("BIENES").Select
Range("a10").Select
ActiveCell.End(xlDown).Select
ActiveCell.Offset(1, 0).Select '(agregue lo que me sugeriste)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("a10").Select
Sheets("AGREGAR").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A2").Select



Ronald E. Sánchez
El Salvador-San Salvador

"Patricia" escribió en el mensaje
news:
> Tommi
> no se que tenga mal pero me sale error de compilacion, sintaxis...

aqui

adjunto el codigo ...gracias por tu ayuda..
>>> Sheets("Hoja2").Select
> Range("A2:L2").Select
> Range(Selection, Selection.End(xlDown)).Select (para que tome

las

celdas que encuentre a partir del rango definido)
> Selection.Copy
> Sheets("BIENES").Range("a10").End(xlDown).Offset(1, 0) (agregue

lo que

me sugeriste)
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
> :=False, Transpose:=False
> Range("a10").Select
> Sheets("AGREGAR").Select
> Application.CutCopyMode = False
> Selection.ClearContents
> Range("A2").Select
>>> Gracias de nuevo...

yo te envie un ejemplo..
no decis nada. que paso?

el ejemplo funciona bien..


"Patricia" escribió en el mensaje
news:

Hola amigos:
Agradezco a quien pueda ayudarme con lo siguiente : En la hoja1 tengo

datos en el rango A2..L2 y quiero copiar el contenido de ese rango de celdas
al final del mismo rango del celdas en lahoja2, es decir del rango A66..L66
la cual tengo oculta. La finalidad de esto es permitir agregar información
de la hoja1 al final del rango de la hoja2, de hecho ya lo hice manualmente
y lo grabe en una macro y le asigne un boton. La cuestión es que siempre me
pega los datos en la celda A67:L67, y lo que se pretende es que cada vez que
el pegue los datos tenga en cuenta que se ha modificado el rango de la
hoja2.

Please!!! ayuda...