pregunta de pegar al final en fila exixtente

hola, !

... resolvieron la pregunta sobre pefar al final de un list aexisatente donde concluyeron con el macro:

Sub test()
Selection.Copy _
Sheets("dirproyect").Range("A65536").End(xlUp).Offset(1, 0)
End Sub

pero: la selection copy o celda en que estoy es dependiente de operaciones y se actualiza constantemente
por ello las celdas anteroirmente copiadas con este macro se actualizan tambien con el ultimo resultado
como puedo evitar que se actualizen las anteriores ?

si el "Selection" corresponde a una sola celda (la celda activa) y no deseas "pegar" la formula si no solo su resultado -?-

Worksheets("dirproyect").Range("a65536").End(xlUp).Offset(1).Value = ActiveCell.Value

saludos,
hector.

No funciona?

Me marca error en tiempo de ejecucuion con opciones de finalizar o depurar,
y al depurar me colorea el renglon que he modificado.

uso office 2007

hola, !

No funciona?
Me marca error en tiempo de ejecucuion con opciones de finalizar o depurar
y al depurar me colorea el renglon que he modificado. uso office 2007

algo que se hubiera quedado "en el tintero" ???
en la propuesta anterior comentaba del (principal) "supuesto" utilizado para la linea de codigo...

"si el "Selection" corresponde a una sola celda (la celda activa) y no deseas "pegar" la formula si no solo su resultado -?-"

esto a raiz de tu comentario donde dijiste: "... pero: la selection copy o celda en que estoy ..."

si el "Selection" NO es de una sola celda... seria necesario hacer algunas adaptaciones al codigo propuesto -?-

trabajando con una sola celda (la celda activa de cualquier hoja) el siguiente codigo "pasa" su valor a la siguiente fila libre
-> en la columna A de una hoja con el nombre de "DirProyect" (probado incluso en la version 2007)

Sub Pega_ValorCeldaActiva_en_Hoja_DirProyect()
Worksheets("dirproyect").Range("a65536").End(xlUp).Offset(1) = ActiveCell
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

funciona esplendidamente

¡Como quedaria para 2 y 8 celdas activas?


Feliz nuevo año a nombre m{io y de tantos a los que has ayudado con tus
aportes..

hola, !

Como quedaria para 2 y 8 celdas activas?

si no hay celdas vacias (al menos en la ultima fila de la primer columna)
o te aseguras de que al menos "la ultima celda"... de la primer columna... de tu "Selection" no este vacia...
(OJO: no importa de cuantas columnas/filas sea el rango seleccionado)

Sub Pasar_ValorSelection_en_Hoja_DirProyect()
With Selection
Worksheets("dirproyect").Range("a65536").End(xlUp).Offset(1) _
.Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

p.d. (no porque le haga referencia al final... deja de ser importante)...
gracias por tus buenos deseos y recibelos tambien de mi parte
(haciendolos extensivos para aquellos que acostumbren celebrar "la epoca") :D