macro

hola Leslie

lo 1º comentarte que quizas deberias abrir un nuevo hilo, y, tomalo solo como una recomendacion, poniendo al menos
alguna 'pista' sobre lo que trata la consulta. Asi vuelves a abrir el 'campo' de posibles ayudas/ayudantes, ademas de
facilitar una posible busqueda posterior.

en cuanto al tema de la busqueda, aunque no tengo mucha idea al respecto, solo le veo una pega [o quizas no lo he
entendido bien]=>>

"... el problena es que este archivo lo utilizo en varias maquinas y no todas tienen acceso a unidad "

me temo [ o al menos eso creo] que si no tienen 'acceso' a la unidad, dificilmente van a tener acceso a algo que se
encuentre dentro de esta.

Para el resto [creo] que el unico problema podria ser el tiempo que tarde en encontrar el archivo, aunque si como dices,
no te importa que se seleccione mediante un cuadro de dialogo, no tendria por que ser mucho (si sabes donde esta +/-)

de todas formas, si te animas prueba a colgar otra consulta especificando un poco el tema y detalles a ser posible

entre tanto, si quieres ve echandole un ojo a estas conversaciones:

http://tinyurl.com/2wo8xk

http://tinyurl.com/33ylqw

espero te ayude

un saludo
Ivan



"leslie" escribió en el mensaje
news:

Hola
en una hoja de exel meti unos codigos de vba para que me actualzice la hoja
automaticamente, esta, esta oculta, esta se actualiza con una hoja que tengo
en UNIDAD C pero el problena es que este archivo lo utilizo en varias
maquinas y no todas tienen acceso a unidad, no se si se pueda, que mi codigo
me pregunte donde deseo buscar mi archivo, o en su defecto no tome encuenta
la ruta y busque el archivo solo por el nombre sin importar donde lo tenga yo
guardado.

espero me puedan ayudar a resolver esto.

si no me entienden aganmelo saber porfavor


este es mi codificacion:

Sub Copiarrango()
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("empleados")
If .Range("b2") = "" Then Exit Sub
.Range("b2:j" & .[b65536].End(xlUp).Row).ClearContents
Workbooks.Open "c:\empleados.xls"
Range("b2:G" & [b65536].End(xlUp).Row).Copy
.Range("b2").PasteSpecial Paste:=xlPasteValues
Operation = xlnoneskipblamks = False
Transpose = False
ActiveWorkbook.Close False
End With

End Sub
gracias