Ao Salvar acrescenta em duplicado

2024 - VBA & Macros

Post Recente por Fernando Fernandes 12 anos atrás

5 Posts

1 Usuários

0 Reactions

521 Visualizações

RSS

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

(@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

(@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

(@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

(@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.