| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
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? |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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? |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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? |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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? |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| VBA to hide a row in different worksheet | Excel Discussion (Misc queries) | |||
| d worksheet bar is being hide | Excel Worksheet Functions | |||
| how to hide worksheet using VB | Excel Worksheet Functions | |||
| Hide worksheet | Excel Worksheet Functions | |||
| How do I hide a worksheet in Excel and use a password to un-hide . | Excel Discussion (Misc queries) | |||
Hybrid Mode
