Página 1 de 1

Editar registro no form vba excel

Enviado: Qui Mai 12, 2016 10:50 pm
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

Re: Editar registro no form vba excel

Enviado: Sex Mai 13, 2016 11:29 am
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.

Re: Editar registro no form vba excel

Enviado: Sáb Mai 14, 2016 5:23 pm
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.

Botão Editar Dados

Enviado: Qui Abr 05, 2018 3:13 pm
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...

Ordem Serviço (Editar e Acrescentar dados)

Enviado: Ter Abr 10, 2018 1:01 pm
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...