Copiar a otra hoja

[c_06]

Hola a todos

En la hoja2 tengo guardado una base de datos, y en la hoja1 quisiera crear una macro tal que seleccione solamente todos los datos de la hoja2 incluyendo los encabezados, es decir...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Mmmmmm... Intenta con:

Sub Copiar_Hoja2()
Sheets("Hoja2").UsedRange.Copy Sheets("Hoja1").[a1]
End Sub

 

[c_06]

Muchas gracias Cacho R

Está es la solución, utilizando la función CurrentRegion que sirve para seleccionar las celdas que solo contienen datos

fila = 2
Sheets("Hoja2").Select
Do While...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí