Sub RipristCollegMastrCli() 'avviare la macro da un foglio della cartella TabRiepCliSeir2013 
Dim NomeFglMastr
Dim cliente
Dim UltimaRiga As Integer, r As Integer
Dim ColBclienti As Range, ColGclienti As Range
Dim UroG As String, CollMese As String, CliTab As String
Dim d As Byte, SPAZIO As Byte
Dim ModificatoNomeFglMastr As String, ModificatoNomeFglTabRiep As String
Dim NomeFoglioAttivo As String, AnnoCorrente As String, CliMastr As String
Dim MeseAttuale As String, CliSenzaSpazio As String
Dim StringaFinaleMastrino
Dim StringaFinaleTabella
Windows("TabRiepCliSeir2013.xlsm").Activate
With ActiveSheet 'un qualsiasi foglio mensile della cartella TabRiepCliSeir2013 
AnnoCorrente = Sheets("mese").Range("E5").Value
UltimaRiga = Range("B65000").End(xlUp).Row
Set ColBclienti = Range(Cells(3, 2), Cells(UltimaRiga, 2))
For Each cliente In ColBclienti
r = cliente.Row

For d = 1 To Len(cliente) 
'sotto le istruz.se trovano in "cliente" un punto(.) o uno spazio vuoto(" ")lo sost.con(*)asterisco
SPAZIO = InStr(cliente, " ") 'mi indica la posizione dello spazio nel nome "cliente"
'se non trovo spazi assegno la variabile
If SPAZIO = 0 Then
ModificatoNomeFglTabRiep = cliente
Else
'sotto elimino la posizione di SPAZIO nel nome "cliente"
CliSenzaSpazio = Mid(cliente, 1, SPAZIO - 1) & Mid(cliente, SPAZIO + 1)


ModificatoNomeFglTabRiep = CliSenzaSpazio
'If Mid$(cliente, d, 1) = "." Or Mid$(cliente, d, 1) = " " Then Mid$(cliente, d, 1) = "*" 
End If
Windows("MastrCliSeir.xlsm").Activate

Sheets("APPOGGIO").Activate
With Columns(7)
UroG = Range("G65000").End(xlUp).Row
Set ColGclienti = Range(Cells(2, 7), Cells(UroG, 7))

For Each NomeFglMastr In ColGclienti
CliMastr = NomeFglMastr

 For c = 1 To Len(NomeFglMastr) 
'se si è trovato  un punto lo sostituiamo con(*)asterisco)
If Mid$(NomeFglMastr, c, 1) = "." Then Mid$(NomeFglMastr, c, 1) = "*"  
Next
ModificatoNomeFglMastr = NomeFglMastr
'Se il nome del cliente nell'elenco corrisponde a quello del nome del foglio dell'altra cartella
If ModificatoNomeFglTabRiep & "*" Like ModificatoNomeFglMastr & "*" Then
Windows("TabRiepCliSeir" & AnnoCorrente & ".xlsm").Activate
MeseAttuale = Sheets("mese").[C1]
Sheets(MeseAttuale).Activate
Cells(r, 2).Select
CliTab = Cells(r, 2).Value
'inseriamo il colleg.ipertest.
    With Selection 
    .Hyperlinks.Add Anchor:=Selection, Address:= _
"MastrCliSeir.xlsm", SubAddress:=CliMastr & "!A1", TextToDisplay:="" & cliente & ""
        .Font.Name = "Calibrì"
       .Font.Size = 11
    .Font.Underline = xlUnderlineStyleNone

End With 'originale
Cells(r, 3).Select
 ActiveCell.FormulaR1C1 = "=[MastrCliSeir.xlsm]" & CliMastr & "!R4C6"
End If
Next
End With
Next
Next
End With
Set ColBclienti = Nothing
Set ColGclienti = Nothing
End Sub