Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Crea/Apri folder / cerca nome e crea hyperlink

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

Crea/Apri folder / cerca nome e crea hyperlink

Postdi deniel69 » 22/12/14 11:54

Buon giorno.
Ho due cartelle excel :
salva cartella.xlsm (dove risiede la macro e la lancio)
Date.xlsx (dove voglio cercare il NomeFileCommessa e creare il link)

Da "salva cartella.xlsm" prelevo il nome della directory da creare, creo la directory e la apro
e subito dopo devo cercare il "NomeFileCommessa" nella colonna "D" della cartella excel "Date.xlsx"
e se lo trovo devo creare l'hiper-link alla directory corrispondente altrimenti messaggio link non creato.

Se faccio tutto su "salva cartella.xlsm" funziona tutto ,ma se devo modificare la stringa e cercare il dato
su "Date.xlsx" e creare l'Hiper-link....... mi impantano.

Stringa funzionante sul foglio attivo........

Codice: Seleziona tutto
Public Sub macrocartella()

Dim objFso As Object
Dim objFolder As Object
Dim NomeFileCommessa As String
Dim sPathTI As String
Dim xCartellaTI As String
Dim UR As Integer

Application.ScreenUpdating = False

sPathTI = "C:\Users\daniele\Desktop"

NomeFileCommessa = ActiveSheet.Range("A1").Value

Set objFso = CreateObject("Scripting.FileSystemObject")


If objFso.FolderExists(sPathTI & "\" & NomeFileCommessa) Then
MsgBox "La cartella esiste"
Else
MsgBox "La cartella non esiste"
Set objFolder = objFso.CreateFolder(sPathTI & "\" & NomeFileCommessa)
MsgBox "La cartella è stata creata"

End If

'Apro la cartella appena creata
xCartellaTI = sPathTI & "\" & NomeFileCommessa

 If Len(Dir(xCartellaTI, vbDirectory)) <> 0 Then
 Shell "Explorer.exe /n,/e," & xCartellaTI, vbNormalFocus
 Else
 MsgBox "La cartella non esiste!", vbCritical
 End If

'Creo l'Hyper-link

With Sheets("Foglio1")

  UR = .Cells(.Rows.Count, 4).End(xlUp).Row

   For n = UR To 1 Step -1
    If .Cells(n, 4).Value = NomeFileCommessa Then
       
      .Cells(n, 4).Select
      ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=xCartellaTI, _
        TextToDisplay:=NomeFileCommessa
   
End If

Next n

End With


Application.ScreenUpdating = True

Set objFolder = Nothing
Set objFso = Nothing


End Sub



grazie a chiunque dia aiuto valido !
Avatar utente
deniel69
Utente Senior
 
Post: 113
Iscritto il: 17/04/12 22:43

Sponsor
 

Re: Crea/Apri folder / cerca nome e crea hyperlink

Postdi Anthony47 » 23/12/14 00:45

Con queste istruzioni dovresti essere in grado di cercare sul secondo file l' eventuale NomeFileCommessa e su quella cella inserire un hyperlink alla cartella:
Codice: Seleziona tutto
Dim TargetWW As Worksheet, myMatch
'Creo l'Hyper-link
Set TargetWW = Workbooks("Date.xlsx").Sheets("Foglio???")    '<<<
'
myMatch = Application.Match(NomeFileCommessa, TargetWW.Range("D:D"), False)
If Not IsError(myMatch) Then
    With TargetWW
        .Range("D" & myMatch).Hyperlinks.Delete
        .Range("D" & myMatch).Hyperlinks.Add Anchor:=.Range("D" & myMatch), Address:=xCartellaTI
    End With
Else
    MsgBox ("Non trovato " & NomeFileCommessa)
End If


L' istruzione marcata <<< va personalizzata.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Crea/Apri folder / cerca nome e crea hyperlink

Postdi deniel69 » 23/12/14 18:09

Ottimo tutto perfettamente funzionante....

Grazie Grazie e buone feste a tutti !!!!!!
Avatar utente
deniel69
Utente Senior
 
Post: 113
Iscritto il: 17/04/12 22:43


Torna a Applicazioni Office Windows


Topic correlati a "Crea/Apri folder / cerca nome e crea hyperlink":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti

cron