Thread: .StandardHeight property

have you tried ...
X = Target.ROW + 3
???
--
Hope this helps.
If it does, please click the Yes button.
Thanks in advance for your feedback.
Gary Brown



"Brad E." wrote:

> Hi - I have a spreadsheet where a user can enter an integer from 1 to 9.
> Depending on the entry, a WorksheetChange() event hides/displays the
> immediate 9 rows below the entry.
>
> Case "$A$3" 'Using Select Target.Address
> X = Target.Value + 3
> With ActiveSheet
> For Y = 4 To 12
> If Y <= X Then
> .Rows(Y).RowHeight = .StandardHeight
> Else
> .Rows(Y).RowHeight = 0
> End If
> Next Y
> End With 'End Select
>
> Somehow, the .Standard Height is at zero and all 9 rows continually get set
> to a height of 0. (.StandardHeight) is a read-only argument, so I am not
> sure how this happened. Can anyone help me get this back to the 12.75 that
> it should be?
> --
> TIA, Brad E.

What size Standard Font do you show on the General Tab for the Tools/Options
dialog box (it controls the StandardHeight as far as I know)?

As for your code... I would not play with the RowHeight property; rather, I
would use the Hidden property for the Rows range. For example...

YourStartRow = 3
Rows(YourStartRow).Resize(9).Hidden = True

will hide Row 3 and the eight rows beneath it (for a total of nine hidden
rows). To show the rows, just assign False (instead of True) to the Rows
statement.

--
Rick (MVP - Excel)


"Brad E." <BradE@discussions.microsoft.com> wrote in message
news:E154AF3A-512E-4D09-83C1-468FC22B95C9@microsoft.com...
> Hi - I have a spreadsheet where a user can enter an integer from 1 to 9.
> Depending on the entry, a WorksheetChange() event hides/displays the
> immediate 9 rows below the entry.
>
> Case "$A$3" 'Using Select Target.Address
> X = Target.Value + 3
> With ActiveSheet
> For Y = 4 To 12
> If Y <= X Then
> .Rows(Y).RowHeight = .StandardHeight
> Else
> .Rows(Y).RowHeight = 0
> End If
> Next Y
> End With 'End Select
>
> Somehow, the .Standard Height is at zero and all 9 rows continually get
> set
> to a height of 0. (.StandardHeight) is a read-only argument, so I am not
> sure how this happened. Can anyone help me get this back to the 12.75
> that
> it should be?
> --
> TIA, Brad E.

This syntax works for me:

..Rows.UseStandardHeight = True

It sets the applicable rows to the default height. In your case it would
be:

Rows(Y).UseStandardHeight = True


"Brad E." <BradE@discussions.microsoft.com> wrote in message
news:E154AF3A-512E-4D09-83C1-468FC22B95C9@microsoft.com...
> Hi - I have a spreadsheet where a user can enter an integer from 1 to 9.
> Depending on the entry, a WorksheetChange() event hides/displays the
> immediate 9 rows below the entry.
>
> Case "$A$3" 'Using Select Target.Address
> X = Target.Value + 3
> With ActiveSheet
> For Y = 4 To 12
> If Y <= X Then
> .Rows(Y).RowHeight = .StandardHeight
> Else
> .Rows(Y).RowHeight = 0
> End If
> Next Y
> End With 'End Select
>
> Somehow, the .Standard Height is at zero and all 9 rows continually get
> set
> to a height of 0. (.StandardHeight) is a read-only argument, so I am not
> sure how this happened. Can anyone help me get this back to the 12.75
> that
> it should be?
> --
> TIA, Brad E.

The ROW number won't help. I want to show the number of rows directly under
cell $A$3 depending on the user-entered VALUE into $A$3. Thanks for the
thought, though.
-- Brad E.

"Gary Brown" wrote:

> have you tried ...
> X = Target.ROW + 3
> ???
> --
> Hope this helps.
> If it does, please click the Yes button.
> Thanks in advance for your feedback.
> Gary Brown
>
>
>
> "Brad E." wrote:
>
> > Hi - I have a spreadsheet where a user can enter an integer from 1 to 9.
> > Depending on the entry, a WorksheetChange() event hides/displays the
> > immediate 9 rows below the entry.
> >
> > Case "$A$3" 'Using Select Target.Address
> > X = Target.Value + 3
> > With ActiveSheet
> > For Y = 4 To 12
> > If Y <= X Then
> > .Rows(Y).RowHeight = .StandardHeight
> > Else
> > .Rows(Y).RowHeight = 0
> > End If
> > Next Y
> > End With 'End Select
> >
> > Somehow, the .Standard Height is at zero and all 9 rows continually get set
> > to a height of 0. (.StandardHeight) is a read-only argument, so I am not
> > sure how this happened. Can anyone help me get this back to the 12.75 that
> > it should be?
> > --
> > TIA, Brad E.

My Standard Font is Arial-10 and even after the reboot this morning, my rows
got hidden.

I have changed my coding to use the .Hidden feature, just like you
suggested. Now things are working great. Thanks a lot.
-- Brad E.


"Rick Rothstein" wrote:

> What size Standard Font do you show on the General Tab for the Tools/Options
> dialog box (it controls the StandardHeight as far as I know)?
>
> As for your code... I would not play with the RowHeight property; rather, I
> would use the Hidden property for the Rows range. For example...
>
> YourStartRow = 3
> Rows(YourStartRow).Resize(9).Hidden = True
>
> will hide Row 3 and the eight rows beneath it (for a total of nine hidden
> rows). To show the rows, just assign False (instead of True) to the Rows
> statement.
>
> --
> Rick (MVP - Excel)
>
>
> "Brad E." <BradE@discussions.microsoft.com> wrote in message
> news:E154AF3A-512E-4D09-83C1-468FC22B95C9@microsoft.com...
> > Hi - I have a spreadsheet where a user can enter an integer from 1 to 9.
> > Depending on the entry, a WorksheetChange() event hides/displays the
> > immediate 9 rows below the entry.
> >
> > Case "$A$3" 'Using Select Target.Address
> > X = Target.Value + 3
> > With ActiveSheet
> > For Y = 4 To 12
> > If Y <= X Then
> > .Rows(Y).RowHeight = .StandardHeight
> > Else
> > .Rows(Y).RowHeight = 0
> > End If
> > Next Y
> > End With 'End Select
> >
> > Somehow, the .Standard Height is at zero and all 9 rows continually get
> > set
> > to a height of 0. (.StandardHeight) is a read-only argument, so I am not
> > sure how this happened. Can anyone help me get this back to the 12.75
> > that
> > it should be?
> > --
> > TIA, Brad E.
>
> .
>