Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Search or FIND on a userform.
I want to put a SEARCH or a FIND feild on my userform.
Here is what I currently have: Private Sub CommandButton48_Click() 'MsgBox TextBox86 If TextBox86 < "" Then Dim found As Range With Worksheets("Master") Set found = .UsedRange.Find(TextBox86, LookIn:=xlValues) If Not found Is Nothing Then MsgBox TextBox86 & " Found!" Else MsgBox TextBox86 & " Not Found!" End If End With Else MsgBox "Search Criteria was empty..." End If End Sub How do I restuff all of the screen items? do I just reinitialize everything? will it be on the right record? Is there a way to get it to look even in hidden rows? How do I do a find Next/Prev? Thanks Phil |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Search or FIND on a userform.
Or (even better yet...)
Is there a simple way to impliment something like SQL using my current userform or something??? "Phillips" wrote in message news:EbTwb.230768$9E1.1257207@attbi_s52... I want to put a SEARCH or a FIND feild on my userform. Here is what I currently have: Private Sub CommandButton48_Click() 'MsgBox TextBox86 If TextBox86 < "" Then Dim found As Range With Worksheets("Master") Set found = .UsedRange.Find(TextBox86, LookIn:=xlValues) If Not found Is Nothing Then MsgBox TextBox86 & " Found!" Else MsgBox TextBox86 & " Not Found!" End If End With Else MsgBox "Search Criteria was empty..." End If End Sub How do I restuff all of the screen items? do I just reinitialize everything? will it be on the right record? Is there a way to get it to look even in hidden rows? How do I do a find Next/Prev? Thanks Phil |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Search or FIND on a userform.
Adding "SearchDirection" and "After" to the Find method
will help. For this the found cell needs to be selected...actually not quite true, but with the code as is... Private Sub CommandButton48_Click() 'MsgBox TextBox86 If TextBox86 < "" Then Dim found As Range With Worksheets("Master").Cells If found Is Nothing Then Set found = Selection Set found = .Find(TextBox86, after:=found, LookIn:=xlValues, searchdirection:=xlNext) If Not found Is Nothing Then MsgBox TextBox86 & " Found!" & found.Address found.Select Else MsgBox TextBox86 & " Not Found!" End If End With Else MsgBox "Search Criteria was empty..." End If End Sub Patrick Molloy Microsoft Excel MVP -----Original Message----- I want to put a SEARCH or a FIND feild on my userform. Here is what I currently have: Private Sub CommandButton48_Click() 'MsgBox TextBox86 If TextBox86 < "" Then Dim found As Range With Worksheets("Master") Set found = .UsedRange.Find(TextBox86, LookIn:=xlValues) If Not found Is Nothing Then MsgBox TextBox86 & " Found!" Else MsgBox TextBox86 & " Not Found!" End If End With Else MsgBox "Search Criteria was empty..." End If End Sub How do I restuff all of the screen items? do I just reinitialize everything? will it be on the right record? Is there a way to get it to look even in hidden rows? How do I do a find Next/Prev? Thanks Phil . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find record by multi criteria in userform | Excel Discussion (Misc queries) | |||
IF with Search/Find??? | Excel Worksheet Functions | |||
Can Search find 2 or more "/"? | Excel Discussion (Misc queries) | |||
Search and find | Excel Programming | |||
How can I find a handle number of controls on Userform? | Excel Programming |