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


ADVERTISEMENT

Delete Opposite Rows Based On Multiple Criteria

Feb 29, 2008

I have a Macro that I use daily on a spreadsheet I get with raw line-item transaction data on it. Basically, it deletes columns I don't need to look at, applies column headers, deletes certain rows that I don't need to look at, applies an auto-filter and filters to the first group of data I need to look at, and puts a subtotal on a couple of columns at the top so I can see totals on filtered results.

I need an additional function in this Macro. At some point in the middle of the actions above, I need to evaluate all rows and delete those that are 'opposites' based on a couple of criteria. Basically, I need to delete any transactions that have been refunded in their entirety, because for my purposes those are zeroed out and I don't want to see them....

View 4 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

Duplicate Every Nth Cell In Opposite Column

Jan 17, 2008

I have a worksheet, example data below, it has 150+ columns and varying amounts of rows 1 -> 2500+ per column. The row data is as follows:

Row 1: Has title of worksheet
Row 2: Date of the column
Row 3: Total of completed for the day
Row 4 - n: Serial number

I need to intsert a new column to the right of each column and then populate it with the date at the top of the column from the left, I need the new date value to go down until it reaches the end of the data in the left column. So effectivly each serial number will have date in the column to its right.

There are no blanks in the rows, or blank columns.

Example of existing:

5/04/2007
35
100621090
104436159
104876402
462933606

Required:

5/04/2007
35
100621090 5/04/2007
104436159 5/04/2007
104876402 5/04/2007
462933606 5/04/2007

**Note date is in second column and taken from top of first column. Does not need to update if date is changed.

View 6 Replies View Related

If Cell Is BLANK Then Look At Opposite Column Cell

Jul 10, 2009

I have a column B which has the text "" in some cells where there is no value. I want a macro that will find a "" and if a cell has then I want the cell to equal to column A
for example ...

View 9 Replies View Related

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 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

Delete Row If Cell Text Matches Known String

May 21, 2008

I have an excel file, and on some rows, the "B" column contains the text " Total:" (it does have a leading space). I would like to loop through the first 200 rows (maximum length of the file) and delete all the rows that contain " Total:" in column "B". I have tried:

For i = 1 To 200
range("B" & i).activate
If range("B" & i).value = " Total:" Then
rows(activecell.row).select
selection.delete shift:=xlUp
End If
Next i

When I step through that code, it just skips over the IF function as if B1 does not equal " Witness:"

View 3 Replies View Related

Delete ALL Rows That Have Cell In Column (J) That Looks Blank

Feb 11, 2010

I'm trying to delete rows which has columns that appears to be blank. Below code worked fine but it took about 15 min for the macro to work through the spreadsheet.

View 2 Replies View Related

Delete Row If Specific Cell Value Matches Value Found In Another Worksheet

Mar 22, 2011

I need a formula or VBA macro to do the following:

I have 2 worksheets, namely sheet 1 and sheet 2.
Sheet 1 contains data in columns A to H.
Sheet 2 contains data only in column A.

I want Excel to check the data found in column A of Sheet 2 with those in Column A of Sheet 1. Hence, when an exact match is found in Column A of Sheet 1, Excel will delete that entire row.

View 4 Replies View Related

Delete Rows Where Cell In Column Is Repeated X Times

Jan 18, 2008

I have a excel doc with 8000 names I need to delete the people who are listed on 7 rows.

There are no blank rows and Colume A has the names sorted.

View 9 Replies View Related

Deleting Rows Where Values Are Opposite & Equal

Mar 31, 2008

I have a spreadsheeet with values in columns F:K from row 10 onwards

I need VBA code that will delete the rows where there are values opposite and equal in columns F:K from row 10 owards for eg if F10 is 10000 and K10 is -10000, F 25 is 150000 and G25 is -10000, G29 is -175000 and H29 is 175000, then rowa 10,25 & 29 must be deleted

View 9 Replies View Related

How To Delete Rows Based On Whether Or Not A Cell In Column B Is Empty Or Null

Jun 23, 2014

I am building a template ("Table") that will import data from 4 other spreadsheets and then format the data once its all in the template. I need to delete all rows where a name didn't import. The names are landing in column B (starting with B22), so I set up my code using an active cell loop macro to examine each cell to see if it was empty, and then to delete the row if it were. I've tried 4-5 iterations of code but nothing is working correctly.

Apparently when the fields are copied over from the other spreadsheets, some empty cells actually have something in them such that they are not completely blank. What syntax I can use so that I capture every instance of a blank/empty cell and delete that corresponding row? Some of the code I've tried is below.

[Code] .....

View 3 Replies View Related

Delete Duplicate Rows Based On Cell/column Values?

Oct 28, 2009

I have a excel file which contains dublicate rows. The duplicate rows can be identified based on few cell/column values. I need a macro to delete the duplicate rows when the below condition is satisfied: let us consider row 5 and row 6:

If column 7,12,13,16,17,18,19,23,24,27,28,29,30 in row 5 = row 6 then row 6 has to be deleted. This condition has to be followed for all other rows in the excel used range. Have attached the sample workbook.

View 5 Replies View Related

Delete Rows Where Cell In Column Less Than A Cell Value

Apr 9, 2008

I am trying to delete a rows that contains a certain value. When I run the command from VB, it works. When I run the command from the tools menu in Excel, it works. When I run the command by clicking the command button located on the spreadsheet, it returns an error message "Delete method of range class failed" and highlights the line

Cells(x, 2).EntireRow.Delete

Private Sub CommandButton1_Click()
'Deletes expired coupons
x = 9
Do
If (Cells(x, 7).Value < Cells(2, 3).Value) Then
Cells(x, 2).EntireRow.Delete
Else
x = x + 1
End If
Loop Until Cells(x, 2).Value = ""
End Sub

View 5 Replies View Related

Copy Formula Down To 1st Empty Row In Opposite Column

Aug 19, 2006

code to copy a cell formula all the way down the same column to the cell where its next immediate row is completely empty.

View 6 Replies View Related

Summing Up Opposite Numbers In A Column Based On Criteria

Jun 10, 2009

Imagine column A sorted by invoice numbers. Column B has payments applied but due to movement between unapplied cash, some numbers appear as negatives and positives for the same invoice number.

I want to have a formula which says that for each invoice number, look in column b and eliminate opposite numbers and post only unique values. Keep in mind that there may be multiple lines with the same invoice number.

For example, starting with line 5, for invoice 123, payments 400 and -400 in line 5 and 17 and payments 315 and -315 in lines 7 and 9 will zero out but any other unique payment will be picked up and displayed in column C. Lines 5 and/or 17 will be blank in column C.

View 9 Replies View Related

Color Table Rows Where Specific Cell In Row Matches Condition

Jul 2, 2008

I have a selection on a worksheet that has 4 consistent columns (A, B, C, and D) each with a variable number of rows all containing string type data. With this data I want to use Conditional Formatting so that when I have a string value of X in column D for any row, that whole row with the X in column D has it's color change to say grey, this should happen regardless of what strings are in Columns A, B, or C.

Below is the way I've been trying to do this thus far and failing, when I run this code below I can only get it to grey out the cell with the X not the whole row.

Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""x"""
Selection.FormatConditions(1) . Interior.ColorIndex = 16

View 4 Replies View Related

To Use =MATCH To Find A Value In One Column That Matches A Cell

Oct 7, 2008

I am trying to use =MATCH to find a value in one column that matches a cell. The cell contains a formula and I want to match to the result.

At the moment it isn't working.

Here's what I have:

=MATCH(G2,$A$2:$A$2189,0)

where G2 is

=K2&L2

View 9 Replies View Related

Change Value Based On Opposite Cell

Jun 25, 2008

In Column A I have a number of differnet country codes and for 2 of them I want to change the value in Column B. For Example if cell A1 is = to "SHA" I want cell B2 to be "SHANGHAI". If cell A1= to "SGN" I want B1 to be = to "HO CHI MINH". If cell A1 is = to anything else I want the value to B2 to remain unchanged.

View 3 Replies View Related

Delete Duplicate Rows Where Column A And Column B Combined Are Equal

Dec 8, 2009

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 Related

Copy Cells To Worksheets With Worksheet Name In Opposite Cell

Aug 11, 2007

I am developing a Workbook where I import data to one worksheet and then disseminate it to other worksheets. I am not sure if I am overthinking the process, but I am having difficulty writing the macro and getting it to run through the entire list of rows.

There are 4 Columns in the one worksheet, named "Update":
Column A supplies the name of the worksheet that will be updated
Columns B-D contain the data that will update the sheets.

The process that I am trying to write the macro for is a follows:
1. Select/copy the range, starting with B1:D1 on "Update"
2. Navigate to the appropriate worksheet to be update, determined by A1
3. Identify the first blank row, starting with A5
4. Paste the data B1:D1 to A5:C5 (or next available line)
5. Navigate back to "Update" and begin the process again with the next row B2:D2

This process should continue until there is no value in Column B on the "Update" worksheet.

View 7 Replies View Related

VBA To Delete Matches

Oct 8, 2008

I have an issue where I want to delete a row on Sheet1 if the cell in column a of that row is a match in a column A of Sheet2. If there is no Match, I want it to move to the next row until it has checked all rows with information. The size of the data varies daily. I do not want to check Row 1 either. Below is an example of what would happen.

BEFORE MACRO:
Sheet 1 Column A
ID#
A
B
C
D

Sheet 2 Column A
ID#
A
C
D

AFTER MACRO:
Sheet 1 Column A
ID#
B

Sheet 2 Column A
ID#
A
C
D

View 9 Replies View Related

Lookup Value In A Cell Based On Value In Opposite Cell

Apr 25, 2009

I need to find the value in cell range A:10 A:242 based on
the search criteria found in G:10 H:242

View 3 Replies View Related

Delete All Rows Which Has 0 Value In Column D In Sheet2?

May 27, 2014

Refer to attached file.

I am using the below code to delete all rows which has 0 value in column D in sheet2.

[Code] ......

Now I need to add some code within this so to change #N/A to 0 in column D and to change #N/A to blank in column B in sheet1.

Attached File : Book1.xlsx‎

View 2 Replies View Related

Delete Any Rows In Which Column B Doesn't Have ...

Oct 27, 2008

I'd like to tell Excel that anytime it finds the text "ABC" anywhere in any cell in column B but doesn't have any data in column A, to delete the entire row.

View 6 Replies View Related

Delete Rows If A Value In Column A Appears Only Once

Apr 7, 2009

I was wondering if it is possible to delete rows if a value appears only 1 time in a column? To clarify since 123 only appears once in column A I want the entire row 4 deleted.

View 2 Replies View Related

Delete Rows And Column Macro

Aug 1, 2011

I want to create a Macro to be used on the Active Sheet that FIRST deletes all the rows that contain the following values in Column E. Here are the values contained in Column E that will result in deleting the whole row: PT, JK, BH.

Here is a data sample, the real data will have thousands of rows:

ROW 1 COLUMN E ROW 2 Work Code ROW 3 BN ROW 4 KL ROW 5 PT ROW 6 JK
ROW 7 AL ROW 8 BH ROW 9 PT ROW 10 JK ROW 11 TU ROW 12 PT

Second, I would like the Macro to DELETE the ENTIRE Column E Not just the values in Column E.

View 5 Replies View Related

Find Value In Column & Delete All Rows Below

Feb 23, 2009

I have searched high and low for a more efficient macro than the current loop i have. I have a range that varies in size but always follows the same format. After i reach a certain value output from a formula, "4", I want to delete all lines below that line. So I want to find value "4" then move one row down and delete all lines to line 2004. I have attached the macro that i compiled but it takes a couple of minutes to run.

Sub manual()
Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
Dim CalcMode As Long
Dim ViewMode As Long
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
. ScreenUpdating = False
End With
With ActiveSheet
.Select
ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView.................

View 2 Replies View Related

Trying To Delete Rows That Have Text Only In Column

May 3, 2006

I have a spreedsheet that has both numerical data and text data in column "A". I need to delete all the rows that have text in Column A and keep the rows that have numerical data.

View 5 Replies View Related







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