ERRO em minha Pesquisa com duplo Critério(VBA)
Enviado: 24 Ago 2016 às 18:10
Código: Selecionar todos
Só funciona se o que eu pesquiso vem da primeira linha.
Private Sub btPesquisar_Click()
Plan19.Visible = True
Plan19.Activate
Plan19.Select
Plan19.Range("B2").Select
With ActiveCell
Do While ActiveCell <> ""
If .Value = tbNome.Text And .Offset(, 4).Value = cbData.Text Then
tbCodigo.Value = .Offset(, 1).Value
tbNA.Value = .Offset(, 2).Value
tbQTD.Value = .Offset(, 3).Value
tbRelEs.Value = .Offset(, 5).Value
tbArea.Value = .Offset(, 6).Value
tbPermissao.Value = .Offset(, 7).Value
ActiveCell.Offset(1).Select
Else
ActiveCell.Offset(1).Select
End If
Loop
End With
End Sub
Se vem de qualquer outra linha não funciona.
O problema em especifico é que quando termina o loop o " If .Value = tbNome.Text And .Offset(, 4).Value = cbData.Text Then" Não atualiza.
Preciso que ele se atualize a cada linha de código.