Busca com múltiplos critérios

[Renan Liporaci]

Pessoal, estou começando a me aventurar pelo VBA e preciso de uma ajuda. 

 

Criei um formulário que me permite buscar o ID do cliente, encontrando o ID ele automaticamente preenche os campos e assim permite modificar os dados do cliente. Até ai, sem problemas. 

Acontece que gostaria de incluir, alternativamente, uma busca pelo nome completo do cliente. Infelizmente, o nome do cliente e o sobrenome necessariamente tem que ficar em colunas separadas e não encontrei uma forma de realizar a busca em ambas as colunas. Resumindo o que estou tentando fazer: 

Usuário insere na textbox o nome e sobrenome do cliente -> VBA procura as informações tanto na coluna "Nome", quanto na coluna "Sobrenome", caso encontre, preencha o restante do formulário.

 

Vou deixar abaixo o código que fiz até agora, peço o auxílio dos amigos. 

Como podem ver, eu coloquei como Range a partir de onde que está o Nome "B2", mas não encontrei uma forma de buscar ao mesmo tempo o Sobrenome que fica a partir de "C2"

Private Sub cmd_nome_but_Click()

Dim intervalo As Range
Dim texto As String
Dim buscador As String
Dim pesquisa
Dim mensagem

buscador = txt_buscanome
Sheets("Cadastro PF").Select
Set intervalo = Range("B2:O500")

On Error GoTo Erro

pesquisa = Application.WorksheetFunction.VLookup(buscador, intervalo, 1, False)
pesquisa1 = Application.WorksheetFunction.VLookup(buscador, intervalo, 2, False)
pesquisa2 = Application.WorksheetFunction.VLookup(buscador, intervalo, 3, False)
pesquisa3 = Application.WorksheetFunction.VLookup(buscador, intervalo, 4, False)
pesquisa4 = Application.WorksheetFunction.VLookup(buscador, intervalo, 5, False)
pesquisa5 = Application.WorksheetFunction.VLookup(buscador, intervalo, 6, False)
pesquisa6 = Application.WorksheetFunction.VLookup(buscador, intervalo, 7, False)
pesquisa7 = Application.WorksheetFunction.VLookup(buscador, intervalo, 8, False)
pesquisa8 = Application.WorksheetFunction.VLookup(buscador, intervalo, 9, False)
pesquisa9 = Application.WorksheetFunction.VLookup(buscador, intervalo, 10, False)
pesquisa10 = Application.WorksheetFunction.VLookup(buscador, intervalo, 11, False)
pesquisa11 = Application.WorksheetFunction.VLookup(buscador, intervalo, 12, False)
pesquisa12 = Application.WorksheetFunction.VLookup(buscador, intervalo, 13, False)

txt_nome = pesquisa
txt_sobrenome = pesquisa1
cmb_sex = pesquisa2
cmb_estadoc = pesquisa3
txt_end = pesquisa4
txt_bairro = pesquisa5
txt_UF = pesquisa6
txt_cidade = pesquisa7
txt_CEP = pesquisa8
txt_tel = pesquisa9
txt_identidade = pesquisa10
txt_CPF = pesquisa11
txt_email = pesquisa12

Exit Sub
Erro:
texto = "Nome não encontrado!"

mensagem = MsgBox(texto, vbOKOnly, vbInformation)

 

[Alyson Ronnan Martins]

Poderia anexar a planilha para tentar simular e elaborar um código?