Excel - MACRO PARA COPIAR COLUMNA DE 2 LIBROS

 
Vista:
sin imagen de perfil

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)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Antoni Masana (2499 intervenciones) el 10/01/2024 16:08:38
He reformateado la macro y cambiado una línea de código.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Antoni Masana (2499 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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Antoni Masana (2499 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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Antoni Masana (2499 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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

MACRO PARA COPIAR COLUMNA DE 2 LIBROS

Publicado por Antoni Masana (2499 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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar