Is there a way that I can control a row's height with programming? (or cell contents)

L

lseyer

I'm trying to control the height of a row determined by the contents o
a cell...

I can't seem to find a function or command that is available to me t
allow this.

Alternatively, is there a way that I can 'hide' or 'unhide' a row base
on a cell's contents?

Best to you!

Larry Seye
 
A

Anders Silven

Larry,

Some ideas,

To change row height:
'*****
Sub test45()
With ActiveSheet.Rows(3)
If .Cells(1) = "Q2" Then
.RowHeight = 25
Else
.RowHeight = 12.75
End If
End With
End Sub
'*****

To hide the row:
'*****
Sub test45B()
With ActiveSheet.Rows(3)
If .Cells(1) = "Q2" Then
.Hidden = True
End If
End With
End Sub
'*****

HTH
Anders Silven
 
L

lseyer

Thanks for your help!

Here is the code that worked for me...

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

For rwindex = 1 To 26
If Worksheets("Items").Cells(rwindex, 1).Value = "0" Then
Worksheets("Items").Rows(rwindex).Hidden = True
Else
Worksheets("Items").Rows(rwindex).Hidden = False
End If
Next rwindex

End Su
 
A

Anders Silven

And to save some typing,

'*****
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim rwindex
With Worksheets("Items")
For rwindex = 1 To 26
If .Cells(rwindex, 1).Value = "0" Then
.Rows(rwindex).Hidden = True
Else
.Rows(rwindex).Hidden = False
End If
Next rwindex
End With
End Sub
'*****

Regards,
Anders Silven
 
Top