Criar um campo de pesquisa dentro de um formulario

[Hallair]

Olá galera. Eu sou novo no libre office e gostaria de converter um formulário em vba para o calc. A minha maior dificuldade é a falta de material disponível para aprender fazer no calc o que é feito com o excel vba. Gostaria de saber se é possivel converter este codigo de pesquisa e busca do vba para o calc, onde ao digitar uma palavra numa textbox retorna o resultado da pesquisa numa listbox, de acordo com os critérios definidos.
segue os codigos

Private Sub TextBox1_Change()

valor_pesq = TextBox1.Text

Dim guia As Worksheet
Dim linha As Integer
Dim coluna As Integer
Dim linhalistbox As Integer
Dim valor_celula As String
Dim conta_registros As Integer

Set guia = ThisWorkbook.Sheets(2)

          
        
If Opt_nome = False And OptionButton1 = False And opt_registro = False And opt_medico = False And opt_area = False And opt_perfil = False And opt_sexo = False Then
    
MsgBox ("Selecione um critério para a pesquisa."), vbExclamation, "Atenção"
Exit Sub
    
ElseIf Opt_nome = True Then
coluna = 1
           
ElseIf opt_registro = True Then
coluna = 2
               
 ElseIf opt_sexo = True Then
coluna = 3
    
ElseIf opt_medico = True Then
coluna = 6

ElseIf opt_perfil = True Then
coluna = 10

ElseIf opt_area = True Then
coluna = 8

ElseIf OptionButton1 = True Then
coluna = 24

Else
coluna = 4

End If

    
linhalistbox = 0
conta_registros = 0
linha = 2
 
lst_busca.Clear

Sheets(“Banco”).Select

With guia
    While .Cells(linha, coluna).Value <> Empty
        valor_celula = .Cells(linha, coluna).Value
        
        If UCase(Left(valor_celula, Len(valor_pesq))) = UCase(valor_pesq) Then
            
         With lst_busca
         .AddItem
         .List(linhalistbox, 0) = Sheets("Banco").Cells(linha, 1) 'ID
         .List(linhalistbox, 1) = Sheets("Banco").Cells(linha, 2) 'nome / razao
         .List(linhalistbox, 2) = Sheets("Banco").Cells(linha, 3) 'sexo
         .List(linhalistbox, 3) = Sheets("Banco").Cells(linha, 4) 'nascimento
         .List(linhalistbox, 4) = Sheets("Banco").Cells(linha, 8) 'bairro
         .List(linhalistbox, 5) = Sheets("Banco").Cells(linha, 14) 'mãe
         
          linhalistbox = linhalistbox + 1
          End With
         conta_registros = conta_registros + 1
         
        End If
        linha = linha + 1
    Wend
End With

 Me.lbl_registros = conta_registros
 Label30.Visible = True

End Sub

[elmau]

Anexa à sua mensagem um arquivo de exemplo, com o que você tem e o que você quer obter, para ajudá-lo.

[prestesm]

Boa tarde pelo que entendi é igual do vídeo só que por nome, tem como fazer por data também?Desde de já agradeço. https://youtu.be/HweEC6ClL0s?si=aTenSAJ1JV1bxjx-

[elmau]

Sinto muito, tenho bloqueado o Youtube e todo o Google na minha rede.

[prestesm]

É em um form/diálog tem um caixa de listagem é uma caixa texto conforme digita na cx de texto vai filtrando.