Collegamento al sito del prodotto inserito.

Question

Salve, nel programma che ho creato per inviare preventivi ai clienti vorrei creare un collegamento ovvero che cliccando sul prodotto inserito si acceda alla scheda tecnica del prodotto presente sul sito del marchio, è fattibile? Volendo posso allegare il programma. Grazie Alessio

Answer 1

Ciao Alessio,

Buona sera Norman ti allego l' immagine del file, spero di farti capire meglio. Grazie Alessio.

Ti chiedo gentilmente di caricare un file di esempio, privo di dati sensibili, ma comprensivo di un foglio con l'elenco di tutti i prodotti e gli URL corrispondenti.

===

Regards,

Norman

Answer 2

Buona sera Norman ti allego l' immagine del file, spero di farti capire meglio. Grazie Alessio.

Answer 3

OK però nel file o più celle con menù a tendina da A22 ad A38 tu solo F2. Gli articoli poi sono nel foglio Articoli e vanno da A2 ad A350, non so come immettere questi valori nel tuo esempio. Grazie

Answer 4

Ciao Alessio,

Ciò può essere ottenuto inserendo un semplice collegamento ipertestuale a una cella o un'immagine specifica.

Visto che qualche mese fa hai fatto una domanda simile, senza una conclusione positiva, puoi scaricare il mio banale file di prova Alessio20221101.xlsm

In questo file, nella colonna A ho inserito i nome dei prodotti, nella colonna B i collegamenti ipertestuali corrispondenti e nella colonna C, le immagini corrispondenti anch'esse con collegamenti ipertestuali. Nella cella F2, ho inserito un menu a tendina che è legato ai prodotti nella colonna A.

Cliccando sul valore nella colonna B o sull'immagine nella colonna C, si aprirà la pagina web corrispondente.

Se la tua intenzione era quella di aprire una pagina web determinata dal valore selezionato nell'elenco a discesa, prova come segue:

• Fai clic dx sulla linguetta del foglio di interesse
• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

 '========>>

Option Explicit

'-------->>

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng As Range, Rng\_Collegamenti As Range, rFound As Range 

Dim res 

Const sCella As String = **"F2"                                             '<<=== Modifica** 

Const sIntervallo\_Collegamenti As String = **"B2:B4"         '<<=== Modifica** 

Set Rng = Me.Range(sCella) 

If Not Intersect(Rng, Target) Is Nothing Then 

    If Not IsEmpty(Rng.Value) Then 

        Set Rng\_Collegamenti = Me.Range(sIntervallo\_Collegamenti) 

        Set rFound = Rng\_Collegamenti.Find(Rng.Value) 

        If Not rFound Is Nothing Then 

            rFound.Hyperlinks(1).Follow NewWindow:=False 

        End If 

    End If 

End If 

End Sub

'<<========  

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l'estensione xlsm.

===

Regards,

Norman

Answer 5

Ciao Alessio,

Salve, nel programma che ho creato per inviare preventivi ai clienti vorrei creare un collegamento ovvero che cliccando sul prodotto inserito si acceda alla scheda tecnica del prodotto presente sul sito del marchio, è fattibile? Volendo posso allegare il programma.

Ciò può essere ottenuto inserendo un semplice collegamento ipertestuale a una cella o un'immagine specifica.

Quali difficoltà avete incontrato nell'attuare questo?

===

Regards,

Norman