Boa noite efs2016.
Analisando seu código, o seu loop esta referenciando somente aos TextBox que contem data
If Plan3.Cells(lin, 5) >= CDate(cdDataINI) And Plan3.Cells(lin, 5) <= CDate(cdDataFIM) Then
Esta faltando o ComboBox que deseja incluir como filtro, seria algo assim:
If Plan3.Cells(lin, 5) >= CDate(cdDataINI) And Plan3.Cells(lin, 5) <= CDate(cdDataFIM) And Plan3.Cells(lin, 3) = Me.Combovara.Text Then
Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. 
Postado : 30/10/2016 6:35 pm