Row Height-expand if text wraps in a cell

[Selah West]

I have a worksheet that has a comments column that is formatted to wrap text
if needed for each cell. My problem is I need the row to automatically
adjust to the height of what ever is entered in that cell. I want to be able
to use merged cells. Is there a VBA event code to make this happen?

Using Excel 2007

 

[JLGWhiz]

Maybe on the menu bar click Format>Row>Autofit

 

[Selah West]

I have merged cells, so it disables Autofit. I would like to know if there
is a way to use atuofit and have merged cells.

 

[Gord Dibben]

Row Autofit will not work with merged cells unless you add event code to
your worksheet.

If you "MUST" use merged cells and you want to go that route...............

See google search thread for code by Greg Wilson. Watch out for word wrap
in the URL which is all one line.

http://groups.google.com/group/micr...60cbeb27874?lnk=st&q=&rnum=4#ca1c160cbeb27874


Gord Dibben MS Excel MVP

 

[Selah West]

Gord,

Thank you for your help! There's only one thing...I have attached two codes,
the one you gave me and I have also used a code which is the following:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
Application.EnableEvents = False
If Target.Value <> "" Then
Target.Offset(, 1).Value = Now
Else
Target.Offset(, 1).Value = ""
End If
Application.EnableEvents = True
End If
End Sub

Now, when I type something in my cells, I get this "Microsoft Visual Basic
Compile error: Ambiguous name detected: Worksheet_Change. These code work
individually but not together...any suggestions?

 

[Gord Dibben]

You cannot have two events of the same type in a worksheet module.

Where are the merged cells?

Perhaps you could define a target range for the autofit code to run on that
is separate from the column 7 target range.

Then you could combine into one change event.

OR............get rid of those crappy problem-causing merged cells.

Can you use center across selection instead?


Gord

 

[PennyM]

Hi Gord,
I am working with Selah on this worksheet. What I did was removed the
merged cells as you suggested. I then entered in some text in Row 44 Column
B, highlighed the cells that I wanted this text to be in (column B through G)
r-clicked selected format cells, Alignment, selected center across selection.
It worked perfectly. Thanks.

However, I am not sure how many rows a user will be inputting (could only be
Row 44 or it could be from 44-100) is there a way to incorporate some
additional code to achieve this formating as well as the code that is statted
below? I would also need the NOW date to show up in Column H for this as
well.

Does this make sense and/or is it possible?

Penny

 

[Gord Dibben]

Maybe this?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range(Target, Cells(Target.Row, "G"))
If Target.Column = 2 Then
Application.EnableEvents = False
With Target
If .Value <> "" Then
.Offset(, 6).Value = Now
Else
.Offset(, 6).Value = ""
End If
End With
Application.EnableEvents = True
rng.HorizontalAlignment = xlCenterAcrossSelection
End If
End Sub


Gord

 

[PennyM]

That worked perfect, thanks.

Now that I have gotten that working, how do I make it so once somebody has
entered something in those cells they can't delete or edit it once the hit
the tab/enter key?

 

[PennyM]

Yikes, actually came into a glitch w/that code... these changes are made for
the whole worksheet and I only want it to be done from row 44 to the end of
the worksheet.

Let me try to explain, this is a Juvenile Center Daily Log worksheet. So a
detention officer will put in the name of the juvenile, which cell they are
staying in, what level they are, violation... and last entry they would make
on them is in the comments field. Once they enter any information on that
row the date (column H) would need to be dated NOW (which would need to be
protected).

Further down in this worksheet is a Shift Summary section (this is the last
code that you provided me with) . If a officer enters any information in
this field it should center accross column B through G and the NOW date must
end up in column H too.

Perhaps I need to make 2 different range names one for the juvenile and one
for the shift summary in order for this to work. I have no idea what I need
to do in the code to get this working.

I hope I explained this better for you.
Penny

 

[Selah West]

Yikes, actually came into a glitch w/that code... these changes are made for
the whole worksheet and I only want it to be done from row 44 to the end of
the worksheet.

Let me try to explain, this is a Juvenile Center Daily Log worksheet. So a
detention officer will put in the name of the juvenile, which cell they are
staying in, what level they are, violation... and last entry they would make
on them is in the comments field. Once they enter any information on that
row the date (column H) would need to be dated NOW (which would need to be
protected).

Further down in this worksheet is a Shift Summary section (this is the last
code that you provided me with) . If a officer enters any information in
this field it should center accross column B through G and the NOW date must
end up in column H too.

Perhaps I need to make 2 different range names one for the juvenile and one
for the shift summary in order for this to work. I have no idea what I need
to do in the code to get this working.

I hope I explained this better for you.

 

[Selah West]

Anyone with any ideas on this???

Yikes, actually came into a glitch w/that code... these changes are made
for

the whole worksheet and I only want it to be done from row 44 to the end
of

the worksheet.

Let me try to explain, this is a Juvenile Center Daily Log worksheet. So
a

detention officer will put in the name of the juvenile, which cell they
are

staying in, what level they are, violation... and last entry they would
make

on them is in the comments field. Once they enter any information on that

row the date (column H) would need to be dated NOW (which would need to be


Further down in this worksheet is a Shift Summary section (this is the
last

code that you provided me with) . If a officer enters any information in

this field it should center accross column B through G and the NOW date
must

end up in column H too.

Perhaps I need to make 2 different range names one for the juvenile and
one

 

[Gord Dibben]

Selah

I find it very difficult to read through this thread and see what has been
done. Too many blank lines and headers.

Could you please post the code you are using and what your needs are again.




Thanks, Gord