UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

lmhernandezd


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á te dejo el código te agradezco tu ayuda.

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.Activate
  Sheets(h).Activate
  Range("A2").Select
  Range(Selection, Cells(2, 15)).Select
  Range(Selection, Selection.End(xlDown)).Select
  Selection.Copy
  
  Destino.Activate
  
  HDestino.Select
  Range("A2").Select
        
  If h > 2 Then
   ultima = 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.Paste
Next

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.ClearContents
  Range("A2").Select

End Sub


Muchas gracias por tu atención.

Igtelo

avatar

Igtelo

avatar
Cerrado por abandono.

Ignacio Téllez

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.