Hola. Como puedo hacer con una macro que al pulsar un botón copie los valores del Rango B10:B46 de la hoja1 al Rango que este libre empezando en F10:F46 de la hoja2 si este está ocupado al siguiente es decir a G10:G46 etc. Muchas gracias a todos por vuestra ayuda.

dando por hecho que la fila 10 SIEMPRE va a tener datos...

Sub copiar()

  Dim col As Integer

  With Worksheets("hoja2")

    col = Application.Max(6, .Cells(10, Columns.Count).End(xlToLeft).Offset(, 1).Column)

    .Cells(10, col).Resize(37).Value = Worksheets("hoja1").Range("b10:b46").Value

  End With

End Sub[/CODE]

adapta a tus necesidades

saludos,

hector.

dando por hecho que la fila 10 SIEMPRE va a tener datos...

Sub copiar()

  Dim col As Integer

  With Worksheets("hoja2")

    col = Application.Max(6, .Cells(10, Columns.Count).End(xlToLeft).Offset(, 1).Column)

    .Cells(10, col).Resize(37).Value = Worksheets("hoja1").Range("b10:b46").Value

  End With

End Sub[/CODE]

adapta a tus necesidades

saludos,

hector.

Hola. Como puedo hacer con una macro que al pulsar un botón copie los valores del Rango B10:B46 de la hoja1 al Rango que este libre empezando en F10:F46 de la hoja2 si este está ocupado al siguiente es decir a G10:G46 etc. Muchas gracias a todos por vuestra ayuda.

Muchas gracias Hector

[uSER=221268]@fedabrio[/uSER]

¿Solucionado?