pregunta de pegar al final en fila exixtente

29/12/2007 - 23:53 por yedeon | Informe spam

saludos he leiso en este foro donde 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 ??

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Cortar celdas y pegar al final de una lista

Leer las respuestas

#6 Héctor Miguel

30/12/2007 - 11:42 | Informe spam

hola (de nuevo), !

Como quedaria para 2 y 8 celdas activas?

(de una vez)... por si la ultima celda de la primer columna esta vacia... -?-

Sub Pasar_ValorSelection_en_Hoja_DirProyect()
Dim Fn As Long
With Worksheets("dirproyect")
Fn = .Cells.Find("*", .Range("a1"), _
xlValues, xlWhole, xlByRows, xlPrevious).Row + 1
End With
With Selection
Worksheets("dirproyect").Range("a" & Fn) _
.Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
End Sub

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida