Sviluppare funzionalita su Microsoft Office con VBA macro vba per collegamento al nome del foglio

LoginRegistrati
Stai vedendo 4 articoli - dal 1 a 4 (di 4 totali)
  • Autore
    Articoli
  • #16964 Risposta

    Tato

      non riesco a creare il link ipertestuale  nella prima cella libera  C10.  l 'Hyperlink deve essere legato al nome del foglio !! ...quando attivo la macro il collegamento non funziona perche rimane legato alla foglio vecchio e non al nuovo .. per questo lo vorrei che sia legato sempre al nome del foglio al nome del foglio di seguito la macro

      Sub copia()
      Dim Origine
      Dim Destinazione
      Dim i As Long, n As Long, uR As Long
      Set Origine = ActiveSheet.Range("D1, C2, D2, D4, K1, P1")
      Set Destinazione = ThisWorkbook.Worksheets("Lista").Range("D10, E10, F10, G10, H10, C10")

      n = Destinazione.CurrentRegion.Rows.Count
      With Destinazione.Offset(n)
      For i = 1 To Destinazione.Areas.Count
      .Areas.Item(i).Value = Origine.Areas.Item(i).Value
      Next i
      End With
      With Sheets("Lista")
      uR = .Cells(Rows.Count, 4).End(xlUp).Row
      .Hyperlinks.Add Anchor:=.Range("C" & uR), Address:="", SubAddress:= _
      "Sheets.Name"
      End With
      Sheets("Lista").Select

      End Sub

       

       

      #16966 Risposta

      vecchio frac
      Senior Moderator
      • Sfida #1
        171 pts

        Non può funzionare. Il riferimento del collegamento ipertestuale è "Sheets.Name" che dubito esista nel tuo foglio di lavoro.

        Cioè, l'indirizzo specificato in SubAddress è il collegamento che viene aperto quando si fa clic su esso. Chiaroi che deve essere un riferimento reale.

        Non è che sia molto chiaro il risultato atteso, a dire il vero.

        Senza contare che il codice non è formattato nel modo corretto ed è quindi difficile da leggere.

        #16968 Risposta

        Tato

          Infatti ho scritto di proposito sheet.name perché facesse  riferimento  al nome del foglio  ... premetto  che mi sto avvicinato  adesso alle vba.. mi puoi aiutare  s costruirlo  correttamente 

           

          #16969 Risposta

          vecchio frac
          Senior Moderator
          • Sfida #1
            171 pts

            Tato ha scritto:

            perché facesse  riferimento  al nome del foglio

            Sì ma quale foglio? Quello corrente? Un altro? In tutti i casi, la sintassi è semplice, togli le virgolette e riferisciti al nome del foglio da raggiungere, comprendendo il riferimento di cella. Qualcosa del genere:

            activesheet.Hyperlinks.Add Anchor:=activesheet.Range("C5"), Address:= "", subaddress:=workSheets("Foglio3").name & "!A5"

             

             

          LoginRegistrati
          Stai vedendo 4 articoli - dal 1 a 4 (di 4 totali)
          Rispondi a: macro vba per collegamento al nome del foglio
          Gli allegati sono permessi solo ad utenti REGISTRATI
          Le tue informazioni:



          vecchio frac - 2748 risposte

          albatros54
          albatros54 - 741 risposte

          patel
          patel - 636 risposte

          Marius44
          Marius44 - 564 risposte

          Luca73
          Luca73 - 532 risposte