Greetings everyone,
first of all thanks for all the support you've been offering. Eventhough this is my first post I've already learned a lot as a guest here.
Right now I'm facing the following issue:
I have a userform containing, among other info, a listbox with 4 columns and a textbox which I wish to use as a real time filter (filter as I type) for the list. Since the list is dynamic I can't work with fixed ranges.
Furthermore I would like the search to be case insensitive and to find any field containing the typed info and not only starting letters or such (If I type "an" I should find Canada, and not only Anne, for instance).
Below is the code I have on this form so far, it contains 2 commands to open other forms, the command to fill the list and the command to delete old data. Hope you guys get to help me out!
<tbody>
</tbody>
Thanks again for your support,
Boechat
first of all thanks for all the support you've been offering. Eventhough this is my first post I've already learned a lot as a guest here.
Right now I'm facing the following issue:
I have a userform containing, among other info, a listbox with 4 columns and a textbox which I wish to use as a real time filter (filter as I type) for the list. Since the list is dynamic I can't work with fixed ranges.
Furthermore I would like the search to be case insensitive and to find any field containing the typed info and not only starting letters or such (If I type "an" I should find Canada, and not only Anne, for instance).
Below is the code I have on this form so far, it contains 2 commands to open other forms, the command to fill the list and the command to delete old data. Hope you guys get to help me out!
___________________________________________________________________________________________________ Private Sub UserForm_Activate() Me.ListBox1.List = Sheets("Contatos").Range("A2:D500").Value End Sub ___________________________________________________________________________________________________ Private Sub CommandButton3_Click() Contactsframe.Hide Mainframe.Show End Sub ___________________________________________________________________________________________________ Private Sub CommandButton4_Click() Contactsframe.Hide Newcontactframe.Show End Sub ___________________________________________________________________________________________________ Private Sub CommandButton5_Click() ListBox1.RemoveItem (ListBox1.ListIndex) Range("Cont").Cells(Me.ListBox1.ListIndex + 1, 1).EntireRow.Delete End Sub ___________________________________________________________________________________________________ |
<tbody>
</tbody>
Thanks again for your support,
Boechat