Buscar dato en un archivo compartido y pegar fila en libro concentrador
publicado
Buenas tardes.
Estimados es segunda vez que solicito apoyo con el tema de las macros. Muy amablemente me ayudaron en días pasados con esta macro y me funciona a la perfección, pero se me presenta el caso de que el archivo de excel a usar es necesario que sea compartido para ser usado y modificado por varias personas a la vez. El caso es que al compartir el archivo se deshabilitan las macros. Entonces necesito modificar la siguiente macro para que me busque el dato en la ubicación del archivo pero realmente no se como hacerlo.
La ubicación del archivo llamado "09- BANESCO A. C. EPICA SEP-2013" es Y:\BANCOS\ASOC. COOP. EPICA\BANESCO que es donde debe buscar el dato. El archivo concentrador se llama Cheques devueltos. La macro que estaba usando era esta:
For x = 14 To BAN.Range("A" & Rows.Count).End(xlUp).Row
If BAN.Range("C" & x) Like "*" & Range("G5").Value & "*" Then
BAN.Range("A" & x & "" & x).Copy
Range("B" & Fila).PasteSpecial Paste:=xlValues
Range("A" & Fila).Value = Fila - 23
Fila = Fila + 1
End If
Next
Range("A14").Select
End Sub
Solo necesito que en vez de buscar en el mismo libro, busque en el libro que está en red. Agradecido de antemano. No subí un archivo de prueba porque la macro que adjunté me funciona perfectamente, sólo necesito es modificarla a fin de que busque en el otro archivo.
Agradecido de antemano.
- - - - - Mensaje combinado - - - - -
Disculpen envío la macro de nuevo
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas tardes.
Estimados es segunda vez que solicito apoyo con el tema de las macros. Muy amablemente me ayudaron en días pasados con esta macro y me funciona a la perfección, pero se me presenta el caso de que el archivo de excel a usar es necesario que sea compartido para ser usado y modificado por varias personas a la vez. El caso es que al compartir el archivo se deshabilitan las macros. Entonces necesito modificar la siguiente macro para que me busque el dato en la ubicación del archivo pero realmente no se como hacerlo.
La ubicación del archivo llamado "09- BANESCO A. C. EPICA SEP-2013" es Y:\BANCOS\ASOC. COOP. EPICA\BANESCO que es donde debe buscar el dato. El archivo concentrador se llama Cheques devueltos. La macro que estaba usando era esta:
Sub Buscar_Texto_En_Lista()
Dim BAN As Worksheet, Fila As Long
Application.ScreenUpdating = False
Set BAN = Sheets("Movimientos")
Fila = 24
Range("A24:E" & Range("A" & Rows.Count).End(xlUp).Row + 1).ClearContents
For x = 14 To BAN.Range("A" & Rows.Count).End(xlUp).Row
If BAN.Range("C" & x) Like "*" & Range("G5").Value & "*" Then
BAN.Range("A" & x & "
" & x).Copy
Range("B" & Fila).PasteSpecial Paste:=xlValues
Range("A" & Fila).Value = Fila - 23
Fila = Fila + 1
End If
Next
Range("A14").Select
End Sub
Solo necesito que en vez de buscar en el mismo libro, busque en el libro que está en red. Agradecido de antemano. No subí un archivo de prueba porque la macro que adjunté me funciona perfectamente, sólo necesito es modificarla a fin de que busque en el otro archivo.
Agradecido de antemano.
- - - - - Mensaje combinado - - - - -
Disculpen envío la macro de nuevo