Delete All Rows Except Most Recent Date
Jan 26, 2009
Have a sheet with 24K rows. Column A is client name. Column B are check dates. The info is sorted by client then check date. Clients can have one to many check dates, so I client is listed as many times as there are check dates. If ten checks, then ten rows for that client. One check then one row for that client.
I only want to keep the last/most recent check date for each client, deleting all other rows for that client with check dates before the most recent. I believe I need to step through the file comparing column A, row by row, to see if I have a match for the next row in A. If no match I keep that row, because there is only one check, and move down one. If a match, then I delete the current row.
How to code this is my problem. Is it a loop?
View 6 Replies
ADVERTISEMENT
Nov 26, 2013
I wondering if it's possible to create a code to have a popup where the user can enter a date in mm/dd/yyyy format and then all rows containing that date will be deleted.
View 9 Replies
View Related
May 29, 2008
I've found similar queries on the site, but none seem to handle multiple dates, and my attempts so far have been futile!
Requirement:
I press a button on Sheet1 and am prompted to enter a start date and an end date.
Depending on the dates I enter, all rows on Sheet2 which fall outside the Start/End date range will be deleted.
All dates to be checked against on Sheet2 are in a single column, and all rows are populated, there are no blanks. Dates are in the format dd/mm/yy
View 5 Replies
View Related
Apr 11, 2014
I have one spreadsheet with a list of materials by material number. I have another with all sales activity. How can I pull into the first spreadsheet the date of the latest activity from the second spreadsheet?
View 2 Replies
View Related
Dec 23, 2009
I have a workbook to keep track of names and dates of a specific action. There are 10-15 names that recur on the list. The most recent action is added to the bottom of the list. The names are in column I and the date of the action is in column J.
The problem is having to scroll through the list to find the most recent action for each person. Ideally i'd like to have a list of the names in column N and then in column O the most recent date in the list for each name.
View 2 Replies
View Related
Apr 10, 2007
Looking at a series of rows that contain dates (in one column).
Return the value of the cell in the column next to the most recent date.
I can get the most recent date using MAX, but how do I tell Excel to return the value of the cell next to it?
View 9 Replies
View Related
Aug 7, 2007
I have data resembling the following
Col A
Sun
Sun
Sun
Sun
Col B
12/08/2007
13/08/2007
14/08/2007
15/08/2007
Col C
A
B
C
D
Is there a formula where I can extract the entire row for the most recent date, in this case Row 4 containing Sun,15/08/2007,D would be returned.
View 9 Replies
View Related
Aug 20, 2008
I want to lookup an ID which there may be three of, but I would want the most recent date out of the three ID. I can get this to work by putting the column in ascending order but this is not very practical.
Is there any way I can do a lookup and add a date parameter to lookup the most recent?
View 9 Replies
View Related
Feb 26, 2014
I have tracker, where Cells in Column F have dates or are blank.
I am trying to run a macro to delete all rows when the following criteria apply:
for all cells in column F, if date < 1-Oct-2013 then entire row should be deleted if cell is blank - nothing should happen This is what I got so far - but it is not working...I have entred the date "10/1/2013" in cell AA2 but macro should always check against that date (not variable) so it might not be needed.
Sub PART3_Delete_old_team_members()
Columns("F:F").Select
Selection.NumberFormat = "m/d/yy;@"
Dim endrow As Integer
On Error Resume Next
endrow = Sheets("Global Team List").Range("F900").End(xlUp).Row
Searchdate = "AA2"
[code]....
View 2 Replies
View Related
Jul 23, 2014
I have a list of numbers column A and a list of dates in column b, i need a formula which looks up the most recent for each of the numbers. can this be done?
View 3 Replies
View Related
Nov 3, 2011
I'm trying to put a report together that shows the most recent salary increase for each employee. Below is a snap shot of what my pivot looks like - How can I format the report to only show the most current change - Which in this case would be the 2 highlighted rows....
View 1 Replies
View Related
Oct 27, 2006
I've searched the site, but have not found anything that matches what I want to do. I have a statistical spreadsheet that tracks machine accuracy by date. The spreadsheet has multiple columns per worksheet. The info is entered and sorted by date with oldest date first. I want to set up a seperate worksheet to find the most recent date from several different columns and populate it in a seperate cell. From there I'll do some calculations to identify how long it has been since a particular machine has been accuracy verified. Is there a formula to do this or does it have to be done through a macro?
View 3 Replies
View Related
Dec 9, 2013
The data in my spreadsheet will have a column of dates that will change depending on info input in another cell.
What I need is a formula that will give me the most recent date for lets say 2012
04/01/13
03/01/13
02/01/13
01/01/13
12/27/12
12/25/12
12/12/12
12/02/12
if use the max function I get the 4/1/13 result, what I need is a formula that will return the 12/7/12 number.
View 5 Replies
View Related
Jan 29, 2014
I've been trying to create a pv table that will count all the trades based on products, but they are duplicate in my set of data that I am trying to eliminate, I just want to select the trades with most recent date and if there are duplicates entries with the same date, then to select the aging column..
Column A are my trade IDs (duplicates trades), column G my dates and column O my aging days (goes up to >5). What I'd like to do is to count the trade using the most recent date and if the date is the same use the aging column. is this even possible to do using formulas?
View 1 Replies
View Related
Mar 11, 2009
I have used the MAX function to populate the most recent date in a series.
-EX. the most recent date input into the cells S8, T8, U8 will populate in cell R8. There is a default value of 0-Jan-00 that automatically populates in cell R8 as a result of the MAX Function. Any value that is input into cell S8, T8, U8 will show in cell R8 immediately after being input as a result of the MAX Function.
I need cell R8 to remail blank until the last of cells S8 or T8 or U8 has been input (in no specific order). Once the last cell has been filled; it is only at that time I need cell R8 to show that most recent date input into any of cells S8 or T8 or U8. I can't hide the column, I need cell R8 to remain empty until the last of the three cells- S8, T8, U8 has been filled (the last cell filled will not always contain the largest value or most recent date).
View 5 Replies
View Related
Nov 20, 2009
I put together some code which at the end of it I am wanting to show in cell D1 the creation date for the most recently created file found.
View 5 Replies
View Related
Jun 6, 2012
I want to find the most recent date in column D, when the variables in column E are all the same. There are many different variables in column E, and for each group of the same variables (eg. all cells containing "A"), I want to find which is most recently dated (dates are in column D). This is my code so far...
Sub adddiv()
Dim ticker As Variant
Dim freq As Long
Dim csheet As Worksheet
Set csheet = Worksheets("Sheet2")
[Code] ....
View 3 Replies
View Related
Aug 19, 2012
How do we sort an alpha numeric date from recent to oldest.
from this:-
HGH010112
HGH231211
HGH020212
to this:-
HGH231211
HGH010112
HGH020212
View 2 Replies
View Related
Oct 7, 2006
My spreadsheet uses alternating columns for actual and budget inputs
I would like to preload the budget for the whole year
But the ytd formula should only show results to match the input of actuals
In otherwords, If I input actuals for period 1, the YTD formulas for actuals and budget should return YTD period 1 only and ignore the remainder of the budget inputs
After period 2 actual inputs, the formulas shlould update to reflect period 2 YTD and so on and so forth
How can I accomplich this?
Sample of layout attached
Totals at Cols AK-AM
View 3 Replies
View Related
Jan 16, 2008
I have many rows that contain some common data but I need to be able to select the row with the most recent data and delete the others. For example, a car part is assigned a unique number which never changes, it may be ordered several times and in different quantities, for each car part I want to select the most recent order and delete any others. Is there a simple way of doing this?
View 9 Replies
View Related
Jan 29, 2010
I was wondering if somebody could help me with a little bit of code?
When the sheet is opened, I would like some code to search down column A, starting from cell "A5" and delete all rows which contain a date which is greater than 7 days ago.
The dates are in order from the most recent being at the top.
For example:
Today is 29/01/2010, I would like all rows which have a cell in column A containing Today-7() to be deleted. 28/01/2010 to stay. 19/01/2010, delete row.
Hope that makes sense?
View 6 Replies
View Related
Apr 26, 2006
On sheet2 Range L4:L2000 I have starting dates entered in mm/dd/yy format. On sheet2 Range M4:M2000 I have finish dates entered in mm/dd/yy format.
On sheet3 I have a numeric value of mmddyy (no brackets) in cell BC4.
What i'm looking to do is if the numeric value on sheet3 BC4 does not fall between the start and finish dates on sheet2, then the entire row should be deleted. Can this be done with the different date formats (Brackets vs no brackets)
View 6 Replies
View Related
Jun 23, 2014
I have an excel spread sheet that is quite large it hold events for a piece of software that we are using what I am trying to do is display the last time was successful and the last time something failed
What I Want Return the MAX Value of the cells in a Column labeled start date for the rows where a Column labeled Agent =X and a Column labeled Mission Type = Y
In plain English with an example In another Cell I want to display the most recent start date for a mission of a particular type for an agent
Using the following table as an example I would like to determine the last time Agent 007 was on a Mission of type a
The Expected result should be 6/23/2008
If the same was asked for agent 99 the result would be 4/20/2008
And again for 66 the results would be 5/2/2008
If we then changed the mission type to b the results would be
007 6/23/2010
66 5/2/2010
99 4/25/2010
Here are the formulas i have tried already the results for these were incorrect and exactly the same 6/23/2012 the formula seems to be ignoring the first value and just calculating the last column to the latest date
[Code]....
View 14 Replies
View Related
Dec 19, 2006
I need to have a User input a date via an InputBox, and then based upon that date, delete rows based on values in Column G. For instance, if a user inputs 12/25/2006, I need to delete all rows that have the date that is less than 12/25/2006 in Column G. There will never be more than 500 Rows of data, and there is data in Columns A thru Z
View 4 Replies
View Related
Nov 24, 2007
I have a column of dates (B2:B1500) that I want to compare to a single date (A1).
If the dates in Column B are older than the date in A1 I want to delete the entire row.
View 3 Replies
View Related
Mar 10, 2008
I have a need to call a sheet from another sheet, copy two pages from the newly opened, existing sheet to a new workbook, search one sheet of the new workbook for any entries that don't contain a variable I specify, which is the first four digits of the field, and delete them. The sheets represent a daily view of jobs (identified by the "RptDate" variable) and an entire monthly list of jobs, which I want to delete all of them not from the date specified in the variable "RptDate". The fields in column A contain the date in "mmdd" format as the first four digits, and I have that specified in the "B1" celll of the originating workbook.
I found some code in this link Search Column Delete Row If Value Found that looked good. I had to modify it since I needed to search for a variable (RptDate) and needed to search column A and start on row 8 of that column. My current code looks like this:
Sub Macro1()
Dim RptDate As String
Dim RptMonth As String
Dim iLastRow As Long
Dim i As Long
RptDate = Range("B1").Text
RptMonth = Range("B2").Text
Workbooks.Open Filename:=(RptMonth)
Sheets( Array(RptDate, "Total Database")).Copy
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 8 Step -1
If Left(Cells(i, "A").Value, 4) <> RptDate Then
Rows(i).Delete
End If
Next i
End Sub
It works fine right up to the "Rows(i).Delete" line. It errors out with a "run-time error 1004, delete method of range class failed" and highlights the above line. I know the fields I'm pulling the variables from are working right since it opens the correct workbook off of one of them.
View 6 Replies
View Related
May 10, 2008
modifying the following from deleting rows older than 365 days to delete rows older than 12 months. So I can keep a rolling year by month.
Sub DeleteOldSR()
Dim x As Long
Dim iCol As Integer
Application. ScreenUpdating = False
iCol = 7 'Filter on column G (Create Date)
For x = Cells(Cells.Rows.Count, iCol).End(xlUp).Row To 2 Step -1
s = Cells(x, 3).Value
If s Like "Closed" Or s Like "Closed w/o Customer Confirm" Then
If Cells(x, iCol).Value < (Date - 365) Then
Cells(x, iCol).EntireRow.Delete
End If
End If
Next
Application.ScreenUpdating = True
End Sub
I tried modifying the IF statement using month with the following but it seems to delete all months < and is not year dependant.
If Month(Cells(x, iCol).Value) < Month(Date) - 12 Then
View 6 Replies
View Related
Jan 25, 2013
I have found some excellent code that exports rows to individual sheets based on values in a column, and it works perfectly. I have found some code that deletes any rows that do not contain today's date:
VB:
Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Range("O" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
If Range("N" & i).Value < Date Then Rows(i).Delete 'N is column "Treatment Date"
Next i
Application.ScreenUpdating = True
But I'm having trouble adding this to the code I'm already using (that is working):
VB:
Sub Copy_To_Worksheets_2()
'Note: This macro use the function LastRow and SheetExists
Dim My_Range As Range
Dim FieldNum As Long
Dim CalcMode As Long
Dim ViewMode As Long
Dim ws2 As Worksheet
[Code]...
I tried adding it after the code " ' delete columns (after exporting from Current Patients)" but I received the error "Compile error - Duplicate declaration in current scope" as it relates to Dim LR As Long.
I have attached my spreadsheet : Daily Treatment Summary.xlsm
View 1 Replies
View Related
May 23, 2014
I have a UserForm which writes data to rows in a master spreadsheet. I'm attempting to write some vba code for a CommandButton in the master spreadsheet which can identify and delete duplicate entries based on "user ID", "Date", and "Time". I would like the CommandButton to retain the most recent entry from a user and delete all previous entries.
My master sheet is set out as such...
A, B, C, D,
UserID, Date, Time, Response
The users could potentially submit multiple entries on the same day. Ideally I would like to be able to click a CommandButton and delete each user's submission but retain their most recent one (based on "UserID", then "Date", then "Time").
I've searched all day for a solution and I've come close but I can not figure out a code that accounts for my three variables ("UserID", then "Date", then "Time").
View 5 Replies
View Related
Feb 28, 2014
I am trying to adapt a macro which deletes all rows in Worksheet 1 where the date in column K differs from a date in Worksheet 2. The date in Worksheet 2 will change each day.
I think the macro below could be used, but don't understand how to replace the "Value = ":70:" with a reference to the master date in Worksheet 2.
Sub test() Dim lr As Long, i As Long lr = Range("A1").End(xlDown).Row
For i = lr To 1 Step -1 If Cells(lr, 1).Value = ":70:" Then
Cells(lr, 1).EntireRow.Delete End If lr = lr - 1 Next i End Sub
View 2 Replies
View Related
