macro para romper vínculos en Excel

macro para romper vínculos en Excel

   11 junio       Luis Reyes

---

El trabajar con vínculos en Excel nos facilita mucho la vida para actualizar cantidades ya sea interno o externo el vínculo, pero esto se vuelve un problema cuando Excel no encuentra los vínculos externos, no hay ninguna forma automática de encontrar dichas referencias, se tiene que hacer de forma manual, y aquí te explicaré algunas:

Opción uno, y la más práctica: 

Sigue los siguientes pasos.

1. Ir a la ficha: Datos.
2.  en la cinta de opciones ir a: "consultas y conexiones".

3.Editar Vínculos y Romper vínculo.

Opción dos, buscar los vínculos manualmente:
Sigue los siguientes pasos.

1. Presione para Excel en español: Ctrl + B para Excel en inglés: Ctrl + F  para iniciar el cuadro de diálogo Buscar y reemplazar .
2. Haga clic en Opciones.
3. En el cuadro Buscar , escriba "*.XL"
4. En el cuadro dentro de, haga clic en libro.
5. En el cuadro Buscar en , haga clic en fórmulas.
6. Haga clic en buscar todo.
7. En el cuadro de lista que aparece, busque en la columna fórmula las fórmulas que contienen . XL.

Opción 3. con una macro.
Sigue los siguientes pasos.

1. Abrir el editor de Visual Basic para Aplicaciones. (Alt + F11)
2. Insertar un módulo
3. Pegar el siguiente código y ejecutarlo.

Sub Romper_Vinculos()
Dim Rvinculos As Variant
' Definir variable como un tipo de vínculo Excel
Rvinculos = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
' Rompa el primer eslabón en el libro activo.
ActiveWorkbook.BreakLink _
Name:=Rvinculos(1), _
Type:=xlLinkTypeExcelLinks
End Sub

Descargar Archivo