Pegar rango variable en 1ª fila vacía de otra hoja

Tengo una Hoja (Nº 5 ALEJO) donde tengo los datos de un albarán,

El rango que ocupan estos datos empieza en E14 y terminan en la columna "U", pero la fila donde acaban es variable.

Necesito pegar estos datos en la hoja (BDFACTURACION) en la columna "E" y primera fila vacía.

Ayuda por favor

1 respuesta

Respuesta
1

Te anexo la macro

Sub copiar()
'Por.Dante Amor
    Set h1 = Sheets("Nº 8 ALEJO")
    Set h2 = Sheets("BDFACTURACION")
    u1 = h1.Range("A" & Rows.Count).End(xlUp).Row
    u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
    '
    H1.Range("A14:U" & u1). Copy h2.Range("E" & u2)
End Sub

Perdona, cambia esta línea

u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1

Por esta

u2 = h2.Range("E" & Rows.Count).End(xlUp).Row + 1

En vez de copiar,  lo que necesito es pegar los valores y aprovechando como se escribiría si lo que  quisiera pegar fueran sólo formulas

Gracias

No se puede pegar sólo valores ya que las celdas origen o las destino están combinadas, tienes que pegar columna por columna, es decir, si la columna A va en la columna E tienes que poner esto

H1.Range("A14:A" & u1). Copy 
H2.Range("E" & u2). Pastespecial paste:xlvalues

Y así para cada una de las columnas.

Para pegar fórmulas en lugar de xlvalues tienes que poner xlformulas

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas