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

Visualizzare il percorso del file in base ad un valore inserito in una cella

Ultimo Aggiornamento: 22/04/2018 11:15
Post: 1
Registrato il: 20/04/2018
Città: MILANO
Età: 20
Utente Junior
2010
OFFLINE
20/04/2018 12:02

Buongiorno a tutti spero possiate aiutarmi il mio problema é il seguente:

Ho un documento Excel con un elenco di valori in una cella N1, N2, ecc... Ho una cartella in rete con delle foto N1.jpg N2.jpg ecc...

Ho bisogno di una macro che una volta premuto un pulsante sul foglio, mi generi accanto alla cartella che contiene i valori N1, N2, ecc il relativo percorso alla foto corrispondente es:


A B
-------------------------------------------
N1 \\percorso cartella\N1.jpg

Il percorso deve essere linkato al file Jpg in modo che l'utenza lo possa aprire é possibile?

Grazie infinite
Post: 3.380
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
20/04/2018 12:10

Rileggi quanto hai scritto
Richiedi ad un "vicino" se capisce cosa desideri?
Excel 2013
Post: 1
Registrato il: 20/04/2018
Città: MILANO
Età: 20
Utente Junior
2010
OFFLINE
20/04/2018 13:45

A me il testo sembra abbastanza chiaro....
Devo con una macro recuperare un il nome di un file immagine presente in una cartella di rete che ha lo stesso nome di un testo in una cella di un foglio excel... più semplice di cosi' non saprei come esprimermi.

Mi spiace.
Post: 2
Registrato il: 20/04/2018
Città: MILANO
Età: 20
Utente Junior
2010
OFFLINE
22/04/2018 10:16

ho trovato un codice che fa al caso mio:

Codice:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim est As String

est = CStr(Target.Value) & ".pdf"

If Intersect(Target, Range("a:a")) Is Nothing Then Exit Sub
If Target = "" Or Target.Cells.Count > 1 Then Exit Sub

Application.EnableEvents = False
ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:="C:\Excel\" & est, TextToDisplay:=CStr(Target.Value)
Application.EnableEvents = True
End Sub



il problema e che viene incorporato direttamente nel foglio di lavoro, io invece vorrei creare una macro che si lancia con un pulsante é possibile?

Post: 2.841
Registrato il: 03/04/2013
Utente Veteran
Excel 2000 - 2013
OFFLINE
22/04/2018 11:15

Buona giornata, Marco;
credo potresti provare a cambiare il tipo di "Evento".

Voglio dire, al posto di:
-    Worksheet_Change
potresti provare con:
-    Worksheet_BeforeDoubleClick
in questo modo con "Doppio Click" nella Cella di destinazione attiveresti l'esecuzione della Procedura.

Dovresti mettere mano al Codice VBA, esempio:
-    Intersect(Target, Range("a:a")) andrà modificato, ma non dovrebbe essere molto complicato.

Nel caso tu lo ritenga utile e opportuno possiamo approfondire.



A disposizione.

Buon fine settimana.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | 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 01:29. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com