Delete Entire Row If Column A Matches Column D

Aug 18, 2009

Does anyone have a macro that will delete entire row if column a matches column d

View 6 Replies


ADVERTISEMENT

Delete Rows If Opposite Column Cell Matches

Sep 6, 2006

I have a spreadsheet that is updated daily with data that falls into one of two categories: a) completely new to the sheet or b) existing from the day before but not taken care of yet. The items which fall into category a are evaluated, and notes added to the sheet. The items in category b must be compared to the new data, and duplicated lines deleted but notes from previous evaluation must be kept on the sheet. In addition, anything on the sheet that is not included in the new information needs to be deleted. I've set up a sheet with all old and new data with dates the data showed up as well as the notes associated with the old data, and have concatenated all the info from each row into column V (from another suggestion I got on a similar but not exactly the same problem which I also still haven't figured out). The sheet has been sorted by col V so any matching rows should be within 3 or 4 rows of the original. The problem is that my code does absolutely zilch!

Sub DeleteRepeatedRows()
' goes through coord. sheet and identifies duplicated lines, copies the date from the old row
' copies it into the new line, then deletes the old line
Dim rCell As Range
For Each rCell In Selection
If rCell.Value = rCell.Offset(1, 0).Value Then
rCell.EntireRow.Delete
End If
If rCell.Value = rCell.Offset(2, 0).Value Then
rCell.EntireRow.Delete
End If.........................................

View 7 Replies View Related

For Loop And Delete Entire Column

Oct 1, 2012

I have two worksheet. One worksheet (ws1) contains a list of item I want. The other sheet (ws2) contains multiple columns where the header (row 6) is named by item name.

I have the following code which deletes the entire column if the header name is not in the list contained in ws1 :

VB:
Sub delete_col()
Dim wanted As Boolean
Set ws1 = Workbooks("test1").Sheets("aaa")

[Code]....

First of all, this loop does not work properly since deleting the entire column shift them on the left, so when I first analyze column 11, if I delete it and then analyze column 12, the real column 12 now became column 11 and so on...

Secondly, this code is pretty slow. I am pretty sure I don't have to loop through my initial item list everytime I do Instr on a new column.

View 9 Replies View Related

How To Delete Entire Column If It Is Empty

Feb 21, 2013

I have columns

Row 1 is heading..

IF Column C doesn't have data in entire column then delete C D E F
IF Column D doesn't have data in entire column then delete D E F
IF Column E doesn't have data in entire column then delete E F
IF Column F doesn't have data in entire column then delete F

Same way for heading NN's

IF Column G doesn't have data in entire column then delete G H I J K L M N
IF Column H doesn't have data in entire column then delete H I J K L M N
IF Column I doesn't have data in entire column then delete I J K L M N
IF Column J doesn't have data in entire column then delete J K L M N
IF Column K doesn't have data in entire column then delete K L M N
IF Column L doesn't have data in entire column then delete L M N
IF Column M doesn't have data in entire column then delete M N
IF Column N doesn't have data in entire column then delete N

View 1 Replies View Related

Delete Entire Row If Column D Has A Numeric Value?

Apr 15, 2014

i want to delete entire row if D2:D10000 has a numeric value e.g .111 to 100000.1114

View 4 Replies View Related

Delete Entire Row If Column C Is Blank?

Apr 16, 2014

i want to delete entire row if Column C2:C1000 are blank

e.g if range c2:c100 have data then delete the rows C101:C1000

View 3 Replies View Related

Delete Entire Column If Row Has Certain String?

May 5, 2014

I have fixed headers on row 16, from columns A-AC.

I want to be able to delete the entire column, if the row has a certain string, such as "Chart ID" .

I also want to expand it to include other strings such as "Month" and "Source" . So if it contains any of these words, the columns should be deleted. It should be an exact match (as other headers contain the word "month").

View 12 Replies View Related

If Column B Is Blank Delete Entire Row

Jul 23, 2007

I am using the following macro to delete "completely empty" rows. I also need to delete some rows if a cell in column B has no value. How would I change this macro?
' DeleteBlankRows

Dim r As Long
Dim C As Range
Dim Rng As Range

On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

If Selection.Rows.Count > 1 Then
Set Rng = Selection
Else
Set Rng = ActiveSheet.UsedRange.Rows
End If
For r = Rng.Rows.Count To 1 Step -1
If Application.WorksheetFunction.CountA(Rng.Rows(r).EntireRow) = 0 Then
ActiveSheet.Rows(r).EntireRow.Delete
End If
Next r

EndMacro:

View 9 Replies View Related

Delete Rows If Column Has Fewer Than X Matches To Part String Match

May 5, 2008

I have data sets on multiple worksheets within a workbook (over 70). Based on the begining of a string, I need to count all instances with that begining, and if there are fewer than 12 instances, delete the entire row.

Data set example:

In this example, I need to count each instance of rows starting with 1/* - 9/*, and delete rows as mentioned. In other data sets the string might start Gi1/*, and so on. In the following code, if I do not loop, and only test against 1 value type, and ONLY run it once, it works. As soone as I try to loop through all possibilities, or run the macro a second time, it blanks out the entire worksheet, starting at row 3.

Dim c As Long
c = Worksheets(i).Range("A" & Rows.Count).End(xlUp).Row
With Range("A3:A" & c)
If Application.WorksheetFunction.CountIf(Worksheets(i).Columns(1), "1/*") < 12 Then
. AutoFilter field:=1, Criteria1:="1/*"
.Offset(1).Resize(.Rows.Count - 1, 1).EntireRow.Delete
.AutoFilter

I have also tried to concatenate a variable with my CountIf criteria, but that fails miserably.

View 6 Replies View Related

How To Delete Entire Row Based On Criteria On A Column

Oct 19, 2011

Simple code that can delete entire row if certain criteria is met in a single cell

Example

I have a bank statement where under a first column (DATA TYPE), the cell could contain either "DATA" or "TOTAL"

How can I delete the rows contain the word "TOTAL" assuming the column is already sorted.

View 3 Replies View Related

If Cells In Column L Is Less Than Or Equal To 2:00 (H:MM) Than Delete Entire Row

Dec 3, 2012

I need automatically deleting of whole row based on cell value, if value of cell which is in h:mm format, is less than or equal to 2:00 (h:mm)

So far I got.

Code:
Sub FillDownFormula()

Code:
Range("L2").Formula = "=RC[-3]-RC[-2]"
Range("L3").Select
Columns("l:l").Select
Selection.NumberFormat = "h:mm"
Dim rng As Range

[Code] .........

View 2 Replies View Related

If Column A Is Blank Delete Data From Entire Row?

Mar 20, 2014

Is there a way to delete any text or formula from an entire row, based on column A? In my spread sheet I have multiple rows where column A is blank, but column's F, G, and H have formulas in them. I would like to use VB or any other method that would be best to clear the contents of all the rows where column A is blank.

View 6 Replies View Related

Delete Entire Row If Cell In Column Contains Certain Text

Mar 26, 2007

Delete entire Row if cell in column contains "Dog" in it.?

Example,

duck321
dog123
cat123
dog123
duck321
cat123

so after it would look like this

duck321
cat123
duck321
cat123

View 9 Replies View Related

Delete Entire Column If Word False Exists?

Apr 9, 2014

I have the following code, but it takes longer than expected to run. Is there anyway to speed this up? I am not sure if autofilter is a option. I just want to search through range A16:Z16 and if the word "FALSE" exists delete the entire column. The word "TRUE" is the only other word that would exist in range A16:Z16

[Code]....

View 6 Replies View Related

Search Column A For Blank Cells And Delete Entire Row

May 20, 2009

I have tried several methods to delete the entire row if the cell in column 'A' is blank ...

View 9 Replies View Related

Macro To Delete Entire Row If First 2 Letters In Column B Equals To P4

Mar 29, 2013

I've seen a few examples of macros to delete the row if the first letter is something, but not if the first 2 is equal to something.

I'm looking to go thru every row that contains data and look in Column B to see if it starts with P4 or P5. If that's true, then delete the entire row.

View 8 Replies View Related

If Cell In Column Is Blank / Unpopulated Delete Entire Row?

Oct 16, 2013

If cells in column A3:A10000 are blank / unpopulated I would like to delete the blank rows.

View 6 Replies View Related

Delete Entire Row If Cell In Column Starts With Asterisk

May 9, 2008

I'm using the following code to delete rows that I don't want to include and I've ran into some more things that need to be deleted...

For lLoop = RngCol.Rows.Count To 2 Step -1
Select Case RngCol(lLoop, 1)
Case " Date:", "Skill:", "Agent Name", "~*", "*Train*"
RngCol(lLoop, 1).EntireRow.Delete
End Select
Next lLoop

An example of "~*" would be: ***SICARII***
An example of "*Train*" would be: Ozgrid Train1

It's not recognizing these new cases. Do I have to utilize FIND? (since CTRL+F does work with the given cases)

View 4 Replies View Related

VBA Macro To Delete Entire Column When Background Cell Color Is Red

May 17, 2013

with performing the following tasks with VBA:

1). For each cell that in the range that has a Red background delete the entire column
I have attached a sample spreadsheet where I have tried to do this. It's not quite working. It does not seem to work when there are RED cells next to each other.

I know that I can do a simple thing like column("A:A"), but I'd rather have it in a loop as in the sample code, in case the columns change in the future.

2). The second task is to delete the rows in the spreadsheet where the first cell in the row is a blank.

View 4 Replies View Related

Macro Code To Delete Entire Row If Cell In Column Is Equal To Value

May 7, 2014

I need an easy code that searches all of column A and deletes the entire row if the cell has the value "-". It needs to find the last row of data using something like LastRow = Range("A" & Rows.Count).End(xlUp).Row

View 4 Replies View Related

Macro To Delete An Entire Row If A Duplicate Entry Appears Only In A Certain Column.

Feb 20, 2009

Is there a macro to delete an entire row if a duplicate entry appears only in a certain column.

1. Look for the column header with the name "File Number"
2. Anytime the same number under the "File Number" column appears more than once in that column, keep the row that contains first occurrence of that number buy delete the entire row anytime that number is repeated in another row in that same column.

This is regardless of what is contained in the other columns. For example..let's say these cells contained this data...

B1 - UTE00225
B2 - UTE00546
B3 - UTE65513
B4 - UTE00225
B5 - UTE00225

In this case, I would want to keep rows 1, 2, and 3. But, I would want to delete rows 4 & 5 because the number "UTE00225" has already appeared first in B1. I'm using Excel 2003.

View 2 Replies View Related

Delete Entire Rows Where 1 Column Meets Multiple Criteria

Sep 17, 2007

I need create a macro to perform the following - I don't know if it needs to be an Excel macro or via VB. This is to speed a process up and eliminate any spreadsheet messing around for our "admin" staff - they are not good with excel at all!

So, I have a daily/weekly down load of a spreadsheet (exported from access).

* I want to copy the values of column AK to A
* Then delete all entries in column D that equal 19, 20 and 6
* Then delete all entries in column AL that equal "A","B","C" or "D" but not "E","F" or "G"
* Then delete entire rows where the value in column A is a duplicate within the list

I will call this spreadsheet, for the purpose of this exercise, the "Master". I now have another spreadsheet with values in that should relate to values in either (or both) columns A and B in the "Master". I need Spreadsheet 2 values to be highlighted as cross checked in the "Master" and then all those in the "Master" that do not appear in the 2nd S/S will be normal white cells thus showing that they need to be chased by our Admin staff.

View 6 Replies View Related

Select Column C And Delete Blank Entire Rows Till C300

May 4, 2014

i want to delete entire blank row from column C2:C300 i mean if i have data c2:c100 then c101:c300 delete entire blank rows

View 4 Replies View Related

How To Count A Column If It Matches Data From Another Column In Seperate Rows

Feb 6, 2009

I have two columns with dates. Colum A has the date of the deadline of a document while column b has the day it was sent. Column X will display the difference if its a positive integer ( i.e. if the document has been sent after the deadline). Now i have another column Y which displays the month as an integer of when the document was actually received.

Now i need a counter which will count the number of instances a positive integer is registered in column X according to the month in column Y. I have been trying everything but cant figure a simple way to do it. Im doing this so i can be able to see how many documents are sent after the deadline per month.

View 14 Replies View Related

Lookup Up/Match: Return A Value In Column A If My Data Matches Column B?

Jun 5, 2009

I have a tab that has 2 columns of data and I want to be able to return a value in column A if my data matches column B. If column B has the text TRUETRUE, I want to bring back the corresponding data in Column A. How do I return all the data in Column A for all the TRUETRUEs in column B? I can only get the first instance of TRUETRUE.

View 4 Replies View Related

Count Unique Values In One Column If Other Column Matches?

Oct 18, 2011

How do I count unique values in Column A only if the values in Column B match?

A B
1 a
2 a
1 a
4 b
5 b
1 b

The formula would return "2" for "a", and "3" for b. Basically, there are names in column B, and I want to know how many unique things are in column A for each person. If there is a better way than a formula (pivot table?) that would be great - like a table that has each of the names (from Column B) and the number of unique items from Column A next to each unique name.

View 5 Replies View Related

Sum Of Values In Column If Text In Same Row Of Adjacent Column Matches?

Apr 10, 2014

I need to sum values in a column, but only if the text in the same row of the adjacent column meets certain criteria. Below is a simplified version as an example:

A1 - Apple
A2 - Banana
A3 - Apple
A4 - Banana

B1 - 3
B2 - 2
B3 - 1
B4 - 1

I need a formula that will add up the cells in column B that have "Apple" next to them in column A. Apple would total up to 4 and Banana would total up to 3.

View 1 Replies View Related

Return Value From 2nd Column When Value In 1st Column Matches Given Criteria

Oct 4, 2008

I have a column containing text values eg M1, T2, M3, A4 etc. and I am trying to return the value (numeric) in a second column to a cell when the text value in the first column is matched.

View 4 Replies View Related

Sum Numbers In Column If Date In Other Column Matches

Oct 4, 2007

I have a spreadsheet which will be completed by numerous users, with a worksheet reserved for each area. The spreadsheet is to record the number of days lost to training etc on a weekly basis.

Each worksheet has 3 columns – column A DESCRIPTION, column B WEEK COMMENCING DATE and column C DAYS LOST.

The table will be completed by the manager’s as the info becomes available to them.

I will be collating the data on another worksheet and need a formula that will look in column B for all instances of 01/10/07 and then sum the corresponding cells in column C, then do the same for 08/10/07 and so on.

I have attached an example of a page.

I thought it may be VLookup or Sumif, but I don’t know how to go about it.

View 3 Replies View Related

Delete Entire Rows Where Column IV Contains "x"

Aug 19, 2008

I have the following code to delete entire rows where column IV contains "x".

With ThisWorkbook.Sheets("Sheet3")
With .Range("IT1", .Range("IV" & Rows.Count).End(xlUp))
.AutoFilter Field:=1, Criteria1:="x"
.Offset(1).EntireRow.Delete
.AutoFilter
End With
End With

End Sub
[/Code ]

For a reason that I can't see, it is deleting not only the row that contains the "x" (there is never more than one row with an "x" in column IV), but also the row immediately below it.

View 9 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved