Saltar al contenido
View in the app

A better way to browse. Learn more.
Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Ayuda: actualizar vinculos externos sin que se abra automaticamente el libro

publicado

Hola a todos, 

Es mi primera vez aqui espero que puedan ayudarme:

Tengo un excel central con varios vínculos (formulas) a otros archivos excel donde estan los datos. Copie una macro en el excel central para que los datos se actualicen solos sin necesidad de abrir los excels de datos uno a uno. Hasta aqui todo bien, se actualiza todo perfecto.

Mi problema es que ahora los resultados de ese excel central los necesito vincular a otro excel nuevo. Cuando lo vinculo y abro el excel central, tras ejecutar la macro ahora se me abre el archivo excel nuevo y ademas la macro deja de ejecutarse correctamente porque ya no me muestra bien los datos.

 

Es decir que el excel central recoge todos los datos bien con la macro, pero tras vincular los datos del excel central a otro excel nuevo tengo dos problemas que me gustaria resolver:

1. Que se me abra automaticamente el excel nuevo

2. Que la macro siga funcionando correctamente

Muchas gracias de antemano!!!!

Esta es la macro que tengo:

Sub ActualizarLinks()
Dim res As Long
 
 On Error Resume Next
 Application.ScreenUpdating = False
   With ThisWorkbook
     res = ActLink(.LinkSources)
       If res = 0 Then
         .UpdateLink Name:=.LinkSources
       End If
    End With
 Application.ScreenUpdating = True
End Sub
 
Private Function ActLink(lSource As Variant) As Long
Dim objWB As Workbook, intC As Integer, res As Long
   
  If Not IsEmpty(lSource) Then
    For intC = 1 To UBound(lSource)
     Set objWB = Workbooks.Open(lSource(intC))
     res = ActLink(objWB.LinkSources)
      If res = 0 Then
        objWB.UpdateLink Name:=objWB.LinkSources
        objWB.Close True
      End if
    Next
     ActLink = -1
  End If
 End Function

Featured Replies

No hay posts para mostrar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Configure browser push notifications
Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.