Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Hyperlink cella attiva

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Hyperlink cella attiva

Postdi oz85 » 14/06/18 15:18

Ciao a tutti!

Sono a scrivere nuovamente per un problema che ho riscontrato dovendo creare un collegamento ipertestuale alla cella attiva.

In pratica la macro creata da me copia una cartella in rete utilizzata come modello e la rinomina con il valore presente su due celle.
Su una di queste due celle vorrei inserire il link al file creato ma non riesco perchè trovo diversi errori. Vi posto la macro con sotto tra virgolette trovate i vari tentativi fatti per risolvere il problema...

Vorrei postare il file ma essendoci percorsi di rete non so quando può essere utile. Se è qualcosa di risolvibile facilmente per via della mia ignoranza ok, altrimenti vi carico un file d'esempio.

Come sempre, Grazie per il supporto!


Codice: Seleziona tutto
Sub CREA_CARTELLA()
   
    Dim objFSO As Object
    ActiveCell.Offset(0, -Selection.Column + 1).Range("L1").Select
    testo1 = ActiveCell.Value
    ActiveCell.Offset(0, -Selection.Column + 1).Range("m1").Select
    testo2 = ActiveCell.Value
    testo3 = testo1 & " " & testo2
   
    'copia cartella "_Nuova Cartella" creando la nuova con il nome testo3
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.copyFolder "\\CBFSH01\Chieti\Condivisioni\Public\Industrializzazione Chieti\COLLAUDO\Gestione Briglie (nuovo flusso)\Archivio documenti\!_Nuova Cartella", "\\CBFSH01\Chieti\Condivisioni\Public\Industrializzazione Chieti\COLLAUDO\Gestione Briglie (nuovo flusso)\Archivio documenti\" & testo3
   
    'rinomina file
    Oldfile = _
    "\\CBFSH01\Chieti\Condivisioni\Public\Industrializzazione Chieti\COLLAUDO\Gestione Briglie (nuovo flusso)\Archivio documenti\" & testo3 & "/" & "-FLB.xlsm"
    NewFile = _
    "\\CBFSH01\Chieti\Condivisioni\Public\Industrializzazione Chieti\COLLAUDO\Gestione Briglie (nuovo flusso)\Archivio documenti\" & testo3 & "/" & testo3 & ".xlsm"
    Name Oldfile As NewFile
   
    'apri file FLB creato
    Workbooks.Open "\\CBFSH01\Chieti\Condivisioni\Public\Industrializzazione Chieti\COLLAUDO\Gestione Briglie (nuovo flusso)\Archivio documenti\" & testo3 & "/" & testo3 & ".xlsm"
   
    'seleziona righe intestazione FLB da copiare da file Sviluppo Briglie
    Windows("Sviluppo Briglie.xlsm").Activate
    ActiveCell.Offset(0, -Selection.Column + 1).Range("K1:O1").Select
    Selection.Copy
   
    'copia valori su foglio FLB
    Windows(testo3 & ".xlsm").Activate  'attiva finestra
    Range("AU2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
    Range("AI4").Select 'copia data in valori
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("AI4").Select
   
    Range("AU2").Select 'posizione cursone
   
    'seleziona file SB e seleziona cella 0A0
    'Windows("Sviluppo Briglie.xlsm").Activate
    'ActiveCell.Offset(0, -Selection.Column + 1).Range("L1").Select
   
    'link
    '"\\CBFSH01\Chieti\Condivisioni\Public\Industrializzazione Chieti\COLLAUDO\Gestione Briglie (nuovo flusso)\Archivio documenti\" & testo3 & "/" & testo3 & ".xlsm"
    'Application.ActiveSheet.Hyperlinks.Add _
    'Anchor:=Application.ActiveSheet.ActiveCell, _
    'Address:="\\CBFSH01\Chieti\Condivisioni\Public\Industrializzazione Chieti\COLLAUDO\Gestione Briglie (nuovo flusso)\Archivio documenti\" & testo3 & "/" & testo3 & ".xlsm" ', _
    SubAddress:="", _
    'ScreenTip:="Critical", _
    'TextToDisplay:="Mail this Figure"
 
   
End Sub


EDIT Flash: inserito codice all'interno del Tag CODE
oz85
Utente Junior
 
Post: 58
Iscritto il: 26/03/18 14:35

Sponsor
 

Re: Hyperlink cella attiva

Postdi oz85 » 15/06/18 08:21

Allora ho modificato il codice per l'hyperlink ma non riesco a dare il riferimento cella attivo, ma solo un range definito, in questo caso L1351. Vorrei riuscire a dare il comando Activecell ma mi restituisce sempre l'errore di debug.... come si aggira il problema??? :(

Codice: Seleziona tutto
    With Worksheets("BRIGLIE")
    .Hyperlinks.Add Anchor:=.Range("L1351"), _
    Address:="\\CBFSH01\Chieti\Condivisioni\Public\Industrializzazione Chieti\COLLAUDO\Gestione Briglie (nuovo flusso)\Archivio documenti\" & testo3 & "/" & testo3 & ".xlsm" ', _
    ScreenTip:="Microsoft Web Site", _
     TextToDisplay:="Microsoft"
    End With
oz85
Utente Junior
 
Post: 58
Iscritto il: 26/03/18 14:35

Re: Hyperlink cella attiva

Postdi oz85 » 15/06/18 09:06

Ragazzi risolto da me. Sotto se può servire vi allego il codice:

Codice: Seleziona tutto
    With Worksheets("BRIGLIE")
    .Hyperlinks.Add Anchor:=Excel.Selection, _
    Address:="\\CBFSH01\Chieti\Condivisioni\Public\Industrializzazione Chieti\COLLAUDO\Gestione Briglie (nuovo flusso)\Archivio documenti\" & testo3 & "/" & testo3 & ".xlsm"
    End With


Quello che mi serviva era il comando "Excel.Selection"
oz85
Utente Junior
 
Post: 58
Iscritto il: 26/03/18 14:35


Torna a Applicazioni Office Windows


Topic correlati a "Hyperlink cella attiva":


Chi c’è in linea

Visitano il forum: gimart e 29 ospiti