Grazie, siccome di macro sono a digiuno chiedevo se era complicato cimentarsi e nel caso se potevate darmi una mano.
Grazie
Potrebbe essere una cosa mooolto lunga... ;-)
Allora il file dove hai il foglio con i collegamenti ipertestuali, devi salvarlo in formato .xls o .xlsm perchè conterrà del codice.
Il mio esempio farà questo.
Nel file uno.xls in Foglio1 ho un collegamento ipertestuale. Selezionandolo aprirò il file due.xls. Sul Foglio1 del quale, a partire da A1 si trova una tabella con i filtri. Farò i miei filtri e eseguendo la macro, copia/incollerò i dati filtrati nel Foglio2
del file uno.xls.
- Apro il file uno.xls
- Vado nel foglio dove hai i collegamenti ipertestuali
- Premo assieme ALT+F11 e mi trovi nell'editor del vb di Excel
- Inserisci --> Modulo
- Nel foglio bianco che appare, copio/incollo questo:
Public wk As Workbook
Public Sub m()
On Error Resume Next
wk.Worksheets("Foglio1").Range("A1" _
).CurrentRegion.SpecialCells( _
xlCellTypeVisible).Copy
ThisWorkbook.Worksheets("Foglio2").Range("A1").PasteSpecial
Application.CutCopyMode = False
End Sub
- Individuo la finestra Progetto-VBAProject
- Faccio doppio click su Foglio1
- Nel foglio bianco inserisco questo codice:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Set wk = Workbooks(Target.Address)
End Sub
- Premo ALT+F11 e torno in Excel lato celle
Adesso posso selezionare il collegamento ipertestuale. All'apertura del file due.xls faccio il filtro sulla tabella del Foglio1, premo assieme ALT+F8, seleziono la macro unoxls!m e premo esegui.
Fatto.
Da qui, il mondo.