Copiar y pegar rangos

[fedabrio]

Hola. La consulta es como pegar un rango de celdas B10:B46 de la hoja 1 a un rango que no tenga datos en la hoja 2 F10:F46 y si tiene datos este rango que encuentre hacia la derecha el rango libre. Muchas gracias

[edgar castillo pompilla]

Hola fedabrio, Seria bueno que subieras tu archivo para que la solución que buscas sea mas efectiva.

[LuisRojas]

A ver mira este

Copiar.rar

[fedabrio]

Hola fedabrio, Seria bueno que subieras tu archivo para que la solución que buscas sea mas efectiva.

Muchas gracias a todos al final este es el codigo que me funciona

'Al pulsar el boton Parciales pasaremos el contenido del rango "B10:B46" de la Hoja PasarBolas al rango que no tenga datos empezando en "F10:F46" de la Hoja Parciales

' incrustando la fecha actual en la celda que este libre empezando en "E4" y terminaremos seleccionando la Celda A1 de la hoja PasarBolas

'

Dim Puntero As Integer 'Declaramos la variable Puntero como una variable del tipo Entero

With Worksheets("Parciales") 'Referenciamos el Objeto Hoja de trabajo "Parciales" es decir pasamos el control a la hoja "Parciales"

Puntero = .Cells(10, 4).End(xlToRight).Offset(, 1).Column 'Puntero = a la celda "D10" si contiene algo apunta a la columna hacia la derecha siguiente que este libre al inicio

' apuntaria a la celda "F10" puesto que la celda E10 tiene datos

.Cells(10, Puntero).Resize(37).Value = Worksheets("PasarBolas").Range("B10:B46").Value 'Cambiamos el rango a seleccionar desde la celda (En este primer caso Puntero = F) "F10"

' hasta "F46" osea F10 + 37 = F46

.Cells(4, Puntero).Offset(, -1) = DateValue(Now) 'Insetamos la fecha actual en la celda seleccionada, la celda en este primer caso Puntero = F seria "E4" (es decir "F4" con un offset de -1 = "E4")

End With 'Terminamos el control sobre la hoja Parciales por lo tanto retornamos el control a la Hoja PasarBolas

Range("A1").Select 'Seleccionamos la celda A1