• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

JTualufo

Pesquisas...

3 mensagens neste tópico

Boas, criei um modulo para pesquisa de dados nas planilhas do exel, o meu desejo e que seje possivel a partir de parametros introduzidos num txt box ou combo buscar um conjunto de dados na folha "seguimento" e lista-los na folha "Pesquisas"... usei o seguinta codigo

Sub pesquisa()

Application.EnableEvents = False
        
        Dim lastRow As Long
        Dim lastResultRow As Long
        Dim X As Long
        Dim Pe As Worksheet
        Dim se As Worksheet
        
        Set Pe = Worksheets("Pesquisas")
        Set se = Worksheets("Seguimento")
        
        
            ' Verifica qual a ultima célula preenchida
        lastRow = se.Cells(Rows.Count, 1).End(xlUp).Row
        
            ' Apaga valores anteriores
        Pe.Range("A2:N5000").ClearContents
        
        lastResultRow = 3 'linha resultado
        
        ' Ciclo em todas as linhas
        For X = 3 To lastRow
        
           ' verifica se o valor é igual ao da pesquisa
           
           If se.Cells(X, 1).Value = Me.txtNumRequisicaoP.Value Then
           
           
                ' para copiar os valores
                Pe.Cells(lastResultRow, 1).Value = se.Cells(X, 1).Value
                Pe.Cells(lastResultRow, 2).Value = se.Cells(X, 2).Value
                Pe.Cells(lastResultRow, 3).Value = se.Cells(X, 3).Value
                Pe.Cells(lastResultRow, 4).Value = se.Cells(X, 4).Value
                lastResultRow = lastResultRow + 1
                
                MsgBox "Pesquisa realizada com sucesso !!!" & " Confira os dados na planilha de Pesquisa ", 64, "Pesquisas..."
                Exit Sub
                Unload Me

                Else
                MsgBox "A requisicao No" & Me.txtNumRequisicaoP.Value & " Nao existe, por favor seleccione uma requisicao valida", vbInformation, "Alerta..."
                Exit Sub
           End If
        Next
        
    
  '  End If
   Application.EnableEvents = True


End Sub

o programa corre e nao da erro, mas nao copia nenhum valor... mais uma vez agradexo a vossa ajuda... :(

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá,

Alguma vez esta condição aparece ?

If se.Cells(X, 1).Value = Me.txtNumRequisicaoP.Value Then

Já agora a msgbox deveria ser ?

MsgBox "Pesquisa realizada com sucesso !!!" & vbNewLine & vbNewLine & " Confira os dados na planilha de Pesquisa ", 64, "Pesquisas"

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora