Rui Maciel,

Bom dia!

Anexe, por gentileza, seu arquivo compactado com .ZIP. Do contrário serão feitas apenas suposições que poderão não funcionar no seu arquivo real.

Código para preencher a combobox

Private Sub UserForm_Initialize()
'COLOCAR OS ANOS NA COMBOBOX
Dim I As Integer
For I = 2015 To 2023
Me.ComboBox1.AddItem (I)
Next I
End Sub

Boa tarde
Segue em anexo exemplo, isto é, pretendia que no userform4 quando selecionar o ano da respetiva sheet na combobox1 só apareçam os nomes daqueles que ainda não liquidaram, só que não estou a conseguir implementar. Pode-me ajudar, desde já agradecido. O utilizador para voltar ao excel é "ADM" e a senha "1234".
Cpmt.,
RM

Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex >= 0 Then
ListBox1.ColumnCount = 8
'ListBox1.RowSource = ComboBox1.Value & "!A2:H" & Sheets(ComboBox1.Value).Cells(Rows.Count, 1).End(xlUp).Row
Dim REGISTROS(1 To 1000, 1 To 8) As String
Dim LINHA As Long
Dim LINHA2 As Long
Dim R As Integer
LINHA2 = 1
For LINHA = 2 To Sheets(ComboBox1.Value).Cells(Rows.Count, 1).End(xlUp).Row

If UCase(CStr(Sheets(ComboBox1.Value).Cells(LINHA, "E").Value)) <> "SIM" Then

For R = 1 To 8

REGISTROS(LINHA2, R) = CStr(Sheets(ComboBox1.Value).Cells(LINHA, R).Value)

Next R
LINHA2 = LINHA2 + 1
End If

Next LINHA
ListBox1.List = REGISTROS
'Call pesquisanome211
End If
'TextBox1.SetFocus
End Sub

Obrigado Klarc28 funcionou perfeito, já acrescentei botão para imprimir e ficou um espetaculo.
Abraço,
RM