delete rows based on a specific value in column A only if column B does not equal a different specific value

[pzabransky]

Can someone please help me with some code.

I need to build a macro, which will delete all rows with a specific value in column A, only if column B does not equal a different specific value. I can't seem to find any relevant posts. thank you very much.

-p

 

[stanleydgromjr]

pzabransky,

Welcome to the board.

Please post a screenshot of your sheet(s), what you have and what you expect to achieve, with Colo's HTML Maker.
http://www.puremis.net/excel/downloads.shtml

Instructions for using "Colo's HTML Maker":
http://www.mrexcel.com/forum/showthread.php?t=89356


Or, with Excel Jeanie HTML 4.
http://www.excel-jeanie-html.de/index.php?f=1

Instructions for using "Excel Jeanie HTML 4":
http://www.excel-jeanie-html.de/html/hlp_schnell_en.php

I need to build a macro, which will delete all rows with a specific value in column A, only if column B does not equal a different specific value. I can't seem to find any relevant posts. thank you very much.

Please explain in more detail:
What values in column A?
What values in column B?


Have a great day,
Stan

 

[MrKowz]

Try the following out, you will have to add in your "specific" values to this.

val1 = the value you want to match in column A

val2 = the value you DONT WANT column B to have

Note: I have not tested this, so be sure to backup your file!

sub RowDelete()
Dim val1 as variant
Dim val2 as variant
Dim LR as variant
Dim rowx as integer
 
LR = Range("A" & rows.count).End(xlUp).Row
For rowx = LR to 1 Step -1
     If Cells(rowx,1).Value = val1 AND Cells(rowx,2).Value <> val2 Then Rows(rowx).Delete
Next rowx