ListView não mostra na linha correta

[Marcus.Bull]

Bom dia a todos.

Sou novo no neste Forum

Adaptei essa ListView, só que não esta trazendo na linha correta, quando localizo um registro não altera, não exclui, e diz q não tem dados.

alguém pode me ajudar ?

atenciosamente,

Marcus Bull

Petrópolis/RJ

[Márcio Rodrigues]

Olá Marcus.Bull

Mande o arquivo com o ListView para que possamos ajudá-lo.

Márcio

[Marcus.Bull]

Olá Marcio beleza?

Desculpa minha falha segue o link :

https://mega.co.nz/#!tJgjHArD!XD1Qnn277VHZeCeKiZj4o38dLSYnl4_Tlh3RNpykYfw

um abraço

[Márcio Rodrigues]

Olá Marcus.Bull

1 - você esta usando o evento DblClick e o Click do objeto lsLista, porém sempre ira vigorar o evento Click, logo o DblClick nunca vai ser acionado. Não consegui achar uma solução prática pra isto.

2 - Quando você clicar no lsLista você quer que os dados sejam carregados nos txtBox (nome, nascimento... )?

Márcio

[Marcus.Bull]

Marcio, dei uma fuçada aqui com ajuda de um amigo e deu certo, só não respondi ante por que estava sem internet.

No preenchimento do cabeçalho, ao final do preenchimento, existe uma sequencia de comando para preenchimento do ListView. Isto estava gerando conflito com a rotina PreencherListView. Para não apagar o comando, acrescentei o comando Exit Sub, de forma que os comando de preenchimento não sejam executados;

Na rotina PreencherListView também houve algumas modificações;

a) A primeira foi a definição do valor da variável lastRow, onde se teve o comando substituído:

Antes

Código: Selecionar todos

lastRow = wsgest.Cells(wsgest.Cells.Rows.Count, "a").End(xlUp).Row

Depois

Código: Selecionar todos

lastRow = wsgest.UsedRange.Rows.Count

E Como eu precisava que fosse a partir da 4 linha foi necessário que as mesmas se iniciem na linha onde os registros serão iniciados. Observe os comandos abaixo:

Antes

Código: Selecionar todos

If lastRow >= 2 Then

For x = 2 To lastRow

Depois

Código: Selecionar todos

If lastRow > 5 Then

For x = 5 To lastRow

E Por último, nesta rotina, fiz a alteração do comando de decisão If, de forma que irá verificar linha a linha da planilha, quais células da coluna A estão em branco. Caso exista informação, a rotina preencherá o ListView:

Código: Selecionar todos

If wsgest.Cells(x, "a").Value <> "" Then

muito obrigado

[Patropi]

Caso o autor necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.