Macro Vinculos

"Runner" escribió en el mensaje news:756601c430eb$47908d40$

Gracias de antemano.
No se si alguien me podria echar una mano en esto.
Necesitaria crear una macro que me descubriera los
vinculos a otros archivos en esa hoja.

Saludos.

Bill Manville escribió un complemento que creo que hace lo que necesitas:

http://www.bmsltd.ie/DLCount/DLCoun...ndLink.zip

Un saludo.


Fernando Arroyo
MS MVP - Excel

Ok, muchas Fernando.
Pero ¿Podria encontar en algun sitio el códgio o los
objetos necesarios para realizar esta tarea?
Es para realizar alguna modoficacion.


Muchas gracias de nuevo.

"Runner" escribió

en el mensaje news:756601c430eb$47908d40
$

Gracias de antemano.
No se si alguien me podria echar una mano en esto.
Necesitaria crear una macro que me descubriera los
vinculos a otros archivos en esa hoja.

Saludos.

Bill Manville escribió un complemento que creo que hace

lo que necesitas:

http://www.bmsltd.ie/DLCount/DLCoun...ndLink.zip

Un saludo.


Fernando Arroyo
MS MVP - Excel
.

Por ejemplo, para listar todos los vínculos del libro donde esté el código:

Sub MostrarListaDeVínculos()
Dim mtr As Variant
Dim n As Integer
Dim strC As String

mtr = ThisWorkbook.LinkSources(xlExcelLinks)

If IsEmpty(mtr) Then
strC = "No existen vínculos en este libro."
Else
For n = LBound(mtr) To UBound(mtr)
strC = strC & mtr(n) & vbNewLine
Next n
End If

MsgBox strC, , "Libros vinculados desde este libro."
End Sub


Y para listar las celdas de Hoja1 que tienen determinado vínculo:

Sub ListarCeldasConVínculo()
Dim rngC As Range
Dim strC As String
For Each rngC In Worksheets("Hoja1").Cells.SpecialCells(xlCellTypeFormulas, xlTextValues)
If InStr(rngC.Formula, "NombreDelLibro") Then strC = strC & rngC.Address & vbNewLine
Next rngC

MsgBox strC

Set rngC = Nothing
End Sub

En este segundo sub, NombreDelLibro hay que sustituirlo por el nombre real del libro, tal como aparece al ejecutar el primer sub.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Runner" escribió en el mensaje news:775701c430f6$e4b769d0$
Ok, muchas Fernando.
Pero ¿Podria encontar en algun sitio el códgio o los
objetos necesarios para realizar esta tarea?
Es para realizar alguna modoficacion.


Muchas gracias de nuevo.