Excel pesquisa em um fom com multipage

[Eri França]

Boa tarde senhores!

Eu tenho o arquivo em anexo, onde o private sub Pesquisa_Click deve pesquisar o texto digitado nas textbox ao se dar dois cliques, tanto na pagina "Gibis" quanto na "Livros"

a pagina Livros está pesquisando normalmente pela sub Pesquisalivros, porém a pagina Gibis quando realizada uma primeira pesquisa não retorna a pesquisa, só funcionando após realizar uma limpeza das textbox.

já verifiquei o código e não encontrei o erro, agradeço qualquer ajuda.

 

 

 

[Eri França]

Bom dia!

analisando melhor verifiquei que o erro está no Userform_initialize, alguma dica parta corrigir?

Private Sub UserForm_Initialize()
 
   With ListView1
        '.BorderStyle = ccFixedSingle
        .Gridlines = True
        .View = lvwReport
        .FullRowSelect = True
        .MultiSelect = True
        .ColumnHeaders.Add Text:="ID:", Width:=1 'COLUNA ENDEREÇO DA IDENTIFICAÇÃO
        .ColumnHeaders.Add Text:="TÍTULO:", Width:=220 'COLUNA ENDEREÇO DA TITULO
        .ColumnHeaders.Add Text:="NÚMERO:", Width:=58, Alignment:=0 'COLUNA ENDEREÇO DA NUMERAÇÃO
        .ColumnHeaders.Add Text:="ANO:", Width:=40, Alignment:=2 'COLUNA ENDEREÇO DO ANO
        .ColumnHeaders.Add Text:="LICENCIADORA:", Width:=140, Alignment:=0 'COLUNA ENDEREÇO DA LICENCIADORA
        .ColumnHeaders.Add Text:="EDITORA:", Width:=120, Alignment:=0 'COLUNA ENDEREÇO DA editora
        .ColumnHeaders.Add Text:="QUANT:", Width:=70, Alignment:=0 'COLUNA ENDEREÇO DA estado
        '.ColumnHeaders.Add Text:="Imagem:", Width:=1, Alignment:=2 'COLUNA ENDEREÇO DA IMAGEM (OCULTA)
          
        
   End With
   ListView1.ListItems.Clear
   
   Sheets("Gibis").Select
   
   lin = 2
   
   Do Until Sheets("Gibis").Cells(lin, 1) = ""
   
   Set li = ListView1.ListItems.Add(Text:=Sheets("Gibis").Cells(lin, 1).Value)
   li.ListSubItems.Add Text:=Sheets("Gibis").Cells(lin, 2).Value
   li.ListSubItems.Add Text:=Sheets("Gibis").Cells(lin, 3).Value
   li.ListSubItems.Add Text:=Sheets("Gibis").Cells(lin, 4).Value
   li.ListSubItems.Add Text:=Sheets("Gibis").Cells(lin, 5).Value
   li.ListSubItems.Add Text:=Sheets("Gibis").Cells(lin, 6).Value
   li.ListSubItems.Add Text:=Sheets("Gibis").Cells(lin, 7).Value
   li.ListSubItems.Add Text:=Sheets("Gibis").Cells(lin, 8).Value
   lin = lin + 1
   
   Loop
      
   With ListView2
        '.BorderStyle = ccFixedSingle
        '.Gridlines = True
       '.View = lvwReport
        '.FullRowSelect = True
        '.MultiSelect = True
        .ColumnHeaders.Add Text:="ID:", Width:=1 'COLUNA ENDEREÇO DA IDENTIFICAÇÃO
        .ColumnHeaders.Add Text:="TÍTULO:", Width:=221 'COLUNA ENDEREÇO DA TITULO
        .ColumnHeaders.Add Text:="AUTOR:", Width:=201, Alignment:=0 'COLUNA ENDEREÇO DO AUTOR
        .ColumnHeaders.Add Text:="ANO:", Width:=35, Alignment:=0 'COLUNA ENDEREÇO DO ANO
        .ColumnHeaders.Add Text:="EDITORA:", Width:=188, Alignment:=0 'COLUNA ENDEREÇO DA EDITORA
             
        
   End With
      
   ListView2.ListItems.Clear
   
   Sheets("Livros").Select
   
   lin = 2
   
   Do Until Sheets("Livros").Cells(lin, 1) = ""
   
   Set li = ListView2.ListItems.Add(Text:=Sheets("Livros").Cells(lin, 1).Value)
   li.ListSubItems.Add Text:=Sheets("Livros").Cells(lin, 2).Value
   li.ListSubItems.Add Text:=Sheets("Livros").Cells(lin, 3).Value
   li.ListSubItems.Add Text:=Sheets("Livros").Cells(lin, 4).Value
   li.ListSubItems.Add Text:=Sheets("Livros").Cells(lin, 5).Value
   lin = lin + 1
   
   Loop
   
   
   MultiPage1.Style = 1
   MultiPage1.ForeColor = RGB(28, 28, 28)
   MultiPage1.BackColor = RGB(0, 0, 0)

End Sub