delete row based on values....almost there

[Skidood]

Hi again, this code from Fluff has worked...I am summing all rows in column 77 and if the sum is 0.00, then a TRUE is assigned to the cell in the affected row in the summing column.


=IF(SUM(E11:BX11)<0.000001,TRUE,"")


I had to use .0000001 because it seems that excel doesn't want to distinguish between 0 and 0.00 in this particular case.

Anyway, my button code is this:



Sub CommandButton1_Click()
Columns(77).SpecialCells(xlFormulas, xlLogical).EntireRow.Delete


End Sub


However, I also want to delete any row where "#NUM!" or "REF!" shows up in column 77 (in addition to "TRUE")
Can anyone suggest the extra lines of code?

Excel 2010 32 bit
	J	BS	BT	BU	BV	BW	BX	BY	BZ
6
7								Column 77
8	F	T23	Lethal Rate	F	T24	Lethal Rate	F
9		103.00	0.015		83.00	0.000
10	0.000	87.00	0.000	0.004	124.00	1.950	0.487
11	0.001	117.00	0.389	0.097	83.00	0.000	0.487
1005	0.154	110.00	0.078	0.050	86.00	0.000	0.000
1006	0.398	120.00	0.776	0.213	123.00	1.549	0.387
1007	#NUM!	0.00	0.000	#NUM!	0.00	0.000	#NUM!	#NUM!
1008	TC2			T23			T24
1009	116.64			121.77			119.01
1011
1013	55.54			57.99			56.67
1014
1015	26.45			27.61			26.99
Calc

 

[Fluff]

Untested, but try

Sub CommandButton1_Click()
With Columns(77)
   On Error Resume Next
   .SpecialCells(xlFormulas, xlLogical).EntireRow.Delete
   .SpecialCells(xlFormulas, xlErrors).EntireRow.Delete
   On Error GoTo 0
End With
End Sub

This will delete any row with a formula error

 

[Skidood]

Worked great. Thanks so much Mister!

 

[Fluff]

Glad to help & thanks for the feedback