Option Explicit
Private shAutori As Worksheet
Private shOperatore As Worksheet
Private shSequenza As Worksheet
Private shRaggruppa As Worksheet

  Private shArticoli As Worksheet 'Aggiunto per popolare combobox4 **

Private lRigaAut As Long 'riga autore
Private lRigaOp As Long 'riga operatore


Private Sub UserForm_Initialize()
       Dim lng As Long
    With ThisWorkbook
        Set shAutori = .Worksheets("elenco")
        Set shOperatore = .Worksheets("RagioneSociale")
        Set shSequenza = .Worksheets("ArchivioStatistiche")
        Set shRaggruppa = .Worksheets("Raggruppa")

          Set shArticoli = .Worksheets("Articoli") 'Aggiunto per popolare combobox4  **

'**Ho Aggiunto fin qui per popolare combobox4 (dal Foglio "Articoli" colonna "A") ma 
'da qui in poi non so come procedere per popolare la combo

    End With
       lRigaAut = shAutori.Range("A" & Rows.Count).End(xlUp).Row
    lRigaOp = shOperatore.Range("A" & Rows.Count).End(xlUp).Row
       For lng = 2 To lRigaAut
        Me.ComboBox1.AddItem shAutori.Cells(lng, 1).Value
    Next
       For lng = 2 To lRigaOp
        Me.ComboBox2.AddItem shOperatore.Cells(lng, 1).Value
    Next
   End Sub

Private Sub ApplicaFiltro_Click()
      
    Dim lng As Long
    Dim rng As Range
    Dim lRiga As Long
   
    Application.ScreenUpdating = False
   
    ThisWorkbook.Worksheets.Add ' aggiungo un foglio
On Error Resume Next
    ActiveSheet.Name = "Pippo"
    If Err.Number = 1004 Then
        Application.DisplayAlerts = False
        MsgBox "(1)Movimento gia eseguito: Contatta Alfredo!"
               ActiveSheet.Delete ' lo elimino
        Application.DisplayAlerts = True
        Exit Sub
    End If
On Error GoTo 0
   
On Error GoTo RigaErrore

    With shAutori ' carico nelle due combobox le liste
        For lng = 2 To lRigaAut
            If .Range("A" & lng).Value = _
                Me.ComboBox1.Value Then
                .Range("A" & lng & ":G" & lng).Copy _
                    Destination:=ActiveSheet.Range("A1")
            End If
        Next
    End With
 
    With shOperatore
        For lng = 2 To lRigaAut
            If .Range("A" & lng).Value = _
                Me.ComboBox2.Value Then
                .Range("A" & lng & ":G" & lng).Copy _
                    Destination:=ActiveSheet.Range("A2")
            End If
        Next
    End With

   With shSequenza ' dentro al foglio statistiche
        Application.ScreenUpdating = False
        .Range("A1").AutoFilter Field:=10, Criteria1:= _
            Me.ComboBox1.Value 'applico il filtro usando il valore della combo

'****A QUESTO PUNTO VORREI POTER PERFEZIONARE IL FILTRO 
'****AGGIUNGENDO IL CRITERIO SELEZIONATO NELLA COMBOBOX4 E SCEGLIERE UN PERIODO 
       '(FILTRO PER DATA SULLA COLONNA "B")

         Unload Me
     Application.Run "CopiaRigheStatistica" 'dopo applica filtro copia le righe
    If Sheets("Pippo").Range("A16") > 0 Then
    Sheets("Pippo").Select
    Application.Run "TestataStatisticaRaggruppa"
    
    Else
    Application.DisplayAlerts = False
    MsgBox "(2)Nessun risultato Ottenuto"
    Sheets("Pippo").Delete
    Sheets("PiePagina").Select
    Range("A21:L21").Select
    Selection.Copy
    Sheets("Archivio").Select
    Range("A1").Select
    ActiveSheet.Paste
    Selection.AutoFilter
    Sheets("Comandi").Select
    Raggr_User.Show
    
    Exit Sub
End If
    End With
    
RigaChiusura:
Exit Sub
    Application.ScreenUpdating = True
    shSequenza.Range("A1").AutoFilter
RigaErrore:
    If Err.Number = 1004 Then
        Application.DisplayAlerts = False
        MsgBox "(3)Nessun risultato Ottenuto"
        ActiveSheet.Delete
        Application.DisplayAlerts = True
    Else
        MsgBox Err.Number & vbNewLine & Err.Description
    End If
    Resume RigaChiusura
 
End Sub