ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Duplicidade no modelo de cadastro

Dúvidas gerais sobre Excel
jovemlima
Consultor
Consultor
Mensagens: 247
Registrado em: Ter Jan 05, 2010 7:20 am

Duplicidade no modelo de cadastro

Mensagem por jovemlima » Sex Jan 29, 2010 12:20 pm

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
Anexos
imagem.JPG
imagem.JPG (49.53 KiB) Exibido 8625 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 2828
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Duplicidade no modelo de cadastro

Mensagem por webmaster » Sex Jan 29, 2010 12:55 pm

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


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

jovemlima
Consultor
Consultor
Mensagens: 247
Registrado em: Ter Jan 05, 2010 7:20 am

Re: Duplicidade no modelo de cadastro

Mensagem por jovemlima » Sex Jan 29, 2010 1:57 pm

Ola,

Neste caso gostaria que Prontuario nao desse duplicidade.

Obrigado.

sds
luiz



Avatar do usuário
webmaster
Administrador
Mensagens: 2828
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Duplicidade no modelo de cadastro

Mensagem por webmaster » Sáb Jan 30, 2010 12:30 pm

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
Anexos
ModeloCadastro.zip
(54.25 KiB) Baixado 857 vezes


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1008
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Duplicidade no modelo de cadastro

Mensagem por joseA » Sáb Jan 30, 2010 10:27 pm

Segue um procedimento, não tem nada a ver com ModeloCadastro, adaptando dá para fazer o que vc deseja, faça um teste aí:

:shock:

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


Se o post lhe agradou clique no sinal de positivo (ao lado de citar).

jovemlima
Consultor
Consultor
Mensagens: 247
Registrado em: Ter Jan 05, 2010 7:20 am

Re: Duplicidade no modelo de cadastro

Mensagem por jovemlima » Seg Fev 01, 2010 3:19 pm

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
Anexos
MODULO CADSATRO VER.rar
(153.54 KiB) Baixado 508 vezes



Avatar do usuário
webmaster
Administrador
Mensagens: 2828
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Duplicidade no modelo de cadastro

Mensagem por webmaster » Ter Fev 02, 2010 2:30 pm

Luiz,

Precisei fazer alguns ajustes na função. Agora está funcionando.

Abraços
Anexos
MODULO CADSATRO VER.zip
(141.81 KiB) Baixado 983 vezes


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

jovemlima
Consultor
Consultor
Mensagens: 247
Registrado em: Ter Jan 05, 2010 7:20 am

Re: Duplicidade no modelo de cadastro

Mensagem por jovemlima » Qua Fev 03, 2010 7:29 am

Ficou muito boa....Valeu.

Obrigado, vou mexer mais um pouco e vou colocando aqui, obrigado.

sds
luiz



Avatar do usuário
webmaster
Administrador
Mensagens: 2828
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Duplicidade no modelo de cadastro

Mensagem por webmaster » Qua Fev 03, 2010 8:32 am

Ficou tão legal que logo vou colocar isso na planilha oficial.

Valeu a inspiração!
;)


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

noxios
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Sáb Out 22, 2011 8:49 am

Re: Duplicidade no modelo de cadastro

Mensagem por noxios » Qui Out 27, 2011 7:44 pm

webmaster escreveu:Ficou tão legal que logo vou colocar isso na planilha oficial.

Valeu a inspiração!
;)


onde posso baixar este exemplo?
obrigado



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder