Notifications
Clear all

Alterar cadastro clientes

4 Posts
2 Usuários
0 Reactions
746 Visualizações
(@giorgioq)
Posts: 9
Active Member
Topic starter
 

blz pessoal, gostaria de uma ajuda com algo q está me empacando aqui.
estou fazendo um formulário que irá pesquisar e depois poder fazer alteraçoes nos cadastros.
a parte de localizar ja está ok, eu digito o código de cadastro da pessoa em um campo aperto num botao pesquisar e eles preenche os textboxs do formulario com as informaçoes da pessoa cadastrada

ao tentar criar a funçao do botao que faz a alteraçao no cadastro está me retornando um erro com a funçao .match, segue como está o codigo

Private Sub Bsalvaralt_Click()

Dim intervalo_proc As Range

tel_alterado = txtproctelefone
valor_procurado = txtproccod1 'quando eu faço a pesquisa do cadastro anteriormente, esse textbox fica preenchido com o numero do cadastro da pessoa, que uso pra encontrar em q linha está esse cadastro

Set intervalo_proc = Sheets("Jogadores").Range("A2:A1003")

On Error GoTo Falha
'Definir valor da linha da tabela onde ocorrerá a alteração
linhaalt = Application.WorksheetFunction.Match(valor_procurado, intervalo_proc, 0)

'Fazer alterações
Sheets("Jogadores").Cells(linhaalt + 1, 9).Value = tel_alterado 'para fazer a alteraçao na coluna 9, e na linha onde está o cadastro, o +1 é para corrigir a linha pois a pesquisa começa de A2:A1003

Falha:
MsgBox "falha na alteraçao"

End Sub

quando tento fazer o teste ele me retorna a msg de falha da funçao match (por isso add o tratamento de erro)
so que, pelo fato da alteraçao so poder ser feita depois que eu ja tenha feito a pesquisa e encotrado o codigo da pessoa, ele teria que encontrar o valor pq está la na coluna da tabela das pessoas cadastradas (fazendo isso numa célula com =corresp(.......) ele me retorna o valor da linha normal

o que pode está dando errado no código acima?
Agradeço a ajuda.

 
Postado : 01/06/2014 9:26 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Use a pesquisa do fórum!
viewtopic.php?f=10&t=2821
viewtopic.php?f=10&t=1586
viewtopic.php?f=10&t=2786

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/06/2014 5:27 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Talvez seja por que o valor em sua planilha seja numero e esteja "procurando" como texto.

O melhor e dispor seu modelo, pois ficará mais simples e direto auxilia-lo

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/06/2014 6:20 am
(@giorgioq)
Posts: 9
Active Member
Topic starter
 

Consegui encotrar erro.
Era exatamente isso reinaldo, na tabela os valores era numeros e a procura estava como texto...
resolvi apenas adicionando Dim valor_procurado as Integer
Vlw pelo toque. agora q o codigo está funcionando da uma organizada nele e adicionar o resto q falta. obrigado

 
Postado : 02/06/2014 8:25 am