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.

Editar registro no form vba excel

Ponto de encontro entre aqueles que precisam e fornecem soluções baseadas no Microsoft Excel e VBA. Precisa de uma solucão em VBA? É um consultor ou programador independente? Esse é o lugar!
BNOGUEIR
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qui Mai 12, 2016 4:42 pm

Editar registro no form vba excel

Mensagem por BNOGUEIR » Qui Mai 12, 2016 10:50 pm

Prezados boa noite, sou novo no que se refere a VBA, e estou com a seguinte dificuldade,
Criei um formulario, onde preencho os dados e estes sao salvos na planilha, ate ai ok.
o Botao excluir funciona bem, bem como o botao pesquisar, so que, quando pesquiso um registro, e altero o mesmo, ao clicar no botao editar, para gravar a alteracao, o registro alterado acaba sendo gravado na linha 1 da planilha,
abaixo segue o codigo que usei, se alguem puder me ajudar agradeço.

Public Function NEWEDITAR() As Integer
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("AGENDA") 'Cadastra ("range dinamica nomeada - Expande com a digitação")

Linha = txtCodigo + 1
'Desprotege a planilha utilizando o password "Senha"
Sheets("AGENDA").Unprotect "1"

With ws

.Cells(Linha, 2) = CMBMESREF
.Cells(Linha, 3) = CMBCELULAEMISSAO
.Cells(Linha, 4) = TXTCLIENTE
.Cells(Linha, 5) = TXTPRODUTO
.Cells(Linha, 6) = TXTAPOLICE
.Cells(Linha, 7) = CMBSISTEMADEPONTA
.Cells(Linha, 8) = CMBAREADETRATAMENTO
.Cells(Linha, 9) = TXTDETALHEDAOCORRENCIA
.Cells(Linha, 10) = OptionButtonSIM
.Cells(Linha, 11) = CMBUSUARIO
.Cells(Linha, 12) = TXTDATAABERTURA
.Cells(Linha, 13) = CMBSTATUSATUAL
.Cells(Linha, 14) = TXTDATACONCLUSAO
.Cells(Linha, 15) = TXTDATACOBRANCA
.Cells(Linha, 16) = TXTDATASOLUCAO
.Cells(Linha, 17) = TXTTEMPODECORRIDO
.Cells(Linha, 18) = TXTOBS1
.Cells(Linha, 19) = TXTOBS2
.Cells(Linha, 20) = TXTOBS3
.Cells(Linha, 21) = TXTOBS4
.Cells(Linha, 22) = txtsolucaoempregada
.Cells(Linha, 23) = OptionButtonsemsolucao
.Cells(Linha, 24) = TXTOCORRENCIA
.Cells(Linha, 1) = cmbNUMCHAMADO.Text 'se mudar essa linha de código par ínicio só vai afetar a col(A)
End With
cmbNUMCHAMADO.Text = "AGENDA" 'Cadastra ("range dinamica nomeada - expande com a digitação")
cmbNUMCHAMADO.Text = txtCodigo - 1
MsgBox ("Dados Atualizados com Sucesso!"), vbInformation, "https://www.google.com.br/?gws_rd=ssl#q=rowsource+vba"
ActiveWorkbook.Save
MsgBox ("Registro Salvo com Sucesso!.")
LIMPAR
CMDGRAVAR.Enabled = True
CMDEDITAR.Enabled = False
End Function



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
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1091
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Bragança Paulista - SP

Re: Editar registro no form vba excel

Mensagem por Mikel Silveira Fraga » Sex Mai 13, 2016 11:29 am

BNOGUEIR, bom dia e seja bem vindo ao fórum.

Cara, vendo o código esta tudo ok. Não consegui detectar nenhuma inconsistência no mesmo para estar gerando esse erro.

Contudo, seria interessante você postar seu modelo aqui no fórum, para que o usuários possam lhe ajudar de forma mais efetiva.

Abraços e excelente final de semana.


Gostou da dica? Clique no JOIA no topo da mensagem.
Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Orientações sobre o fórum, acesse aqui.

Mikel Silveira Fraga
E-mail: mikel-sf@hotmail.com | Skype: mikelsf | Linked In

Avatar do usuário
netocasaroli
Consultor
Consultor
Mensagens: 219
Registrado em: Seg Mai 11, 2015 5:24 pm
Localização: Londrina-PR

Re: Editar registro no form vba excel

Mensagem por netocasaroli » Sáb Mai 14, 2016 5:23 pm

O comando que define a linha onde os dados serão gravados é: Linha = txtCodigo + 1. Verifique se a informação em txtCodigo está correta; depure seu código e veja o que acontece quando essa linha é executada.


Se a resposta foi útil, não esqueça de registrar seu agradecimento!! [É aquele "joinha" ali em cima...]


Abs..

Neto Casaroli

CROVADOR
Colaborador
Colaborador
Mensagens: 32
Registrado em: Ter Mar 13, 2018 11:15 am

Botão Editar Dados

Mensagem por CROVADOR » Qui Abr 05, 2018 3:13 pm

bom dia amigos venho solicitar ajuda novamente de vcs,
eu coloquei um botão no form ordem de serviço para alterar as ordens de serviço mas não consegui realizar este codigo, alguem pode ajudar por favor...



desde já agreço a todos...
segue anexo

Aguardo ajuda amigos ...help...
Anexos
VBA ATUAL.rar
(382.53 KiB) Baixado 70 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.


CROVADOR
Colaborador
Colaborador
Mensagens: 32
Registrado em: Ter Mar 13, 2018 11:15 am

Ordem Serviço (Editar e Acrescentar dados)

Mensagem por CROVADOR » Ter Abr 10, 2018 1:01 pm

Boa tarde Senhores,
Deixei a planilha de fácil acesso para pedir ajuda de vocês...
Preciso Editar, acrescentar os dados na ordem de serviço, não consegui realizar o código.
Fiz várias pesquisas e não tive exito, venho pedir por favor para que ajudem-me se poder amigos...

Segue Anexo...
Aguardo...



Mais uma vez obrigado e Deus abençoe...
Anexos
Botao Alterar.rar
(34.92 KiB) Baixado 77 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.


Responder