Olá, alguém poderia ajudar-me a criar uma pesquisa no VBA, utilizando 2 ranges para busca, exemplo: pesquisar CNPJ e NF, e retornar o resultado, em um formulário, com base nesses dois critérios.

Tenho os seguintes códigos abaixo para realizar a pesquisa, mas não consegui nenhum resultado ou erro nos Labels, TextBoxs, etc.

O código no qual fiz as devidas adaptações segue abaixo:

Private Sub btPesquisarDados_Click()
Dim CNPJ_CPF As String
Dim NF As String
Dim Linhas As Long
Dim i As Long
Dim Resultado As String

Linhas = [A1].CurrentRegion.Rows.Count
CNPJ_CPF = frmCadastro_Dados.txtCNPJ_CPF.Value
NF = frmCadastro_Dados.txtDoc_Num.Value

For i = 1 To Linhas
If Cells(i, "A").Value = CNPJ And Cells(i, "B").Value = NF Then
Resultado = Cells(i, "C").Value

'Recupera os dados da planilha no formulário

lblCod.Caption = Sheets("Cadastro_Dados").Cells(i, 1).Value
txtCNPJ_CPF.Value = Sheets("Cadastro_Dados").Cells(i, 2).Value
cbxClientes.Value = Sheets("Cadastro_Dados").Cells(i, 3).Value
txtNome.Value = Sheets("Cadastro_Dados").Cells(i, 4).Value
txtDoc_Num.Value = Sheets("Cadastro_Dados").Cells(i, 7).Value
txtDt_Emissao.Value = Sheets("Cadastro_Dados").Cells(i, 8).Value
txtValorBruto.Value = Sheets("Cadastro_Dados").Cells(i, 24).Value
txtDt_Vencto.Value = Sheets("Cadastro_Dados").Cells(i, 12).Value
cbxSimples.Value = Sheets("Cadastro_Dados").Cells(i, 17).Value
cbxLocacao.Value = Sheets("Cadastro_Dados").Cells(i, 18).Value
cbxServicos.Value = Sheets("Cadastro_Dados").Cells(i, 19).Value
txtMat_Aplic.Value = Sheets("Cadastro_Dados").Cells(i, 20).Value
txtCod_ISS.Value = Sheets("Cadastro_Dados").Cells(i, 54).Value
txtAli_ISS.Value = Sheets("Cadastro_Dados").Cells(i, 53).Value
txtIRRF.Value = Sheets("Cadastro_Dados").Cells(i, 52).Value

lblISS.Caption = Format(Sheets("Cadastro_Dados").Cells(i, 28).Value, "#,##0.00")

lblINSS.Caption = Format(Sheets("Cadastro_Dados").Cells(i, 32).Value, "#,##0.00")
lblCodINSS.Caption = Sheets("Cadastro_Dados").Cells(i, 56).Value
lblPIS.Caption = Format(Sheets("Cadastro_Dados").Cells(i, 36).Value, "#,##0.00")
lblCodPIS.Caption = Sheets("Cadastro_Dados").Cells(i, 59).Value
lblCOFINS.Caption = Format(Sheets("Cadastro_Dados").Cells(i, 40).Value, "#,##0.00")
lblCodCOFINS.Caption = Sheets("Cadastro_Dados").Cells(i, 63).Value
lblCSSLL.Caption = Format(Sheets("Cadastro_Dados").Cells(i, 44).Value, "#,##0.00")
lblCodCSSLL.Caption = Sheets("Cadastro_Dados").Cells(i, 67).Value
lblIRRF.Caption = Format(Sheets("Cadastro_Dados").Cells(i, 48).Value, "#,##0.00")
lblCodIRRF.Caption = Sheets("Cadastro_Dados").Cells(i, 73).Value
lblVL.Caption = Format(Sheets("Cadastro_Dados").Cells(i, 79).Value, "#,##0.00")

Exit For
End If
Next
End Sub

Desde já agradeço.

Atenciosamente,

Reginaldo