Excel - MACRO PARA COPIAR COLUMNA DE 2 LIBROS

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Miguel (13 intervenciones) el 10/01/2024 14:13:51

Buenos días,
Su apoyo para poder modificar Macro donde copie toda la columna de un archivo y lo copie en otro para que despues ejecute la macro que ya esta (en teoria una sola macro para hacer todos los procesos)

Sub LEADS_NOCTURNA()

'Copiar y pegar valores

Sheets("FILTRO").Select

    Range("A1:H151").Select

    Selection.Copy

Sheets("NOCTURNA").Select

    Cells.Select

    Range("A1").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

'Guardar archivo con nombre y fecha

NombreArchivo = VBA.Year(VBA.Date) & "_" & Right("0" & VBA.Month(VBA.Date), 2) & Right("0" & VBA.Day(VBA.Date), 2) & "_Nocturna"

NombreHoja = "NOCTURNA"

Ruta = ThisWorkbook.Path

Worksheets(Array(NombreHoja)).Copy

    With ActiveWorkbook

    .SaveAs Filename:=Ruta & "\Leads\" & NombreArchivo & ".xlsx", FileFormat:=xlOpenXMLWorkbook

    .Close SaveChanges:=False

    End With

End Sub

estuve probando que la columna A:A de la hoja CL_PE_MKT_LEADS_INT_NOCTURNO del libro CL_PE_MKT_LEADS_INT_NOCTURNO (archivo ubicado en carpeta descargas) se pegue en la hoja DATA del libro FILTRO NOCTURNA (archivo ubicado en otra carpeta) donde ya tiene la macro que esta lineas arriba.

muchas gracias por su tiempo y ayuda.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 4.908

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Antoni Masana (2478 intervenciones) el 10/01/2024 16:08:38

He reformateado la macro y cambiado una línea de código.

Sub LEADS_NOCTURNA()

    Dim NombreArchivo As String, NombreHoja As String, Ruta As String

    ' -- Copiar y pegar valores

    Sheets("FILTRO").Select

    Range("A1:H151").Select

    Selection.Copy

    Sheets("NOCTURNA").Select

    Range("A1").Select

    Selection.PasteSpecial Paste:=xlPasteValues, _

                           Operation:=xlNone, _

                           SkipBlanks:=False, _

                           Transpose:=False

    ' --- Guardar archivo con nombre y fecha

    NombreArchivo = VBA.Year(VBA.Date) & "_" & Right("0" & VBA.Month(VBA.Date), 2) & Right("0" & VBA.Day(VBA.Date), 2) & "_Nocturna"

    NombreArchivo = Format(VBA.Date, "YYYY_MMDD") & "_Nocturna"

    NombreHoja = "NOCTURNA"

    Ruta = ThisWorkbook.Path

    Worksheets(Array(NombreHoja)).Copy

    With ActiveWorkbook

        .SaveAs Filename:=Ruta & "\Leads\" & NombreArchivo & ".xlsx", FileFormat:=xlOpenXMLWorkbook

        .Close SaveChanges:=False

    End With

End Sub

No entiendo cual es el problema.
De lo que explicas en este párrafo no se que es lo que está en negrita:

estuve probando que la columna A:A de la hoja CL_PE_MKT_LEADS_INT_NOCTURNO del libro CL_PE_MKT_LEADS_INT_NOCTURNO (archivo ubicado en carpeta descargas) se pegue en la hoja DATA del libro FILTRO NOCTURNA (archivo ubicado en otra carpeta) donde ya tiene la macro que esta lineas arriba.

Saludos.
\\//_

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Miguel (13 intervenciones) el 11/01/2024 17:33:13

Hola, buenos días.

Esto CL_PE_MKT_LEADS_INT_NOCTURNO es el nombre del archivo que a su vez es el nombre de la hoja que se ubica en la carpeta descargas, ya que todos los dias se descarga y siempre baja con el mismo nombre, de este libro deseo copiar toda la columna "A" para que se pegue en la columna "A" de la hoja DATA del libro NOCTURNA que esta en otra ubicacion.

saludos

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Antoni Masana (2478 intervenciones) el 11/01/2024 18:09:42

En el libro NOCTURNA debe estar la macro que debe:

- Abrir el archivo: C:\DESCARGAS\CL_PE_MKT_LEADS_INT_NOCTURNO.xlsx
- Copiar los datos.
- Cerrar el fichero que ha abierto.

La macro que has puesto no se padece a lo que cuentas.

Saludos.
\\//_

Valora esta respuesta

Comentar

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Miguel (13 intervenciones) el 11/01/2024 18:43:35

Claro por eso es mi consulta, porque tengo la macro que en el mismo libro trabaja pero quiero poder hacer lo que te menciono, abrir archivo copiar datos y pegarlos en NOCTURNA - DATA luego cerrar el libro abierto y ejecutar macro

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Antoni Masana (2478 intervenciones) el 11/01/2024 20:56:13

Si me puedes enviar los dos libro de ejemplo te puedo hacer la macro.

Saludos.
\\//_

Valora esta respuesta

Comentar

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Miguel (13 intervenciones) el 12/01/2024 14:37:43

te adjunto 2 los libros tu apoyo por favor muchas gracias

prueba-NOCTURNA.zip(66,0 KB)

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Antoni Masana (2478 intervenciones) el 12/01/2024 18:39:34

Dos soluciones:

Sobre escribe.

Borra lo que hay en la hoja DATA y escribe los datos del fichero.

Sub LEADS_NOCTURNA()

    Dim reg As String

    Sheets("DATA").Select

    Fila = 1

    While Cells(Fila, "A") <> ""

        Cells(Fila, "A") = ""

        Fila = Fila + 1

    Wend

    Open "C:\DESCARGAS\CL_PE_MKT_LEADS_INT_NOCTURNO.rsl" For Input As #1

    Fila = 1

    While Not EOF(1)

        Line Input #1, reg

        Cells(Fila, "A") = reg

        Fila = Fila + 1

    Wend

    Close #1

End Sub

Añade nuevas líneas.

Busca la primera fila vacía y escribe los datos del fichero.

Sub LEADS_NOCTURNA()

    Dim reg As String

    Sheets("DATA").Select

    Fila = 1

    While Cells(Fila, "A") <> ""

        Fila = Fila + 1

    Wend

    Open "C:\DESCARGAS\CL_PE_MKT_LEADS_INT_NOCTURNO.rsl" For Input As #1

    While Not EOF(1)

        Line Input #1, reg

        Cells(Fila, "A") = reg

        Fila = Fila + 1

    Wend

    Close #1

End Sub

Saludos.
\\//_

Valora esta respuesta

Comentar

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Miguel (13 intervenciones) el 15/01/2024 17:56:38

Gracias, me ayuda un monton pero tengo una consulta adicional por favor, se puede hacer que al momento de ejecutar el codigo que me indicas

Sub LEADS_NOCTURNA()

    Dim reg As String

    Sheets("DATA").Select

    Fila = 1

    While Cells(Fila, "A") <> ""

        Cells(Fila, "A") = ""

        Fila = Fila + 1

    Wend

    Open "C:\DESCARGAS\CL_PE_MKT_LEADS_INT_NOCTURNO.rsl" For Input As #1

    Fila = 1

    While Not EOF(1)

        Line Input #1, reg

        Cells(Fila, "A") = reg

        Fila = Fila + 1

    Wend

    Close #1

End Sub

Se realice sin mostrar que lo esta haciendo? por ejemplo cuando ejecuto ese código, se ve cuando se borran las celdas y se agregan las nuevas

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Antoni Masana (2478 intervenciones) el 15/01/2024 19:42:56

Cuando pruebo la macro no lo pongo para ver que hace y después se me olvida ponerlo.

Sub LEADS_NOCTURNA()

    Dim reg As String

    Application.screenupdating=False

    Application.calculation=xlCalculationManual

    Application.EnableEvents=False

    ActiveSheet.DisplayPageBreaks = False

    Sheets("DATA").Select

    Fila = 1

    While Cells(Fila, "A") <> ""

        Cells(Fila, "A") = ""

        Fila = Fila + 1

    Wend

    Open "C:\DESCARGAS\CL_PE_MKT_LEADS_INT_NOCTURNO.rsl" For Input As #1

    Fila = 1

    While Not EOF(1)

        Line Input #1, reg

        Cells(Fila, "A") = reg

        Fila = Fila + 1

    Wend

    Close #1

    Application.screenupdating=True

    Application.calculation=xlCalculationAutomatic

    Application.EnableEvents=True

    ActiveSheet.DisplayPageBreaks = True

    Application.CutCopyMode = False

End Sub

Saludos.

Valora esta respuesta

Comentar

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Miguel (13 intervenciones) el 15/01/2024 22:02:01

¡Lo Máximo! muchas gracias.

Valora esta respuesta

Comentar

Insertar Grafico SIEMPRE en la misma hoja del libro...

Imprimir seleccion y ajustarlo a una hoja