Creating Search Bar Using VBA
Mar 26, 2014
I'd like to create a search bar where someone types text into a field in Sheet1 (in the sample B1), then clicks a macro button to search for that word in Sheet2.
The result should be that the cell containing that word is where you end up.
The search word shouldn't be an exact match for the result, the cell just needs to contain it.
The search bar should also be present on Sheet2, with an additional button for Find Next, so that the user can move to the next result if the first one is not what they're looking for.
I've managed to create a search function with a pop up box using the below but this isnt as effective.
[Code] .....
Sample.xlsx‎
View 2 Replies
ADVERTISEMENT
Dec 1, 2008
I need some help in creating a search box in excel. I have 4 rows of data, and want the user to enter a 4 digit number in a text box, which is then searched in the spreadsheet, pulling up the results.
So far I have the following code..
Sub Button1_Click()
'Opens box and ask what do they want to search
searchthis = InputBox("Type in a location keyword.", "Property Search")
'Tells where to search
Columns("A:E").Select
'and then search in them whatever the user entered:
Selection.Find(What:=searchthis, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext).Activate
End Sub
It only highlights the results, leaving all other data on the spreadsheet. Ideally id want to see only the results of the search. Is there anyway to do this?.
Also, if the search returns no results, I get a debugger message. I want some sort of error message to come up.
View 9 Replies
View Related
Dec 15, 2011
I've got a code that stores a variable and then searches for that variable in a different file. When it finds the answer it it jumps over and up and highlights a different cell. The problem now is that I want it to keep searching past where the first result was and repeat this process down the entire column. Here's what I have so far:
Code:
Sub Find()
'
' Find Macro
' Finds a specific key word or phrase from the search box and codes the matches green.
MsgBox "This may take a moment, please be patient."
' This next line establishes the fact that the function will use a variable.
Dim FindClass As String
On Error GoTo ErrorCatch
[code]....
View 3 Replies
View Related
Apr 14, 2014
Adding a search engine like feature to a spreadsheet we have which has multifarious columns of data on it, here is a screenshot of what it looks like:
[URL]
We have multiple sheets for each tutor like that picture which lists all information of their learners for reference, now I want to do a search feature on the main home page or perhaps on a dedicated "Search" page which allows us to filter out specific information out of those columns, mainly the ability to search by "Tutor" (aka sheet name), "Postcode", "Venue", "End Date", "Learner Name" and "EBS" number...
View 5 Replies
View Related
Jan 6, 2009
Is it possible to make a hyperlink that will jump to a section that is not based on cells (A10, etc..) but rather on column (A) and a certain value in the cell, for instance, 2.1 or 2.2 or 2.3. The reason I want to do this is that when I have to add in new rows I do not want to have to redo all the hyperlinks since the cell shifted.
View 2 Replies
View Related
May 2, 2008
Am a newbie in excel macros. pls i need assistance as to how to create a macro that searches a worksheet for a particular word. i wrote something like below but am having problems in it.
Private Sub CommandButton1_Click()
Dim word As TextFrame
If word Is Not Empty Then
For word = "aaaaaaaaa" To "zzzzzzzzzz"
ThisWorkbook.Worksheet.Find
Next word
End If
End Sub
View 9 Replies
View Related
Jun 13, 2014
I'm currently trying to put together a search function of sort onto an excel document to look for entries of "Y" based on the choices in a drop down list to populate a list of names that have a "Y" next to them. I've searched the net and read up on IF, VLOOKUP and HLOOKUP commands but I can't quite string something together. An example of what I am trying to achieve is below;
Raw Data:
type1type2type3type4room1room2room3room4
AndyYNNNnYNY
BillYYNYYYYY
ChrisnYNYYYYY
DaveYNNNYYYY
EddyYNNNYYYY
FrankYYNYYNNN
GilesYYNYnYNY
HarveynYNNYNYN
IannYNYYYYY
JohnYYNYYYYN
KyleYYNYYYYY
Search drop downs:
Typetype1
Roomroom1
End result (based on the example of Type1 and Room1):
Bill
Dave
Eddy
Frank
John
Kyle
View 7 Replies
View Related
Feb 5, 2009
I am trying to create a uniform stock database for my company. Thus far, I have 2 worksheets. The first is a face sheet, for the user to interact with. This face sheet has a number of drop down menus on it allowing them to select "Type" and "Size" of the item they need. This information is then translated (by a hidden table) into an item code.
The second sheet contains a list of all the uniform items currently in stock. Each item has its individual code that correlates to the code the face sheet generates.
My question is regarding a search macro.
I want the user to be able to click a command button on the face sheet, labelled "search". This would then take the generated "Item Code" and search for it on the second worksheet. I am aware that it would be very easy for them to simply copy the code into "find" on the second sheet, however it needs to be as easy and quick to use as possible.
View 7 Replies
View Related
Nov 18, 2008
I'm only moderately skilled with Excel, and I work primarily with the logical, not mathematical functions. That being said, I'd like to know if there is a good method for Excel to solve this problem. I've been working at it in a rather sloppy manner until I began researching some other approaches.
The Problem(s):
I am developing a site that teaches the grammar of modern Chinese at the same time that it builds vocabulary by frequency. There are a couple of issues with this:
Chinese word corpi are virtually nonexistent, and where existent, sloppy.
Chinese character corpi are more available and somewhat more reliable.
The difference between a word and a character in Chinese can be a bit hazy, but the easiest way to put it is that not all characters stand alone as word and that most words are two to three characters in length.
Therefore, using data from the character corpus and a few thorough dictionaries, I created a word list in Excel that has the words and definitions in separate columns.
I have likewise found a character corpus that I have appropriately organized by ranking and other relevant data. The characters occupy a column.
Here's the basic logical function I am trying to create in separate columns, which are organized by frequency of the character:
=IF(AND(OR(contains any characters in the character corpus from frequency x to frequency y),NOT(OR(contains any characters in the character corpus from frequency y+1 to z)),Word Column,"")
Now, I know now that I have a good workaround, so I can shorten this to...
=IF(NOT(OR(contains any characters in the character corpus from frequency y+1 to z)),Word Column,"")
The problem is that I don't see any effective means of efficiently coding the OR condition!
Is there some magic that can be done so that I can use the ISNUMBER(SEARCH(characters,word cell) function for multiple characters?
I definitely don't want to go...
=IF(NOT(OR(ISNUMBER(SEARCH("‹…",word cell)),ISNUMBER(SEARCH("Ž®",same word cell),...),Word Column,"") for thousands upon thousands of characters!
Is there a way for me to select a range of values within the SEARCH() function to allow this kind of programming?
I also had a look at the filters, but found myself facing the same problem.
View 9 Replies
View Related
Dec 5, 2009
I've been trying to put together a VBA code that allows me to find a number between 1000 - 10,000. I am able to find any number below 999 but can seem to find anything above 1000. I've been using the following ....
View 13 Replies
View Related
Oct 11, 2011
Im am trying to create a search marco button that allows me to search in multiple worksheets in one work book. I came across this CODE the first part of it works. It pops open user input box and ask for the word that i would like to search but the this error message pops up Runtime error1004 Method 'range" of object'_Global'failed and i dont know what to do
Private Sub SearchButton_Click()
SearchString = InputBox("Enter Search String", "Search")
If SearchString = "" Then Exit Sub
For Each c In Range(myRange)
If InStr(LCase(CStr(c)), LCase(SearchString)) Then
[Code]....
View 1 Replies
View Related
Nov 2, 2009
I have a workbook with many many sheets in it. The first sheet contains a single column with about 10,000 different values. I'd like to use each of these as search criteria against ALL data in the other sheets (of which there are a good 50 or so). If matches are found (they don't have to be exact case), then I'd like two things to happen:
1. The rows containing the matched search criteria in the first sheet are highlighted.
2. In the cells adjacent to the search criteria in the first sheet, hyperlinks to the matched data are created and named after the sheet upon which this matched data appears.
I've attached a sample file to this post with ideal sample 'answers' to queries made of the first 2 terms.
View 3 Replies
View Related
Sep 14, 2009
Using the search macro code below, could someone please help to add in more codes what I'm currently using, and also where to insert it. The Search function works well for what I need and it helps me to locate data. When using the search function somehow it search all sheets within the workbook but I only want it to search an array of sheets when using this macro that is needed to complete the task for what I'm after.
Macro
Public Sub FindText()
'Run from standard module, like: Module1.
Dim ws As Worksheet, Found As Range, rngNm As String
Dim myText As String, FirstAddress As String, thisLoc As String
Dim AddressStr As String, foundNum As Integer
myText = InputBox("Enter the text that you want to search for:", "Start Search!")
If myText = "" Then Exit Sub...................
View 9 Replies
View Related
Sep 9, 2003
I'm from Bavaria, Germany. Right now, I am doing an internship for my studies. my problem: I need a search procedure which shows an Input Box where you can enter a word to search for. It should work like the original Excel search (Ctrl-F), but with a simpler design, like with my own Text "Enter your Query" and a Button "Submit Query" / "Quit search". Is there the possibility to Highlight the Search Target? The problem hereby is that this highlighting should not be permanent. That means the user sees the target for which he searched for, the cell highlighted in a different color, etc. But as soon as the user clicks onto another cell, etc., the highlighting vanishes. If there is no fitting match, there should be a MessageBox like "Sorry the Target xyz cannot be found"
View 9 Replies
View Related
Jul 15, 2012
What i have so far is:
-3 Sheets (Sheet1 - Search, Sheet2 - Data, Sheet3 - Result)
-Sheet1 has a userform ready to link up - this opens up when workbook and worksheet is activated.
-Sheet2 has some example data to search - the search is for column 1 (see attachment)
-Sheet3 has a template ready for the data to be pasted to.
I would like the search result is column 1 to copy the data from columns 1 to 7 to sheet3.
I want the template/layout to remain after the pasting of results. (everything protected from editing, if possible).
Once finished (ie go back to sheet1, i want the data from sheet3 to be cleared.)
View 9 Replies
View Related
Aug 21, 2009
I' having trouble using the =IF(ISNUMBER(SEARCH formula to search multiple cells.
I can get it to work to search one cell (as below):
=IF(ISNUMBER(SEARCH("Same",G10)),"No Change",'Aug 09 Matrix'!F10)
(In this case the respone is No Change as Cell G10 contains "Same")
However cannot get it to work for several cells. I have pasted below and highlighted the function I would like it to perform:
=IF(ISNUMBER(SEARCH("Same",G10:R10)),"No Change",'Aug 09 Matrix'!F10)
Essentially the other cells in that row (G10:R10) all contain "Same", however for some reason it is identifying this as FALSE and putting in the data from the 'Aug 09 Matrix' sheet.
View 9 Replies
View Related
Mar 4, 2014
I need one formula to copy and paste the checkcard data changing it from this "CHECKCARD XXXXXX5623" to "CHECKCARD 5623", but I need one formula to look for multiple known checkcard numbers. I will have more then one typically in the bank download so I need to search and copy at least two known numbers as shown below.
I am providing the formula that I am using right now, "=IF(ISNUMBER(SEARCH("5623",B3)),RIGHT(B3,41),"")" but it only works for one checkcard number? Also I don't really need to capture the DEBIT or CREDIT that will always be at the end, it would be redundant. If it's easier to write the formula including that data that is no problem. What I want to copy and move into an adjacent cell is in red.
Here is the source data:
Row 2 - SONIC DRIVE IN#1531 AUSTIN TXDEBIT FOR CHECKCARD XXXXXX5623 DEBIT
Row 3 - JASON'S DELI # 125 Q64 AUSTIN TXDEBIT FOR CHECKCARD XXXXXX9718 DEBIT
View 4 Replies
View Related
Dec 22, 2008
I am trying to build a selection for a procedure to use.
View 2 Replies
View Related
May 16, 2014
I have an 'Update' Module that search the value of the Userform1.txt_sc.Value in Column B, but I want to search to 2 criteria, how can i amend the below code to search for 2 criteria ( userform1.txt_sc.value & userform1.txt_linenum.value )
View 2 Replies
View Related
Sep 18, 2009
what i have is a spreadsheet with several sheets to it. i have many invoice numbers throughout the spreadsheet. what i would like to do is add a search tab or something so it will take me to the desired sheet that the user defined input "search" said. but i may have same invoice number on 2 or 3 different pages so i would need it to tell me that it is on 3 differents sheets
Example: I type in 658969 and it will automatically go to the sheet with this invoice number or return "No Entry Found" if it doesnt' have a match. or something to this affect and i don't know what do do if the input is found on multiple pages.
View 2 Replies
View Related
Nov 12, 2008
I need some help about creating add-ins to distribute my macro.
I have written a macro and have saved it as an .xla file.
What i want is that when this add-in is installed an extra button appear on the menu bar and when users click the button the macro should run.
I tried to install the add-ins but am having some trouble in creating a button automatically when add-in is installed and assigning a macro to it?
I tried to look through some books and on some internet websites but really cant figure out.
View 9 Replies
View Related
Mar 28, 2014
I have an issue creating a PDF of more than one sheet. Only top left corner of sheets are shown in PDF. Creating a PDF of a single sheet works perfectly. I have attached the result (2 pdf-files) and the original Excelfile.
Code for one sheets (Result OK):
[Code] ......
Code for multi sheets (Result not OK):
[Code] .........
Attached Files
CreatePDF.xlsm‎
MyPDF_OneSheet.pdf‎
MyPDF_3Sheets.pdf
View 2 Replies
View Related
Apr 30, 2014
I am unsure if this is supposed to be in the PivotTable or VB section, but given it is VB code I expect here is better.
[Code] ......
I can confirm the SourceData exists, and can be used to create a pivot table without error. Only when I try to RUN this code does it kick out saying, "Invalid procedure call or argument".
View 3 Replies
View Related
Mar 5, 2014
I am tying to build a macro that contains a function to open a closed workbook, create a new tab, select the tab and then paste data into it before closing the workbook.
In a separate macro I will then want to open the workbook again and compare the last two tabs worth of data, to highlight where old data has been removed.
View 1 Replies
View Related
Oct 18, 2008
I am using the following code to build and remove a menu on the menu bar. how to modify this to create sub menu's instead of a single drop down list
View 2 Replies
View Related
Nov 25, 2008
if I copy and Add it created a new workbook not the current on im in. What am I doing wrong?
View 5 Replies
View Related
Dec 9, 2008
I have worksheets with many Tabs, I wanted to know if it was possible to create Rows of Tabs? I have included a picture of what I am talking about.
View 3 Replies
View Related
Dec 16, 2008
I'm trying to make a macro that creates a button (to run another macro). I'm also trying to make sure this has a specific name, instead of just "Button#". The code I get from recording this is:
View 5 Replies
View Related
Feb 5, 2009
On a worksheet i have a list of names in Column A the list length can vary this is why i want to create a userform using VBA. The form just wants a checkbox with name next to it for each name in column A. If the checkbox is ticked I want a 'Y' in Column B next to the corresponding name.
View 4 Replies
View Related
Jul 8, 2009
I have wriiten some simple code to create a chart which works fine. I have a problem applying formatting to my chart. I am using the With construct to apply the formatting, but the problem is that the chart name keeps on incrementing from "Chart 1" to Chart 23" etc. each time I run the chart and I get an error message before the With code?
View 2 Replies
View Related
