Insert Row if the Entire Row Cell has Zero

[unknownymous]

Hi Guys,

How can I insert a blank row if the entire row has zero ?

Before:

Name	Track1	Track2	Track3	Track4
Ben	1	1	1	2
Sam	3	4	5	6
Anna	1	0	5	9
Ted	0	0	0	0

<tbody>
</tbody>

After:

Name	Track1	Track2	Track3	Track4
Sam	3	4	5	6
Ben	1	1	1	2
Anna	1	0	5	9
ZEROES
Ted	0	0	0	0

<tbody>
</tbody>

Thanks in advance for the help.

 

[unknownymous]

Hi Peter,

See more detailed illustration...

Before:

ID	Name	Blank	Blank	Score1	Score2	Blank	Blank	Score3 -14	Note1-12
1	Ann			8	2			1	OK
2	Sef			0	1			0	-
3	Ben			0	0			0	OK
4	Lei			0	0			1	-

<tbody>
</tbody>

After:

ID	Name	Blank	Blank	Score1	Score2	Blank	Blank	Score 3-14	Note1-11
1	Ann			8	2			1	OK
2	Sef			0	1			0	Check
4	Lei			0	0			1	Check
3	Ben			0	0			0	OK

<tbody>
</tbody>

Whereas:

*Score 3-14 range from I4:T4
*Note 1-11 range from U4:AE4

Separate Ben as his score is "Zero" from Score 1 to 14

Thanks a lot in advance!

 

[Peter_SSs]

If the columns to check are C:T (excluding those blank in the header row) then try

Sub insertRows_v3()
  Dim a As Variant, aRws As Variant, aCols As Variant
  Dim i As Long
  Dim sTest As String
  
  Const hr As Long = 4   '<- Header row
 
  Application.ScreenUpdating = False
  aRws = Evaluate("row(" & hr + 1 & ":" & Range("A" & Rows.Count).End(xlUp).Row & ")")
  aCols = Filter(Evaluate(Replace("if(len(#),column(#),""x"")", "#", "C" & hr & ":T" & hr)), "x", False)
  a = Application.Index(Cells, aRws, aCols)
  sTest = Mid(Replace(String(UBound(a, 2), "0"), 0, "|0"), 2)
  For i = UBound(a) To 2 Step -1
    If Join(Application.Index(a, i, 0), "|") = sTest Then Rows(i + hr).Insert
  Next i
  Application.ScreenUpdating = True
End Sub

 

[unknownymous]

Thanks a lot Peter!

 

[Peter_SSs]

Thanks a lot Peter!

You're welcome.

 

[unknownymous]

You're welcome.

Hi Guys,

What if i want to insert a row if both Score 1 & 2 is zero? How can I do that?

Name	City	State	Country	Score1	Score2
Ben	Boston	MA	US	4	2
Sean	London	N/A	UK	3	2
Ems	Paris	N/A	FR	0	0

<tbody>
</tbody>

Thanks in advance!

 

[Peter_SSs]

1. What columns are we looking at?
2. Are there other columns on the sheet with data besides the ones shown?
3. Is the order of columns likely to change? That is, will Score1 and Score2 always be in the same columns?
4. Are we adding a row above or below the row with two zeroes?

 

[LFKim2018]

Robert, a comment on your code. It may not be possible with the OP's data but it would insert a blank row above a row that contained
3, 4, -1, -6

It would also insert a blank row above a row that was already blank in those 4 columns.

In both examples above the rows don't meet the OP's stated requirement.

Mr. Peter SSs
Pardon my incursion, but may I know the meaning of OP ?
many thanks

 

[My Aswer Is This]

OP

Original Post

 

[LFKim2018]

Mr My Aswer Is This
Thank you very much

 

[unknownymous]

Hi Peter,

See below:

1. As for my example above, Ems should be separated so additional row will set as separator - that is if the Score1 & 2 is ZERO
2. No additional columns
3. The order of the column will remain the same
4. We're adding a row above the row with two zeroes.

Thank you!