I am just wondering if there is a way i can search an excel workbook for a particular reference number. eg
name reference money
dave 60056835 20.00
clare 50065755 30.00
If i want to search for Ref 60058635 i just want to type it in and excel will the search the workbook and direct me to the correct page and column.
I am building a Workbook which takes data from SheetA and inserts it into SheetB.
Part of the data is only entered when a positive value exists.
I then do an export from SheetB.
The problem is that I need to get the column number and pass it to the cell reference based on the field name in row 1.
Dim sFindstring As String
Dim rFindcell As range
Dim iR As Integer
Dim iC As Integer
sFindString = " Find this string in the cell"
'Using cells find the findstring
Set rFindCell = Cells.Find(What:=sFindString, After:=[A1], LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
'OK so look here
iR = 3
'I am trying to pick up the column number
iC = rFindCell.Column
rFindCell throws an object or with block variable not set error. Is there some property that I need to set.
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]....
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...................
I have 2 workbooks. 1 is where data is entered called wksPB, the other is like a database workbook. The wksPB has data to be feed from column B to F and there is a dropdown.
what im looking to do is, if the combobox value is selected as Decline then it should display a messagebox that reference value in cell B is denied. if combobox value is Agreed then the macro should search the database workbook for the text entered in column b of wksPB and then copy data of C:E of wksPB to H:J of database sheet where that text is found and also the approver name in wksPB C24 to the approver cell of where that text was found. I've reached till finding the text but what I get my head twiting on is how to copy the text from wksPB column B:F to database sheet column H:K. Im attaching the sample workbooks and the code where ive reached till.
[Code] .....
Attached Files
Replacement Records - 2014.xlsx
forum file.xlsm
I want see if it's possible to take the name of the source workbook and put it in a cell in my destination workbook and then use that as the reference in formulas. The source document title includes a date that changes yearly, or in some instances changes entirely, and I want to keep the formulas in the destination workbook intact. I don't want to have to go to every instance where I have used the source workbook and change the title. Instead I would like to copy the source workbook title, paste it into the destination in the same cell and have that propogate the needed changes into the destination workbook formulas.
View 2 Replies View RelatedI have an excel database where I register cases. I have in it a button that creates a folder with and ID nr that is in column A (I create new ID nr in the next row, when I press the button it will create a folder with that ID nr and inserts a blank word document in it). We have a template that we copy to the folder (depending what type of case). The idea would be that once the template is filled in and ready to print, It would take the values from the ID nr and a reference number a few cells to the right. Is it possible to tell excel to open the word document in the folder and create a PDF version with the ID nr and reference number. (there are only 2 templates, so the macro would have to look for one of the two in the folder) The names of the templates are: "Standard" and "Other". I guess the best way to start maybe this would be that I select the cell with the ID nr and then press a macro button to have this done. One thing that needs to be done, is to put a copy in the same folder and another in a second folder called "Binder" in my documents folder.
View 1 Replies View RelatedI have a workbook "Weekly Field Report-Master Copy" and another workbook "Weekly Field Report $$$-Master" The "Weekly Field Report $$$-Master" workbook has all the formulas that pull data from the "Weekly Field Reports-Master Copy" workbook and populates a financial report of that week's field unit production.
When I save the "Weekly Field Report-Master Copy" workbook to a new name "Weekly Field Report Job #1" and then save the "Weekly Field Report $$$-Master Copy" workbook to a new name "Weekly Field Report $$$-Job #1" is there a way to automatically change the formulas in the "Weekly Field Report $$$-Job #1" workbook to now pull data from the "Weekly Field Report Job #1" workbook instead of the "Weekly Field Report-Master Copy" workbook???
Currently I am manually changing the formulas in the new workbook "Weekly Field Report $$$-Job #1" to reference the data in the new workbook "Weekly Field Report Job #1". Otherwise the formulas pull the data from the "Weekly Field Report-Master Copy".
Every new file I create is named with a sequential reference based on some criteria:
PackageName_(Place+SequentialNumber).
So, in my worksheet I have several columns with package names: LABK, LAVO, LACR… and on the rows I have the file names.
I have this UserForm I created Search.JPG
Basically (despite I imagine it’s not that simple), when I type the package name and the place as follows, for example
Package = LABK
Place = SAO
After clicking on “Generate” button, it should look for all file names containing LABK and SAO, verify what the last sequential number is (highest/MAX) and generate a new one in the text box below the button.So, if the last file name is LABK_(SAO005), it’ll generate a new one as LABK_(SAO006).
I made a VLOOKUP formula referring to another workbook. The workbook name was 1099.XLS and there was only one worksheet in it, also called 1099.
So the reference I used was [1099.XLS]1099! but I have since realised that Excel changes that as I enter it, to '1099'!
What I would like to know is, is this a one-off action by Exel, and why? Have I used the correct reference in general -
[workbookname.XLS]worksheetname!
and did Excel's actions come about because there was only one worksheet, or because the worksheetname was the same as the workbookname, or what?
I am trying to develop my workbook design for my employers.So far i have already added a search function using a command button and text box to each worksheet and a toggle button to find and hide/show rows users dont need automatically with great success.
Here is the code i have adapted so far. Its not working correctly and i cant seem to figure it out. The command button and textbox will sit on the first worksheet and needs to search for a name (example: John) in the workbook and either display which sheet the name is found on or jump in turn to each name until you reach the correct sheet.
Do i need to set a range for the variable (ws)?
Private Sub CommandButton1_Click()
Dim search As String
Dim ws As Worksheet
Dim Answer As String
search = TextBox1.Text
On Error GoTo ErrorMessage
Application.EnableEvents = True
[code].....
I believe this is the last piece of the puzzle of a project I'm working on. Here are the components I have to work with:
Component 1:
VB:
Dim file As Range
Set file = Range("rgFileToBeChecked")
'this sets "file" as the full path
[Code]...
I have a work book, it copies a cell reference from a work sheet in workbook2 to workbook1
It then selects next work sheet in each page and then triggers the code again.
My problem is i want the following piece of code to work.....what should i put in where it says "activeworksheet"
[Code] ......
I've started this thread a few weeks ago but didn't get any answers on how to solve the problem or if it was even possible to solve. I would like to know if is possible to set a reference to a NOT OPENED workbook. All the code I've tried so far didn't get me anywhere:
View 3 Replies View RelatedI am having trouble inserting a cell reference into a formula. I have a spreadseet that uses data from another workbook. The workbook name changes monthly, so i'd like to be able to place the workbook name in a cell and have the formulas in the spreadsheet use that cell to get the name of the workbook to get the data from. So:
if, for eg, the formula in my spreadsheet is ='[test data file.xlsx]Sheet1'!$B$4+'[test data file.xlsx]Sheet1'!$B$6
I would like to be able to enter test dta file.xlsx into cell A2 of my spreadsheet and replace a reference to A2 into the formulas. I've tried several ways, but can't seem to get it to work.
I have a workbook called "udf test.xlsm" with an "age" udf. How do I reference this from another workbook? If I replace the space with an underscore in the workbook name then I can call it like so:
=udf_test.xlsm!age(A1)
but with a space, it doesn't work. I tried this:
='udf test.xlsm'!age(A1)
and this
='[udf test.xlsm]'!age(A1)
but I get "Invalid Reference" errors.
I am using:
Code:
Dim Aname As String
Aname = ActiveWorkbook.ActiveSheet.Range("D2").Value & "Pricing"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Aname & ".xls"
to create a new workbook. I need to copy 2 columns from the original workbook/worksheet to the one being created though. I can get the the original easy enough, but then getting back to the newly created book is proving difficult.
(the 2 columns being copied are filtered to what is needed and I have used the below to copy it, yes I know that is 3 rows but I couldnt get it to copy just E and G at the same time to the lastrow without including F)
Code:
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
With .Range("E2:G" & LastRow)
.Select.copy
End With
I have a list of objects in column A
I want to select that list or part of it then run a VB module that references each item in the selection and compares it to a master list in a separate workbook that contains both the object and an additional value, and display that additional value in column B of the original workbook against each object in column A
I am trying to write a formula that will pick the data out of a closed workbook.
Indirect works but it doesnt help because the workbook needs to be open and there are literaly hundreds of workbooks to sort thru.
Is there a way other than find and replace to have a formula pull data from a specific cell in another workbook, based on say cell A1 or A110?
I have a formula that calculates data from the workbook that the formula is in. I need it to do the same calculations only pull the data from another workbook. Here is a sample formula:
= SUM(X1504 + SUMPRODUCT((H1:H394=73)*(U1:U394="NVLIV"),S1:S394))
Would I do something to the nature of:
=SUM(C:/sample.xls[Sheet1$x1504] + SUMPROD...etc...?
Basically how do you reference another workbook that is closed?
I have a master workbook, meeting1.xls which is used on a daily basis. All of the macros saved in this workbook naturally refer to Windows("Meeting1.xls").Activate.
However, I want to be able to open Meeting1.xls save it as a new name (for today's details) and then populate it.....as well as have the Macros pick up that new file name (rather than always looking for Meeting1.xls.)
I've tried saving Meeting1 as a template file and that didn't seem to work either. When I save it as a new name, the macro always searches for the original name.
Ive just finished writing a macro that copies data from different parts of one workbook into a new workbook. However after doing all that my boss now informs me that the first workbook will be renamed regularly.
Is there a way adding a reference to a workbook that is not dependant on the name? Possibly declare it as a variable at the beginning or something? The indexing is not possible either as they might have multiple Spreadsheets open at any one time.
I've had a look at various coding to create a macro to search excel.
The issue I have is several work sheets within the work book but they're always inactive unless opened. From the 1st work sheet I've got menu buttons that open a specific worksheet, then there's a button to click to take user back to 1st worksheet and close the 1 they were looking at and making it inactive.
Following code is what I use to open and close sheets:
[Code] .........
The above works fine for opening and closing.
But if I use Excel's standard CTRL + F search facility and change options to search workbook, it doesn't work because every other sheet other than 1st sheet is inactive.
I have a simple spread sheet that I made that takes the first letter of a name entered into cell (A1), combines it with the last name entered into cell (B1), and inputs that combined information into cell (E1).
It works how I need it to for the most part but... I need Excel to look at a completely separate workbook (containing four sheets), and search the entire workbook for exact matches of the combined information in (E1). If it finds a match elsewhere in that workbook I want it to add a 1 to the end of the combined name. I basically want it to increment the number until it does not find one that already exists in the other workbook.
Example: Cell (A1 contains Bob), Cell (B1 contains Smith). Currently Cell (E1 would display bsmith) - I need for Excel to search the other workbook, and if it finds a bsmith anywhere in that workbook add a 1 to the end making it (bsmith1). If it finds (bsmith1) increment it to (bsmith2) and keep going up by one number until it does not find any other matches. The other workbook is located on a mappedshared network drive.
I'm trying to write a Macro that searches all non-blank worksheets of multiple workbooks in a folder for any IP addresses contained within then returns them all to one master spreadsheet.
I've already come up with the code to open each workbook from the master. What I really need is some direction for how to go into each non-blank worksheet and search each one, placing all IPs that are found into a single column in their respective worksheets, say column D for example.
Since I'm not looking for a specific value I assume I'll need some wild card like *.*.*.*
I have two workbooks, WorkbookA and WorkbookB. Consider WorkbookA as the "summary" workbook where all of the data is presented in a simple manner. WorkbookB has about 100 worksheets (with each worksheet referring to a specfic job number ex. 1234). All of the sheet names of WorkbookB are listed in cells A1-A100 of WorkbookA.
I need a way to do the following:
1. While in WorkbookA, search WorkbookB for worksheet "A1"
2. After the correct worksheet is displayed in WorkbookB, I will be doing a series of vlookups in order to gather the data.
3. Repeat steps 1 and 2 for all 100 job numbers (cells A1-A100)
how I can achieve step number 1, I'd really apreciate it. I created a macro in the past to search WITHIN a workbook for a specific sheet, but I've never made one to search thru another workbook based on a specific cell value. The code I used to search within a workbook is shown below.
PHP Code:
Sub GetSheet()
Dim SearchData As String
SearchData = InputBox("Enter assembly number (including group)")
If SearchData <> vbNullString Then
On Error Resume Next
Sheets(SearchData).Activate
If Err.Number <> 0 Then MsgBox "Unable to find sheet named: " & SearchData
On Error GoTo 0
End If
End Sub
way of being able to search ALL the sheets in one go on a workbook? Going through all the sheets maybe one by one, i cant fathem it at all.
View 9 Replies View RelatedI am looking to write a macro that will search for keywords on a sheet, on a workbook at a specific path, and would like some help getting this macro started...
It would get run from "WorkbookA", and would look at "WorkbookB" (wherever it is) and find the cell containing the keyword, where the cell value would be the output. I would really prefer that it did not open Workbook B while this macro is run, if thats possible.
I have a master workbook that I reference data from hundreds of excels on.
I am trying to reference the cell "BU7" that has the workbook name (NT-13-001) in it, to reference sheet name "Purchase Order" at cell "H13".
Next line I would like to reference the cell "BU8" that has the workbook name (NT-13-002) in it, to reference sheet name "Purchase Order" at cell "H13".
The computer path is K:FRG TOOL REQ2013NT FormsNT-13-001
This is the formula I have tried... I have also attempted the INDIRECT function & Hyperlink GO TO.
=IFERROR('K:FRG TOOL REQ2013NT Forms["&DU7&".xlsx]Purchase Order'!$H$13,"")
So finally got my sumrpod working using this formula
=SUMPRODUCT(1*('Q:Documents13-14 FCGP CONTRACTING13-14 TrackingSouthPac - Team Use Only[South Pac Load Tracker - MAR14.xlsm]SPECIALS TEAM NZ'!$C8:$C10000=A5))
Is there a way i can link 'Q:Documents13-14 FCGP CONTRACTING13-14 TrackingSouthPac - Team Use Only[South Pac Load Tracker - MAR14.xlsm] to a cell so that when the next months tracker is created and the filename changes i simply change the filename in the cell which im using to reference the filepath/filename.
e.g A1 = South Pac Load Tracker - MAR14.xlsm
Formula would read =SUMPRODUCT(1*('Q:Documents13-14 FCGP CONTRACTING13-14 TrackingSouthPac - Team Use Only[' & a1 & ;]SPECIALS TEAM NZ'!$C8:$C10000=A5))