Pasar datos de una hoja hacia otro libro

Darack - 9 sep 2022 a las 22:41

Hola,

Buenas tardes desarrolle mi macro con mis formularios pero necesito pasar la información de mi hoja data a un libro nuevo y dividir la información según condición de un campo llamado proceso activo y que guarde en su hoja correspondiente según proceso, adjunto código que que hace el proceso pero en el mismo libro y necesito para hacer reportes en un libro nuevo.

Sub Transferir1()
Dim X As Long, Hoja As Worksheet, acta As Range, fila As Long

Application.ScreenUpdating = False
With Sheets("Data")
For X = 2 To .Range("B" & Rows.Count).End(xlUp).Row
Set Hoja = Sheets(.Range("AA" & X).Value)
Set acta = Hoja.Columns("B").Find(.Range("B" & X), , xlValues, xlWhole)
If acta Is Nothing Then
fila = Hoja.Range("B" & Rows.Count).End(xlUp).Row + 1
If Hoja.Range("B2") = "" Then fila = 2
.Range("B" & X & ":AF" & X).Copy
Hoja.Range("B" & fila).PasteSpecial xlPasteValues
End If
Next
End With
Application.CutCopyMode = False
End Sub


Windows / Chrome 91.0.4472.77