'# SubRoutine per la ricerca del CODICE
Private Sub CmdRicerca_Click()

    TextBox1.SetFocus
    On Error Resume Next
    Dim Distinta As String
    Distinta = TextBox1.Text
    
    If Distinta = "" Then    '# Se la TEXTBOX1 è vuota attiva MsgBox
    MsgBox "NON HAI INSERITO IL CODICE"    '# MsgBox per ciclo inesistente
    Exit Sub
    End If
    
    Set Cerca = Cells.Find(Distinta, ActiveCell, xlFormulas, xlPart, xlByRows, xlNext, False) 'devo cercare solo nella colonna Codice
    If Cerca Is Nothing Then
    MsgBox ("CODICE non presente nel database!")
    Exit Sub
    End If
        
    Dim CL As Object    '# Definizione della variabile CL
    Set CODICE = ActiveSheet.Range(Cells(2, 1), Cells(2, 1).End(xlDown))    '# Ricerca del codice dalla colonna A della riga 2
    Cells.Find(What:=Distinta, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    
    For Each CL In CODICE
    If CL.Value Like "*" & UserForm1.TextBox1.Text & "*" Then    '# Inserendo gli asterischi prima e dopo x la ricerca parziale del codice
    t = CL.Row    '# Definizione della variabile T
    For I = 1 To 83   '# Definizione della variabile I per le TextBox e le colonne del Foglio GRUPPI
    UserForm1.Controls("TextBox" & I).Text = Sheets("Gruppi").Cells(t, I).Value    '# Caricamento dei dati dal Foglio GRUPPI
    
    Next
    Exit For
    End If
    Next
    
End Sub