Botao de salvar - Resolvido

[joseA]

Tomás,



Qual seria o link para o modelo mais atual da planilha ModeloCadastro?

[webmaster]

Luiz,

Sempre deixo ele atualiza aqui:

http://www.tomasvasquez.com.br/blog/mod ... soft-excel

Abraços

[joseA]

Luiz,

Sempre deixo ele atualiza aqui:

http://www.tomasvasquez.com.br/blog/mod ... soft-excel

Abraços

Tomás,

Apesar do tópico ter sido criado pelo Luiz, fui eu que fiz a solicitação - José -, meio xereta.

Obrigado pela atenção!!

[joseA]

Luiz,



Se o seu problema seria com o botão salvar eis um norte, copie/cole e informe:

Código: Selecionar todos

Dim codigo
codigo = Plan1.Range("A65536").End(xlUp).Value + 1

Dim i As Integer
i = Plan1.Range("A65536").End(xlUp).Offset(1, 0).Row
Plan1.Range("A" & i).Value = codigo
Plan1.Range("B" & i).Value = Me.TextBox_nome
Plan1.Range("C" & i).Value = Me.TextBox_endereco
Plan1.Range("D" & i).Value = Me.TextBox_numero
Plan1.Range("E" & i).Value = Me.TextBox_complemento
    MsgBox "Entrada de dados realizada com sucesso !!!", 64, "Entrada de Dados"
AtualizaComboBox_Codigo

[webmaster]

Xereta?

Se não fosse por vocês, estou estaria perdido...

Todo e qualquer tipo de ajuda é sempre bem vindo.

Abraços

[jovemlima]

Jose obrigado pela força, funcionou certinho, ta salvando, mas acho que não falei direito, no topico a ideia do ricardo era que este botao tambem aceite alteração. No modelo que voce mandou quando seleciono um codigo ja lançado ele cria um novo e salvar. Não autera. Desculpa ae pela má explicação.

Será que voce pode me ajudar neste probleminha?



SDS
Luiz