Ir ao conteúdo
  • Cadastre-se
Lenilson Gomes

Formulário para pesquisa e inserção de valores

Recommended Posts

Bom dia Galera,

 

Necessito de uma ajuda com um forms do VBA... (Pra falar a verdade de toda ajuda kkkk)

Preciso criar um formulário onde necessito pesquisar e inserir dados após o retorno da pesquisa feita.

EX:

Pesquiso o número de uma nota fiscal na coluna B e insiro informações na mesma linha do retorno da pesquisa nas colunas F, H, I, J e K. Caso não exista essa nota fiscal, o forms deverá exibir uma mensagem informando a não existência da informação e limpar o formulário para a próxima pesquisa... 

 

Essa parte da mensagem eu já fiz... e os FORMS também, falta só o código de pesquisa e de inserção.

 

Galera, já consegui trazer a pesquisa... agora só me falta 1 coisa (Muito importante)... Inserir as informações de onde ainda faltam, pois sempre eu terei o numero da NF mas o restante eu tenho que inserir na mão.

 

Segue o código que estou utilizando para a pesquisa:

 

Private Sub TextBox1_AfterUpdate()
'Aqui é selecionado a Planilha com seus dados (Plan1) no nosso exemplo
    With Plan1.Range("B:B")
 
        'Aqui onde será digitado o que procurar
 
        Set C = .Find(TextBox1.Value, LookIn:=xlValues, LOOKAT:=xlWhole)
        
        'Aqui outra tomada de decisão, caso encontre sua pesquisa, será retornado nas caixas de textbox.
        If Not C Is Nothing Then
            TextBox1.Text = C.Offset(0, 0)
            TextBox2.Text = C.Offset(0, 3)
            TextBox3.Text = C.Offset(0, 4)
            TextBox4.Text = C.Offset(0, 6)
            TextBox5.Text = C.Offset(0, 7)
            TextBox6.Text = C.Offset(0, 8)
            TextBox7.Text = C.Offset(0, 9)
            TextBox8.Text = C.Offset(0, 5)
 
            'Fim da Pesquisa
        End If
                    
        'Tomada de decisão em caso de não haver nenhum resultado
        If C Is Nothing Then
 
            'Sua mensagem ao usuário aqui
            MsgBox ("Nota Fiscal não encontrada!!!"), vbOKOnly, ("Pesquisa de Canhotos")
        End If
 
        'Fim da Pesquisa
    End With

End Sub

 

Desde já agradeço!!!

excel.PNG

 

RELATÓRIO DE CANHOTO DE NOTAS FISCAIS E DEPOSITOS - PRONTA ENTREGA1.zip

Compartilhar este post


Link para o post
Compartilhar em outros sites

Alguém? 

Compartilhar este post


Link para o post
Compartilhar em outros sites
3 minutos atrás, Wendell Menezes disse:

Lenilson,

 

Uma foto da planilha não motiva muito, por que não posta uma cópia da planilha inteira? Ajude-se para ser ajudado :)

Opa editando o post com a planilha.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Oi Lenilson,

 

A planilha não possui nenhuma macro, aparentemente falta a:

 

C:\Users\lenilsonsilva\Desktop\RELATÓRIO DE CANHOTO DE NOTAS FISCAIS E DEPOSITOS - PRONTA ENTREGA.xltm

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
3 minutos atrás, Wendell Menezes disse:

Oi Lenilson,

 

A planilha não possui nenhuma macro, aparentemente falta a:

 


C:\Users\lenilsonsilva\Desktop\RELATÓRIO DE CANHOTO DE NOTAS FISCAIS E DEPOSITOS - PRONTA ENTREGA.xltm

 

Desculpa... anexei o arquivo errado... ja corrigi.

Compartilhar este post


Link para o post
Compartilhar em outros sites

O  botão "Inserir" possui um form que busca os dados da NF. Depois de preencher os dados de depósito você quer colá-los na aba "Plan1" na mesma linha da NF encontrada? Se sim, pressionando qual botão?

Compartilhar este post


Link para o post
Compartilhar em outros sites
5 minutos atrás, Wendell Menezes disse:

O  botão "Inserir" possui um for que busca os dados da NF. Depois de preencher os dados de dpósito você quer colá-los na aba "Plan1" na mesma linha da NF encontrada? Se sim, pressionando qual botão?

É isso mesmo... eu esqueci de criar um botão de inclusão de dados... mas será que dá para usar o botão salvar trabalho?

Compartilhar este post


Link para o post
Compartilhar em outros sites
Private Sub CommandButton1_Click()

With Plan1.Range("B:B")
    Set C = .Find(TextBox1.Value, LookIn:=xlValues, LOOKAT:=xlWhole)
    If Not C Is Nothing Then
        C.Offset(0, 7) = TextBox5.Text
        C.Offset(0, 8) = TextBox6.Text
        C.Offset(0, 9) = TextBox7.Text
        C.Offset(0, 6) = TextBox4.Text
        MsgBox "Dados inseridos", vbInformation, "Pesquisa de Canhotos"
        ActiveWorkbook.Save
            Else
        MsgBox "Nota Fiscal não encontrada!!!", vbCritical, "Pesquisa de Canhotos"
    End If
End With

End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
26 minutos atrás, Wendell Menezes disse:

Private Sub CommandButton1_Click()

With Plan1.Range("B:B")
    Set C = .Find(TextBox1.Value, LookIn:=xlValues, LOOKAT:=xlWhole)
    If Not C Is Nothing Then
        C.Offset(0, 7) = TextBox5.Text
        C.Offset(0, 8) = TextBox6.Text
        C.Offset(0, 9) = TextBox7.Text
        C.Offset(0, 6) = TextBox4.Text
        MsgBox "Dados inseridos", vbInformation, "Pesquisa de Canhotos"
        ActiveWorkbook.Save
            Else
        MsgBox "Nota Fiscal não encontrada!!!", vbCritical, "Pesquisa de Canhotos"
    End If
End With

End Sub

 

Obrigado brother mas deu ruim... Não estou achando o erro, mas não está inserindo as informações :( 

Compartilhar este post


Link para o post
Compartilhar em outros sites

estranho, vou postar a planilha já com o código para você testar.

 

 

relatório de canhoto de notas fiscais e depositos - pronta entrega1.zip

Compartilhar este post


Link para o post
Compartilhar em outros sites

@Wendell Menezes Consegui brother... Deu certo agora... eu estava colocando na ordem errada as informações!

Compartilhar este post


Link para o post
Compartilhar em outros sites
1 minuto atrás, Wendell Menezes disse:

Excelente =)

Muito obrigado pela ajuda... Foi de suma importância para meu projeto!!!

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×