| | Post: 2.663 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
26/01/2017 11:45 | |
Roberto non so cosa dirti ma a me la mia macro funziona perfettamente sul tuo file.
Io ho creato una directory "RobertoB" vi ho copiato il file .xlsm ed i jpg ho lanciato questa macro (che è sempre la stessa)
vb Sub CreaCollegamentiIpertestuali()
Dim ur As Long
Dim rng As Range
Dim cel As Range
ur = Cells(Rows.Count, 2).End(xlUp).Row
Set rng = Range("b4:b" & ur)
For Each cel In rng
ActiveSheet.Hyperlinks.Add Anchor:=cel, Address:= _
"c:\RobertoB\" & cel.Value & ".jpg"
Next cel
End Sub
e le stringhe contenute da B4 in poi sono diventati collegamenti ipertestuali senza l'indicazione del percorso completo.
Alfredo |
|
| | Post: 19 | Registrato il: 23/01/2017
| Città: BRENDOLA | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
26/01/2017 14:18 | |
Alfredo...non so che dire anch'io !
Ora provo nel file " vero " dove dovrebbe operare e vediamo cosa succede !
Ho notato che modificando la colonna da b a C o D o F per es., non funziona. Può essere sempre un problema del mio file ?
Potrebbe essere dovuto alla versione di Excel che uso ?
Mannaggia ! Siamo a un passo dalla soluzione !
Roberto
|
| | Post: 2.665 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
26/01/2017 14:33 | |
La macro è scritta per funzionare solo sulla colonna B perché così mi era sembrato di capire che volessi.
Se vuoi che funzioni anche su altre colonne occorre modificare il codice.
Alfredo |
| | Post: 2.667 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
26/01/2017 14:47 | |
Posta la macro che hai modificato.
Comunque considerazione di carattere generale: se tu non "capisci" la macro cosa fa e come funziona non so se riusciremo ad arrivare ad un punto.
Occorre un po' più di impegno da parte tua ad approfondire i suggerimenti che ti vengono dati.
Alfredo |
| | Post: 20 | Registrato il: 23/01/2017
| Città: BRENDOLA | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
26/01/2017 14:51 | |
Sub CollegamentiIpertestuali()
Dim ur As Long
Dim rng As Range
Dim cel As Range
ur = Cells(Rows.Count, 2).End(xlUp).Row
Set rng = Range("b4:b" & ur)
For Each cel In rng
ActiveSheet.Hyperlinks.Add Anchor:=cel, Address:= _
"O:\ArcaEvolution\DisegniJPG\Archiviati\" & cel.Value & ".jpg"
Next cel
End Sub |
| | Post: 2.668 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
26/01/2017 14:53 | |
E, a parte il percorso, qual è la modifica che hai fatto rispetto alla mia?
A me sembrano uguali.
Alfredo |
| | Post: 21 | Registrato il: 23/01/2017
| Città: BRENDOLA | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
26/01/2017 14:57 | |
ho modificato la colonna da B a D |
| | Post: 2.670 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
26/01/2017 15:08 | |
Roberto B., 26/01/2017 14.57:
ho modificato la colonna da B a D
Ma non basta solo quello devi modificare anche questa
vb ur = Cells(Rows.Count, 2).End(xlUp).Row
così
vb ur = Cells(Rows.Count, 4).End(xlUp).Row
E' per questo che dicevo che occorre capire cosa le istruzioni fanno; a me sembra che ti manchino le basi del VBA
Alfredo |
| | Post: 22 | Registrato il: 23/01/2017
| Città: BRENDOLA | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
26/01/2017 15:17 | |
ed hai perfettamente ragione.
A me mancano proprio le basi ma mi piace apprendere.
Capisco perfettamente che sia difficile dialogare con un neofita
ma mi piace apprendere e se mi spiegano, capisco ed " incamero ".
|
| | Post: 2.671 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
26/01/2017 15:27 | |
Purtroppo su un forum non è possibile spiegare per filo e per segno tutto quello che c'è da dire.
Sarebbe bello avere sempre a disposizione qualcuno che spieghi.
Il consiglio che ti do è di munirti di un buon manuale di VBA e cominciare con le cose semplici poi, quando queste le avrai assimilate, potrai passare a cose un po' più articolate.
Quindi, al di la dei suggerimenti che possono venire dai forum, lo sforzo maggiore lo devi fare tu e mi sembra tu abbia anche l'età dalla tua.
Alfredo |
| | Post: 23 | Registrato il: 23/01/2017
| Città: BRENDOLA | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
26/01/2017 15:30 | |
Grazie mille Alfredo. Ora proverò.
|
| | Post: 24 | Registrato il: 23/01/2017
| Città: BRENDOLA | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
26/01/2017 16:26 | |
Alfredo, ho inserito la macro nel file "padre" e modificato la colonna da B a D con la successiva modifica suggeritami.
Funziona perfettamente .
Tutti i codici sono diventati selezionabili e non appaiono le stringhe relative al percorso. Quest'ultimo fatto era dovuto perchè nel file campione, lasciavo sopra una cella vuota e veniva quindi compilata con il percorso.
scrivendo il codice uno sotto l'altro, questo non avviene più.
Obiettivo RAGGIUNTO !!!!
GRAZIE INFINITE ALFREDO
Roberto |
| | Post: 2.673 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
26/01/2017 16:32 | |
Ok mi fa piacere.
Alfredo |
| | Post: 25 | Registrato il: 23/01/2017
| Città: BRENDOLA | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
30/01/2017 16:59 | |
Scusa Alfredo.
Ti disturbo ancora.
Oggi la collega mi riferisce che la macro non funziona !
Come ? Sul mio pc funziona benissimo.
Premetto che il file è salvato sotto il server. Io attingo dal file del server e funziona. Lei attinge dal file del server, fa delle modifiche, salva e non funziona.
Ho provato anche da altri pc e non funziona.
Da loro, i file eseguibili si aprono solo se il file lo salvo io. Appena la collega dal suo pc fa delle modifiche e salva, i file sono sempre eseguibili ma non si aprono le immagini.
Dalla tua esperienza, quale potrebbe essere il problema ?
Abbiamo tutti Excel 2010.
Grazie
Roberto |
| | Post: 2.691 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
30/01/2017 18:26 | |
Ciao Roberto
Purtroppo in questo caso non so aiutarti.
Bisognerebbe essere "sul posto" e cercare di fare tutte le verifiche del caso.
L'unica cosa che posso dirti è di assicurarsi che i file siano salvati con il nome uguale al contenuto della cella.
Diversamente dovreste trovare qualcuno esperto di VBA che possa dare una mano in loco.
Alfredo |
| | Post: 26 | Registrato il: 23/01/2017
| Città: BRENDOLA | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
31/01/2017 14:41 | |
Ciao Alfredo.
Il codice corrisponde a quanto scritto nella cella.
Non riesco proprio a capire perchè !
Seguirò il tuo consiglio e spero che il tecnico risolva l'arcano "mistero "
Grazie e buona giornata
Roberto |
|
|