Não permitir cadastrar com a mesma nota fiscal

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Não permitir cadastrar com a mesma nota fiscal

Mensagempor gfsouza86 » Seg Abr 16, 2018 11:48 am

Bom dia
Tenho um cadastro parecido com o exemplo em anexo
Gostaria que fosse informado caso o usuario ao digitar o mesmo numero de NF para um fornecedor já cadastrado nao fosse permitido, por exemplo:

NF 0000 já cadastrada para o fornecedor XPTO

Porem se ele fosse cadastrar a NF com o mesmo numero para outro fornecedor fosse permitido!
Você não está autorizado a ver ou baixar esse anexo.
Editado pela última vez por Patropi em Ter Abr 17, 2018 5:58 pm, em um total de 2 vezes.
Razão: O título deve ser um resumo da dúvida - Leia as regras do fórum
G@b®!eL

Se a resposta foi útil para você, por gentileza, clique na mãozinha ao lado direito da sua tela no canto superior.
gfsouza86
Membro
Membro
 
Mensagens: 134
Registrado em: Qua Jul 24, 2013 10:12 pm
Has thanked: 10 times
Have thanks: 10 times

{ SO_SELECT }

Re: CADASTRO

Mensagempor wagner » Seg Abr 16, 2018 3:24 pm

gfsouza86,

Boa tarde!

Veja se é assim.
Você não está autorizado a ver ou baixar esse anexo.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4230
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1838 times

Re: CADASTRO

Mensagempor gfsouza86 » Seg Abr 16, 2018 3:32 pm

Boa tarde
É isso mesmo

Só mais uma pergunta!

Teria como na msgbox informar tipo assim:

A NF 123 já esta cadastrada para o fornecedor XPTO!
G@b®!eL

Se a resposta foi útil para você, por gentileza, clique na mãozinha ao lado direito da sua tela no canto superior.
gfsouza86
Membro
Membro
 
Mensagens: 134
Registrado em: Qua Jul 24, 2013 10:12 pm
Has thanked: 10 times
Have thanks: 10 times

Re: CADASTRO

Mensagempor klarc28 » Ter Abr 17, 2018 12:14 am

Isso é chamado de concatenar Strings. É elementar em linguagem de programação.
A primeira vez que ouvi a palavra "concatenar", eu me apavorei.
Pensei "isso não é para mim, jamais vou aprender".
Mas fui insistindo e acabei pegando o jeito.


Código: Selecionar todos
MsgBox "A NF " & txtcodigonovo.Text & " já está cadastrada para  o fornecedor " & txtnome.Text, vbCritical, "ERRO"
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 968
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 20 times
Have thanks: 404 times

Re: CADASTRO

Mensagempor gfsouza86 » Ter Abr 17, 2018 4:49 pm

klarc28 muito obrigado pela explicação!

wagner coloquei seu código no meu projeto, porem mesmo assim ele esta permitindo o cadastro em duplicidade (mesma NF para o mesmo fornecedor)

Porem não consigo colocar o arquivo aqui por ser muito grande segue o link do mesmo que esta no onedrive

https://1drv.ms/x/s!Auo9f3NJzWXdi-kHzF284wFQjud6CQ

Ele tambem esta com alguns erros:

- erro 9 ao chamar o frmmenu (porem o mesmo existe)
- quando não localizo o registro é exibida a msg informando porem os botoes aparecem (mesmo eu colocando o código para não aparecer)
G@b®!eL

Se a resposta foi útil para você, por gentileza, clique na mãozinha ao lado direito da sua tela no canto superior.
gfsouza86
Membro
Membro
 
Mensagens: 134
Registrado em: Qua Jul 24, 2013 10:12 pm
Has thanked: 10 times
Have thanks: 10 times

Re: Não permitir cadastrar com a mesma nota fiscal

Mensagempor klarc28 » Qua Abr 18, 2018 12:21 am

No seu projeto, você mudou a coluna do fornecedor. Qualquer detalhe, em programação, faz enorme diferença.

Código: Selecionar todos
For i = 2 To UltimaLinha
        If Range("A" & i).Value = txtnf.Text And UCase(Range("C" & i).Value) = UCase(txtprestador.Text) Then
            MsgBox "A NF " & txtnf.Text & " já está cadastrada para  o fornecedor " & txtprestador.Text, vbCritical, "ERRO"
            Exit Sub
        End If
    Next i

O seu arquivo não tem algumas planilhas que estão no código:

Código: Selecionar todos
Private Sub UserForm_Initialize()
Sheets("base_cadastro").Visible = True
'Sheets("relatorio").Visible = False
'Sheets("bases").Visible = False
End Sub
Você não está autorizado a ver ou baixar esse anexo.
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 968
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 20 times
Have thanks: 404 times

Re: Não permitir cadastrar com a mesma nota fiscal

Mensagempor gfsouza86 » Qua Abr 18, 2018 6:25 pm

klarc28 realizei as alterações que você me informou

Porem mesmo com o sódigo abaixo informado por você ainda esta deixando realizar o cadastro
Código: Selecionar todos
For i = 2 To UltimaLinha
        If Range("A" & i).Value = txtnf.Text And UCase(Range("C" & i).Value) = UCase(txtprestador.Text) Then
            MsgBox "A NF " & txtnf.Text & " já está cadastrada para  o fornecedor " & txtprestador.Text, vbCritical, "ERRO"
            Exit Sub
        End If
    Next i


Para chamar o frmmenu, retirei a linha
Código: Selecionar todos
'Sheets("relatorio").Visible = False
e voltou a funcionar perfeitamente!

Porem ainda restam dois problemas rs
- FRMEDITARNF
quando não localizo o registro é exibida a msg informando porem os botoes aparecem (mesmo eu colocando o código para não aparecer)

- FRMEDITARNF
na hora de atualizar um registro ele nao esta atualizando, ele esta criando um registro na linha 2
Você não está autorizado a ver ou baixar esse anexo.
G@b®!eL

Se a resposta foi útil para você, por gentileza, clique na mãozinha ao lado direito da sua tela no canto superior.
gfsouza86
Membro
Membro
 
Mensagens: 134
Registrado em: Qua Jul 24, 2013 10:12 pm
Has thanked: 10 times
Have thanks: 10 times

Re: Não permitir cadastrar com a mesma nota fiscal

Mensagempor gfsouza86 » Sex Abr 20, 2018 3:29 pm

Alguma ajuda?
G@b®!eL

Se a resposta foi útil para você, por gentileza, clique na mãozinha ao lado direito da sua tela no canto superior.
gfsouza86
Membro
Membro
 
Mensagens: 134
Registrado em: Qua Jul 24, 2013 10:12 pm
Has thanked: 10 times
Have thanks: 10 times

Re: Não permitir cadastrar com a mesma nota fiscal

Mensagempor srobles » Sex Abr 20, 2018 5:35 pm

Gabriel,

Veja se as alterações atendem sua necessidade.

PS : Não consegui postar o arquivo aqui, então baixe deste link do WeTransfer https://we.tl/uM96yJ17Re

Abs
Saulo Robles

Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond
srobles
Membro
Membro
 
Mensagens: 176
Registrado em: Sáb Mai 09, 2015 10:35 pm
Has thanked: 58 times
Have thanks: 71 times

Re: Não permitir cadastrar com a mesma nota fiscal

Mensagempor gfsouza86 » Sex Mai 04, 2018 4:08 pm

srobles desculpe pela demora em responder, mas era isso mesmo
Me ajudou bastante
G@b®!eL

Se a resposta foi útil para você, por gentileza, clique na mãozinha ao lado direito da sua tela no canto superior.

For this post the author gfsouza86 thanked:
srobles (Seg Mai 07, 2018 2:16 pm)
gfsouza86
Membro
Membro
 
Mensagens: 134
Registrado em: Qua Jul 24, 2013 10:12 pm
Has thanked: 10 times
Have thanks: 10 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: franca, teleguiado e 8 visitantes