Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Need macro to delete rows 2

Status
Not open for further replies.
DrMingle

DrMingle

Technical User
May 24, 2009
116
US
I'm looking for some help...

I need a macro to delete all rows where column B & column E = 0 together, not seperately.

For example:
-If B2 = 0 & E2 = 0, then delete row 2
-If B2 = 0 & E2 = 34322, then nothing
-If B2 = 67589 & E2 = 0, then nothing

Any help would be greatly appreciated...

Sub CullVisualAudit()


Dim wsSource As Worksheet
Dim wsDest As Worksheet
Set wsSource = ActiveSheet
Set wsDest = Windows("Team Mwaniki - Audits - 2009.xls").ActiveSheet

Application.ScreenUpdating = False

wsSource.Activate
Range("B75:B84").Select
Selection.Copy
wsDest.Activate
Range("E1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wsSource.Activate
Range("C75:C84").Select
Application.CutCopyMode = False
Selection.Copy
wsDest.Activate
Range("B1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.WindowState = xlMinimized
wsSource.Activate
Range("D75:I84").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("H1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wsSource.Activate
'*****************Specialist Name*****************
wsSource.Activate
Range("B60").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("A1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B60").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("A1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B60").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("A1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B60").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("A1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B60").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("A1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B60").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("A1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B60").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("A1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B60").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("A1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B60").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("A1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B60").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("A1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'******************Auditor Name*************
wsSource.Activate
Range("B70").Select
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("D1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B70").Select
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("D1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B70").Select
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("D1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B70").Select
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("D1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B70").Select
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("D1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B70").Select
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("D1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B70").Select
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("D1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B70").Select
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("D1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B70").Select
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("D1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B70").Select
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("D1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'***************************Processing Date*********************
wsSource.Activate
Range("B71").Select
Selection.Copy
wsDest.Activate
Range("F1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B71").Select
Selection.Copy
wsDest.Activate
Range("F1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
wsSource.Activate
Range("B71").Select
Selection.Copy
wsDest.Activate
Range("F1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
wsSource.Activate
Range("B71").Select
Selection.Copy
wsDest.Activate
Range("F1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
wsSource.Activate
Range("B71").Select
Selection.Copy
wsDest.Activate
Range("F1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B71").Select
Selection.Copy
wsDest.Activate
Range("F1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B71").Select
Selection.Copy
wsDest.Activate
Range("F1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B71").Select
Selection.Copy
wsDest.Activate
Range("F1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B71").Select
Selection.Copy
wsDest.Activate
Range("F1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B71").Select
Selection.Copy
wsDest.Activate
Range("F1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'*****************************Audit Complete Date************************
wsSource.Activate
Range("B72").Select
Selection.Copy
wsDest.Activate
wsDest.Range("G1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B72").Select
Selection.Copy
wsDest.Activate
wsDest.Range("G1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B72").Select
Selection.Copy
wsDest.Activate
wsDest.Range("G1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B72").Select
Selection.Copy
wsDest.Activate
wsDest.Range("G1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B72").Select
Selection.Copy
wsDest.Activate
wsDest.Range("G1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B72").Select
Selection.Copy
wsDest.Activate
wsDest.Range("G1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B72").Select
Selection.Copy
wsDest.Activate
wsDest.Range("G1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B72").Select
Selection.Copy
wsDest.Activate
wsDest.Range("G1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B72").Select
Selection.Copy
wsDest.Activate
wsDest.Range("G1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsSource.Activate
Range("B72").Select
Selection.Copy
wsDest.Activate
wsDest.Range("G1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'**********************Team Name**********************
wsDest.Activate
Range("C2").Select
Selection.Copy
wsDest.Activate
wsDest.Range("c1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("C2").Select
Selection.Copy
wsDest.Activate
wsDest.Range("c1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("C2").Select
Selection.Copy
wsDest.Activate
wsDest.Range("c1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("C2").Select
Selection.Copy
wsDest.Activate
wsDest.Range("c1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("C2").Select
Selection.Copy
wsDest.Activate
wsDest.Range("c1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("C2").Select
Selection.Copy
wsDest.Activate
wsDest.Range("c1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("C2").Select
Selection.Copy
wsDest.Activate
wsDest.Range("c1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("C2").Select
Selection.Copy
wsDest.Activate
wsDest.Range("c1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("C2").Select
Selection.Copy
wsDest.Activate
wsDest.Range("c1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("C2").Select
Selection.Copy
wsDest.Activate
wsDest.Range("c1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'*********************Time Elapse***********************

wsDest.Activate
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("p2").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("p2").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("p2").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("p2").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("p2").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("p2").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("p2").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("p2").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("p2").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("p2").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

'********************Directory/Participation****************
wsDest.Activate
Range("N12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("n1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("N12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("n1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("N12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("n1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("N12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("n1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("N12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("n1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("N12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("n1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("N12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("n1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("N12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("n1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("N12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("n1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("N12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("n1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("O12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("O1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("O12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("O1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("O12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("O1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("O12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("O1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("O12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("O1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("O12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("O1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("O12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("O1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("O12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("O1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("O12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("O1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

wsDest.Activate
Range("O12").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
wsDest.Activate
Range("O1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Application.ScreenUpdating = True
Set wsDest = Nothing

End Sub


 
Sort by date Sort by votes
Don't post large repetitive blocks of code. Use code window. This looks like it'll do what you want. Also this deletes rows which have spaces in columns B and E - if undesired need to modify delete condition accordingly
Code: 
Option Explicit

Sub DeleteRows()
Dim LastRow As Integer        ' input below to specify how many rows to check beginning with 1st row
Dim counter As Integer        ' loop counter from 1 to lastrow
Dim InvertedCounter As Integer        ' counter from lastrow down to 1
Dim DeleteCondition As Boolean
    With Sheets("Sheet1")
        ' First row is always row 1
        ' Adjust last row using LastRow
        LastRow = 100
        For counter = 1 To LastRow
            InvertedCounter = LastRow - counter + 1
            DeleteCondition = Rows(InvertedCounter).Cells(1, 2) = 0 And Rows(InvertedCounter).Cells(1, 5) = 0
            If DeleteCondition Then Rows(InvertedCounter).Delete
        Next counter
    End With        ' end with Sheets("Sheet1"0
End Sub
 
Upvote 0 Downvote
Note the loop proceeds from the bottom row up so that the deleted rows don't confuse the counter.
 
Upvote 0 Downvote
The code works great...

Can you tell me what this is...
...Use code window?

 
Upvote 0 Downvote
Type this:
[ignore]
Code: 
Text in a code window
[/ignore]

And everyone will see this:
Code: 
Text in a code window
 
Upvote 0 Downvote
Other "TGML" codes are listed at the bottom of the edit window.

Use preview button to see what it looks like before you submit.
 
Upvote 0 Downvote
A simpler way:
Code: 
With Sheets("Sheet1")
  LastRow = 100
  For InvertedCounter = LastRow To 1 Step -1
    If .Cells(InvertedCounter, 2) = 0 And .Cells(InvertedCounter, 5) = 0 Then
      .Rows(InvertedCounter).Delete
    End If
  Next InvertedCounter
End With

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

remeng
  • Locked
  • Question
Delete dynamic table rows without removing password protection
Replies
7
Views
444
remeng
remeng
remeng
  • Locked
  • Question
CTRL + BREAK from second macro button
Replies
5
Views
687
strongm
strongm
remeng
  • Locked
  • Helpful tip
Microsoft Office 365 Word Macro Causing a Project is unviewable error
Replies
1
Views
1K
dhookom
dhookom
remeng
  • Locked
  • Question
If obsolete - deactivate all but one macro
Replies
6
Views
405
mintjulep
M
davefish
  • Locked
  • Question
Looping through a word doc to delete rows
Replies
7
Views
330
macropod
macropod

Part and Inventory Search

Sponsor

Back
Top