pegar celdas copiadas hasta donde hay datos

Raúl:



"Raúl" escribió en el mensaje
news:008201c3b50e$bbf5e5d0$
Gracias Roland, gracias Matias, pero resulta que esos
pasos grabados en un script de una macro, me carga un Nº
de rango ej:
Range("C3").Activate

' Range(Selection, Selection.End(xlDown)).Select 'omitir
' Range("B3:B145").Select 'omitir
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste


Ronald E. Sánchez
El Salvador-San Salvador



que el dia que tenga mas registros, unicamente me va a
tomar los que esten en el rango mencionado :"B145" y yo
necesito que sea hasta el ultimo existente en ese dia.
Yo logre hacerlo con este codigo:

Range("F2:G2").Select
Application.CutCopyMode = False
Selection.Copy
Columns("F:G").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveSheet.Paste

Pero en este caso antes de pegar necesito que suba una
celda y eso no se como hacerlo por script, ni tampoco me
acuerdo como lo hice en ese entonces ese codigo.

>Que la combinacion de teclas
>para seleccionar el rango no seria??
>
>shift + ctr l + cursor abajo
>
>
>
>Ronald E. Sánchez
>El Salvador-San Salvador
>
>"Matías" escribió
en el mensaje
>news:0b9001c3b4fc$9896be00$
>Debés pararte en la primer celda en donde tenés que pegar
>y seleccionarla juntamnte con la de al lado (suponiendo
>que ésta tiene datos hasta el registro 27,
>presionar "Tab", activar "Fin", presionar "SHIFT+cursor
>abajo" luego el cursor para volver a la columna de
>destino, te va a quedar seleccionado el área en que querés
>pegar, entonces "Pegar"...
>
>Saludos
>Matías.
>
>>Amigos mi consulta es la siguiente:
>>Tengo tres columnas dos de las cuales tienen datos hasta
>>la celda 27, por poner un ejemplo.
>>la columna del medio esta vacia, y yo necesito copiar el
>>dato de la primera celda de la columna del medio y
>pegarlo
>>en todo el resto de la columna pero solamente haste donde
>>hay datos, es decir, la celda 27.
>>Si selecciono el rango no me sirve por que en otors casos
>>tengo mas registros y si marco la columna me pega el dato
>>hasta el último registro de excel.
>>Como se hace para copiar hasta la última celda de al lado
>>con datos?
>>Gracias
>>.
>>
>
>
>.
>