Excel Busca por parte do nome.

[Belmar Costa]

Bom dia, recentemente procurei em alguns fóruns um formulário que atendesse a minha necessidade e não encontrei; o caso é o seguinte, possuo um formulário de busca por data e também queria que dentro desse formulário  a opção de busca por parte do texto na caixa de texto "busca_por_produto" e na caixa de texto "busca_por_requisitante". Pode ser ser possível? Bom, desde já quero agradecer pelas as explicações e exemplos que tive acesso a esta vasta biblioteca de ensino. disponibilizarei a planilha que tenho como como exemplo.

PesquisandoPorDatas.rar

[Muca Costa]

Tente assim:

‘NO MÓDULO 1
Private TextoDigitado As String
Sub pesquisanome()
TextoDigitado = frmPesquisa.busca_por_produto.Text
Range("A1").Select
    
    Dim ws As Worksheet
    Dim Linha As Integer
    Dim linhalistbox As Integer
    Dim TextoCelula As String
    
   Set ws = ThisWorkbook.Worksheets("Plan1")
   Linha = 2
   linhalistbox = 0
   frmPesquisa.lbDados.Clear
    
    With ws
    
    While .Cells(Linha, 2).Value <> Empty
            TextoCelula = .Cells(Linha, 2).Value
             If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
              With frmPesquisa.lbDados
             .AddItem
             .List(linhalistbox, 0) = Sheets("Plan1").Cells(Linha, 1)
             .List(linhalistbox, 1) = Sheets("Plan1").Cells(Linha, 2)
             .List(linhalistbox, 2) = Sheets("Plan1").Cells(Linha, 3)
             
              linhalistbox = linhalistbox + 1
              End With
              
            End If
            Linha = Linha + 1
            
        Wend
        
    End With
End Sub

‘NA TEXTBOX
Private Sub busca_por_produto_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    pesquisanome
End Sub