Acostume-se a acompanhar a execução do codigo em modo depuração (F8)
O erro básicamente deve-se a sub rotina no textbox1 que "limpa" a listbox
Private Sub TextBox1_Change()
TextBoxFiltro.Value = ""
ListBoxLista.Clear
End Sub
Exclua essa rotina ou comente as linhas (com apostrofe)
Private Sub TextBox1_Change()
'TextBoxFiltro.Value = ""
'ListBoxLista.Clear
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 21/02/2017 6:56 am