Vincular hojas de Excel por medio de Código

Hola que tal buscando como Puedo vincular por medio de código las hojas de mi libro de Excel en internet encontré esta macro pero al insertarla en un modulo en mi libro de Excel no la ejecuta y me manda error les agradecería me pudieran ayudar.
Sub Links_hojas()
Dim wrbLibro As Workbook
Dim wrsHojaActiva As Worksheet, wsHoja As Worksheet
Dim intFila, intColumna As Integer
Set wrbLibro = ActiveWorkbook
Set wrsHojaActiva = ActiveSheet
'en que fila/columna empezar la lista
intFila = 4
intColumna = 1
'el bucle repasa todas las hojas
For Each wsHoja In wrbLibro.Worksheets
'para excluir hoja de los links
If wsHoja.Name = "Hoja4" Then GoTo ProxHoja
'crear links
If wsHoja.Name <> wrsHojaActiva.Name Then
'wrsHojaActiva.HyperLinks.Add wrsHojaActiva.Cells(intFila=4, intColumna=1),_
"", SubAddress:="'" & wsHoja.Name & "'!A1", >
TextToDisplay:=wsHoja.Name
intFila = intFila + 1
End If
ProxHoja:
Next wsHoja
End Sub

1 respuesta

1
Respuesta de
Si no mal distingo ese es un código de VBA, por lo tanto necesitarías cambiarle algunas cosillas, según tengas nombradas tus hojas... ademas esa no es una función, es una macro...
Además, no explicas muy bien que es lo que quieres hacer con excel, pues dices vincularlas, ¿pero vincular k? Podrías enviarme tu excel para ayudarte un poco más... si lo quieres así respóndeme enviando me tu mail para yo contactarme contigo... sino vas a tener k aprender a programar en VBA... suerte de todas formas
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje