Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ao Salvar acrescent...
 
Notifications
Clear all

Ao Salvar acrescenta em duplicado

 
2024 - VBA & Macros
5 Posts
1 Usuários
0 Reactions
515 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boas caros colegas,

Tenho uma situação que não percebo o motivo que acontece com meu ficheiro, pois é o mesmo UserForm e ações de um outro e não acontece o que acontece a este.
Estou a fazer um cadastro de informações (cliente), porem quando carrego em salvar para a plan indica, salva! mas aparece sempre o ultimo item salvo duplicado, ou seja.
Exemplo apos execução:

Cod Nome endereço cidade estado
1 Fulano de Tal Rua A, 13 Teste TT
Fulano de Tal Rua A, 13 Teste TT

Obs.: quando acrescento um novo cadastro a suposta linha duplicada do 1º cadastro passa a ser o 2º cadastro e este é que se acrescenta a tal linha duplicada.
Cod Nome endereço cidade estado
1 Fulano de Tal Rua A, 13 Teste TT
2 Beltrano de Tal Rua ABC, 13 Teste TT
Beltrano de Tal Rua ABC, 13 Teste TT

Gostaria que saber o que esta errado no codigo Salvar que esta a acrescentar em duplicado o novo cadastro.
Segue anexo.
Desde ja obrigado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/04/2013 10:37 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Altere a rotina no botão salvar conforme abaixo, as linhas adicionais nessa rotina e que "causam" a duplicidade

Private Sub cmdSalvar_Click()

If txtEmpresa.Enabled = True Then
        If Not IsNumeric(lblCod.Caption) = True Then
            lsInserir
            Sheets("Menu").Activate
        Else
            lsAlterarStudent
            Sheets("Menu").Activate
        End If
        
        lsDesabilitar
        MsgBox "Registro Salvo!"
    End If
Sheets("Menu").Activate
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/04/2013 6:28 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Uma outra forma seria...
http://www.sendspace.com/file/aoitow

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/04/2013 7:03 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Sei não Ale, mas me parece que no seu exemplo continua a falha reportada, inclusive "salva" o duplicado onde o cursor estiver posicionadao.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/04/2013 10:30 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Confiando na sua resposta (já que o solicitante do poste, iria testar primeiramente sua resposta, que estaria provavelmente correta), eu cabei fazendo e como sempre, sem prestar atenção, e não testado. :( :(

Olá Luciano Santos, reveja com atenção e faça os teste necessários caso contrário o seu problema ainda não tenha sido resolvido.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/04/2013 2:46 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico