Não Gravar itens duplicados

Text Box, Form's, rotinas, etc.
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 Gravar itens duplicados

Mensagempor menezesr » Qui Jun 13, 2019 3:37 pm

Estou aqui de novo e peço desculpas, estou aprendendo na área.
Enfim eu estou cadastrando os itens, porem ele cadastra por exemplo a nota 322, quantas vezes eu mandar!
queria evitar mandar itens duplicados, um aviso de que essa nota já existe, segue o código de cadastro que tenho.
O TextBox1 que é o numero da nota!

e se não for pedir d + um código para que eu possa classificar a planilha de numero de nota maior para menor!

obrigado!

Código: Selecionar todos
Private Sub CommandButton2_Click()
'Ativar a primeira planilha
ThisWorkbook.Worksheets("Planilha1").Activate
'Carregar os dados digitados nas caixas de texto para a planilha
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
ActiveCell.Offset(0, 2).Value = TextBox3.Value
ActiveCell.Offset(0, 3).Value = TextBox4.Value
ActiveCell.Offset(0, 4).Value = TextBox5.Value
ActiveCell.Offset(0, 5).Value = TextBox6.Value
ActiveCell.Offset(0, 6).Value = TextBox7.Value
ActiveCell.Offset(0, 7).Value = TextBox8.Value
ActiveCell.Offset(0, 8).Value = TextBox9.Value
ActiveCell.Offset(0, 9).Value = TextBox10.Value
ActiveCell.Offset(0, 10).Value = TextBox11.Value
ActiveCell.Offset(0, 11).Value = TextBox12.Value
MsgBox ("Dados salvos na planilha com sucesso"), vbInformation, "Sucesso"

End Sub
menezesr
Membro
Membro
 
Mensagens: 9
Registrado em: Ter Jun 11, 2019 7:16 pm
Has thanked: 0 time
Have thanks: 0 time

{ SO_SELECT }

Re: Não Gravar itens duplicados

Mensagempor srobles » Qui Jun 13, 2019 7:58 pm

menezesr,

Se possível, disponibilize seu modelo, assim podemos trabalhar diretamente na disposição dos dados contidos na planilha e elaborar a melhor maneira para chegar ao resultado esperado.

No aguardo,

Abs
Espero ter ajudado.

Abs.

Saulo Robles

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

Re: Não Gravar itens duplicados

Mensagempor menezesr » Qui Jun 13, 2019 8:06 pm

menezesr
Membro
Membro
 
Mensagens: 9
Registrado em: Ter Jun 11, 2019 7:16 pm
Has thanked: 0 time
Have thanks: 0 time

Re: Não Gravar itens duplicados

Mensagempor srobles » Qui Jun 13, 2019 9:06 pm

menezesr.

Veja se as alterações feitas no modelo atendem sua necessidade.

Repare que adicionei um módulo e neste módulo, criei 3 rotinas :
1) Para limpar os controles TextBox do Userform1
2) Para capturar os dados de cada campo do Userform1 (para validação, caso necessite)
3) Para realizar as 3 operações básicas com registros, que são, Adicionar, Editar e excluir. Nesta, basta apenas passar o tipo de operação : "Novo", "Editar" e "Excluir".
Estude o código e adapte-o á sua necessidade.

Link : https://www.sendspace.com/file/hkms2k

Espero ter ajudado.

Abs
Espero ter ajudado.

Abs.

Saulo Robles

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

Re: Não Gravar itens duplicados

Mensagempor menezesr » Qui Jun 13, 2019 9:31 pm

Cara que perfeito ta do jeito que eu quero, vou dar uma boa estudada nesse código, mas eu tenho um problema. ao cadastrar nota por exemplo , se ficar tudo em branco ele me avisa para preencher, porem se eu botar só o numero da nota e o resto em branco, ele inserir o comando, mas não inseri nada na planilha e nem volta outro alerta!
menezesr
Membro
Membro
 
Mensagens: 9
Registrado em: Ter Jun 11, 2019 7:16 pm
Has thanked: 0 time
Have thanks: 0 time

Re: Não Gravar itens duplicados

Mensagempor srobles » Qui Jun 13, 2019 9:49 pm

menezesr,

Fiz alguns testes e não enfrentei os problemas descrito. Todavia, dei mais algumas pequenas incrementadas no formulário e rotinas e acredito que esteja da forma desejada.

Favor, faça testes e retorne ok?

Link: https://www.sendspace.com/file/jsgahc

Espero ter ajudado.

Abs
Espero ter ajudado.

Abs.

Saulo Robles

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

Re: Não Gravar itens duplicados

Mensagempor menezesr » Qui Jun 13, 2019 10:01 pm

caro amigo seu conhecimento é de outro mundo!

agora sim, posso continuar, você mandou muito bem, vou dar uma estudadas nos codigos, obrigado de novo

só ficou me devendo um codigo para classificar a planilha de numero maior para menor, assim que eu inserir uma nota, ele classifica!
menezesr
Membro
Membro
 
Mensagens: 9
Registrado em: Ter Jun 11, 2019 7:16 pm
Has thanked: 0 time
Have thanks: 0 time

Re: Não Gravar itens duplicados

Mensagempor srobles » Qui Jun 13, 2019 10:13 pm

menezesr,

Foi mal amigo. Acabei me esquecendo desta rotina.

Veja se o novo modelo atende á sua demanda.

Link : https://www.sendspace.com/file/tsd022

Espero ter ajudado.

Abs
Espero ter ajudado.

Abs.

Saulo Robles

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


Voltar para Formulários

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 0 visitantes