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

[Lenilson Gomes]

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!!!

 

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

[Lenilson Gomes]

Alguém? 

[Wendell Menezes]

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

[Lenilson Gomes]

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.

[Wendell Menezes]

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

 

[Lenilson Gomes]

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.

[Wendell Menezes]

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?

[Lenilson Gomes]

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?

[Wendell Menezes]

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

 

[Lenilson Gomes]

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  

[Wendell Menezes]

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

[Lenilson Gomes]

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

[Wendell Menezes]

Excelente =)

[Lenilson Gomes]

1 minuto atrás, Wendell Menezes disse:

Excelente =)

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