Excel VBA relatório com textBox

[Robson Barros]

Boa tarde

 

Amigos sou totalmente iniciante em VBA.

 

Estou tentando viabilizar um código para fazer uma pesquisa em uma base de dados mediante parâmetro estabelecido numa textbox e o resultado será paresentado em outra plan,

 

To com o código abaixo, sendo que quando eu executo, nada acontece.

 

Alguém pode me ajudar? Obrigado!!!

 

Private Sub BT_Excluir_Click()
Application.ScreenUpdating = False
lin = 2
linha = 2
Do While Sheets("Base").Cells(lin, 1) <> ""
    If Sheets("Base").Cells(lin, 1) = Form_Excluir.Cod_Txt.Value Then
        Sheets("Destino").Cells(linha, 1) = Sheets("Base").Cells(lin, 1)
        Sheets("Destino").Cells(linha, 2) = Sheets("Base").Cells(lin, 2)
        Sheets("Destino").Cells(linha, 3) = Sheets("Base").Cells(lin, 3)
        Sheets("Destino").Cells(linha, 4) = Sheets("Base").Cells(lin, 7)
        linha = linha + 1

    End If
    lin = lin + 1

Loop

Application.ScreenUpdating = True

 

 

[Visitante]

Sugestão: disponibilize aqui no fórum uma amostra do seu arquivo Excel com o código instalado, com alguns dados na planilha, com um exemplo da busca e o respectivo resultado esperado.

 

Arquivos com macros precisam ser compactados antes de anexá-los aqui no fórum.