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.

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,