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

Sub siguienteUltima()
Sheets("Hoja1").Select
Range("A2:L2").Copy _
Sheets("Hoja2").Range("A1").End(xlDown).Offset(1, 0)

End sub

Saludos de un Quijote de la Mancha

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...
.

Tomm
no se que tenga mal pero me sale error de compilacion, sintaxis... aqui adjunto el codigo ...gracias por tu ayuda.

Sheets("Hoja2").Selec
Range("A2:L2").Selec
Range(Selection, Selection.End(xlDown)).Select (para que tome las celdas que encuentre a partir del rango definido
Selection.Cop
Sheets("BIENES").Range("a10").End(xlDown).Offset(1, 0) (agregue lo que me sugeriste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
:=False, Transpose:=Fals
Range("a10").Selec
Sheets("AGREGAR").Selec
Application.CutCopyMode = Fals
Selection.ClearContent
Range("A2").Selec

Gracias de nuevo...

Hola Patricia, entiendo que lo que quieres es registrar en
la hoja2 la información que digites en la hoja1, asi como
lo has hecho siempre va a copiar en el rango a67:l67, lo
que debes hacer es insertar una fila antes del primer
registro de tu tabla y copias la data de la hoja1 en este
rango insertado, luego ordenas esta tabla de tal manera
que lo ultimo que ingresaste quede registrado en el último
registro de la tabla, recien aqui paras el grabador de
macros.
espero me entiendas.
Saludos

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...
.

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...

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

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

Altamente agradecida...
Pat

Hola Patricia

Prueba este codigo y avisame si es lo que quieres


Sheets("Sheet2").Selec
Range("A2:L2").Selec
Range(Selection, Selection.End(xlDown)).Select '(para que tome la
celdas que encuentre a partir del rango definido
Selection.Cop
Sheets("BIENES").Selec
Range("a10").Selec
ActiveCell.End(xlDown).Selec
ActiveCell.Offset(1, 0).Select '(agregue lo que me sugeriste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
SkipBlanks
:=False, Transpose:=Fals
Range("a10").Selec
Sheets("AGREGAR").Selec
Application.CutCopyMode = Fals
Selection.ClearContent
Range("A2").Selec



-
Ronald E. Sánche
El Salvador-San Salvado

"Patricia" escribió en el mensaj
news:

Tomm
no se que tenga mal pero me sale error de compilacion, sintaxis... aqu

adjunto el codigo ...gracias por tu ayuda.

Sheets("Hoja2").Selec

Range("A2:L2").Selec
Range(Selection, Selection.End(xlDown)).Select (para que tome la

celdas que encuentre a partir del rango definido

Selection.Cop
Sheets("BIENES").Range("a10").End(xlDown).Offset(1, 0) (agregue lo qu

me sugeriste

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

SkipBlanks

:=False, Transpose:=Fals
Range("a10").Selec
Sheets("AGREGAR").Selec
Application.CutCopyMode = Fals
Selection.ClearContent
Range("A2").Selec

Gracias de nuevo..