Collegamenti Ipertestuali in Excel

[Rapido]

Ho creato un file excel con l'elenco dei miei film

Vorrei fare in modo che cliccando sulla cella dove è contenuto il titolo del film si aprisse la pagina web relativa alla scheda di quel film stesso e più precisamente la pagina:

http://www.film.tv.it/cerca.php?q=(Titolo del film)

Ho provato con i collegamenti ipertestuali ma non riesco ad inserire il riferimento alla cella

Ci si può riuscire con una macro?

Grazie a chi mi aiuterà

Saluti

[Anthony47]

Ciao Rapido e benvenuto nel forum.
Guarda questa vecchia discussione con una richiesta analoga: http://www.pc-facile.com/forum/viewtopic.php?t=49093

Usando quindi l' evento FollowHyperlink, puoi inserire questa macro sul modulo codice del foglio che gestisce il tuo elenco (tasto dx sul tab del nome foglio, scegli "Visualizza codice, incolla il codice nel frame vuoto di dx):

Codice: Seleziona tutto

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWorkbook.FollowHyperlink Address:="http://www.film.tv.it/cerca.php?q=" & ActiveCell.Value, _
    NewWindow:=True
End Sub

Quindi:
-crea il tuo elenco;
-seleziona l' elenco e associa un hyperlink che punta a un url a piacere, es http://www.pc-facile.com

Quando cliccherai su uno dei titoli la macro deviera' il link come da tua richiesta.

Ciao.

[Rapido]

Grandissimo
Ho provato e funzia alla grande. Erano giorni che mi scervellavo su come fare.

Grazie 1000

Già che ci sono esagero e ti chiedo anche:

Se io volessi fare la stessa cosa però anzichè usare il valore della cella attiva, usare il valore della cella alla sua sinistra cosa devo modificare?

Grazie ancora e saluti

[Anthony47]

Se io volessi fare la stessa cosa però anzichè usare il valore della cella attiva, usare il valore della cella alla sua sinistra cosa devo modificare?

Invece di & ActiveCell.Value userai

Codice: Seleziona tutto

& ActiveCell.Offset(0, -1).Value

Ciao.

[Rapido]

Ottimo

Grazie

Saluti

[Rapido]

Già che ci sono ti chiedo un altra cosa:

Sempre nel mio file con l'elenco dei film che è più o meno fatto così:

A
Alien
Alien 2
....
...

B
Bambi
Bambi 2

ecc. ecc.

Io vorrei creare un collegamento alle celle con solo le lettere iniziali (A, B, ecc) e però fare in modo che se inserisco nuovi film il collegamento rimanga sempre sulla stessa cella

L'ideale sarebbe potere scrivere p.es sulla cella A1 del foglio il carattere ricercato (A,B, ecc) e che spingendo invio mi si attivasse la cella corrispondente

Spero di essermi spiegato e di non avere fatto troppo casino.

Grazie per la pazienza e saluti.

Rapido

[Anthony47]

Mi era sfuggita questa ulteriore richiesta... che pero’ non mi e’ chiara.

Mi sembra che tu voglia evitare di inserire i collegamenti ipertestuali ad ogni nuovo inserimento. Ma con il criterio che ti ho detto si tratta di inserire 1 solo collegamento: selezioni tutto l’ elenco, inserisci il collegamento, fine. Al limite puoi selezionare tutta la colonna che contiene l’ elenco, inserisci il collegamento, fine per sempre.

Se invece sono andato fuori strada riprova a spiegare.
Ciao.

[Rapido]

Quello che chiedo è una cosa diversa:

Vorrei utilizzare un criterio di ricerca all'interno della scheda con i film in modo che inserendo la lettera iniziale del titolo del film (ad esempio Z) il cursore mi attivasse la cella con la scritta Z, in modo che non debba scorrere tutto il contenuto dell'archivio per arrivare fino alla zeta e l'ideale sarebbe appunto potere inserire in A1 il carattere ricercato (ad esempio Z) e che, spingendo invio il cursore automaticamente mi andasse sulla cella contenente il carattere Z

Lo so che non mi spiego molto bene, ma purtroppo non conosco i termini tecnici e faccio un po' di casino.

Grazie 1000 comunque per la pazienza e saluti

Bye

[Anthony47]

Allora prova così:
-A1 la usi per inserire la lettera da cercare;
-selezioni A2 e fai Finestra /Blocca riquadri
-fai tasto dx sul tab del nome foglio, scegli "Visualizza codice"; cosi' ti apre il vba editor alla pagina dove mettemmo l' altro codice;
-incolla sotto la macro esistente questo nuovo codice:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
On Error GoTo Esci
Indice = WorksheetFunction.Match(Range("A1").Value, Range("A2:A65000"), 1)
Range("A1").Offset(Indice, 0).Select
Esci:
Application.EnableEvents = True
End Sub

Prova quindi a inserire una lettera in A1 e dimmi se fa quello che cerchi.
Ciao.

[Rapido]

Perfetto. Funziona e fa proprio quello che voglio

Grazie ancora e alla prossima

Saluti

[scufe]

Ciao ragazzi, avrei bisogno di aiuto e conto su di voi!..vi spiego il mio problema.
Ho un file excel nel quale in una colonna devo inserire il nome di un file e vorrei che ci fosse un collegamento che, schiacciando sopra, mi aprisse quel file. Cosi so che nn è possibile, la mia idea era stata di creare un secondo foglio 8una sorta di database) dove in A1 avevo il nome del mio file, in B1 il collegamento ipertestuale (inserito manualmente) e in C1 lo stesso collegamento ma rinominato in modo diverso (usando la funzione COLLEG.IPERTESTUALE(B1;"GO")); poi nel primo foglio mettere un cerca verticale in modo che inserendo in una cella, ad esempio in A1 (del foglio1) il nome del file, B1 (del foglio1) mi riporta il nome del collegamento "GO", ovviamente non solo il nome, ma il nome con se il collegamento (come nel foglio2): Il problema che mi blocca è che nn mi riporta il collegametno, ma solo il nome. C'è un modo per avere come ho chiesto??

Grazie mille in anticipo

Ciao

S.