Per the table below, I compute how many months to average project costs over, establish month in which the costs begin, and these accumulate in the work in progress (WIP) end columns, however in the month the final stage (to hit 100%) of costs are complete, the project is invoiced and the WIP is released - Noting the month in which the last costs are incurred are not added to total to reverse out. The 3 projects and final columns demonstrate the different scenarios and the results I would expect to see, I just can't formulate anything to release the previous months WIP without it repeating the negative for the rest of the year - if that makes sense?
Converting old reports to usable excel format. I am having trouble using VBA to set up a looping macro that would search Column A for cells with the text string: "ACTIVITY TOTAL". If cell has that value I would like to perform text to column action on the adjacent cell (R0C1). The macro recording for the test to column settings i need is :
I have attached a sample of what I am currently working with. The actual file has roughly 6000 lines of data, so I would like the macro to go through all lines.
Cell x in col K is filled with a col number e.g. 'V' (validated via validation list). Cell x in col L is filled with an amount. How do I get the amount of cell Lx into cell Vx? This to be done only when the amount Lx not equal to zero.
Can this be done with a formula, or do I have to use a macro? I tried to find the solution for both options, but sofar I have nothing that works. Via the Excel help I could not find the solution. I know how to create a macro activated via a button. I prefer automatic filling by Excel.
Is there a way to create an in-cell dropdown list, then when only 1 item is selected an action is done, plus this has to be repeated for at least 20 rows, preferably 200.
I can do it with an activeX combo box, but that will be tedious and looks messy. The form control box's were linked, or at least when I created them.
Data validation is the prefered method for my drop down list. It looks neat and is easy to replicate for 200 rows.
I have a macro to copy/paste B14 to B14 in next months workbook. Once a year the event occurs twice in a month, resulting in B14 and B15 both having values, the other 11 months B15 is blank. For this one month I need to copy/paste B15 to B14 in next months workbook. The macro is quite long. So it is If B15 has value then copy/paste B15 to B14 in Feb workbook, otherwise copy/paste B14 to B14 in Feb workbook. Unable to work it out myself.
I ahve looked loads on here but I really did not understand the " find" statement (!) so have had to do a lookup the only way I know - with loops.
I have two problems: The first being that it takes 6mins to run and return values. The second AND MOST IMPORTANT is the following....
What i want to do with the following code is - on the first "If" - if I find an emptycell/blank, i want to exit the "if" so the first "next" statement is incremented - in other words, be able to check if the next cell along is blank/non-empty
I tried using the "exit for" but I only want to opt out of the if statement - not the actual "for..next"
I would have used a goto to get to the line I wanted but it has different meanings with this language....
Numrows2 = Worksheets("File2").Range("A65536").End(xlUp).Row 'Gets the File2 Row count
For e = 2 To 7 'Cols B-G (2-7) contain the headings For d = 1 To 229 'There are 228 cells down to check For f = 7 To 212 'File1 has 206 cells across cols 7-212 Worksheets("Looklist").Activate If IsEmpty(Worksheets("File2").Cells(1, f)) Then Exit For
I have a range of cells that I want to watch for a change in contents. If any cell in the range has a change in contents I want to launch a MessageBox that asks if they wish the new value to be entered automatically in all of the other cells in the range. Example: Range = B8:M9
User changes F8 from "empty" to 38. MessageBox should launch asking if they want 38 to be entered into all of the cells in the range. Upon answering yes new contents of F8 should be inserted into the rest of the range.
I have an excel file that contains two sheets. Sheet2 contains rows of different types of products with each of the columns containing details about the product.
On Sheet1, I have setup a data validation list in which a certain cell contains a drop down box that selects a product from the first column of all the rows on t from Sheet2. I used
I am trying to write some code that will look in an excel cell find if it contains the word that I am looking for and make it bold. I have written the following code so far
VB: With Worksheets("Label Print").Cells(i, J) .Characters(Start:=InStr(.Value, "Name"), Length:=Len("Name")).Font.Bold = True End With [COLOR=#3E3E3E][B][/B][/COLOR]
The issue is that if "Name" occurs twice (or more) in a cell it will highlight only the first.
I want to count the nr of words in cell without counting the repeated words. For example, in "this is a ball and that is a square", the total nr of words is 9, and the total nr of non-repeated words is 7, because "is" and "a" are repeated twice, and I just want to count it once.
I have excel data containing in column A "Plot number" which is repeated and other four column is land area and the next column is "Land Owner Name". Now I want to merge same plot no if the land area is same if differ then I want to leave as it is. And another thing I want to do that the all land owner name is merge in a row.
I am about to write a small macro to do a iteration calculation. I would like though for the user to select me a cell so that the macro uses the value in that cell to start calculations. Now, what I think would be the problem is how do I code a "time" or notice an action such as clicking in a cell to continue with the macro.
Would it be by inserting a pause in the code of a certain time so that gives the user time to click and wait for the code to start? If so, how would much time is enough? Is there another thing that could restart the code such as "noticing a click in a cell" command in VBA?
is there a formula which can locate instances of same text even though due to spaces it may look different? for example, "bad apple" and "badapple" are essentially the same.
I have a workbook with 30 worksheets. Each sheet has 84 rows of data (start in 15 columns (A to O). I would like to create a summary sheet that only shows the most important data from each sheet.
The summary sheet would have 12 lines of headers and formatted crap at the top. The Summary sheet header columns would be:
Site (A), Date (B) Health (C), Status (D), Critical (E), Task (F), Dependencies (G), Owner (H), T-Date (I), Task Date (J), Mitigation Date (I)
The data in the sheets are not in that order, of course.
That 1. puts the name of the sheet I am copying from in column A 2. the deadline date in Column B (that date is always in C10 of each worksheet) 3. and copies Cells from Column A,B,G,H,I,O in any row in which the value in A is not "good" into columns C through H. I would like to paste those rows into the summary sheet. I have code that loops through the sheets and rows in each sheet to find the rows to copy. I can copy cell values directly from the active sheet to the summary sheet, but because I am copying a cell at a time, it takes 7 minutes. Yes I am impatient :)
Here is the code snippet where the copying is done:
Dim sh As Worksheet 'current worksheet Dim DestSh As Worksheet 'worksheet in which to paste summary Dim Last As Long Dim CopyRow As Long 'row to copy Dim LastCopyRow As Long
[Code] ........
ExitTheSub:
Application.Goto Sheets("KMARollup").Cells(1) End Sub
I think there must be a way to use ranges to build an array of cell values and paste only once but I am lost here.
Been racking brain, searching through the forum here, and my Excel 2003 Bible all day trying to figure out this problem to no avail. I would like to clear the contents of any cell in a given range if the cell immediately to the right of is formatted as bold.
See the attached excel table. I need the cell E4 to keep adding the values typed in the cell D4 on daily basis.The cumulative shouldn't be changed if there is no value in the cell D4. E4 should accumulate and keep the totals typed in D4...
In my worksheet I have 'Column A' and 'Column B', In 'Column A' are product I.D. numbers. In 'Column B' is a text description of the product, whose I.D. number is in 'Column A,' and should also contain the I.D. number from 'Column A' somewhere in the midst of the descriptive text. However, some of these in 'Column B' do not.
I need to create a function that looks for the value in 'Column A' and determines whether or not it is present in the text of 'Column B'. Therefore, spitting the answer out in 'Column C' so that I can copy it down for 100,000 cells.
I need to write a condition in such a way that cell IF A1= "DBR","BPR","SLR","SKR" then change cell B1 to SPECIFIC COLOUR Each condition different colour. A1 values ("DBR","BPR","SLR","SKR") is a list of selectable values. if the condition is falls then B1 should be normal (white color cell) with 0 in it.
I searched and I keep finding something that's not quite what I'm looking to do so I think I'm missing something really simple.
Let's say that I want each cell in col b to be the sum of 5 plus whatever value is in the cell adjacent to it on the left (col).
I know that you can just write a formula in each cell like...
b1 will be =sum(a1+5) b2 will be =sum(a2+5)
... but is there a shortcut so that you don't have to write out the actual cell address for each one?
Meaning - is there a predefined name or something that represents the cell to the left or right so you can just use that instead, allowing you to just copy paste the same formula all the way down the column? Something like...
b1 will be =sum(left+5) b2 will be =sum(left+5)
... where "left" represents whatever value is in the cell to the left of that particular cell?
I have the names of companies in one column, and the amount they owe in cells in the column beside them. I then have a second list of companies that is a subset of the first. Is there a formula that would place the amount they owe in teh corresponding cell adjacent to the compny in the second list? I've attached a sample workbook, Full Company List in column A, amount owing in B, trimmed down list in D and ideally I'd like the corresponding values in E.
What I want to achieve: those cells have number 1 ( in column E) , adjacent cell values ( In Column D) are copied to G12 in the following format:: Mark,Lark ( i.e. cell value , cell value, etc)
is it possible ( with a command button) Sample attached
I am having a problem using data from my combobox to find the cell on the worksheet and write to the adjacent cell.
Worksheet name is Fleet ComboBox Name is ComboBox7 TextBox name is TextBox3 CommandButton1
I would like to be able to take the text from ComboBox7, find this text in Col A of worksheet Fleet and write the Value of TextBox3 in the adjacent cell in Col B. when the CommandButton1 is pressed.
2. Find a matching value in column A (starting in row 2), error message if the is not a match.
3. Copy the adjacent cell column B (rows vary) to the clip board. It would copy until it found the first blank row.
I have attached a scaled down version of the spreadsheet, the one I use has 100's of codes. I know some VBA but not much. I searched the forum but could not find anything.
I have a sheet in Excel 2004 for Mac that is a patient list with over 2000 patients. I need a rule that will compare values (patient IDs and responsible party ID) in two adjacent cells, if the values are different, to delete the entire row. The goal is to get rid of patients (rows) that are not the responsible party (responsible party ID).
I am looking to add a function to a current spreadsheet that writes the current date to a cell when another is updated. The sheets function is to have a user record when a particular action has been completed and then remind them after a given amount of time. The user is faced with an option to input a "1" to essentially "start the timer" and then the date that is automatically input by the code will be used to compare with the current date. I have tried the following on the Workbook_SheetChange sub
If ActiveCell.Column = 9 And ActiveCell.Value <> 1 Then ActiveCell.Offset(-1, 2).Value = Date End If
But cannot figure out how to eliminate user error. Let me explain. If a user enters a value (will only ever be a 1 to indicate "yes") into column 9 then the date appears in the correct place (two cells to the left) If however a user deletes a value then the date will update one cell too high!? I also thought of using a cell based if statement (if j7 = 1 then today() else "" but this only updates with todays value each time you open where I want the date to stay as the day the cell was updated. The date is going to be used as a way of working out when to change the original value of the cell in column 9 to "".
