Hola a todos
He creado un excel "resumen" que por medio de macros va cargando información de otros excel que se encuentran en una carpeta concreta.
Hasta hora funciona bien pero necesitaría que además volcase en otra celda un hiperlink al excel en cuestión del que va tomando la información.
Mis conocimientos son muuuuy básicos, así que cualquier ayuda os la agradecería mucho.
Os copio el código que tengo a ver si podéis decire cómo debería seguir:
'****** comprobar si hay ficheros que cumplan condiciones*****
Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.Filename = "" & ".xls"
If .Execute > 0 Then
MsgBox "Hay " & .FoundFiles.Count & _
" fichero(s) encontrados."
j = 1
'****************recorro ficheros******************
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
l = 1
'****************vuelco información****************
rngagregado.Cells(j, 1) = Worksheets("Informacion").Cells(6, 6)
rngagregado.Cells(j, 2) = Worksheets("Informacion").Cells(7, 6)
rngagregado.Cells(j, 3) = Worksheets("Informacion").Cells(8, 6)
rngagregado.Cells(j, 4) = Worksheets("Informacion").Cells(9, 6)
j = j + 1
Next i
Else
MsgBox "No se encuentran ficheros."
End If
End With
