¿Cómo transferir Datos de un libro de Excel a otro en una Red Local?

Tengo la siguiente Macro. Funciona desde el almacenamiento de un disco, pero ahora tengo los dos archivos en una red compartida.

La macro copia ciertos datos de un libro (Libro2) a otro (Libro1) siempre y cuando cumplan con la condición.

En la declaración "ruta" no se como decirle para que copie los datos si los dos libros se encuentran en la red local compartida.

Les agradezco si me pueden apoyar. Saludos

Sub transferirDatosOtraHoja22()
ruta = "C:\Users\NOMBRE\Documents\Experimento"
libro = "Libro1.xlsx"
If Dir(ruta & "\" & libro) = "" Then
MsgBox "No se encuentra el libro Prueba2 en esta carpeta... Verifica y vuelve a intentar.", , "Error"
Exit Sub
End If
milibro = ActiveWorkbook.Name
Workbooks.Open ruta & "\" & libro
U2 = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row + 1
With Workbooks(milibro).Sheets("Hoja1")
.Activate
ultimaFila = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row
For I = 6 To ultimaFila

If Cells(I, "R") = "a" Then
Workbooks("libro1.xlsx").Sheets("Hoja1").Cells(U2, "a") = Range("A" & I)
Workbooks("Libro1.xlsx").Sheets("Hoja1").Cells(U2, "b") = Range("B" & I)
Workbooks("Libro1.xlsx").Sheets("Hoja1").Cells(U2, "c") = Range("C" & I)
Workbooks("Libro1.xlsx").Sheets("Hoja1").Cells(U2, "d") = Range("D" & I)
Workbooks("Libro1.xlsx").Sheets("Hoja1").Cells(U2, "e") = Range("E" & I)
Workbooks("Libro1.xlsx").Sheets("Hoja1").Cells(U2, "f") = Range("G" & I)
Workbooks("Libro1.xlsx").Sheets("Hoja1").Cells(U2, "g") = Range("O" & I)
U2 = U2 + 1
End If
Next
End With

Workbooks("Libro1.xlsx").Save
'Workbooks("Libro1.xlsx").Close
MsgBox "Transferencia realizada exitosamente!", vbInformation, "Resultado"
With ActiveSheet
For I = 6 To ultimaFila
If Cells(I, "R") = "a" Then
Cells(I, "R") = "Copiada"
End If
Next
End With
End Sub

1 respuesta

Respuesta
1

Esto te puede servir

https://youtu.be/7ELWADSfTEY  

https://youtu.be/QLeNn7vREvs 

https://youtu.be/CrWWGBGv2VE

https://youtu.be/_RMr_AHDbXA

Visita https://programarexcel.com  descarga cientos de ejemplos de macros gratis✋👉⏩⏩ SUSCRIBE https://www.youtube.com/c/programarexcel?sub_confirmation=1 ✋👈⏪⏪ activa la campana y disfruta de cientos de tutoriales sobre macros gratis

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas