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
