Inserting a row inbetween consecutive conditions - Need Help VBA

CoraG

New Member
Joined
Aug 30, 2018
Messages
31
I am having difficulty a code that provides for inserting a row when there are to FALSE that fall consecutively. I would like to insert a row when this shows up. Do I use AND IF statement? The True/False column is M on my spreadsheet.

Lastrow = Worksheets("APR ADJ").Cells(Rows.Count, 12).End(xlUp).Row
For i = Lastrow To 2 Step by - 1

If Worksheets("APR ADJ").Cells(i, 12).Value = "FALSE FALSE" Then
ActiveCell.EntireRow.Insert Shift:=xlDown
End If
Next
Worksheets("APR ADJ").Cells(1, 1).Select
 
But, if I am understanding your correctly, those values in columns A-I (except for column C), should match the value of the row above, should they not?
If not, can you provide an example where it does not (because then I am really lost in regards to where we are supposed to get the values from A-I).
 
Upvote 0

Excel Facts

Copy PDF to Excel
Select data in PDF. Paste to Microsoft Word. Copy from Word and paste to Excel.
Te reason I ask if this can be done by CC From or CC To per date Column 8 is that the account/sub act/project number;task number can be different as reflected in this data set.
123AccountSub ActPROJECT_NUMBERTASK_NUMBEREXP_ITEM_DATEEXP_END_DATE
4879HudsonCC FromMB05020005Y110BKK0100300600004/10/20184/15/2018
4879HudsonCC ToMB05020005Y110BKKEQ00300610004/10/20184/15/2018
4879HudsonCC ToMB05020005Y110BKKEQ00301110004/10/20184/15/2018
4879HudsonCC ToYN01000005Y110BX5D1000010AX334/10/20184/15/2018
4879HudsonCC FromYN01000003B100AXA31000011B5L34/11/20184/15/2018
4879HudsonCC FromYN01000003B100AXA31000011BHRL4/11/20184/15/2018
4879HudsonCC ToYN01000003B100AXA31000011B5L34/11/20184/15/2018

<colgroup><col><col><col><col><col><col span="2"><col><col></colgroup><tbody>
</tbody>
 
Upvote 0
The reason I ask is that the CC From and CC To can have difference account/sub act/project code/task information per date. Like the following transaction

123AccountSub ActPROJECT_NUMBERTASK_NUMBEREXP_ITEM_DATEEXP_END_DATE
4879HudsonCC FromMB05020005Y110BKK0100300600004/10/20184/15/2018
4879HudsonCC ToMB05020005Y110BKKEQ00300610004/10/20184/15/2018
4879HudsonCC ToMB05020005Y110BKKEQ00301110004/10/20184/15/2018
4879HudsonCC ToYN01000005Y110BX5D1000010AX334/10/20184/15/2018
4879HudsonCC FromYN01000003B100AXA31000011B5L34/11/20184/15/2018
4879HudsonCC FromYN01000003B100AXA31000011BHRL4/11/20184/15/2018
4879HudsonCC ToYN01000003B100AXA31000011B5L34/11/20184/15/2018

<colgroup><col><col><col><col><col><col span="2"><col><col></colgroup><tbody>
</tbody>
 
Upvote 0
I do not understand what you are saying. Member, while this is very familiar to you because it is your project, it is not to us. All that we have to go on is what you explain in this ticket, and if that explanation is not clear to us, they we are kind of lost.

I think you best bet is to actual walk us through the details of one of your examples, where you tells us EXACTLY where the line is inserted, and a detailed explanation (in relation to the example) EXACTLY where the information that we are populating that inserted line comes from.

You posted some data examples above, but haven't walked us through the detailed explanation as it pertains to that particular example.
 
Upvote 0
Hello - I apologize for the lack of articulating what I am working on. So, I will do my best to give you the details all in this message and then you can see how best I should approach this. Maybe the True/False column is the wrong approach.
So here is a sample of employee data ID and EE are fictitious for obvious reasons. The data reflects when an employee changed their time card to different codes (account, sub act, project, or task) data or in other cases where you see from/to codes the same it indicates the only change is either decreasing/increasing hours worked.
I am working with 20,000+ rows of data all sorted by ID, Date, From/To. Column J Identifies where a different employee’s data starts and when the From/To format changes to, “From From,” or “To To,” by date for that employee.
It may take me several messages for you to see the example step by step to the final product.

=IF(A2=A3,AND(C2<>C3))
ABCDEFGHIJ
1E IDEEFR/TOAccountSub ActPROJECT_NUMBERTASK_NUMBEREXP_ITEM_DATEEXP_END_DATETrue/False
24879HudsonCC FromMB05020005Y110BKK0100300600004/10/20184/15/2018TRUE
34879HudsonCC ToMB05020005Y110BKKEQ00300610004/10/20184/15/2018TRUE
44879HudsonCC ToMB05020005Y110BKKEQ00301110004/10/20184/15/2018FALSE
54879HudsonCC ToYN01000005Y110BX5D1000010AX334/10/20184/15/2018TRUE
64879HudsonCC FromYN01000003B100AXA31000011B5L34/11/20184/15/2018FALSE
74879HudsonCC FromYN01000003B100AXA31000011BHRL4/11/20184/15/2018TRUE
84879HudsonCC ToYN01000003B100AXA31000011B5L34/11/20184/15/2018FALSE
97445Scott CC FromYN01000004R500ASWDP0070WPM6RE4/5/20184/8/2018TRUE
107445Scott CC ToYN01000004R500ASWDP0070WQMA004/5/20184/8/2018FALSE
117445Scott CC ToYN01000004R500AX7CE00PUTMANAL4/5/20184/8/2018FALSE
127445Scott CC ToYN01000004R500AXE4500ELECTEAM4/5/20184/8/2018FALSE
137445Scott CC ToYN01000004R500AXUEP007JE802134/5/20184/8/2018TRUE
147445Scott CC FromYN01000004R500AXE4500ELECTEAM4/6/20184/8/2018TRUE
157445Scott CC ToYN01000004R500AXE4525ELECTEBN4/6/20184/8/2018FALSE
168335AllenCC FromGD60303005J880AHG5500000000002/15/20182/18/2018FALSE
178335AllenCC FromGD60303005J880AHG5600000000002/15/20182/18/2018TRUE
188335AllenCC To4501403005J880ARTBL00000000002/15/20182/18/2018FALSE

<colgroup><col><col><col span="2"><col><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>
 
Upvote 0
Step 1 – Insert the rows where they need to be. In this case the rows should be inserted
After 3, After 4, After 6, After 10, After 11, After 12, and After 16
ABCDEFGHIJ
1E IDEEFR/TOAccountSub ActPROJECT_NUMBERTASK_NUMBEREXP_ITEM_DATEEXP_END_DATETrue/False
24879HudsonCC FromMB05020005Y110BKK0100300600004/10/20184/15/2018TRUE
34879HudsonCC ToMB05020005Y110BKKEQ00300610004/10/20184/15/2018TRUE
44879HudsonCC ToMB05020005Y110BKKEQ00301110004/10/20184/15/2018FALSE
54879HudsonCC ToYN01000005Y110BX5D1000010AX334/10/20184/15/2018TRUE
64879HudsonCC FromYN01000003B100AXA31000011B5L34/11/20184/15/2018FALSE
74879HudsonCC FromYN01000003B100AXA31000011BHRL4/11/20184/15/2018TRUE
84879HudsonCC ToYN01000003B100AXA31000011B5L34/11/20184/15/2018FALSE
97445Scott CC FromYN01000004R500ASWDP0070WPM6RE4/5/20184/8/2018TRUE
107445Scott CC ToYN01000004R500ASWDP0070WQMA004/5/20184/8/2018FALSE
117445Scott CC ToYN01000004R500AX7CE00PUTMANAL4/5/20184/8/2018FALSE
127445Scott CC ToYN01000004R500AXE4500ELECTEAM4/5/20184/8/2018FALSE
137445Scott CC ToYN01000004R500AXUEP007JE802134/5/20184/8/2018TRUE
147445Scott CC FromYN01000004R500AXE4500ELECTEAM4/6/20184/8/2018TRUE
157445Scott CC ToYN01000004R500AXE4525ELECTEBN4/6/20184/8/2018FALSE
168335AllenCC FromGD60303005J880AHG5500000000002/15/20182/18/2018FALSE
178335AllenCC FromGD60303005J880AHG5600000000002/15/20182/18/2018TRUE
188335AllenCC To4501403005J880ARTBL00000000002/15/20182/18/2018FALSE

<colgroup><col><col><col span="2"><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>


Step 2 – Copy the data to the inserted rows
Copy Line 2 Data – To the blank row after 3, after, 4 (This is copying From data)
Copy Line 8 Data – To the blank row after 6 (This is copying To data)
Copy Line 9 Data – To the bank row after10, after 11, after 12 (This is copying From data)
Copy Line 18 Data – To the blank row after 16 (This is copying To data)

ABCDEFGHIJ
1E IDEEFR/TOAccountSub ActPROJECT_NUMBERTASK_NUMBEREXP_ITEM_DATEEXP_END_DATETrue/False
24879HudsonCC FromMB05020005Y110BKK0100300600004/10/20184/15/2018TRUE
34879HudsonCC ToMB05020005Y110BKKEQ00300610004/10/20184/15/2018TRUE
COPY LINE 2 DATA
44879HudsonCC ToMB05020005Y110BKKEQ00301110004/10/20184/15/2018FALSE
COPY LINE 2 DATA
54879HudsonCC ToYN01000005Y110BX5D1000010AX334/10/20184/15/2018TRUE
64879HudsonCC FromYN01000003B100AXA31000011B5L34/11/20184/15/2018FALSE
COPY LINE 8 DATA
74879HudsonCC FromYN01000003B100AXA31000011BHRL4/11/20184/15/2018TRUE
84879HudsonCC ToYN01000003B100AXA31000011B5L34/11/20184/15/2018FALSE
97445Scott CC FromYN01000004R500ASWDP0070WPM6RE4/5/20184/8/2018TRUE
107445Scott CC ToYN01000004R500ASWDP0070WQMA004/5/20184/8/2018FALSE
COPY LINE 9 DATA
117445Scott CC ToYN01000004R500AX7CE00PUTMANAL4/5/20184/8/2018FALSE
COPY LINE 9 DATA
127445Scott CC ToYN01000004R500AXE4500ELECTEAM4/5/20184/8/2018FALSE
COPY LINE 9 DATA
137445Scott CC ToYN01000004R500AXUEP007JE802134/5/20184/8/2018TRUE
147445Scott CC FromYN01000004R500AXE4500ELECTEAM4/6/20184/8/2018TRUE
157445Scott CC ToYN01000004R500AXE4525ELECTEBN4/6/20184/8/2018FALSE
168335AllenCC FromGD60303005J880AHG5500000000002/15/20182/18/2018FALSE
COPY LINE 18 DATA
178335AllenCC FromGD60303005J880AHG5600000000002/15/20182/18/2018TRUE
188335AllenCC To4501403005J880ARTBL00000000002/15/20182/18/2018FALSE

<colgroup><col><col><col span="2"><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>
 
Upvote 0
Step 1 – Insert the rows where they need to be. In this case the rows should be inserted
After 3, After 4, After 6, After 10, After 11, After 12, and After16
ABCDEFGHIJ
1E IDEEFR/TOAccountSub ActPROJECT_NUMBERTASK_NUMBEREXP_ITEM_DATEEXP_END_DATETrue/False
24879HudsonCC FromMB05020005Y110BKK0100300600004/10/20184/15/2018TRUE
34879HudsonCC ToMB05020005Y110BKKEQ00300610004/10/20184/15/2018TRUE
44879HudsonCC ToMB05020005Y110BKKEQ00301110004/10/20184/15/2018FALSE
54879HudsonCC ToYN01000005Y110BX5D1000010AX334/10/20184/15/2018TRUE
64879HudsonCC FromYN01000003B100AXA31000011B5L34/11/20184/15/2018FALSE
74879HudsonCC FromYN01000003B100AXA31000011BHRL4/11/20184/15/2018TRUE
84879HudsonCC ToYN01000003B100AXA31000011B5L34/11/20184/15/2018FALSE
97445Scott CC FromYN01000004R500ASWDP0070WPM6RE4/5/20184/8/2018TRUE
107445Scott CC ToYN01000004R500ASWDP0070WQMA004/5/20184/8/2018FALSE
117445Scott CC ToYN01000004R500AX7CE00PUTMANAL4/5/20184/8/2018FALSE
127445Scott CC ToYN01000004R500AXE4500ELECTEAM4/5/20184/8/2018FALSE
137445Scott CC ToYN01000004R500AXUEP007JE802134/5/20184/8/2018TRUE
147445Scott CC FromYN01000004R500AXE4500ELECTEAM4/6/20184/8/2018TRUE
157445Scott CC ToYN01000004R500AXE4525ELECTEBN4/6/20184/8/2018FALSE
168335AllenCC FromGD60303005J880AHG5500000000002/15/20182/18/2018FALSE
178335AllenCC FromGD60303005J880AHG5600000000002/15/20182/18/2018TRUE
18
8335AllenCC To4501403005J880ARTBL00000000002/15/20182/18/2018FALSE




<colgroup><col style="width:48pt" width="64"> <col style="mso-width-source:userset;mso-width-alt:2986;width:63pt" width="84"> <col style="width:48pt" span="2" width="64"> <col style="mso-width-source:userset;mso-width-alt:2702;width:57pt" width="76"> <col style="width:48pt" width="64"> <col style="mso-width-source:userset;mso-width-alt:3015;width:64pt" width="85"> <col style="mso-width-source:userset;mso-width-alt:2730;width:58pt" width="77"> <col style="mso-width-source:userset;mso-width-alt:3157;width:67pt" width="89"> <col style="mso-width-source:userset;mso-width-alt:2844;width:60pt" width="80"> <col style="mso-width-source:userset;mso-width-alt:2901;width:61pt" width="82"> </colgroup><tbody>
</tbody>
Step 2 – Copy the data to the inserted rows
Copy Line 2 Data – To the blank row after 3, after, 4 (This is copying From data)
Copy Line 8 Data – To the blank row after 6 (This is copying To data)
Copy Line 9 Data – To the bank row after10, after 11, after 12 (This is copying From data)
Copy Line 18 Data – To the blank row after 16 (This is copying To data)

ABCDEFGHIJ
1E IDEEFR/TOAccountSub ActPROJECT_NUMBERTASK_NUMBEREXP_ITEM_DATEEXP_END_DATETrue/False
24879HudsonCC FromMB05020005Y110BKK0100300600004/10/20184/15/2018TRUE
34879HudsonCC ToMB05020005Y110BKKEQ00300610004/10/20184/15/2018TRUE
COPY LINE 2 DATA
44879HudsonCC ToMB05020005Y110BKKEQ00301110004/10/20184/15/2018FALSE
COPY LINE 2 DATA
54879HudsonCC ToYN01000005Y110BX5D1000010AX334/10/20184/15/2018TRUE
64879HudsonCC FromYN01000003B100AXA31000011B5L34/11/20184/15/2018FALSE
COPY LINE 8 DATA
74879HudsonCC FromYN01000003B100AXA31000011BHRL4/11/20184/15/2018TRUE
84879HudsonCC ToYN01000003B100AXA31000011B5L34/11/20184/15/2018FALSE
97445Scott CC FromYN01000004R500ASWDP0070WPM6RE4/5/20184/8/2018TRUE
107445Scott CC ToYN01000004R500ASWDP0070WQMA004/5/20184/8/2018FALSE
COPY LINE 9 DATA
117445Scott CC ToYN01000004R500AX7CE00PUTMANAL4/5/20184/8/2018FALSE
COPY LINE 9 DATA
127445Scott CC ToYN01000004R500AXE4500ELECTEAM4/5/20184/8/2018FALSE
COPY LINE 9 DATA
137445Scott CC ToYN01000004R500AXUEP007JE802134/5/20184/8/2018TRUE
147445Scott CC FromYN01000004R500AXE4500ELECTEAM4/6/20184/8/2018TRUE
157445Scott CC ToYN01000004R500AXE4525ELECTEBN4/6/20184/8/2018FALSE
168335AllenCC FromGD60303005J880AHG5500000000002/15/20182/18/2018FALSE
COPY LINE 18 DATA
178335AllenCC FromGD60303005J880AHG5600000000002/15/20182/18/2018TRUE
188335AllenCC To4501403005J880ARTBL00000000002/15/20182/18/2018FALSE

<colgroup><col><col><col span="2"><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>
 
Upvote 0
This is the final product

ABCDEFGHIJ
1E IDEEFR/TOAccountSub ActPROJECT_NUMBERTASK_NUMBEREXP_ITEM_DATEEXP_END_DATETrue/False
24879HudsonCC FromMB05020005Y110BKK0100300600004/10/20184/15/2018TRUE
34879HudsonCC ToMB05020005Y110BKKEQ00300610004/10/20184/15/2018TRUE
4879HudsonCC FromMB05020005Y110BKK0100300600004/10/20184/15/2018
44879HudsonCC ToMB05020005Y110BKKEQ00301110004/10/20184/15/2018FALSE
4879HudsonCC FromMB05020005Y110BKK0100300600004/10/20184/15/2018
54879HudsonCC ToYN01000005Y110BX5D1000010AX334/10/20184/15/2018TRUE
64879HudsonCC FromYN01000003B100AXA31000011B5L34/11/20184/15/2018FALSE
4879HudsonCC ToYN01000003B100AXA31000011B5L34/11/20184/15/2018
74879HudsonCC FromYN01000003B100AXA31000011BHRL4/11/20184/15/2018TRUE
84879HudsonCC ToYN01000003B100AXA31000011B5L34/11/20184/15/2018FALSE
97445Scott CC FromYN01000004R500ASWDP0070WPM6RE4/5/20184/8/2018TRUE
107445Scott CC ToYN01000004R500ASWDP0070WQMA004/5/20184/8/2018FALSE
7445Scott CC FromYN01000004R500ASWDP0070WPM6RE4/5/20184/8/2018
117445Scott CC ToYN01000004R500AX7CE00PUTMANAL4/5/20184/8/2018FALSE
7445Scott CC FromYN01000004R500ASWDP0070WPM6RE4/5/20184/8/2018
127445Scott CC ToYN01000004R500AXE4500ELECTEAM4/5/20184/8/2018FALSE
7445Scott CC FromYN01000004R500ASWDP0070WPM6RE4/5/20184/8/2018
137445Scott CC ToYN01000004R500AXUEP007JE802134/5/20184/8/2018TRUE
147445Scott CC FromYN01000004R500AXE4500ELECTEAM4/6/20184/8/2018TRUE
157445Scott CC ToYN01000004R500AXE4525ELECTEBN4/6/20184/8/2018FALSE
168335AllenCC FromGD60303005J880AHG5500000000002/15/20182/18/2018FALSE
8335AllenCC To4501403005J880ARTBL00000000002/15/20182/18/2018
178335AllenCC FromGD60303005J880AHG5600000000002/15/20182/18/2018TRUE
188335AllenCC To4501403005J880ARTBL00000000002/15/20182/18/2018FALSE

<colgroup><col><col><col span="2"><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>
 
Upvote 0
Step 1 – Insert the rows where they need to be. In this case the rows should be inserted
After 3, After 4, After 6, After 10, After 11, After 12, and After 16
OK, it appears that these seem to keep changing on-the-fly here making things very confusing.
Originally, we were looking at the TRUE/FALSE values in column M, but it appears that has now shifted to to column J.
More concerning that is that the whole original code was predicated on the condition of inserting lines between two FALSE values in the last column.
But where you are saying to insert lines no longer seems to follow that rule (i.e. you say insert lines after lines 3, 4, and 6, but there are not two consecutive FALSE statements in any of those lines).

It is really hard to build off the code we have already done if the original conditions we programmed to keep changing.

Also, be careful not to fall into the trap many noobs fall into, that can cause a lot of heartache for both you and the respondents - don't oversimplify your question to the point where the answer does not solve your problem. Otherwise, you get solutions that only do part of what you want, or don't work for your situation at all (i.e. your original post was just asking for a blank line insert, but you really wanted much more than that). Better to lay it all out there right away so we have a better idea on what the scope is and can plan how to attack it accordingly.
 
Upvote 0
Hello Joe - Thank you for your response. Forget about the True/False Column. Given the information I have provided E_ID, EXP_ITEM_DATE, the consecutive condition is Column C (FR/TO). You asked that I outline EXACTLY details of the project. Step 1 - A row should be inserted after 3, 4, 6, 10,11, 12, and 16


1E IDEEFR/TOAccountSub ActPROJECT_NUMBERTASK_NUMBEREXP_ITEM_DATEEXP_END_DATE
24879HudsonCC FromMB05020005Y110BKK0100300600004/10/20184/15/2018
34879HudsonCC ToMB05020005Y110BKKEQ00300610004/10/20184/15/2018
44879HudsonCC ToMB05020005Y110BKKEQ00301110004/10/20184/15/2018
54879HudsonCC ToYN01000005Y110BX5D1000010AX334/10/20184/15/2018
64879HudsonCC FromYN01000003B100AXA31000011B5L34/11/20184/15/2018
74879HudsonCC FromYN01000003B100AXA31000011BHRL4/11/20184/15/2018
84879HudsonCC ToYN01000003B100AXA31000011B5L34/11/20184/15/2018
97445Scott CC FromYN01000004R500ASWDP0070WPM6RE4/5/20184/8/2018
107445Scott CC ToYN01000004R500ASWDP0070WQMA004/5/20184/8/2018
117445Scott CC ToYN01000004R500AX7CE00PUTMANAL4/5/20184/8/2018
127445Scott CC ToYN01000004R500AXE4500ELECTEAM4/5/20184/8/2018
137445Scott CC ToYN01000004R500AXUEP007JE802134/5/20184/8/2018
147445Scott CC FromYN01000004R500AXE4500ELECTEAM4/6/20184/8/2018
157445Scott CC ToYN01000004R500AXE4525ELECTEBN4/6/20184/8/2018
168335AllenCC FromGD60303005J880AHG5500000000002/15/20182/18/2018
178335AllenCC FromGD60303005J880AHG5600000000002/15/20182/18/2018
188335AllenCC To4501403005J880ARTBL00000000002/15/20182/18/2018

<colgroup><col style="width:48pt" width="64"> <col style="mso-width-source:userset;mso-width-alt:2986;width:63pt" width="84"> <col style="width:48pt" span="2" width="64"> <col style="mso-width-source:userset;mso-width-alt:2702;width:57pt" width="76"> <col style="width:48pt" width="64"> <col style="mso-width-source:userset;mso-width-alt:3015;width:64pt" width="85"> <col style="mso-width-source:userset;mso-width-alt:2730;width:58pt" width="77"> <col style="mso-width-source:userset;mso-width-alt:3157;width:67pt" width="89"> <col style="mso-width-source:userset;mso-width-alt:2844;width:60pt" width="80"> </colgroup><tbody>
</tbody>
 
Last edited:
Upvote 0

Forum statistics

Threads
1,215,527
Messages
6,125,336
Members
449,218
Latest member
Excel Master

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top