Expand cell height to match textbox

[Mcfg007]

How can I get the cells to expand with the size of a texbox. I am entering text and the Activex texbox is expanding with Multiple lines accordingly to the text, but after a period goes over other fields, How can I get the field cells to expand?

 

[Mcfg007]

Perhaps something like this:-

Private Sub TextBox1_Change()
With TextBox1
    .AutoSize = True
    .MultiLine = True
    .WordWrap = True
    .TopLeftCell.RowHeight = TextBox1.Height
    .Width = 100 'Set as required
End With
End Sub

My textbox is in row 19 D to I

will this code work in the same way?

 

[MickG]

I imagine so, Just alter the textbox width to an appropriate size (Like 400)
Its not the prettiest but it seems to work !!

 

[Mcfg007]

My textbox is in row 19 D to I

will this code work in the same way?

That does seam to work, any other suggestion? Anyone?

 

[Mcfg007]

I imagine so, Just alter the textbox width to an appropriate size (Like 400)
Its not the prettiest but it seems to work !!

I meant to say, that this code does not seam to work. Any other suggestions? Anyone?
The question is how do I get a cell or a range of cells where a box is placed, to expand in height accordingly to the height of the text box once text is entered.

 

[MickG]

See if this example works for you !!!
https://app.box.com/s/2ff3wmqw6n1kv40wjd0jzolzzkzn5x7t

 

[Mcfg007]

See if this example works for you !!!

https://app.box.com/s/2ff3wmqw6n1kv40wjd0jzolzzkzn5x7t

Superb mate! It works perfectly. Many thanks!

 

[Mcfg007]

See if this example works for you !!!
https://app.box.com/s/2ff3wmqw6n1kv40wjd0jzolzzkzn5x7t

It worked for the first TexbBox1 but for the second I had the code as follows but it didn't work. What am I doing wrong? Shows an error on lien .TopLeftCell of the bottom code for TexbBox2
Option Explicit
Private Sub TextBox1_Change()
With TextBox1
.AutoSize = True
.MultiLine = True
.WordWrap = True
.TopLeftCell.RowHeight = TextBox1.Height
.Width = 300 'Set as required
End With
End Sub

Private Sub TextBox2_Change()
With TextBox2
.AutoSize = True
.MultiLine = True
.WordWrap = True
.TopLeftCell.RowHeight = TextBox2.Height
.Width = 300 'Set as required
End With
End Sub

 

[MickG]

What cell (address) is textbox2 on ???

 

[Mcfg007]

What cell (address) is textbox2 on ???

Row 31 between D and H

 

[MickG]

I've just tried with another "TextBox" and I also have problems. I think it just the general Instability of ActiveX controls in sheets.
I don't think I can resolve it unfortunately.