Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
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

Editado por Lenilson Gomes
Inclusão de Imagem e atualização

Compartilhar este post


Link para o post
Compartilhar em outros sites
  • Autor do tópico
  • Alguém? 

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    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 :)

    Editado por Wendell Menezes

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites
  • Autor do tópico
  • 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
  • Autor do tópico
  • 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?

    Editado por Wendell Menezes

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites
  • Autor do tópico
  • 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

     

    Editado por Wendell Menezes

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites
  • Autor do tópico
  • 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
  • Autor do tópico
  • @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
  • Autor do tópico
  • 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






    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

    ×