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: 103
Registrado em: Qua Jul 24, 2013 10:12 pm
Has thanked: 10 times
Have thanks: 7 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 últil para você, por gentileza, Amigo,clique na mãozinha ao lado direito da sua tela. No canto superior.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 3424
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 61 times
Have thanks: 1491 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: 103
Registrado em: Qua Jul 24, 2013 10:12 pm
Has thanked: 10 times
Have thanks: 7 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: 742
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 10 times
Have thanks: 276 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: 103
Registrado em: Qua Jul 24, 2013 10:12 pm
Has thanked: 10 times
Have thanks: 7 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: 742
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 10 times
Have thanks: 276 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: 103
Registrado em: Qua Jul 24, 2013 10:12 pm
Has thanked: 10 times
Have thanks: 7 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: 103
Registrado em: Qua Jul 24, 2013 10:12 pm
Has thanked: 10 times
Have thanks: 7 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: 157
Registrado em: Sáb Mai 09, 2015 10:35 pm
Has thanked: 45 times
Have thanks: 60 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante