Saltar al contenido

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

Enlace a comentario
Compartir con otras webs

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
 

 

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.