Copiar datos de una hoja a otra

[Jose BN]

Buenas tardes

Amigos(as) quisiera solicitar la colaboración con mi caso, necesito realizar la copia de la hoja llamada Diario a la hoja BD, pero que los datos se peguen en la hoja destino a...

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í

 

[Goldfinger]

trata con esta macro

Sub copiar()
Set ho = Worksheets("diario"): Set hd = Worksheets("bd")
Set origen = ho.Range("a5").CurrentRegion
Set origen = origen.Rows(2).Resize(origen.Rows.Count - 1...

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í

 

[Jose BN]

Muchas gracias! Goldfinger funciona perfecta

 

[Jose BN]

trata con esta macro

Sub copiar()
Set ho = Worksheets("diario"): Set hd = Worksheets("bd")
Set origen = ho.Range("a5").CurrentRegion
Set origen =...

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í

 

[Goldfinger]

trata con esta macro

Sub copiar()
Set ho = Worksheets("diario"): Set hd = Worksheets("bd")
Set origen = ho.Range("a5").CurrentRegion
Set origen = origen.Rows(2).Resize(origen.Rows.Count - 1...

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í

 

[Jose BN]

trata con esta macro

Sub copiar()
Set ho = Worksheets("diario"): Set hd = Worksheets("bd")
Set origen = ho.Range("a5").CurrentRegion
Set origen =...

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]

.
Hola! José. Intenta con:

Sub Macro612()
Dim ws1 As Worksheet, ws2 As Worksheet, R&

Set ws1 = Sheets("Diario"): Set ws2 = Sheets("BD")
If ws1.[a6] = "" Then Exit Sub
R =...

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í

 

[Jose BN]

Cacho! muchas gracias! el código es perfecto

Tema resuelto.

 

[Cacho R]

.

Cacho! muchas gracias! el código es perfecto. Tema resuelto.

Gracias por avisar.