I have a UDF that looks up data in another worksheet (called "Capital Costs") to create data for the worksheet in which I enter it. This is the first UDF I have ever written, so I must be doing something wrong. It works just fine--once.
But if I go into the "Capital Costs" worksheet and change the data there, it does not automatically update the cell in the other worksheet with my UDF. I have to erase my UDF and reenter it for it to grab the new data in "Capital Costs". (I have tried hitting F9, and that doesn't update the UDF.)
My UDF is "=Capex(year)". So let's say my year 1 Capex was $50,000. The UDF calculates that and populates the cell correctly. But if I go into the "Capital Costs" worksheet and change the year 1 Capex to $60,000, the UDF (which is on a different worksheet) doesn't automatically update. I would like it to automatically update, just the same way it would if it were a built-in function like AVERAGE or SUMPRODUCT or STDEV.
Let's say that in column A I have numbers,"Yes" and "No". I want in column B to have only the numbers from column A, in the same order without any empty ranges, and everytime I add in column A a new number, column B to update automatically with that number. Let's have an example:
A B Yes 12 12 13 No 10 13 No 10 Yes
And if I want to add in column A: A B Yes 12 12 13 No 10 13 25 No 15 10 Yes 25 15
So the column be will update automatically. I already tried =IFERROR(INDEX($A$1:$A$10,SMALL(IF(ISNUMBER($A$1:$A$10),ROW($A$1:$A$10)),ROWS(B$1:B1))-ROW($A$1)+1),") but using this many times get's my file very heavy and the excel is working slow.
I have some VB code which sequentially opens over 200 workbooks to extract data from each and populate another workbook. These workbooks do have links to other workbooks in them. For some reason when some of these workbooks are opened I get a requestor window asking whether I want to Update or Don't Update the data. I always want to Update the workbook and believe this can be done in VB by hiding the requestor?
I have a vlookup to another workbook. It works fine if both workbooks are open. But if both are not open and I open the workbook with the links and click Update, #VALUE! returns. I have attached the two files. I don't think it is my formula, but here it is anyway. =IF( COUNTIF([Tempozgrid.xls]June!$A$52:$A$83,A3),VLOOKUP(A3,[Tempozgrid.xls]June!$A$52:$L$82,12,FALSE),0)
I have a basic formula =C17+'Asset Depreciation 2008 Onwards'!C24, and I want to copy it down just using the drag function. Problem is that the second reference range of cells are in rows and hence when I copy it down it doesn’t automatically update the cell references because it want to update them by column number instead of row number. IE I want it to display =C17+'Asset Depreciation 2008 Onwards'! D24, instead of C25. Do you know if there is any way of telling Excel that I want it to increase the column number by 1 every time, instead of the row number for this part of the formula?
I have been trying to remove or disable the message on update to other worksheet " To update all linked click yes......" I have try the following unsuccessfully
Sub auto_open() Application.AskToUpdateLinks = False End Sub
On the menu bar choose Edit ---> Links Can not choose manual, as the option is grey out (disable) I would prefer a vba solution, but I am open to anything to get rid of this message
I have one source spreadsheet, where are columns NAME, DATE. I read these data by ADO to other spreadsheet, where I can change/delete data and then run macro for update data in source spreadsheet. The problem: In source spreadsheet is column "NAME" and column "DATE", with values e.g. "Joseph"; 1.1.1980. I read this data to other spreadsheet, then I delete in it value 1.1.1980. When I run macro Update, it messages error.
Sub UpdateItem ... .Fields.Item(1).value = activecell 'activecell value = "Joseph" If Not isempty(activecell.offset(0,1)) Then .Fields.Item(2).value = activecell.offset(0,1).value Else .Fields.Item(2).value = "" 'I tried Empty and 0 too but when I read data again then, it displays 0.1.1900, nothing works End If ... End Sub
It seems that in source spreadsheet has data in column "Date" format Date and when I try to update data in format String ("") in source spreadsheet by Update macro, it messages error. When I used
.Fields.Item(2).Value = Empty ' or .Fields.Item(2).Value = 0
after rereading data it displays 0.1.1900 What I want to get is that if the cell with date (in other spreadsheet) is empty, the cell in column Date in source spreadsheet after updating will be blank (contains no values).
I have a large database, data as rows with individuals each carrying a unique ID code (RING). The database spans over 60 years - individuals are birds with metal rings carrying a unique ID - so some individuals have had their rings replaced (e.g. row 7 in the sample below). My task is take the old ring (C7) and replace any earlier records of the old ring (A3) with the new ring (A7).
I have joined some cells using '&' which is formed a formula. But till I am not pressing f2 button on that cell and then pressing enter key, the formula is not working.
I am attaching test sheet here, If you press F2 Button in cell H2, then press Enter key they only it will show the value of A1.
In Excel, I have created a userform where a user inputs parameters into various textboxes. A simulation runs based on these user entered values. All the VB code is in this form. There are some textboxes and charts that are supposed to get updated as the simulation runs so that the user can view the parameters change as the simulation happens (it is a "do loop").
Everything is fine except the charts and textboxes don't display the most current value. They display the starting value during the "do loop " execution. Once the do loop quits, they then display the final values and chart.
I have me.repaint and chart.refresh inside the do loop to display the most recent values. none work, as far displaying the most current values.
Is there a way to update without user input? I get the following message: This workbook contains links to other data sources.
*If you update the links, Excel will attempt to retrieve the latest data. * If you don't update the links, Excel will use the previous information.
Note that data links can be used to access and share confidential information without your permission and possibly perform other harmful actions. Do not update the links if you do not trust the source of this workbook.
I have a combo box, when I make a selection in the combobox it filters the selection in the listbox but I want it to list Column B & C data - it only lists column B data. I did make the column count 2.
i have a complex workbook. Recently, when I open it, it asks me if I want to update links. I never (that I know of) established any links to other workbooks. I see that a workbook is referenced in the "edit/links" menu, but I can find no way determine which cells, graphs, etc, in my workbook are subject to this link. I would like to get rid of this useless and bothersome issue.
I am creating a budget spread sheet, where a different sheet is used for every month.The months are divided into weeks of the year (week 1, 2... 52), but it also includes weeks where only a few days of the month occur (eg. Feb 2012 - week 1 includes 30 and 31 of Jan, then 1, 2, 3, 4, 5 of Feb and week 5 includes 27, 28, 29 of Feb and 1, 2, 3, 4 of March). Now, since week 5 of January and week 1 of February will be the same, I would like to link those cells, so if I was to change the cell value in January, it automatically changes in February. The issue is, that I also want to make it so that if I am to change the cell value in February, it alters the cell in January (so cell F33!Jan = F33!Feb and F33!Feb = F33!Jan).
I have a VBA coding which is working on online tool (such as updating Ads), All macro running proparly as per coding but while click on update button i get pop up due to which my coding stop.
how to remove/ignor/avoid unnecessary pop up at the time of running macro.
I used to have a Text box on the form that allowed the user to enter a value for the Weight variable. But they wanted it changed to a drop down combo box so I have changed the form and added the combo Box with the following Private Sub CmbBx_Weight_Change() CmbBx_Weight.Value = UCase(CmbBx_Weight.Value) End Sub
What the user wants now is to have the combo box where they can enter a variable for the first time through and this value gets added to the combo box list. (The combo box starts out empty). And each time after that when the user comes to this combo box, the first value will be there already and they will be able to use that value or enter a new one and each time save this new one to the combo box. I have been looking at the board for an example, but can't figure it out.
Below is a formula that links other worksheets from other workbooks to cell B4. If I copied this to another computer system in My Documents that is named other than Tom would the links get updated to that system. If not is there a macro that can handle this to be updated to another computer system.
=('C:Documents and SettingsTomMy DocumentsHORSESHOE MASTER SCOREBOARD[2007 HORSESHOE SCOREBOARD TO 15 PTS. ANDREA & ROGER''S.xlsm] PAID UP '!B4)+('C:Documents and SettingsTomMy DocumentsHORSESHOE MASTER SCOREBOARD[2007 HORSESHOE SCOREBOARD TO 15 PTS. DAVE & PAULA''S.xlsm] PAID UP '!B4)+('C:Documents and SettingsTomMy DocumentsHORSESHOE MASTER SCOREBOARD[2007 HORSESHOE SCOREBOARD TO 15 PTS. DAVE DUVAL''S.xlsm] PAID UP '!B4)+('C:Documents and SettingsTomMy DocumentsHORSESHOE MASTER SCOREBOARD[2007 HORSESHOE SCOREBOARD TO 15 PTS. PHIL & YVETTE''S.xlsm] PAID UP '!B4)+('C:Documents and SettingsTomMy DocumentsHORSESHOE MASTER SCOREBOARD[2007 HORSESHOE SCOREBOARD TO 15 PTS.
I am creating a spreadsheet where if a cell is updated, the cell next to it is given a time stamp
i.e. if the value in cell A2 changes, the macro gets the current time from cell B1 and pastes it (as a value) in cell B2 - see the code below
However, I need to have this for about 200 cells and I don't want to create the code for each unique line. Is there anyway of doing this?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 1 Then Range("B1").Copy Range("B2").PasteSpecial xlPasteValuesAndNumberFormats MsgBox ("Cell updated!") Exit Sub Else
I have an excel spreadsheet which I have a button to insert from SQLEXPRESS and it works well. I have now put a button on which is to send the data back to the .dbo. I was wandering how close I am to getting this correct.
Private Sub cmdSend_Click()
Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset
When you open a sheet, and it brings up the message "this workbook includes links to....etc" & asks you if you'd like to update... is there an event i can use to run some code before the user clicks 'update' ?
This is to run stored procedures (in the SQL Database), and pass variables. But...once the query is setup...all I really want to do is change the variable...and "fix" the sql query with the new variable value.
I have a database in excel that has hyperlinks to each document. The problem i have is that i need to move the documents to a new folder, therefore rendering the hyperlinks useless. I have over 1000 hyperlinks that needs to be updated.
what i need to do is the change the current hyperlink to insert the name of the new folder that these documents are to be placed in. i.e.
c:1 management........ needs to become c:Registered folders1 Management........
Is there a way of adding the name Registered folders to the path of the hyperlinks for every document automatically, as doing this manually will be too time consuming.
I've written a worksheet to countdown to a specified time - however, unless a cell value is changed or a manual calculation (F9) is forced then the current time does not update.
My macro involves iterating thru' a loop close to 500 times, and each iteration involves some movement back and forth between Sheet1 and Sheet2. Thus I have set 'Application. ScreenUpdating = False' just before the start of the iteration to prevent screen flicker and hopefully to speed up the iteration process. However, altho' the screen thus appears 'frozen' during the iterative process, I would like a real-time 'status update' box to appear at the start of the iteration; something like: 'Currently Running Iteration 24 of 500', where '24' is the current value of the loop counter within the macro code; next loop increments this to '25', etc.
I need to write code to automatically update a user's add-in if a newer version is available. Here are the specifics. The add-in is installed on multiple users c:drives. In the add-in code, there is a constant, Version_Nbr. On the network drive, I have a text file containing the most up-to- date version number. When the user opens the add-in file, the code compares the Version_Nbr to the text file on the network drive. If the version on the network is higher, I prompt the user with "A new version is available. Would you like to download it now?"
I have a seperate download program which will automatically download the new add-in to the user's local drive. Here's where I run into problems. I cannot replace the add-in file with a newer version when the add-in is open. The add-in is always open because it's the add-in that determines if a newer version is available. So how do I do this? It seems to me I need to launch the download program from the add-in and then have the add-in close itself before the download program executes.
I have this issue, I am trying to create a spreadsheet which updates one (Database) based on another (Sheet1), then log's the changes on a third sheet (log), I keep getting the error 1004 message, but I can't see what is wrong with my code here it is, and file is attached also:
Option Explicit 'Update Database Private Sub CommandButton2_Click() Dim fincom As Variant, subcat As Variant, fixture As Variant, space As Variant Dim i As Integer, x As Integer, postSpace As Variant, change As Variant Dim store As Variant, k As Variant, log As Boolean, Target As Range, OPostSpace As Variant Application. ScreenUpdating = False 'On Error Resume Next fincom = Worksheets("Database").Range("B2:B8").Value subcat = Worksheets("Database").Range("C2:C8").Value fixture = Worksheets("Database").Range("D2:D8").Value postSpace = Worksheets("Database").Range("E2:E8").Value OPostSpace = Worksheets("Sheet1").Range("G4:G8").Value store = Worksheets("Database").Range("A2:A8").Value.....................