COPIAR DATOS DE VARIAS HOJAS Y PEGARLAS EN UNA CON MACRO

22/10/2008 - 18:25 por yambaodf | Informe spam
MUY BUEN DIA UN SALUDO, TENGO UN DILEMA RESPECTO DE UN ARCHIVO DONDE
TENGO 3 HOJAS NOMBRADAS ( CP - PG - TOT ) EN LAS CUALES TIENEN LOS
MISMOS ENCABEZADOS A PARTIR DE LA FILA "A8" Y UTILIZO UNA MACRO PARA
COPIAR LOS DATOS DE LAS DOS PRIMERAS HOJAS (CP-PG) Y PEGARLAS EN
(TOT), SOLO QUE LA MACRO ME PERMITE IR INDICANDO DE QUE HOJA QUIERO
COPIAR LOS DATOS, MI CUESTION ES COMO HACERLE PARA QUE LA MACRO ME
PERMITA COPIAR AMBAS HOJAS CON SUS RESPECTIVOS DATOS Y PEGARLAS SIN LA
INDICACION DE SELECCIONAR UNA POR UNA DE LAS HOJAS..TAMBIEN ME
GUSTARIA SABER SI AL COPIAR LOS DATOS DE LAS HOJAS (CP-PG) SE PUEDAN
BORRAR LOS DATOS EN (TOT) A MANERA DE SOBREESCRIBIR CADA VEZ QUE CORRA
LA MACRO...ESPERO ALGUNA DE LOS EXPERTOS ME PUEDA APOYAR MUCHAS
GRACIAS DE ANTEMANO

Sub ACUMULATOT()

'Copia registros
Dim A As String
Dim n As Long
Application.ScreenUpdating = False

A = InputBox("INDIQUE EL MES A VACIAR")

Sheets(A).Select
Range("C2000").End(xlUp).Select
n = Selection.Row
Range(Cells(9, 1), Cells(n, 17)).Select
Selection.Copy
Sheets("TOT").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:_
Application.CutCopyMode = False
Application.CutCopyMode = False

Range("B8").Select
MsgBox "Los datos fueron copiados", vbInformation
Application.ScreenUpdating = True

End Sub
 

Leer las respuestas

#1 Cacho
22/10/2008 - 19:49 | Informe spam
Hola! yambaodf

Fíjate si la siguiente macro te resulta operativa:
__________________________________

Sub AcumulaTot2()
Hj = Array("CP", "PG")

With Sheets("TOT")
.Range("A9:C65536").EntireRow.Delete

For ii = 0 To 1
With Sheets(Hj(ii))
LastRow = .[C65536].End(xlUp).Row
Range(.[A9], .Range("Q" & LastRow)).Copy
End With
.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Paste:=xlPasteValuesAndNumberFormats
Next ii

Application.CutCopyMode = False
Application.Goto .[A8]
End With
End Sub
__________________________________

Saludos, Cacho.

Preguntas similares