Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Duplicidade no modelo de cadastro
Duplicidade no modelo de cadastro
Ola, Desde já agradeço pela paciencia.
Gostaria de colocar um modelo para evitar a duplicidade no cadastro. Porem os comandos nao deram certo, entao vou anexar uma imagem do que gostaria que acontece, mas nao do conta de fazer....Espero que me ajudem.
Exemplo:
Sub EliminaDuplicidades( )
Set rfonte = Application.InputBox("Informe Qual o Range?", _
Title:="Range(ColunaA)", Type:=8)
rfonte.Select
Selection.Copy
Sheets("Plan2").Select
Range("a1").Select
ActiveSheet.Paste
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
For Each c In Selection.Cells
If c.Value = c.Offset(1, 0).Value Then
c.Offset(1, 0).Delete Shift:=xlUp
End If
Next
End Sub
Gostaria de colocar um modelo para evitar a duplicidade no cadastro. Porem os comandos nao deram certo, entao vou anexar uma imagem do que gostaria que acontece, mas nao do conta de fazer....Espero que me ajudem.
Exemplo:
Sub EliminaDuplicidades( )
Set rfonte = Application.InputBox("Informe Qual o Range?", _
Title:="Range(ColunaA)", Type:=8)
rfonte.Select
Selection.Copy
Sheets("Plan2").Select
Range("a1").Select
ActiveSheet.Paste
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
For Each c In Selection.Cells
If c.Value = c.Offset(1, 0).Value Then
c.Offset(1, 0).Delete Shift:=xlUp
End If
Next
End Sub
- Anexos
-
- imagem.JPG (49.53 KiB) Exibido 13179 vezes
Re: Duplicidade no modelo de cadastro
Luiz,
A idéia é saber o que você não gostaria que fosse duplicado. Nome? ID? Código? Enfim.
Assim, antes de salvar o registro, colocaríamos uma rotina de verificação para ver se ocorrerá uma duplicação.
Abraços
A idéia é saber o que você não gostaria que fosse duplicado. Nome? ID? Código? Enfim.
Assim, antes de salvar o registro, colocaríamos uma rotina de verificação para ver se ocorrerá uma duplicação.
Abraços
Re: Duplicidade no modelo de cadastro
Ola,
Neste caso gostaria que Prontuario nao desse duplicidade.
Obrigado.
sds
luiz
Neste caso gostaria que Prontuario nao desse duplicidade.
Obrigado.
sds
luiz
Re: Duplicidade no modelo de cadastro
Luiz,
Ajustei o modelo cadastro para suportar a funcionalidade que deseja. Depois farei uma versão mais completa para colocar no blog, mas por enquanto, verifique a que está em anexo. Tive que fazer algumas modificações no código. Vamos discutindo-as conforme as dúvidas surgirem.
Abraços
Ajustei o modelo cadastro para suportar a funcionalidade que deseja. Depois farei uma versão mais completa para colocar no blog, mas por enquanto, verifique a que está em anexo. Tive que fazer algumas modificações no código. Vamos discutindo-as conforme as dúvidas surgirem.
Abraços
- Anexos
-
- ModeloCadastro.zip
- (54.25 KiB) Baixado 1074 vezes
- joseA
- Jedi
- Mensagens: 1048
- Registrado em: Qui Out 22, 2009 7:22 am
- Localização: Cel. Fabriciano - MG
Re: Duplicidade no modelo de cadastro
Segue um procedimento, não tem nada a ver com ModeloCadastro, adaptando dá para fazer o que vc deseja, faça um teste aí:
Código: Selecionar todos
Private Sub CommandButton1_Click()
Dim lastRow As Long
Dim rg As Range
'Ativar a primeira planilha
ThisWorkbook.Worksheets("Cadastro de Contrato").Activate
' Verifica qual a ultima linha preenchida
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
' Guarda a area a procurar
Set rg = Range("A4:A" & lastRow)
' Caso não encontre nenhum nome igual
If rg.Find(TextBox1.Text) Is Nothing Then
If MsgBox("Contrato não cadastrado. Deseja cadastrar contrato: " & Me.TextBox1 & "?", vbYesNo + vbQuestion, "Contratos") = vbNo Then
Exit Sub
End If
Cells(lastRow + 1, 1) = TextBox1.Text
Cells(lastRow + 1, 2) = TextBox2.Text
Cells(lastRow + 1, 3) = TextBox3.Text
Cells(lastRow + 1, 4) = TextBox4.Text
Cells(lastRow + 1, 5) = TextBox5.Text
MsgBox "O contrato: " & Me.TextBox1 & " foi registrado com sucesso!!!", 64, "Contratos"
'Limpar as caixa de texto
TextBox1.Value = Empty
TextBox2.Value = Empty
TextBox3.Value = Empty
TextBox4.Value = Empty
TextBox5.Value = Empty
'Colocar o foco na primeira caixa de texto
TextBox1.SetFocus
Sheets("Plan2").Activate
Else
MsgBox "Não é possível inserir este contrato, o mesmo já existe!", vbCritical
End If
End Sub
Re: Duplicidade no modelo de cadastro
Ola.
Vou anexar a planilha pra vcs me ajudarem, porque esta tudo blz, porem agora quando vou alterar ele ve tudo como duplicidade....Tem como arrumar?
E este modelo do jose não consegui adequar ele na planilha de cadastro....
sds
luiz
Vou anexar a planilha pra vcs me ajudarem, porque esta tudo blz, porem agora quando vou alterar ele ve tudo como duplicidade....Tem como arrumar?
E este modelo do jose não consegui adequar ele na planilha de cadastro....
sds
luiz
- Anexos
-
- MODULO CADSATRO VER.rar
- (153.54 KiB) Baixado 713 vezes
Re: Duplicidade no modelo de cadastro
Luiz,
Precisei fazer alguns ajustes na função. Agora está funcionando.
Abraços
Precisei fazer alguns ajustes na função. Agora está funcionando.
Abraços
- Anexos
-
- MODULO CADSATRO VER.zip
- (141.81 KiB) Baixado 1240 vezes
Re: Duplicidade no modelo de cadastro
Ficou muito boa....Valeu.
Obrigado, vou mexer mais um pouco e vou colocando aqui, obrigado.
sds
luiz
Obrigado, vou mexer mais um pouco e vou colocando aqui, obrigado.
sds
luiz
Re: Duplicidade no modelo de cadastro
Ficou tão legal que logo vou colocar isso na planilha oficial.
Valeu a inspiração!
Valeu a inspiração!
Re: Duplicidade no modelo de cadastro
webmaster escreveu:Ficou tão legal que logo vou colocar isso na planilha oficial.
Valeu a inspiração!
onde posso baixar este exemplo?
obrigado