I am creating a formula - that will look up a value within a seperate workbook. I want the workbook reference to change based on a cell which contains the date.
So workbook name is "Report 120309.xls"
Cell: A1 contains the date "120309"
Current formula ='[Report 120309.xls]Sheet 1'!$F$50. Can I replace the data within the formula with the date in the cell.
I've seen that you can set up a reference and that may be the only way, but my guess would be that it is not the only way.
I'd like to open and run a sub from a different workbook (in the same folder) using vba. For example, test1.xls would have a sub that would open test2.xls and run a sub from test2.xls before closing and returning to test1.xls.
I'm working to develop a method to programmatically identify the type of object contained in a UserForm, it's relevant property(s) & their current values.
Currently, I'm importing the relevant form into a new form module within the VBA Project. I'd like to be able to set the Workbook & Userform as variables within the code & do away with the import step. It appears the target workbook can be addressed by using the statement,
Set my_Workbook = CreateObject(Application. GetOpenFilename)
However I'm coming unstuck with the correct syntax to address UserForms in another workbook.
I want to know if when you open an excel file from the desktop is it possible to have that paticular file open in a new Excel program instead of one that is already opened. A more specific senerio is that I have Excel running a program and if i open from the desktop it opens it in that paticular excel program. I can open excel a second time and have to seperate excel programs running. Is it possible that when I open a paticular excel sheet from the desktop that it opens in a new excel program besides the one that is already running.
View 3 Replies View RelatedI have built a simple little logger forlogging insurance policies set up without permission, at the moment it logs all data in sheet2 of the active workbook. What I want it to do is when submit is clicked is to export and save the data to a seperate (central) workbook to collate all entries and not to save it in the active workbook. I've inlcluded the file and the code is as follows;
Private Sub CommandButton1_Click()
Dim ws As Worksheet, lRow As Long, Str As String
Set ws = Sheets("Sheet2")
lRow = ws. Range("A" & Rows.Count).End(xlUp).Offset(1).Row
'____error handling______
If TextBox1.Value = "" Or NullString Then
MsgBox "Ooops, it seems you haven't entered a policy number!", vbCritical, "Error..."....................
I have a program that has all Excel Workbooks in seperate instances of Excel. There is a very sound reason for doing this.
The user has maybe 3 to 10 workbooks open. There are times when a workbook is active and has a Macro Link to open one of the already open workbooks.
When the user clicks the link, they naturally get an error message stating that the workbook is already open. Then they have to close the error msg and click on the Macrosoft Tab and look thru the list of open workbooks and then click the one they are looking for. Additionally, in this Menu Program the user really doesn't even have to know the name of the various workbooks.
I hope everyone will believe me when I state that this program works berautifully.
Right now I am simply cleaning up and making a few little things work better.
QUESTION When the user clicks on a macro link that is to open a workbook that is already open, how - On error - can I have the macro continue on and activate the requested workbook - - - Please remember they are all in separate instances of Excel.
Since the code I'm using can determine if the requested workbook is already open, I think there has to be a way to activate that workbook.
I am working with multiple workbooks with several tabs in each one. I need the forumula to update the "sheet name" from the source workbook even if the destination workbook is closed.
this is a portion of the forumula I am working with:
=SUM(IF(AND([L2_EI_Phase_II_monitoring_workbook.xlsx]Sheet25!$I$4>=182,[L2_EI_Phase_II_monitoring_workbook.xlsx]Sheet25!$I$4=182,
[L2_EI_Phase_II_monitoring_workbook.xlsx]Sheet26!$I$4=182,
[L2_EI_Phase_II_monitoring_workbook.xlsx]Sheet27!$I$4
I have a formula in the Name Define part of excel in workbook that refers to another workbook. =IF(COUNTIF([DaysWorking.xls]Sunday!$A:$A,'2009'!I1)>0,1,"")
The DaysWorking.xls workbook is a data workbook, users may change the data and after they are done, they may exit the program but not save it. The DaysWorking.xls workbook should always revert back to the original form. I've put a read only property on it, but the problem lies when the user saves the file under Save/As function. Excel then updates the link to whatever the user saves the file as. Is there a way to make sure that the formula never get's changed?
I have sheet1 along with three columns as below
Result column will show the result after sum ** column A & B
[Code] ......
This is simple that i will add this formula =A2+B2 in Result column cell C2.
But i want to perform this addition action on Sheet2 and return the result in column C2 ** Sheet1.
What formula should be populate in Result column ** Sheet1 that could catch addition formula from Sheet2 dynamically and display the result ** column A & B in Sheet1 .
And what type ** formula should be use in Sheet2 to add two columns dynamically.
The same concept that we are using in any functions like as below:
Sub Function Plus (value1 As Double, value2 As Double)
Plus = (value1 + value)
End Sub
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 1 workbook which summerizes 3 other workbooks. My question is, is there a way that if I hide a column(s) in 1 workbook (by either using Hide or Outline), the corresponding column(s) will also automatically be hidden in the Summery workbook?
Or, is there a way that I can make the Summery Workbook only display / Link to cells that is been displayed in the source workbooks? I hope to do this dynamically, so if something is hidden by Outline or Hide in one of the workbook, the affected cells in the Summary workbook will also go in hiding.
I am hoping to do this by some magical Excel Function, if not then by VBA (I'm not that good a VBA programmer), if not even that, then maybe some free Excel Tool someone knows?
I am facing a problem in using a dynamic range(name) defined in a different workbook, when that workbook in not open. I have defined a dynamic range, 'complete' , in Main Assumptions.xls as shown below
= offset( sheet1!$A$16, 0,0, counta(sheet1!$A:$A)-6, 5)
I am trying to use 'complete' in another workbook, RCL.xls, as shown below.
=VLOOKUP(C11, 'C:Chein[Main Assumptions.xls]Sheet1'!complete,5)
This works well as long as Main Assumputions.xls and RCL.xls are open. However, When Main Assumptions.xls is closed and I try to open RCL.xls, I get a warning saying, Excel can't find 'complete' in Main Assumptions.xls. There are two possible reasons: 1. the name you specified may not be defined. 2. The name you specified is defined as as something other than a rectangular cell reference. Does that mean that I can't use dynamic ranges defined, in other workbooks?
is to have a folder where I drop multiple workbooks from different stores. There can be 1 or more workbooks at any given time in that folder. Each workbook is a different size as far as the information inside. Next I need to transfer certain columns to the Master Workbook and also have the store location added to the Master workbook (File Name). I have highlighted the store information that needs to be merged to the master, Store 1, Store 2. For reference I have attached a copy of the Main Folder which is on my desktop C:Documents and SettingsDesktopInventory.
View 5 Replies View RelatedI have a range of workbooks that I need to access when closed. I therefore want to use INDEX rather than INDIRECT.
This non-dynamic INDEX reference works perfectly:
=INDEX('[AAA 100.xlsx]Sheet 1'!$A$1:$F$20;1;1)
In the future, however, there will be a lot of reference files and both portions of the name will change - I might have ABC 123, DEF 345, etc. These name portions will be stored in cells. Cell A19 might contain "AAA" and Cell A20 might contain "100".
I am trying in my ignorance to get something like this to work:
=INDEX("'["&A19&" "&A20&".xlsx]Sheet 1'!$A$1:$F$20";1;1)
But I just get "#VALUE!".
Stepping through the evaluation, it seems the final value to be evaluated is this:
INDEX("'[AAA 100.xlsx]Sheet 1'!$A$1:$F$20";1;1)
The outermost double quotes therefore seem to be causing the problem, but if I remove them I get "#REF!".
I have read a number of posts and other sites and can create the hyperlink in the desired cell but get an error message to the effect, "Cannot open the workbook."
The current macro follows. I believe its description is made in the comment statements below the date-author comment.
Sub DecomposeCTQ()
'Decompose CTQ Macro
'14Oct13 Charles T. Carroll'
'This macro copies the template to a new worksheet and takes data from the'
' active cell CTQ and makes it the parent CTQ on the new worksheet. Then'
' it renames the new worksheet with the active cell CTQ ID.'
If ActiveCell.Column 2 Then
MsgBox "You must be in the CTQ ID Column to run this program"
GoTo Leave
[code]......
i have this code that could extract out Data from many closed workbook. I am extracting data from 2-3 thousand files and the Data in those files are rather dynamically positioned.
For e.g. My vba codings will extract data from cell B256 of the closed workbook.
Sometimes, the data might not start from that cell which my vba would still extract that non-relevant data.
Is there anyway i can modify the codings to search for the required data and extract instead of extracting it dumbly?
Sub getINFO()
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook
Dim rCell As Range
I currently have a file that is linked to an external workbook that is referencing a certain cell from a certain tab. The below is what Column A & B look like right now. What I'm wanting to know is is there a way to have the formula in Column B automatically reference the name in Column A (which is the tab name in the external workbook) instead of having to manually change the formula when the value in Column A changes?
In other words, I want everything in the external reference formula to remain the same except have the person's name change dynamically...
Mary
='X:Anderson CorporationEmployees[Work Hours]Mary'!$F$42
Joe
='X:Anderson CorporationEmployees[Work Hours]Joe'!$F$42
Frank
='X:Anderson CorporationEmployees[Work Hours]Frank'!$F$42
Michelle
='X:Anderson CorporationEmployees[Work Hours]Michelle'!$F$42
Sam
='X:Anderson CorporationEmployees[Work Hours]Sam'!$F$42
I have a weekly report which lists items and their available date. This list is always changing - new items added, old items removed. These items are required for 4 different projects and the item listed says which project the item date is for. There is also the same item across different projects which also have different dates which also appear and disappear each week depending on requirements.
I want to be able to capture the date for each of the items per project per week. Ultimately, I want to be able to track the movement of the date per item per project. I have attached a sample of how I want it to do.
I have a financial dataset which I need to "clean" before manipulating/analysing.
Each row of the data represents a completed transaction and the first step is to delete rows that are done with particular (internal) clients; the client data (the client's name) is in Column D.
Currently, I delete the unwanted data by autofilter and delete (code below), however this means the clients to be deleted are only defined within the code. I would prefer to have a worksheet within the workbook where the user defines the clients by adding or subtracting their name from a list.
I have created a dynamic range for the client list by inserting a Named variable along the lines of "=OFFSET(!$B$3,1,0,COUNTA($B$3:$B$200)-1," which works fine.
However how do I work this list into my code so that it works when new clients are added or deleted?
Current code for deleting unwanted client data:
Sub filterdelete()
Dim LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
With Range(Range("D1"), Range("D" & LastRow))
[Code] .....
Code to copy the sheet that get selected by if-then-elseif statement and paste in a new workbook, save the workbook as temp, email it and delete it,
sub sending_mail
Dim OutApp As Object
Dim OutMail As Object
Dim rng As Range
Dim DataWB As Worksheet
[Code] ......
Copy data from workbook, open existing workbook, select range and paste. But my copied data is lost.
Sub Select_Copy_Paste()
'
'
Windows("ElektroFunctiesDatabase.xlsm").Activate
Sheets("PowerSupply's").Select
Range("A2:I6").Select
Selection.Copy
[Code] .........
' Here i need to do something to paste data into r.address?
I m not able to use the standard Excel Paste Special function when I copied a range of cells in another Excel workbook opened in a separate instance of Excel. Instead, Paste Special thinks that I have copied some non-Excel objects and gave me the Paste As options. This is not the case if I open both workbook within the same instance of Excel. Could you share with us if there is a trick to trigger the normal Paste Special options in such situations (without having to invoke Macro procedures)?
View 2 Replies View RelatedTrying to create a new workbook from another open workbook, then copying all the sheets that aren't called "Summary" to that new open workbook and then saving it. I get a subscript error on this line:
[Code]....
All i did was i just created a form to open a workbook from the directories.
Code to copy the data from that recently opened workbook to my workbook where I have my forms. I need to copy that data as in the case that i don't know the workbook and the sheet name i'am going to open as i may open any of the files!!
I have data that daily needs to be refreshed and printed to pdf.
I figure the simplest way to do this would be to task schedule the workbook to open daily. Then on open it will refresh the data, print it after all data has been refreshed and close the workbook.
I set it up originally without the need to print so I have all the queries set to refresh when opening the file, however when I now try and put the code to print to pdf on the workbook open event it runs before the queries are finished running. (Query notes: queries were created through Microsoft query, and are accessing a MySQL database queries set to refresh when opening the file queries set to enable background refresh).
I've been using the following code to bring in individual cell values from one closed workbook to an active one. I would like to modify this is possible to bring in multiple cells at once and also pull them into a different worksheet in the active workbook. Basically, my command button is on Sheet1 but I'd like the data to pull into a cell on Sheet2.
Private Sub CommandButton1_Click()
With Range("Q9")
.Formula = "='C:Users[Workbook Name.xlsm]Worksheet Name'! N27"
.Value = .Value
End With
I have been trying to edit a code which previously saved a copy in a new workbook to a specific folder/path. (Additionally it copies and clears some figures, but this is working as it should.)
However I would like the copy to be saved at the same location as the original workbook, regardless of the path the original workbook is saved.
I.e if I need to move the workbook containing the code to a new folder/location, when using the macro, the new copy should be stored in the same folder/location as the original one.
For now it is only saving the copy into "My Documents"
Code:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 16-02-2009 by ceng
'
Sheets("Bunker ROB").Select
Sheets("Bunker ROB").Copy
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & Range("D3"), _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
[Code] ........
Attached file where i m not able to split data in seperate seperate coloumn
View 3 Replies View RelatedI run a model in Excel that automatically saves my file every xx iterations. After saving the file I want to make a backup of the file. Tried
[Code] .....
but get a permission denied error message.
I don't want to use .SaveAs as it is a huge file that takes a while to save and SaveAs has a tendency to break links that should not be broken..
I have an open workbook (A) and this is where the code should reside. I want to use VBA to copy the content of an entire worksheet from a closed workbook (B) to an existing worksheet in workbook A. How would you accomplish this?
View 7 Replies View Related