Este fórum está sendo desativado

[Kevim2013]

Código: Selecionar todos

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

Só funciona se o que eu pesquiso vem da primeira linha.
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.

[Kevim2013]

Consegui sair do bug. O erro era no With Igualando todos os activecell.