Ayuda con unir datos

1 post / 0 nuevos
jjop215
Imagen de jjop215
Offline
última acción: Hace 1 semana 6 días
alta: 05/10/2020 - 20:08
Puntos: 25
Ayuda con unir datos

Saludos a todos, tengo un problema con un trabajo que me incrementaron en el trabajo.

Para una orden de produccion se crean varias hojas de calculo. Ya logre unificar los archivos en uno solo con un macro, pero a la hora de ejecutar un macro que me copie todos los datos a una sola hoja no me copia todo.

El codigo que encontre es el siguiente


Sub consolidardatos()

Dim var As Integer

Dim hj As Worksheet

var = 0

For Each hj In Worksheets

 If hj.Name = "Consolidar" Then

 var = 1

 Exit For

 End If

Next hj

If var = 0 Then Sheets.Add(Before:=Sheets(1)).Name = "Consolidar" Else

Sheets("Consolidar").Move Before:=Sheets(1)

Sheets(2).Activate

Sheets(2).Range(Range("a1"), Range("A1").End(xlToRight)).Copy

Sheets(1).Activate

Sheets("Consolidar").Paste Destination:=Range("a1")

For Each hj In Worksheets

 If hj.Name <> ActiveSheet.Name Then

 With hj

 .Range("A2:N" & .Range("A" & Rows.Count).End(xlUp).Row).Copy _

 Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1)

 End With

 End If

Next hj

ActiveWindow.DisplayGridlines = False

Range("A1").CurrentRegion.Select

Selection.Columns.AutoFit

End Sub


Si me pudieran ayudar con lo siguiente

  • Que elimine u omita pestañas ocultas, ya que tienen informacion irrelevante.
  • Y que copie todo el contenido de las pestañas.

Les agredecere infinito su ayuda.