.Rows(1).AutoFilter
.Rows(1).AutoFilter Field:=1, Criteria1:=wsStart.Cells(2, "B")
.AutoFilter.Range.Range("B:C").Copy wsStart.Range("D1:E1")
.AutoFilterMode = False
It deletes all the data in columns D and E from row 3 onwards
Have have a excel spreadsheets with 2 columns. One with the employees name and one with the date that their warning expires. I would like the employees name to be automatically removed after the date expires. How do I do this.
View 1 Replies View RelatedI have an Workbook where on Sheet one it shows a date of a sold item in Column AH. On sheet two Column AG references sheet 1 Column AH. On sheet 2 I need it to delete the row if the date is greater than 1/0/00 ( which is an empty cell in sheet 1, but for some reason shows it as "1/0/00"). I have tried this code but I keep getting errors:
[Code] .......
I generate a report in excel of about 63000 rows (this differs) there are several columns with dates, I wish to remove all the rows with a date before and after certain dates.
It seems I would need a loop for that, but it is unclear to me how this works, so far I have this:
Sub TestMacro2()
Columns("D:E").Select
Selection.NumberFormat = "m/d/yyyy"
Columns("L:M").Select
Selection.NumberFormat = "m/d/yyyy"
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Rows("1:1").Select
Selection.AutoFilter
Range("$D").Select
For Each cell In Selection
If Date < 1 - 3 - 2009 Or Date > 2 - 3 - 2010 Then
cell.EntireRow.Delete shift:=xlUp
End If
Range("$D").Select
Next cell
End
End Sub
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
I would like a macro to find the columns named "apple" and "peach" and delete them. These would always be in row 1 but would always be in different column letters which is why I want the macro to simply find these columns by their name and not by their column letter.
And yes, I do mean the entire column altogether, shifting entire columns to the left. Wipe it off the face of the earth
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 RelatedI'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
I have set of data Pasted in 4th row, in the top row 44 columns values assigned i want move data from set of data to different column among these 44 columns
Like "Service Order ID" is 1 column in set of data ,it move to second column of top row
Some of column need to delete. (Service Order Type,Service Order Description,Created By,Status,Contact,Expected Delivery Date,
Creation Date,Priority,Net Value,Currency,External Reference,Reference Date)
I want Get output result in same sheet (Actual).
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]....
I'd like a macro that does 3 things..
1. Find the last row (cell) of data in the "Customer Number" column. This search should be by the name "Customer Number" rather than by column letter because the column that "Customer Number" will be in can change.
2. Find the column named "Purple" (also by name for same reason)
3. If the "Purple" column has no blank cells in those same number of rows as the "Customer Number" column, delete the whole "Purple" column.
I have a sheet where i want to delete duplicate rows where column A and column B combined are equal, i.e. range(Ax:Bx) where x is the current row. I am using the macro below but cant seem to get it working as I keep getting a type mismatch error and Im not sure why.
View 2 Replies View RelatedHow would you set up a macro to delete numbers in a spreadsheet in one column that appear in another column or worksheet?
In other words, if I have the numbers 1,2,3,4,5,6,7,8,9, 10 in one column and in the same column, or another column or worksheet I have the numbers 1,2,3,4,5 - I need a way to delete 1,2,3,4,5. I know how to delete duplicates via the advanced filter but I want to have the duplicate and original deleted.
I need to find the data in the sheet SKU & match it to the data in import_215 column F if it matches then delete the entire row (see Attachment SKU3)
View 12 Replies View RelatedI have a spreadsheet with several columns (all column names are in row 1).
I have 2 of column names. Note that their actual column# might change so the macro would have to look for the column name and NOT the column position ...
Does anyone have a macro that will delete entire row if column a matches column d
View 6 Replies View RelatedI have a file in which the data is written in cell.
1g Injection Total
10mg Tablets Total
1.5% w/w Gel Total
i want the to delete the word "Total" from each cell so that i can use the vlookup formula to get the desired result from another file.if there is any solution.looking forward for the an easy and understandable reply.
I am going to record a macro to clean up a report but the first thing I need to do is delete rows that contain dates before July 17, 2012. The dates are in column B. Is this possible in the macro?
View 5 Replies View Relatedi have a sheet called match and dates in column f and would like the rows to auto delete when 6 years old
View 5 Replies View Relatedi have a large set of data, with a data in column a & column e & some text in column F
i need macro to remove rows where the date in col a is earlier than 6 months before the date in column e & column f has the text "a/g or "g"
I have defined 2 dates ( Starting and Ending ).
Sub Define_Dates()
begdate = InputBox("Please enter the Beginning Date in MM/DD/YY Format")
enddate = InputBox("Please enter the Ending Date in MM/DD/YY Format")
End Sub
I need to delete any row (from LR to FR Step -1) that Col M ( Date ) is outside the Beginning and Ending Date.
VBA code to delete cell values say from B10:B100 to K10:K100 after a certin date and time. Like cell A 10 will have this date and time.
View 9 Replies View RelatedI have an excel sheet wherin there is a column that has the data where in the dates are displayed and many other columns.
I get this excel every Thursday so i want to filter this date column in such a way that it give me the data related to the date of the previous week only yet there is a catch here. When i say previous week i mean.
Suppose today is 03/14/14 then i want the data from 03/07/14 till today ie Last week friday to this week full( so cant use Current week option) and then paste it in a new sheet.
I tried the Record part but in that it is taking a hard coded value as i am selecting the date myself. I dont want to change the date manually every time.
this was the macro that was created
Code:
ActiveSheet.Range("$A$1:$BX$58").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "3/10/2014")
Range("A59").Select
ActiveCell.FormulaR1C1 = "=COUNT(R[-4]C:R[-1]C)"
Range("A60").Select
I have a lost and found log that has 2 worksheets: (1) Unresolved and (2) Resolved. Data is entered into the Unresolved worksheet when something is lost or found. When a date is entered under Date Claimed / Sent to Capitol Police (column I), I would like the data in that row to be removed from the Unresolved worksheet and automatically inserted in the next blank row of the Resolved worksheet. I know very little VB,
Date Reported
Lost or Found?
Item Description
Name of Person Reporting Item
[Code]...
I'm about to start doing it manually, just wondering if there is a way to use functions in excel to do this automatically:
Here's my situation:
I have one column A, and it has 25 000 email addresses, 1 per each row, so 25 000 rows.
Then i have in another column ''B'' with 3000 email addresses.
I need to delete these 3000 email addresses from the master 25 000 list.
Is there a way to do it automaticaly?
I imagine if there was a way to set a script to delete values in Column A found in Column ''B''.
Least, I was going to try to copy the delete list and paste to master list, so I would end up duplicates of the emails that are to be deleted and they would appear highlighter with conditional highlighting.
I currently have about 3000 rows of data, much of it being duplicate data. Is there a way to have it search for duplicate data, and have it delete BOTH sets of duplicate data? For example, say this is what is in my spreadsheet:....
I would want it to delete both John Smith records and both Ted Nugent records, leaving Bob Bobbert's and Michael Jordan's records.
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?
I need is for the below code to not delete anything if the date is within a certain range. I want to keep all rows which have a date of 11 days past the current date. So for example. If today is 04/07/2009 then the macro should only delete unique values from 04/19/2009 and on.
Column A is the Item # and column D is expiration date.
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?
I have a table that extends from A1 to S630 (the number of rows changes as records are added and deleted).
The function to add rows based on the date is fine and I have implemented, but I cannot figure out how to delete a row based on a date.
The date is entered on a sheet called Calendar in Cell J20
so Sheets("Calendar").Range("J20")
and the date is in column B of the table, which has been made using the Table function
Is there a way of scanning through the whole table deleting all the rows with the date entered into J20 on the calendar sheet.