di nerogigi74 » 24/09/14 12:45
Buon giorno a te wallace&gromit e grazie per l'attenzione
Forse non ho capito io, o comunque non riesco a far funzionare la formula che mi hai consigliato.
Comunque cercando ne forum ho trovato una macro che assomiglia molto a quello che mi serve.
Sub crossindex()
FoglioRep = "Foglio1"
Perc = "C:\Users\Reno.Sebastiani\Desktop\Prova certificati\2014\"
Sheets(FoglioRep).Select
Profilo = Range("A:A")
Materiale = Range("B:B")
Range("D:D").ClearContents
myFFile = Dir(Prec & "*" & Materiale & "*")
Do
If myFFile = "" Then Exit Do
If UCase(Left(myFFile, Len(Tipo))) = UCase(Tipo) Then
If Right(myFFile, 4) = ".pdf" Then _
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Rows.Count, "D").End(xlUp).Offset(1, 0), _
Address:=Perc & myFFile, TextToDisplay:=myFFile
End If
myFFile = Dir
Loop
End Sub
Ma anche questa non riesco a farla funzionare.
Se ti invio i 2 file che devono interagire tra loro hai modo di fare una prova anche tu ?