It's some code I found and altered that automatically updates the cell to the right of a column that has drop down box data validation, creating a list of the selected values seperated by commas. The thing is, I only want it to do this in columns 8 and 10 but data validation drop-down boxes have been used in several other columns. I've tried various methods of limiting the scope, the latest being the line: If Target.Column = 8 Or 10 Then. But the auto update is still being applied to all drop down boxes in the sheet. So, how can I make sure the auto update only happens when the drop down boxes in columns 8 and 10, updating into columns 9 and 11.
I have 2 drop down menus based on car make and model.
The first contains Make and the second contains the models of that make using the indirect function (All through data validation (this may be my problem))
Now what I'm wanting is that when the Make changes, the Model will automatically changes to either the top (or any really) model from the list for that make or to change to blank. So can this be done without VBA?
Everytime that I insert a row into a worksheet which a number of formulae refer to, those formulae get updated automatically in such a way that it is not in my favour. The formulae refer to rows 2:2000 on a number of different columns. Adding a new row shifts the references to 3:2001. I presume that I can stop this from happening
Example:
= SUMPRODUCT(('List of DD Donors'!E2:E2000)*('List of DD Donors'!F2:F2000='DD Tally'!E6)*IF(DATEDIF(('List of DD Donors'!G2:G2000)-1,DATE(2006,3,31),"m")>12,12,DATEDIF(('List of DD Donors'!G2:G2000)-1,DATE(2006,3,31),"m")))
changes to...
=SUMPRODUCT(('List of DD Donors'!E3:E2001)*('List of DD Donors'!F3:F2001='DD Tally'!E6)*IF(DATEDIF(('List of DD Donors'!G3:G2001)-1,DATE(2006,3,31),"m")>12,12,DATEDIF(('List of DD Donors'!G3:G2001)-1,DATE(2006,3,31),"m")))
What I am wanting to do is have excel insert a static date automatically. I know ctrl + : inserts date and ctrl shft + ; inserts time. I want excel to do this automatically. The now() and today() functions auto update the date. I dont want the date auto updated when the file is reopened after it is saved. The file is a template so I guess what I am really wanting is a automatic date/time stamp when the user saves the file so when it is emailed and reopened the date does not auto update.
So, I work in a large indoor grow facility, and as such, we need to keep an active, updated calendar of all activities that will need to happen in the grow. If something happens to a set of plants, we need to change to date of transplant into the next pot size and every transplant after that, as well as moves into the flowering room from the vegetative room.
I have tried to manually make a calendar (I'm not worried about auto-generating a calendar or auto-filling dates, only things that happen on those days.) and tie in this information, but I'm having issues automatically searching a column and finding the date, and then pulling more information from that row automatically. (i.e. If anything in Column E has the date 7/3/14, then fill the data from Column C and Column B on the same row.)
I'm attaching a copy of the spreadsheet that I am trying to pull the Data from, and a copy of the Calendar I mocked up.
FYI, the spreadsheet I am pulling from Automatically fills once you put in the Clone Date, and then if you add in an adjusted date, it will adjust all later dates from that same section.
I tried to find something other than Excel as well to do this for me, but AFAIK nothing exists to make the calendar update Live, only to reproduce a new calendar with the current spreadsheet. This is not an option, I need it to stay up to date.
I have fought with this for 2 days and I am trying to have a worksheet cell update the date and time if the cell it is referencing (B3 see below)
Here is the formula I am using however it updates every time a new row is added to the worksheet. So the Date/Time stamp on each row is always updated to NOW() everytime.
=IF(ISNA(B3),"0/0/00 00:00",NOW())
I would like to have a Date/Time stamp stay as is once that row has been added. Is there anyway to stop the field from updating once the date and time have been set?
It seemed to be working OK for the first hour I had my sheet open. I then noticed that a variation of the following Sub would not update unless I clicked somewhere else in the sheet or edited another non-included cell. It's like something is holding up Excel from running this function and updating the cells if b2 is greater than a3 then a3 will not update to = b2 immediately.
Private Sub Worksheet_Change(ByVal Target As Range) If [b2] > [a3] Then [a3] = [b2] End Sub
My data in column B is formula derived and that formula contains data that is live updated data brought in from DDE link.
My question is, should I setup this formula as part of a macro, instead of workbook code and attach an Application.Ontime function to ensure reliable execution? Could too many IF statements cause delays (about 100 of them currently in the code Private Sub Worksheet_Change(ByVal Target As Range))?
if it is possible te refer to a cell in another worksheet.
I have 10 worksheets in sheet one I put in cel A4 a digit en sheet 2 I put the formula that refers to sheet 1 cel A4.
Now I want a formula that refers to sheet -1 so in sheet 3 the formula automatically refers to sheet 2 cel A4 and in sheet 4 the formula automatically refers to sheet 3 cel A4 without corrections to the formula.
Have been trying to set a chart here to autoupdate which normally is fine to do. In this case however there are other columns in the data table that run down to Dec 2014. Even if i define my needed range, the graph will show the full timeframe (with lots of unneccessary space).
I've attached an example. Rate % is the column that will be updated monthly and I would like the graph to only increment along when a new figue is entered here. I've defined this range as 'Rate' within the sheet.
Running XL07. Need to have one workbook pull data from several dozen others.
Have columns to the right that refer to the query table.
As I add in queries to other workbooks, the time to update each individual query goes up a lot; it feels as if the update time is increasing geometrically. I'm giving up after 2 hours, for query updates that used to take
I have the following macro which runs vlookups between two sheets in excel. Whenever i add columns to the range the vlookup column reference is not the correct cell. Is their any way I can adjust the macro so that the column number adjusts in the formula when a new column is added??
I'm trying to create an autoupdating price list using a part number and a website. I've tried Excel's data import wizard.
Website: WebFLIS - Public Search Sample data Category Chaplain Kits Item Chaplain's Kit, Consumable NIIN 9925-01-326-2855
Price $276.94 Description Also called the ReSuppply Kit
VBA Code that allows me to automatically open the page.
Dim IE As Object Sub submitFeedback3() Application.ScreenUpdating = False Set IE = CreateObject("InternetExplorer.Application")
[Code] ......
Ideally, I'd like to click a button that says "Update Prices" and it will search WebFlis for the NIIN listed and update the price. I have 717 items on my list so updating would be by click only (I think I can write that portion).
If that is not an option, I'd like to be able to click on each item row (think hyperlink) and be able to see the results for that individual item.
I was wondering if there's a way to add a formula to calculate week over week % change automatically every week when I enter in new data. see the attached excel file for reference.
What I would like to have is the ability for the formulas in c5 and f5 to be able to auto-update to the newest week and the previous week's data instead of manually having to update it each week. So if I were to add a new row with data for week beginning 12/2, the formula in c5 and f5 would automatically update to calculate the week over week variance. I tried researching prior to asking the question on this forum, and I think it may be possible to do it using the index match function, but I'm not sure how to apply it in this case.
Just starting with excell and am working on a project for my class. I cannot figure out why the value of the variable "changer" defined by command buttons on sheet1 are not being passed to the procedure contained in command button on sheet 2.
I declared the variable in the general declarations section of sheet1 with
Public changer As Integer
The command buttons on sheet 1 contain
Private Sub CommandButton1_Click() changer = 1 Cells(1, 1) = changer End Sub
Private Sub CommandButton2_Click() changer = 2 Cells(1, 1) = changer End Sub
The command button on sheet2 contains
Private Sub CommandButton1_Click() Cells(1, 1) = changer End Sub
When I click on the command button on sheet2 nothing happens.
How to prevent a variable holding a pointer to an object from going out of scope and releasing the object pointer after the VB project is reset due to a runtime error during code execution or due to manually resetting the vb project ?
Hooking the Application events in a class module is a scenario where this could be particularly useful - For example, let's assume the application events are hooked upon opening the workbook . Now if the variables go out of scope the application events are no longer functioning which is what i am trying to avoid.
I did once worked around this by creating a VBS script on the fly and continually monitoring the state of the variable from outside excel but this approach has proven problematic on some machines where running scripts is restricted.
I thought about writing an activeX dll in VB6 , loading it in the excel process and hook the application events from there but I don't think this would work because the dll shares the same memory space as the host process.
Private Sub Workbook_Open() fileName = ThisWorkbook. Name fileLocation = ThisWorkbook.Path Dim strFound As Boolean, pos As Long If Not fileName = "" Then strFound = False pos = 1 Do While strFound = False stringFound = Mid(fileName, pos, 1) If stringFound = "-" Then productName = Mid(fileName, 1, pos - 1) MsgBox "Name of Product Is: " & productName strFound = True Else pos = pos + 1 End If Loop End If End Sub
It would return "Test" if the file's name is "Test-Part1.xls". I then declare the productName variable as Public (Public productName As String) in one of the modules. But the productName only holds the value for a certain amount of time. After a while, it's empty.
I am trying to create a primitive counter. My idea is to write a value to a file, read it, add one and write it back. The file as a single value tab-delimted of 5000. The code below produces the odd output on debug. I really cant understand it.
Public Function nextInv() As Integer Dim fname As String Dim fnum As Integer Dim stringArray() Dim invNum As Integer
fnum = FreeFile() fname = "nextInv.txt"
stringArray() = parse(OpenRecordClassesFn(fname), vbTab) For i = UBound(stringArray) + 1 To LBound(stringArray) invNum = stringArray(i) Next If FileExists(fname) Then Open fname For Output As #fnum End If invNum = invNum + 1 Debug.Print "invNum" Print #fnum, (invNum & vbTab) Close #fnum invNum = invNum + 1
End Function Public Sub testHarness() Debug.Print nextInv() End Sub
with a output of 5000 invNum 0
and the value in the file of 1. It should be 5001.
I'm trying to find definitions/commands to make excel find the best combinations of several defined scopes and restrictions to make an output number as high as possible.
This is by using a combination of several different equations, maybe excel has a magic trick for all the variables and formulas.
about variable lifetime/scope in a workbook. Basically I have a Class Module that I set up in the Workbook_Open() event as follows:
Private Sub Workbook_Open()
Set CurrentClient = New CClient
End Sub
Once the workbook is open the user can select their "client" and all properties/methods for that "client" are available throughout the workbook until they close it, and it all works fine. However, whilst developing I'm obviously making lots of changes to the code, and every time I do the object is no longer available in memory.
I've tried manually running the Workbook_Open event after I make a code change, and even put in a button with the same code, but whatever I do the object won't remain in memory until I close & reopen the workbook. It's so frustrating having to close & reopen the whole workbook every time I want to test a code change I've made!
I have two numbers I need to compare using and IF statement. The two numbers are virtually the same, and I want the IF statement to round the numbers so any difference under 100,000 is not detected. For example:
Cell A1 = $32,194,884.45 Cell B1 = $32,194,884.37
I would like the statement to look at this number as 32.19 (divided by 1M). I am using the below equation currently, but it is not working:
I have a spreadsheet and I’m trying to create several different staffing scenarios Basically what I want is to populate column E with the amount of staffing based on the number of classes in column B. The range that I want to apply is in the green box in the sample. I’m trying to have excel give me the staffing value if the current number in cell B5 is a certain value – so in the example 1 through 4 = .2, 5 through 8 = .4 and 9 through 12 = .6. this site gave me some ideas so I tried V lookup and Index but I seem to be missing something and wonder if it is not combinations of nested functions?
I have something like this with data in around 1000rows there is text in collums A B D and E.
A B C D E 1 2 100 3 60 4 30 5 20
and i would like to do this: if value in cell x in collum C is over 80 then background color in Ax,Bx,Cx,Dx,Ex is yellow if value in cell x in collum C is between 60-80 then background color in Ax,Bx,Cx,Dx,Ex is brown if value in cell x in collum C is between 40-60 then background color in Ax,Bx,Cx,Dx,Ex is blue if value in cell x in collum C is between 0-40 then background color in Ax,Bx,Cx,Dx,Ex is red
Obviously i cant use conditional formating because i have more then 3 conditions.
In one sheet i have a list from cell a1:a1000. I have named this selection 'headkit' In another sheet, i am using 'headkit' to make a drop down list in a cell. At the moment a lot of headkit hasn't yet been filled and contains lots of empty cells that will be filled as time goes by.
The drop down list currently has all the items in the list including the blank cells therefor making a very large blank list.
Is it possible to limit the list to show only cells with an entry in them?
I have a worksheet with 3 particular columns (L,M,N) that have drop down menus. The menu is populated with items that are referenced on a different workbook (different file). Because there are multiple worksheets accessing the referenced list, this is a master. When I change the master, the lists update, but the cell text does not. Example:
If I chose apple from the list, but later in the master I decide I want apple to be banana, while the drop dowm box will now have banana instead of apple, my cell still says apple.
I don't necessarily want apple to change to banana, but I want a visual cue that this is incorrect. I wanted the cell text to change to red if it is not equal to any of the list items on the master file. I want this to be passive, i.e., I want it to change automatically, so I don't have to press a button or some other activation.
I have the following code which performs the same action on 2 different tabs within the same workbook:
Dim Rng As Range, Dn As Range Set Rng = Range(Range("O1"), Range("O" & Rows.Count).End(xlUp)) Rng.NumberFormat = "@" For Each Dn In Rng If Len(Dn) < 7 Then Dn = String(7 - Len(Dn), "0") & Dn Next Dn
i get the following error:
Compile Error: Duplicate declaration in current scope
I have this code that applies an Alt-Enter command following text being entered in a range named "ActivityRange". ActivityRange is only one row currently, but I have another macro that inserts a row into that range. This code works to add an Alt-Enter after text typed into a cell, but it does it for every cell in the row. I want it to only apply to column "C" and not any values in other Rows. In other words, only apply this command if values are entered into column "C", of the range "ActivityRange".
Anyone know how to alter the code below to accomplish this?
Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range If Application.Intersect(Target, Range("ActivityRange")) Is Nothing Then Exit Sub Application.EnableEvents = False For Each Cell In Range("ActivityRange") If Len(Cell.Value) > 0 Then Cell.Value = Cell.Value & Chr(10) Next Cell Application.EnableEvents = True End Sub
