Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
how can i search for sheet with any part of sheet name
hi every on
i need code for userform of textbox and listbox to search for any sheet in workbook with any part of that sheet name on i enter on textbox to populate on listbox all sheets named contain that enterd text on textbox . any help appreciated . thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
how can i search for sheet with any part of sheet name
Give this code a try...
Dim WS As Worksheet For Each WS In ThisWorkbook.Worksheets If UCase(WS.Name) Like "*" & UCase(TextBox1.Text) & "*" Then ListBox1.AddItem WS.Name End If Next Note that I used the default names for the TextBox and ListBox... change them as required. -- Rick (MVP - Excel) wrote in message ... hi every on i need code for userform of textbox and listbox to search for any sheet in workbook with any part of that sheet name on i enter on textbox to populate on listbox all sheets named contain that enterd text on textbox . any help appreciated . thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
how can i search for sheet with any part of sheet name
On Mar 23, 6:28*pm, "Rick Rothstein"
wrote: Give this code a try... * Dim WS As Worksheet * For Each WS In ThisWorkbook.Worksheets * * If UCase(WS.Name) Like "*" & UCase(TextBox1.Text) & "*" Then * * * ListBox1.AddItem WS.Name * * End If * Next Note that I used the default names for the TextBox and ListBox... change them as required. -- Rick (MVP - Excel) wrote in message ... hi every on i need code for userform of textbox and listbox to search for any sheet in workbook with any part of that sheet name on i enter on textbox to populate on listbox all sheets named contain that enterd text on textbox . any help appreciated . thanks- Hide quoted text - - Show quoted text - John thanks a lot thank you so much Rick i used your terrific code , i add somthing i thought it gives nice touch and now it works great here is the full code now : Private Sub TextBox1_Change() Dim wS As Worksheet M = TextBox1.Text ListBox1.Clear If M = "" Then GoTo 1 For Each wS In ThisWorkbook.Worksheets If UCase(wS.Name) Like "*" & UCase(TextBox1.Text) & "*" Then ListBox1.AddItem wS.Name End If Next 1 End Sub Private Sub CommandButton1_Click() Ested3a End Sub Private Sub CommandButton2_Click() End End Sub Private Sub UserForm_Initialize() Dim wS As Worksheet With ListBox1 .Clear For Each wS In Worksheets .AddItem wS.Name Next End With End Sub Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) CallSheet End Sub Private Sub CallSheet() If ListBox1.ListIndex -1 Then Sheets(ListBox1.Value).Activate End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can Sheet name be part of formula for a cell (+ sheet name) | Excel Worksheet Functions | |||
excel sheet bootom half sheet goes behind top part of sheet | Excel Worksheet Functions | |||
Search for rows in one sheet and copy into another sheet based on customer id | Excel Worksheet Functions | |||
How to copy part of a sheet as a new sheet into another workbook? | Excel Programming | |||
How do I select price from sheet.b where sheet.a part no = sheet.b | Excel Worksheet Functions |