ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Text Box value to hide a row in another worksheet (https://www.excelbanter.com/excel-discussion-misc-queries/135379-text-box-value-hide-row-another-worksheet.html)

TDC

Text Box value to hide a row in another worksheet
 
I am trying to use a TextBox value to determine if a row on another
spreadsheet should be visible or not. I have the following:

Private Sub Worksheet_Change(ByVal Target As Range)

If Worksheets("Input Page").TB21.Value = 0 Then
Worksheets("Summary Report").Rows(19).EntireRow.Hidden = True
Else
Worksheets("Summary Report").Rows(19).EntireRow.Hidden = False
End If
End Sub

It works if I manually override the value in the TextBox's linked cell; say
AC49, but will not if I simply change the value in the TextBox itself like I
would like the user to do.

Any suggestions?


FSt1

Text Box value to hide a row in another worksheet
 
hi,
The reason it doesn't work is because you are using the worksheet change
event.
this doesn't work on text boxes. in stead put the code in the text box
change event.
chick designright click text boxselect view code.

Private Sub TextBox1_Change()
If Worksheets("Sheet1").TextBox1.Value = 0 Then
Worksheets("Sheet2").Rows(19).EntireRow.Hidden = True
Else
Worksheets("Sheet2").Rows(19).EntireRow.Hidden = False
End If
End Sub

worked for me. i'm using xl

Regards
FSt1

"TDC" wrote:

I am trying to use a TextBox value to determine if a row on another
spreadsheet should be visible or not. I have the following:

Private Sub Worksheet_Change(ByVal Target As Range)

If Worksheets("Input Page").TB21.Value = 0 Then
Worksheets("Summary Report").Rows(19).EntireRow.Hidden = True
Else
Worksheets("Summary Report").Rows(19).EntireRow.Hidden = False
End If
End Sub

It works if I manually override the value in the TextBox's linked cell; say
AC49, but will not if I simply change the value in the TextBox itself like I
would like the user to do.

Any suggestions?


TDC

Text Box value to hide a row in another worksheet
 
THANK YOU FSt1. You don't know how long I have been trying to figure that
out and been looking at the round end. The fix was actually too easy once
you showed it to me. Again, thank you.

"FSt1" wrote:

hi,
The reason it doesn't work is because you are using the worksheet change
event.
this doesn't work on text boxes. in stead put the code in the text box
change event.
chick designright click text boxselect view code.

Private Sub TextBox1_Change()
If Worksheets("Sheet1").TextBox1.Value = 0 Then
Worksheets("Sheet2").Rows(19).EntireRow.Hidden = True
Else
Worksheets("Sheet2").Rows(19).EntireRow.Hidden = False
End If
End Sub

worked for me. i'm using xl

Regards
FSt1

"TDC" wrote:

I am trying to use a TextBox value to determine if a row on another
spreadsheet should be visible or not. I have the following:

Private Sub Worksheet_Change(ByVal Target As Range)

If Worksheets("Input Page").TB21.Value = 0 Then
Worksheets("Summary Report").Rows(19).EntireRow.Hidden = True
Else
Worksheets("Summary Report").Rows(19).EntireRow.Hidden = False
End If
End Sub

It works if I manually override the value in the TextBox's linked cell; say
AC49, but will not if I simply change the value in the TextBox itself like I
would like the user to do.

Any suggestions?


TDC

Text Box value to hide a row in another worksheet
 
How can I change the following to hide the row if the textbox is blank or zero?

Private Sub TextBox21_Change()
If Worksheets("Input Page").TextBox21.Value = 0 Then
Worksheets("Summary Report").Rows(19).EntireRow.Hidden = True
Else
Worksheets("Summary Report").Rows(19).EntireRow.Hidden = False
End If
End Sub

"TDC" wrote:

THANK YOU FSt1. You don't know how long I have been trying to figure that
out and been looking at the round end. The fix was actually too easy once
you showed it to me. Again, thank you.

"FSt1" wrote:

hi,
The reason it doesn't work is because you are using the worksheet change
event.
this doesn't work on text boxes. in stead put the code in the text box
change event.
chick designright click text boxselect view code.

Private Sub TextBox1_Change()
If Worksheets("Sheet1").TextBox1.Value = 0 Then
Worksheets("Sheet2").Rows(19).EntireRow.Hidden = True
Else
Worksheets("Sheet2").Rows(19).EntireRow.Hidden = False
End If
End Sub

worked for me. i'm using xl

Regards
FSt1

"TDC" wrote:

I am trying to use a TextBox value to determine if a row on another
spreadsheet should be visible or not. I have the following:

Private Sub Worksheet_Change(ByVal Target As Range)

If Worksheets("Input Page").TB21.Value = 0 Then
Worksheets("Summary Report").Rows(19).EntireRow.Hidden = True
Else
Worksheets("Summary Report").Rows(19).EntireRow.Hidden = False
End If
End Sub

It works if I manually override the value in the TextBox's linked cell; say
AC49, but will not if I simply change the value in the TextBox itself like I
would like the user to do.

Any suggestions?


FSt1

Text Box value to hide a row in another worksheet
 
hi,
just add another if. something like this...
Private Sub TextBox1_Change()
If Worksheets("Sheet1").TextBox1.Value = 0 Then
Worksheets("Sheet2").Rows(19).EntireRow.Hidden = True
Else
If Worksheets("sheet1").TextBox1.Value = "" Then
Worksheets("Sheet2").Rows(19).EntireRow.Hidden = True
Else
Worksheets("Sheet2").Rows(19).EntireRow.Hidden = False
End If
End If
End Sub

worked for me. i'm using xp.
regards
FSt1

"TDC" wrote:

How can I change the following to hide the row if the textbox is blank or zero?

Private Sub TextBox21_Change()
If Worksheets("Input Page").TextBox21.Value = 0 Then
Worksheets("Summary Report").Rows(19).EntireRow.Hidden = True
Else
Worksheets("Summary Report").Rows(19).EntireRow.Hidden = False
End If
End Sub

"TDC" wrote:

THANK YOU FSt1. You don't know how long I have been trying to figure that
out and been looking at the round end. The fix was actually too easy once
you showed it to me. Again, thank you.

"FSt1" wrote:

hi,
The reason it doesn't work is because you are using the worksheet change
event.
this doesn't work on text boxes. in stead put the code in the text box
change event.
chick designright click text boxselect view code.

Private Sub TextBox1_Change()
If Worksheets("Sheet1").TextBox1.Value = 0 Then
Worksheets("Sheet2").Rows(19).EntireRow.Hidden = True
Else
Worksheets("Sheet2").Rows(19).EntireRow.Hidden = False
End If
End Sub

worked for me. i'm using xl

Regards
FSt1

"TDC" wrote:

I am trying to use a TextBox value to determine if a row on another
spreadsheet should be visible or not. I have the following:

Private Sub Worksheet_Change(ByVal Target As Range)

If Worksheets("Input Page").TB21.Value = 0 Then
Worksheets("Summary Report").Rows(19).EntireRow.Hidden = True
Else
Worksheets("Summary Report").Rows(19).EntireRow.Hidden = False
End If
End Sub

It works if I manually override the value in the TextBox's linked cell; say
AC49, but will not if I simply change the value in the TextBox itself like I
would like the user to do.

Any suggestions?



All times are GMT +1. The time now is 05:59 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com