Pagina precedente | 1 2 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Aprire un'immagine JPG dopo aver cliccato un codice

Ultimo Aggiornamento: 31/01/2017 14:41
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

Re:
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ò.
[SM=x423017]
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 [SM=x423026] .
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 [SM=x423028]
[SM=x423017]
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è ! [SM=g27833]
Seguirò il tuo consiglio e spero che il tecnico risolva l'arcano "mistero " [SM=g27820]
Grazie e buona giornata
Roberto
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 2 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 07:28. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com