Notifications
Clear all

Porque está alterando a linha errada ?

5 Posts
2 Usuários
0 Reactions
1,274 Visualizações
willianrc
(@willianrc)
Posts: 0
Trusted Member
Topic starter
 

Olá amigos,
No meu projetinho está alterando o valor errado, sempre está alterando o valor da última linha , e não da linha que era esperado.
eu acho que o problema é aqui :

indice = wsCadastro.UsedRange.Rows.Count

, alguem pode me ajudar ?

Segue meu projetinho em Anexo

Obrigado.

 
Postado : 15/05/2017 9:52 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não vi seu modelo, mas de uma lida no tópico http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=23740&hilit=+usedrange que talvez o auxilie

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

 
Postado : 15/05/2017 10:27 am
willianrc
(@willianrc)
Posts: 0
Trusted Member
Topic starter
 

Eu li, mas não deu certo não. mudei a linha para

 indice = WorksheetFunction.VLookup(Val(TxtAlteraLogin.Value), .Range("A2:A65536"), 2, 0)

nao funcionou não. Ou eu não soube fazer a referência certa né.

 
Postado : 15/05/2017 10:43 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Aparentemente leu mas não entendeu.
No tópico há duas situações uma referente ao usedRange.
assim para definir coerentemente o indice utilize:
De:
[url]indice = wsCadastro.UsedRange.Rows.Count[/url]
para:
[url]indice = wsCadastro.Cells(Cells.Rows.Count, "A").End(xlUp).Row+1[/url]

A forma que utilizou, e para a procura de um determinado valor em uma range.
Obs.: Estou sem possibilidade de download do arquivo

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

 
Postado : 15/05/2017 1:15 pm
willianrc
(@willianrc)
Posts: 0
Trusted Member
Topic starter
 

Aparentemente leu mas não entendeu.
No tópico há duas situações uma referente ao usedRange.
assim para definir coerentemente o indice utilize:
De:
[url]indice = wsCadastro.UsedRange.Rows.Count[/url]
para:
[url]indice = wsCadastro.Cells(Cells.Rows.Count, "A").End(xlUp).Row+1[/url]

A forma que utilizou, e para a procura de um determinado valor em uma range.
Obs.: Estou sem possibilidade de download do arquivo

Utilizei essas 2 opções, e na hora de alterar na primeira opção, altera somente o ultimo cadastro e não o cadastro referente a pesquisa.
Na segunda opção ele grava o valor na linha abaixo de todos os cadastros.

 
Postado : 15/05/2017 1:26 pm