Pesquisa em formulário com 3 condições
Enviado: 01 Fev 2017 às 10:38
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:
Obrigado.
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
Vocês conseguem me ajudar, desde já muito obrigado pela atenção.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 SubObrigado.