Jump to content

Copiar datos de un libro a otro con condicion


Recommended Posts

Hola buenas noches, espero su ayuda por favor.

Estoy intentando copiar datos de un libro:  prueba_guardarotrolibro(TEMP) para  pasarlo a otro: baseprueba(TEMP), desde la columna A hasta la columna AO, que cumplan la condicion  en la columna Estado = Cerrado

al pasar al otro libro debe copiarse debajo del ultimo registro.

ESPERO CONTAR CON USTEDES, DE ANTEMANO MUCHAS GRACIAS, ES MUY IMPORTANTE.

baseprueba.xlsx prueba_guardarotrolibro.xlsm

Link to comment
Share on other sites

Logrado..

les dejo  el codigo por si lo necesitan

 

Sub CONSOLIDAR()
Application.ScreenUpdating = False
Dim ufa, ufb As Integer

Dim LibroDestino As Workbook
Dim HojaRegistro As Worksheet


ufa = HREGISTRO.Range("A" & Rows.Count).End(xlUp).Row
Set LibroDestino = Workbooks.Open(ActiveWorkbook.Path & "\BASES\BASECOTIZACIONES.xlsx")
Set HojaRegistro = LibroDestino.Worksheets("TEMP")
ThisWorkbook.Activate
ufb = HojaRegistro.Range("A" & Rows.Count).End(xlUp).Row

        With HREGISTRO.Range("A2:AO" & ufa) '.CurrentRegion
                .AutoFilter 20, Criteria1:="=" & "CERRADO", Operator:=xlOr, Criteria2:="=" & " "
                .SpecialCells(12).COPY HojaRegistro.Range("A" & ufb + 1)
                .AutoFilter

        End With


LibroDestino.Save
LibroDestino.Close

Application.ScreenUpdating = True
 

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy