Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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 »

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: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Editar registro no form vba excel

Mensagem por Mikel Silveira Fraga »

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.


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 »

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.


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Botão Editar Dados

Mensagem por CROVADOR »

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 759 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
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Ordem Serviço (Editar e Acrescentar dados)

Mensagem por CROVADOR »

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 833 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