I need this code to also add the formula to one past the last Row
Now it goes down column A and if its not null it puts a formula in column D. I need it to also put the formula in column D one row past the LastRow of Column A.
Dim A As Long
Dim lastrowA As Long
With Sheets("Children")
[Code].....
I have a simple table for tracking performance evaluations with 3 columns:
Employee Name (A), Date of Hire (B), Eval on File (C)
Evaluations are completed 6 months from Date of Hire (1 time) and on an annual basis and logged into column C.
I need to identify a list of evaluations that 30 days past due from the beginning of each month on a monthly basis.
I spent hours breaking the process down into steps (by adding extra columns to calculate 6 month due date, difference between current date and 6 month, due date for current year, and it still takes a long long long time.
There must be an elegant formula there that can tie it all together. I worked hours to research it and failed.
I put a scenario below to illustrate my table. As of 02/01/14, Anna Li's 6 month evaluation is past due, James and Johns' annual evals are past due as well.
Employee NameDOH Perf Eval
Anna Li 6/8/2013No
James Hawkins12/12/200612/12/2012
John Silver 1/8/20071/8/2013
Kim Woo 8/14/20078/14/2013
Sam Shell 6/6/20056/6/2013
Tanya Smith 7/1/2013 1/1/2014
If a cell has not been filled in by its "Completion date" I want it to flag as Urgent in the Status Column. How do I do this?
Ref
Action
Appendix
Status Click
Opening Day
Complete by Date
1
Site Allocation to New Openings Manger
18/03/2013
28/05/2012
I am trying to find a way to copy and paste multiple non concurrent rows of data from one spreadsheet to another.
Ex: I have a large worksheet with approx 20,000 rows of data. I need to copy
and paste every 100th row to a new worksheet.
I think this might be possible by setting up a formula and linking worksheets,
but I'm not exactly sure how to do it.
I am trying to write a macro where I divide the value of one cell by that of a second cell, multiply it by 500 and then to paste the outcome of the formula to a third cell. This is what I wrote
View 5 Replies View RelatedHere is what my table is im working with. The tite "todays date starts in Cell A1 and B1 is =Today().
I need to figure out how to do an if for the over 30,60,90 past due. Here the logic I need to figure out:
in the Over 30 column, the logic of the statement is as follows: If the difference between today's date and the date of the invoice is greater than 30 and equal to or less than 60, the amount goes into this column.(over 30 E3) To get the amount(the ammount in C3) into the Current column, the difference between the two dates must be less than 30. To get into the over 90 column, the difference between the two dates must be greater than 90. You can figure out the over sixty column. And this needs to be copied to the remaining colums
Today’s date: =TODAY() Shop Invoice Date Invoice Amount Current Over 30 Over 60 Over 90 Ludwig's Landromat =TODAY()-72 $432.78 Willie's Washing =TODAY()-107 $565.11 Wash It Here =TODAY()-80 $308.47 Spiffy Wash and Dry =TODAY()-58 $725.37 Water Soap & Hot Air =TODAY()-30 $427.95 Wash it & Dry it =TODAY()-90 $603.91 Acme Wash & Dry =TODAY()-60 $332.35 Totals
I am trying to create a function that will tell me when something is past due.
I have a excel document for my office's accounts payable, it has a master sheet where all of the companies that we pay are listed, and they are linked so that you can click on the name and it will take you right to the page to see a more detailed breakdown.
I am trying to figure out how to make something on the master page to tell me when something is due, even if it just makes an X when it is past due.
There are about 73 worksheets in this document and each worksheet contains many dates.
Is this even possible for me to do something like this? If not does anyone have any suggestions?
My rows are sorted by date. How do I automatically hide the old ones, but view them when desired?
View 1 Replies View RelatedI would like to calculate how many days past since the special Cell have been filled with data.
For exampl:
If Cell A1 filled with the data in Cell B1 I need to show the day number, if I close the file and open it next day it will show number 1 as a one day past.
I want to take a date (ex. May 25, 08 is in cell A2) and calculate 30 days (A2+30)June 24, 08(A6) and what i am trying to due is calculate if it is past due.
I used the if command but it does not seem to be calcualting the date plus thirty, it is only taking the date that is listed. (ex. instead of calculating =IF("A2+30"
I want to create an Excel file, which would create alerts/reminders based on dates specified in certain cells. I want to create a database of various events (for ex. Invested in XYZ stock at $10 per share) and put a date in one of the column of each record. I want excel to remind me to take a look at that record after, say, 30 days.
View 3 Replies View Relatedto set a conditional format and include a function code in it as well?
I want a spreadsheet to change the color/font of a cell/column based on a comparison of a "start date" cell and a "due date" cell. This is to automate the process of highlighting items that have gone past the due date in the second cell. I was trying to do this by looking at the "now()" function and comparing it to the due date.
I am trying to create a spread sheet in excel that will show a number of days past due counting from the due dates. see the attached xls file for details.
View 5 Replies View RelatedI want to keep track of housekeeping attendants' average productivity of rooms cleaned per day/shift for the last 10 days worked.
I need a formula which will give me an average of the 10 most recent cells with a value (0 should be counted).
I also want to have each month in a separate tab, and for the formula described above to average between two tabs should the 10 days cross-over.
I am running a macro to loop through a list of codes which takes the unique code, goes to a different spreadsheet, finds related data based on that code and if it meets certain criteria, and retursn the same code if it works. Pretty much a filtering process, but I have it returning the code because I do not want to do the calculations in the Macro itself.
Here is the code:
VB:
On Error Goto Label1
Do
Windows("Byron_MonthlyPDPWellList.xlsx").Activate
Range("A" & I).Select
[Code] .....
"I" begins at 2 and counts up until it reaches Count, which is the number of total rows in the column.
However, when I step through the code, it continues to loop through the code where "I > Count".
I have tried "Until I > Count", "Until I = Count", "While I <= Count". And none of them seem to work. It gets stuck in an endless loop cycle.
Several times per day, I have an excursion of a value over a specified limit. The excursions are measured in seconds. I am interested in a way to sum the number of seconds accumulated in a rolling 24 hour period. Is there an easy way to do this?
Example:
Time One 20 seconds
Time Two 35 seconds
Time Three 82 seconds
etc.
If time one and time two are within 24 hours of each other, the sum I would want is 55. This is in Excel 2007. a portion of the data is attached.
I have a workbook that records incoming mail and each of these mail need to be responded to. I like to have a macro that can automatically send a standard notification email when certain condition are met.
In this workbook the date of receipt of mail is in Col. D and date of Reply in Col. E.
If Col E is blank or 30 days later than Col. D a standard email is sent to the email account of the person in Col. F. Col. F shows the email address only.
macro listed below. Currenlty the macro pulls the last 12 months as long as the data that is pulled is current. However, if the data is 2 months old for example, it only pulls 10 months instead of 12. modify this macro so that it alway pulls the last 12 months. I'm assuming that the minimum date would have to be found first and then go backwards from there?
Code:
Dim PI As PivotItem
Dim d As Date
Dim Twelve As Date
[Code].....
I am getting an Input Past End Of File Error with the following macro.
Sub print_file_content()
'select cells to be process in col A
Dim I%, strTxt$, OpenTxt As Object, FSO As Object, myFile, myFolder, LR&, Arr, fPath$
[Code].......
I have the following code in my calendar initialize: ....
View 9 Replies View RelatedI have information across 5 cells what I want to say is if P3 is not equal 00/01/1900
Then copy and paste values of P3,Q3,R3,S3,T3 in a new sheet in cells P3,Q3,R3,S3,T3.
I'm trying to calculate the total time past an arbitrary time. If my start time is 17:00 and end time is 21:00 and I select a 19:00 as sunset time, How do I calculate the time past 19:00.
the formula I been using, a2-a1, but that calculates the total time between 17:00 -21:00.
This (unprotects the sheet first, then) unhids rows (starting at row 1500, until it reaches row 4). Now my most current vexation- How do I lock/protect the past rows?
Say a co-worker enters information in row 1500 and walks away. The next co-worker inserts a new row (which would be row 1499) to place data in there, how can I get row 1500 to lock (or become protected) as the new row (which in this case 1499) would become unhidden?
It would be very important that the information in the previous rows remain locked so that nobody can change any client information (unless they had supervisory/administration access).
If it is not possible to protect or lock the whole row, it would also work if I could just lock one of the cells in the previous row.
I am using the following
Sub Row_Unhiding()
'
' Row_Unhiding Macro
' Macro recorded 2/12/2009 by gr8_big_geek
'
' Keyboard Shortcut: Ctrl+i
'
ActiveSheet.Unprotect Password:="secret"
R = 1500
Do Until Rows(R).Hidden = True
R = R - 1
If R < 4 Then
MsgBox "No more rows to add!", vbCritical, "Error"
Exit Sub
End If
Loop
Rows(R).Hidden = False
ActiveSheet.Protect Password:="secret"
End Sub
In cells B8 and C8 an in- and out-time are given, in E8 the time in between.
Now I'd like to calculate the number of hours before 6 o'clock and the number of hours past 6 o'clock.
The formulas I came up with work great in the first example, but fail in the second, because the start day is on another day.
Is there a method to calculate the total number of hours in excel. In my attached file, the excel treat the 24 hours as time and recalculate from 0 hour.
View 2 Replies View RelatedI have this code below, which someone from this forum kindly kindly gave to me for my Worksheet code. What it does is check the value in a dropdown list in column I and if it says "Cancelled" then strikethrough columns A-K of that row.
What I wanted to know is this, in cell N2 has the formula to show todays date. In column D9 onwards is an end date. How can I amend the code below so that it also checks to see if the date in Column D9 onwards is greater than N2 and if so strikethrough columns A-K in that row?
Would it be in the form of an OR statement in the code below?
I'm using the following formula "=HLOOKUP($B$4,Arg!$D$10:$DA$50,5,FALSE)" With Cell $B$4 as the 'Lookup_value' I wish to pull the second instance of the 'lookup_vlaue' not the first from within the 'Table_Array'. Later on I'd like to skip to the 3rd column/instance etc. It's not practical for me to change the size of the 'Table_array'
View 3 Replies View RelatedI need a formula that can count items that are past due by up to 30 days, 60, or 90 days. I'd guess the total of all 3 values should = the total past due.
I have the total past due as =COUNTIF(A!I$1:I$278, "<=" & TODAY() )
We have a assigned date, a due date and a date resolved. what I would like to do is any time the date resolved is past the due date change date resolved background to Red. I was playing around with conditioning formatting but can not seem to get this right....
Col G H I
Date Assigned
Date Due
Date Resolved
5/9/2013
5/16/2013
5/17/2013
Through VBA I am trying to filter for today's date and all dates 30 days in the future as well as all dates 30 days in the past.
I am currently using the code below, but it only show dates 30 days in the future. I cannot get it to populate cells that are either 30 days in the future or 30 days in the past.
Rows("4:4").Select
Selection.AutoFilter
ActiveSheet.Range("$A$4:$HQ$1000").AutoFilter Field:=4, Criteria1:="TBD"
ActiveSheet.Range("$A$4:$FQ$1000").AutoFilter Field:=12, Criteria1:= _
">=" & Date, Operator:=xlAnd, Criteria2:="
