Macro copiar hojas de un libro a otro
Publicado por Lina Marcela (5 intervenciones) el 23/06/2018 22:50:54
Escribo porque necesito su ayuda con esta Macro lo que necesito que realice es que copie las 16 hojas de un libro en otro libro, lo que sucede es que algunas veces me funciona común y corriente y otras veces me salen este tipo de errores:
* El encabezado es el mismo que el libro destino
* la variable h fuera del intervalo
* Si abro varios libros de Excel me copia información de otros libros de excel que no debería copiar.
Acá dejo el código les agradezco su ayuda.
Muchas gracias.
* El encabezado es el mismo que el libro destino
* la variable h fuera del intervalo
* Si abro varios libros de Excel me copia información de otros libros de excel que no debería copiar.
Acá dejo el código les agradezco su ayuda.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Sub Consolidar()
Dim h As Long
Dim ultima As Integer
Dim Origen As Workbook
Dim HOrigen As Worksheet
Dim Destino As Workbook
Dim HDestino As Worksheet
Dim ruta As String
ruta = ("C:\Users\lina h\Desktop\TRAB\REPORTE_ABOGADOS")
Set Destino = Workbooks(ThisWorkbook.Name)
Set HDestino = Destino.Worksheets("Consolidado")
Call LimpiarTotal
Set Origen = Workbooks.Open(ruta)
For h = 2 To Sheets.Count
Origen.ActivateSheets(h).Activate
Range("A2").Select
Range(Selection, Cells(2, 15)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy Destino.Activate HDestino.SelectRange("A2").Select
If h > 2 Thenultima = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ultima, 1).Offset(0, 0).Select
Range("A" & Selection.Row + 1).Select
Else
Range("A2").Select
End If
ActiveSheet.PasteNext
End Sub
Sub LimpiarTotal()
Sheets(2).Select
Range("A2").Select
Range(Selection, Cells(2, 15)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContentsRange("A2").Select
End Sub
Muchas gracias.
Valora esta pregunta
0
