Merge and centre current row with next blank row if value is "Open" in column "A". VBA Program

[Akash030193]

I want to Merge and centre current row (row 2) with next blank row (row 3) if value is "Open". Similarly for other rows (6-7, 8-9, 10-11 etc.)

Can you please provide any suitable VBA Program?

	A	B
1	Status	remark
2	Open
3
4	Close
5	Close
6	Open
7
8	Open
9
10	Open
11
12	Close

<tbody>
</tbody>

 

[Rick Rothstein]

@Akash030193...

Will there ever be any blanks in Column A under the word "Close"? In other words, if I see a blank cell in Column A, can I assume the the first cell with text above it will always contain the word "Open" as your posted example seems to show?

 

[Akash030193]

NO. I think my interpretation is difficult to understand. Let me explain you once again with new example:

Can you make me a program that can merge "open" comment with next blank cell, even if the cell with "open" valve is merged with end number of rows, or not.

Please note C column is for remark only

	A	B	C remark
1	Open	as	row 1-2 already merged
2		ad	row 1-2 already merged
3		af	This row (cell A3) To be merged with 1-2 (Cell A1-A2)
4	Open	as
5		df	This row (cell A5) To be merged with 4 (Cell A4)
6	Close	vr
7	Open	vf	row 7-8-9-10 already merged
8			row 7-8-9-10 already merged
9			row 7-8-9-10 already merged
10			row 7-8-9-10 already merged
11			This row (cell A11) To be merged with 7-8-9-10 (Cell A7 to A10)
12	Close
13	Close
14	Close
15	Close
16	Close
17	Close
18	Close

<tbody>
</tbody>

 

[Akash030193]

Yes, you are right. Currently I am working as a client in engineering company. When I receive any response from vendor against our comment, if vendor has not incorporated our comment then we add row, merge row, and add comment in respective column with "open" remark. If vendor has incorporated the comment then we put "close" remark only.

I have got program to add row where open comment is found, but I am looking for a program where I can merge the next blank row with Open remark comments.

 

[Rick Rothstein]

Yes, you are right.

This code should handle all merges for you (whether the first time or when additional cells have to be added to existing merged cells). Give it a try and let me know...

Sub OpenMerge()
  Dim Ar As Range
  Columns("A").UnMerge
  For Each Ar In Intersect([A:A], ActiveSheet.UsedRange).SpecialCells(xlBlanks).Areas
    Ar(1).Offset(-1).Resize(Ar.Count + 1).Merge
  Next
End Sub

 

[DanteAmor]

Thanks Michael,

Your program is working well. But further to your macro program. I need your help on below query!
I want to Merge and centre current merged row (row 2-3) with next blank row (row 4) if value is "Open" (merged row 2-3). Similarly for other rows (6-7, 8-9-10-11 etc.).

In short, I need to merge "open" comment with next blank cell even if the cell with "open" valve is merged or not.

Can you please provide any suitable VBA Program?

	A	B
1	Open
2	Open (row 2 and 3 are merged)
3	Open (row 2 and 3 are merged)
4
5	Close
6	Open
7
8	Open (row 8-9-10 merged)
9	Open (row 8-9-10 merged)
10	Open (row 8-9-10 merged)
11
12	close
13	close
14	close

<tbody>
</tbody>

Thanks in advance

this is what you asked for and that makes my macro, but if you are going to change the rules at every moment, the same macro will not work for the new rules.

 

[DanteAmor]

Then, try this please.

And in case there are blank spaces under "close", it also works.

Sub merge_cell_2()
    Dim c As Range, ini As Long, wopen As Boolean
    
    ini = 1
    wopen = False
    For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
        If UCase(c.Value) = UCase("Open") Then
            If wopen <> False Then Range("A" & ini & ":A" & c.Row - 1).Merge
            ini = c.Row
            wopen = True
        Else
            If c.Value <> "" And ini <> 0 Then
                Range("A" & ini & ":A" & c.Row - 1).Merge
                wopen = False
                ini = 0
            End If
        End If
    Next
End Sub

 

[Akash030193]

Dear DanteAmor,

Thanks you very very much!

Your program is working well, it will reduce my efforts in merging cells with "Open" comment especially. Thanks you once again

Regards,
Akash Patel

 

[Akash030193]

Rick Rothstein,

Thanks you very very much!

Your program is also working well, it will reduce my efforts in merging cells with "Open" comment especially. Thanks you once again

Regards,
Akash Patel

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.

 

[Akash030193]

I have got the solution. Can you please advise how to close this subject post that I created. Any suggestion..