Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
AutoFit Row Size with Merged Cells
I need to add text from a Userform Textbox to a worksheet. Sometimes the
textbox may conatin a few sentences. I would like my code to put the textbox text into the merged cells, wrap the text to fit, and automatically adjust the row height. Is it possible to do this or is there an easier way? The text has to be contained between Col.C and Col.E. Sub AutoFitText() With ActiveCell 'ActiveCell = Range("B10") in this case '.....I have additional code here .Offset(30, 1).Value = " €¢ Comments: " & tbxComments With Range(.Offset(30, 1), .Offset(30, 3)) .Merge .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter .WrapText = True .Rows.EntireRow.AutoFit End With '.....I have additional code here as well End With Thanks in Advance, Ryan |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
AutoFit Row Size with Merged Cells
Sub AutoFitText()
set startcell = activecell With startcell .Offset(30, 1).Value = " €¢ Comments: " & tbxComments With Range(startcell.Offset(30, 1), startcell.Offset(30, 3)) .Merge .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter .WrapText = True .Rows.EntireRow.AutoFit End With End With "RyanH" wrote: I need to add text from a Userform Textbox to a worksheet. Sometimes the textbox may conatin a few sentences. I would like my code to put the textbox text into the merged cells, wrap the text to fit, and automatically adjust the row height. Is it possible to do this or is there an easier way? The text has to be contained between Col.C and Col.E. Sub AutoFitText() With ActiveCell 'ActiveCell = Range("B10") in this case '.....I have additional code here .Offset(30, 1).Value = " €¢ Comments: " & tbxComments With Range(.Offset(30, 1), .Offset(30, 3)) .Merge .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter .WrapText = True .Rows.EntireRow.AutoFit End With '.....I have additional code here as well End With Thanks in Advance, Ryan |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
AutoFit Row Size with Merged Cells
The code works fine but the part that autofits the row height. The row
height seems to remain the same and you can not see the rest of the text unless you manually adjust the row height. Is there anyother solutions to automatically adjust the row height? Thanks Ryan "Joel" wrote: Sub AutoFitText() set startcell = activecell With startcell .Offset(30, 1).Value = " €¢ Comments: " & tbxComments With Range(startcell.Offset(30, 1), startcell.Offset(30, 3)) .Merge .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter .WrapText = True .Rows.EntireRow.AutoFit End With End With "RyanH" wrote: I need to add text from a Userform Textbox to a worksheet. Sometimes the textbox may conatin a few sentences. I would like my code to put the textbox text into the merged cells, wrap the text to fit, and automatically adjust the row height. Is it possible to do this or is there an easier way? The text has to be contained between Col.C and Col.E. Sub AutoFitText() With ActiveCell 'ActiveCell = Range("B10") in this case '.....I have additional code here .Offset(30, 1).Value = " €¢ Comments: " & tbxComments With Range(.Offset(30, 1), .Offset(30, 3)) .Merge .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter .WrapText = True .Rows.EntireRow.AutoFit End With '.....I have additional code here as well End With Thanks in Advance, Ryan |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
AutoFit - Merged Cells | Excel Programming | |||
Autofit Merged cell Code is changing the format of my merged cells | Excel Discussion (Misc queries) | |||
Autofit on Merged Cells. | Excel Programming | |||
Row Autofit on Merged Cells | Excel Discussion (Misc queries) | |||
Autofit in Merged Cells? | Excel Discussion (Misc queries) |