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
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
Respuesta de pollux_troy
1