Copiar rango de distintas hojas y pegarlas en otra hoja en la siguiente fila vacía
publicado
Hola a todos,
soy nuevo en el foro, gracias por el soporte y la ayuda que prestáis.
Mi cuestión es la siguiente:
Tengo varias hojas que empiezan por el nombre "PRO" y necesito que el rango (b13:g64) de cada una de las hojas pegue los valores en la hoja "Dat" a partir de la primera columna en la siguiente fila vacía.
Lo he intentado con el siguiente código pero solo pega los valores del rango" b" y no todo el rango.
Hola a todos,
soy nuevo en el foro, gracias por el soporte y la ayuda que prestáis.
Mi cuestión es la siguiente:
Tengo varias hojas que empiezan por el nombre "PRO" y necesito que el rango (b13:g64) de cada una de las hojas pegue los valores en la hoja "Dat" a partir de la primera columna en la siguiente fila vacía.
Lo he intentado con el siguiente código pero solo pega los valores del rango" b" y no todo el rango.
Sub prueba()
Dim hj As Worksheet
Dim x As Integer
For Each hj In ActiveWorkbook.Sheets
If hj.Name Like "PRO*" Then
Sheets("Dat").Range("a" & Rows.Count).End(xlUp).Offset(1) = hj.Range("b13:g64").Value
End If
Next hj
End Sub
Agradecería mucho vuestra ayuda.
Saludos