erro em tempo de execução 381. não foi possível determinar a propriedade list.Indice de matriz de propriedade invalido

[Mauricio Coelho]

Boa Tarde!

 

Sou novo em VBA, e acompanhando tutoriais na internet, construí um formulário VBA, para avaliação de desempenho de funcionários.Ocorre que se tiver mais de um nome igual na listview, quando faço a busca por nome, da o erro"erro em tempo de execução 381. não foi possível determinar a propriedade list.Indice de matriz de propriedade invalido". O que quero, é quando digitar no campo de busca um nome, e, no cadastro tiver dois ou mais nomes iguais, que apareça na listview todos os cadastros com nomes iguais.

 

Tenho outras dúvidas, mas, gostaria de resolver esta primeiro. Como sou novo no forum, caso tenha colocado minha pergunta no local errado, peço desculpas.

Segue abaixo o código do listview:

Private Sub Lista_Click()

Dim codigo As Long
Dim DatadoRegistro As Date
codigo = Lista.List(Lista.ListIndex, 0)
Me.TextBoxId.Value = codigo

On Error Resume Next

Me.TextBoxData.Value = CDate(Format(Me.TextBoxData.Text, "dd/mm/yyyy"))

Me.BTAlterar.Enabled = True
Me.BTExcluir.Enabled = True
Me.BTSalvar.Enabled = False

nome = Lista.List(Lista.ListIndex, 1)
DatadoRegistro = Lista.List(Lista.ListIndex, 2)
Av1 = Lista.List(Lista.ListIndex, 3)
Av2 = Lista.List(Lista.ListIndex, 4)
Av3 = Lista.List(Lista.ListIndex, 5)
Av4 = Lista.List(Lista.ListIndex, 6)
saudação = Lista.List(Lista.ListIndex, 7)
identificaçãocorreta = Lista.List(Lista.ListIndex, 😎
portuguescorreto = Lista.List(Lista.ListIndex, 9)
AtendimentoEmpatico = Lista.List(Lista.ListIndex, 10)
ofertouprodutosextras = Lista.List(Lista.ListIndex, 11)
Usouescaladenegociação = Lista.List(Lista.ListIndex, 12)
informouformadepagamento = Lista.List(Lista.ListIndex, 13)
Revisoupedidoantesdefechar = Lista.List(Lista.ListIndex, 14)
registroucorretamentenogw = Lista.List(Lista.ListIndex, 15)
encerroucorretamente = Lista.List(Lista.ListIndex, 16)
Total = Lista.List(Lista.ListIndex, 17)
Média = Lista.List(Lista.ListIndex, 18)
falhagrave = Lista.List(Lista.ListIndex, 19)
resultadogeral = Lista.List(Lista.ListIndex, 20)

Sheets("Planilha2").Range("B3").Value = codigo
Sheets("Planilha2").Range("B4").Value = nome
Sheets("Planilha2").Range("E3").Value = DatadoRegistro
Sheets("Planilha2").Range("B5").Value = Av1
Sheets("Planilha2").Range("B6").Value = Av2
Sheets("Planilha2").Range("E5").Value = Av3
Sheets("Planilha2").Range("E6").Value = Av4
Sheets("Planilha2").Range("B7").Value = saudação
Sheets("Planilha2").Range("E7").Value = identificaçãocorreta
Sheets("Planilha2").Range("B8").Value = portuguescorreto
Sheets("Planilha2").Range("E8").Value = AtendimentoEmpatico
Sheets("Planilha2").Range("B9").Value = ofertouprodutosextras
Sheets("Planilha2").Range("E9").Value = Usouescaladenegociação
Sheets("Planilha2").Range("B10").Value = informouformadepagamento
Sheets("Planilha2").Range("E10").Value = Revisoupedidoantesdefechar
Sheets("Planilha2").Range("B11").Value = registroucorretamentenogw
Sheets("Planilha2").Range("E11").Value = encerroucorretamente
Sheets("Planilha2").Range("B13").Value = Total
Sheets("Planilha2").Range("E13").Value = Média
Sheets("Planilha2").Range("B14").Value = falhagrave
Sheets("Planilha2").Range("E14").Value = resultadogeral

End Sub

 

Agradeço a ajuda,

 

Obrigado,

 

[Alyson Ronnan Martins]

Bom dia @Mauricio Coelho

Consegue colocar em anexo uma planilha para ver esse erro aqui no computador? (pode ser uma planilha com dados fictícios)

[Mauricio Coelho]

Bom Dia!

 

Não consigo enviar a planilha em xlsm, mas, para que possa entender, a planilha é de avaliação de desempenho de funcionários, e, são feitas 04 avaliações por mês, logo, o nome do funcionário vai constar no banco de dados pelo menos 04 vezes, aí é que da o erro, vou fazer uns prints para você poder ver. Inclusive , tenho também que fazer um código para buscar por data e avaliação, se é Av1,Av2, e assim por diante, ou seja, coloco o nome, um período de data e qual AV quero, e ele busca. Se puder me ajudar agradeço muito.