Macro para cambiar un vínculo

Hola Gaditano,

Rvisa el siguiente hilo: http://tinyurl.com/9mme9

Saludos,
KL


"Gaditano" wrote in message
news:

Holas !!!
¿Tenéis alguna macro para cambiar el origen de un vínculo?

Vale, Gracias

No encontré la respuesta en ese hilo, KL.

"KL" escribió en el mensaje
news:#

Hola Gaditano,

Rvisa el siguiente hilo: http://tinyurl.com/9mme9

Saludos,
KL


"Gaditano" wrote in message
news:
> Holas !!!
> ¿Tenéis alguna macro para cambiar el origen de un vínculo?
>
> Vale, Gracias
>
>
>
>
>
>
>
>

Hola Gaditano,

!Vaya! Tienes razon, no se por que la respuesta de Carlos Sandoval con los
ficheros adjuntos no aparece en Google :-o
Si usas Outlook Express prueba buscar el hilo con el tema 'BUSCARV
referenciado a un nombre de archivo en una celda' publicado el 30 de Junio
por Esteban Dido. Y si no, te pongo aqui el macro de Carlos (ligeramente
modificado):

Sub Macro1()
Dim Ruta As String
Dim NomArchivo As String

With ThisWorkbook
Ruta = .Path
With .ActiveSheet
NomArchivo = Ruta & "\[" & .Range("A1").Text & ".xls]"
For x = 4 To 15
.Range("B" & x).FormulaR1C1 = _
"=VLOOKUP(RC[-1],'" & NomArchivo _
& "Hoja1'!R1C1:R12C2,2,0)"
Next x
End With
End With
End Sub

Este macro se basa en las siguientes hipotesis:

1) los archivos a los que se quiere vincular se encuentran en la misma
carpeta que el archivo que contiene los vinculos
2) el nombre (sin incluir la extension .xls) del archivo al que se quiere
vincular se pondra en la celda [A1] de la hoja activa del archivo que
contiene los vinculos
3) en todos los archivos a los que se quiere vincular, en el rango [A1:B12]
se encuentra la tabla que se usara dentro de la funcion VLOOKUP (BUSCARV)
4) en el rango [A4:A15] de la hoja que contiene los vinculos estan los
valores a buscar mediante VLOOKUP (BUSCARV)

Saludos,
KL



"Gaditano" wrote in message
news:

No encontré la respuesta en ese hilo, KL.

"KL" escribió en el mensaje
news:#

Hola Gaditano,

Rvisa el siguiente hilo: http://tinyurl.com/9mme9

Saludos,
KL


"Gaditano" wrote in message
news:
> Holas !!!
> ¿Tenéis alguna macro para cambiar el origen de un vínculo?
>
> Vale, Gracias
>
>
>
>
>
>
>
>

Funciona, KL. Mil gracias.
¿Que cambios sugerís al código si los archivos que se quiere vincular se
encuentran en otra carpeta, diferente a la que contiene el archivo con la
funcion buscarv?


"KL" escribió en el mensaje
news:

Hola Gaditano,

!Vaya! Tienes razon, no se por que la respuesta de Carlos Sandoval con los
ficheros adjuntos no aparece en Google :-o
Si usas Outlook Express prueba buscar el hilo con el tema 'BUSCARV
referenciado a un nombre de archivo en una celda' publicado el 30 de Junio
por Esteban Dido. Y si no, te pongo aqui el macro de Carlos (ligeramente
modificado):

Sub Macro1()
Dim Ruta As String
Dim NomArchivo As String

With ThisWorkbook
Ruta = .Path
With .ActiveSheet
NomArchivo = Ruta & "\[" & .Range("A1").Text & ".xls]"
For x = 4 To 15
.Range("B" & x).FormulaR1C1 = _
"=VLOOKUP(RC[-1],'" & NomArchivo _
& "Hoja1'!R1C1:R12C2,2,0)"
Next x
End With
End With
End Sub

Este macro se basa en las siguientes hipotesis:

1) los archivos a los que se quiere vincular se encuentran en la misma
carpeta que el archivo que contiene los vinculos
2) el nombre (sin incluir la extension .xls) del archivo al que se quiere
vincular se pondra en la celda [A1] de la hoja activa del archivo que
contiene los vinculos
3) en todos los archivos a los que se quiere vincular, en el rango

[A1:B12]

se encuentra la tabla que se usara dentro de la funcion VLOOKUP (BUSCARV)
4) en el rango [A4:A15] de la hoja que contiene los vinculos estan los
valores a buscar mediante VLOOKUP (BUSCARV)

Saludos,
KL



"Gaditano" wrote in message
news:
> No encontré la respuesta en ese hilo, KL.
>
> "KL" escribió en el mensaje
> news:#
>> Hola Gaditano,
>>
>> Rvisa el siguiente hilo: http://tinyurl.com/9mme9
>>
>> Saludos,
>> KL
>>
>>
>> "Gaditano" wrote in message
>> news:
>> > Holas !!!
>> > ¿Tenéis alguna macro para cambiar el origen de un vínculo?
>> >
>> > Vale, Gracias
>> >
>> >
>> >
>> >
>> >
>> >
>> >
>> >
>>
>>
>
>

Hola Gaditano,

¿Que cambios sugerís al código si los archivos que se quiere vincular se
encuentran en otra carpeta, diferente a la que contiene el archivo con la
funcion buscarv?

1) Si la direccion de la carpeta es siempre la misma, podrias sustituir la
instruccion:

Ruta = .Path

por algo como lo siguiente:

Ruta = "C:\Documents and Settings\Gaditano\My Documents"

2) Si no, podrias usar la funcion o el metodo InputBox

Ruta = InputBox("Introduzca la ruta: ")

o bien:

Ruta = Application.InputBox("Introduzca la ruta: ")

3) tambien podrias pedir al usuario que introduzca la ruta completa en
alguna celda, digamos [B1] y luego hacer algo asi:

Ruta = .ActiveSheet.Range("B1").Value

4) podrias incluso llamar el dialogo Abrir Archivo usando el metodo
GetOpenFileName para seleccionar el archivo en cuestion. Revisa este
ejemplo:

Sub Macro1()
Dim NomArchivo As Variant
With ThisWorkbook
NomArchivo = Application _
.GetOpenFilename("Archivos Excel (*.xls), *.xls")
If NomArchivo <> False Then
NomArchivo = Replace(NomArchivo, _
Dir(NomArchivo), "[" & Dir(NomArchivo) & "]")
For x = 4 To 15
.ActiveSheet.Range("B" & x).FormulaR1C1 = _
"=VLOOKUP(RC[-1],'" & NomArchivo _
& "Hoja1'!R1C1:R12C2,2,0)"
Next x
End If
End With
End Sub

Saludos,
KL