Hi Check this...
Cheers!! On Sun, Aug 24, 2014 at 8:12 AM, Nur Hossain <nur2...@gmail.com> wrote: > Dear All , My previous attached file was wrong. here is the update file. > > > > On 8/23/14, Nur Hossain <nur2...@gmail.com wrote: > Dear all, I am having data like below in the cell A & B in the sheet input > cell A cell B > Tra Code: RNSPIN > News: what ever it is > PDate: 8/5/2013 > Expire Date: 8/12/2013 > Tra Code: BD NEW > News: what ever it is > PDate: 8/5/2013 > Expire Date: 8/12/2013 > Tra Code: CS NEW > News: what ever it is > PDate: 8/5/2013 > Expire Date: 8/12/2013 > > In the sheet output , Now I want to keep two blank cell & that is > merged after the text “Expire Date:” onwards > > Tra Code: RNSPIN > News: what ever it is > Pdate: 8/5/2013 > Expire Date: 8/12/2013 > > > Tra Code: BD NEW > News: what ever it is > Pdate: 8/5/2013 > Expire Date: 8/12/2013 > > > Tra Code: CS NEW > News: what ever it is > Pdate: 8/5/2013 > Expire Date: 8/12/2013 > > here is an example code that works for two blank cell > > Sub fff() > 'by lancer102rus > With ActiveSheet > lrow& = .Cells(.Rows.Count, "A").End(xlUp).Row > > For i = lrow - 1 To 1 Step -1 > If .Cells(i, "A") = "Expire Date:" Then > .Cells(i + 1, "A").EntireRow.Insert > .Cells(i + 1, "A").EntireRow.Insert > 'Range("A5:B6").Merge ' here i assumed that cell > A5:B6 was being blank. so it will be merge > 'Range("A11:B12").Merge ' as per logic next blank > cell is A11:B12" so cell A11:B12 will be merge > '-------------------- > '-------------------- > ' like wise till last row > > End If > Next i > End With > End Sub > > please check the attachment > > -- > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s > =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ > https://www.facebook.com/discussexcel > > FORUM RULES > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will not get quick attention or may not be answered. > 2) Don't post a question in the thread of another member. > 3) Don't post questions regarding breaking or bypassing any security > measure. > 4) Acknowledge the responses you receive, good or bad. > 5) Jobs posting is not allowed. > 6) Sharing copyrighted material and their links is not allowed. > > NOTE : Don't ever post confidential data in a workbook. Forum owners and > members are not responsible for any loss. > --- > You received this message because you are subscribed to the Google Groups > "MS EXCEL AND VBA MACROS" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to excel-macros+unsubscr...@googlegroups.com. > To post to this group, send email to excel-macros@googlegroups.com. > Visit this group at http://groups.google.com/group/excel-macros. > For more options, visit https://groups.google.com/d/optout. > -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
blank cell _merge_new.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12