Center Across Selection Instead of Merging Cells

[Doflamingo]

Hi all,

Here is a way to display long statements in any Excel rows instead of using merged cells. It works perfectly ''horizontally''

Does anyone know how to adapt it ''vertically'' ? It drives me crazy ...

Here is the link

https://www.atlaspm.com/toms-tutori...er-across-selection-instead-of-merging-cells/

 

[mumps]

I don't believe that it works vertically.

 

[Doflamingo]

Hi @mumps

Indeed ... I've been looking for the answer for hours and it does not seem to exist yet any solution to that issue...

However I've found this on you tube where merged cells can be replaced by textbox

Here is the link

https://www.youtube.com/watch?v=ft-qFKDEORM

Does anyone have an idea how to put the textbox value from my userform in a textbox given that it's currently written in a cell in column A next to the 1st item of a listbox in column B.

Here is the code

With Sheets("Data")
   nextrow = .Range("B" & Rows.Count).End(xlUp).Row + 3
   .Range("A" & nextrow).Value = TextBox1.Value
   
   For b = 0 To ListBox1.ListCount - 1
      .Range("B" & nextrow) = ListBox1.List(b)
      nextrow = nextrow + 1
   Next b
   
   For c = 0 To ListBox2.ListCount - 1
   .Range("B" & nextrow) = ListBox2.List(c)
      nextrow = nextrow + 1
   Next c
   
End With

So the textbox in column A, representing the value of the userform textbox value, should have the same lenght of the cells in column B representing the items of listbox 1 and listbox 2

Any ideas ?

Yes, I recognize that what I ask is quite complex

 

[ClaireS]

No, I usually just widen the column and wrap the text, setting Auto Row Height. If you have to show the text over a vertical set of cells, there's no unmerged equivalent, so you have to merge.

 

[Doflamingo]

Hi @ClaireS

Indeed, I unfortunately think that's not possible to do it vertically...