Este fórum está sendo desativado

[Retsteo]

Bom dia pessoal,

Estou tentando já faz a um tempo fazer um botão de pesquisa no meu formulário de funcionários, porém necessito que ele pesquise de acordo com 3 condições, data, nome e empresa.

Tenho o esboço de um código que mais ou menos do que eu preciso porém ele precisa ter 3 condições.

Segue:

Código: Selecionar todos

Private Sub cmdPequisar_Click()


        With Dados.Range("A:A")
 
        Set c = .Find(cbomes.Text, LookIn:=xlValues, LookAt:=xlWhole)
 
        
        If Not c Is Nothing Then
        cbomes.Value = c.Offset(0, 1)
        cboempresa.Value = c.Offset(0, 2)
        cbofuncionario.Value = c.Offset(0, 3)
        salarionormal.Value = c.Offset(0, 4)
        salariofamilia.Value = c.Offset(0, 5)
        quebradecaixa.Value = c.Offset(0, 6)
        premio.Value = c.Offset(0, 7)
        adcpericulosidade.Value = c.Offset(0, 8)
        auxiliomaternidade.Value = c.Offset(0, 9)
        comissao.Value = c.Offset(0, 10)
        ferias.Value = c.Offset(0, 11)
        adicferias.Value = c.Offset(0, 12)
        segurodevida.Value = c.Offset(0, 13)
        valetransporte.Value = c.Offset(0, 14)
        insufdesaldo.Value = c.Offset(0, 15)
        adiantamentosalarial.Value = c.Offset(0, 16)
        faltasatrasosdias.Value = c.Offset(0, 17)
        consultamedica.Value = c.Offset(0, 18)
        compras.Value = c.Offset(0, 19)
        vales.Value = c.Offset(0, 21)
        planodesaude.Value = c.Offset(0, 22)
        inss.Value = c.Offset(0, 23)
        irrf.Value = c.Offset(0, 24)
        inssferias.Value = c.Offset(0, 25)
        dsrcomissao.Value = c.Offset(0, 26)
        irferias.Value = c.Offset(0, 27)

        End If
 
        If c Is Nothing Then

        MsgBox ("Não Encontrado!")

        End If
 
        End With

        End Sub

Vocês conseguem me ajudar, desde já muito obrigado pela atenção.

Obrigado.

[DJunqueira]

Anexa a planilha q fica mais fácil de alguém te ajudar.