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