| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
userform open when sheet activated
I would like to open a userform (WelcomeWindow) when the worksheet
(Criteria) is active. I would also like to place a checkbox on userform that allows a user to check it to indicate they no longer want the userform to appear. thanks adk |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
userform open when sheet activated
where do want store whether the user wants the welcome window to show?
on a hidden sheet in a particular cell.( cell value ( true or False)? ADK wrote: I would like to open a userform (WelcomeWindow) when the worksheet (Criteria) is active. I would also like to place a checkbox on userform that allows a user to check it to indicate they no longer want the userform to appear. thanks adk |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
userform open when sheet activated
A93 of the Criteria sheet
"stevebriz" wrote in message ups.com... where do want store whether the user wants the welcome window to show? on a hidden sheet in a particular cell.( cell value ( true or False)? ADK wrote: I would like to open a userform (WelcomeWindow) when the worksheet (Criteria) is active. I would also like to place a checkbox on userform that allows a user to check it to indicate they no longer want the userform to appear. thanks adk |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
userform open when sheet activated
Try this
In your useform1 ( assuming this is you welecome form) put Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Sheets("Criteria").Range("A93").Value = "SHOW" Else Sheets("Criteria").Range("A93").Value = "" End If End Sub Then in This Workbook put Private Sub Workbook_Activate() If Sheets("Criteria").Range("A93").Value = "SHOW" Then UserForm1.Show Else End If End Sub ADK wrote: A93 of the Criteria sheet "stevebriz" wrote in message ups.com... where do want store whether the user wants the welcome window to show? on a hidden sheet in a particular cell.( cell value ( true or False)? ADK wrote: I would like to open a userform (WelcomeWindow) when the worksheet (Criteria) is active. I would also like to place a checkbox on userform that allows a user to check it to indicate they no longer want the userform to appear. thanks adk |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
userform open when sheet activated
I get a runtime error '424'
Object required When going to Debug, the following line is highlighted: If CheckBox1.Value = True Then ?? -ADK "stevebriz" wrote in message oups.com... Try this In your useform1 ( assuming this is you welecome form) put Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Sheets("Criteria").Range("A93").Value = "SHOW" Else Sheets("Criteria").Range("A93").Value = "" End If End Sub Then in This Workbook put Private Sub Workbook_Activate() If Sheets("Criteria").Range("A93").Value = "SHOW" Then UserForm1.Show Else End If End Sub ADK wrote: A93 of the Criteria sheet "stevebriz" wrote in message ups.com... where do want store whether the user wants the welcome window to show? on a hidden sheet in a particular cell.( cell value ( true or False)? ADK wrote: I would like to open a userform (WelcomeWindow) when the worksheet (Criteria) is active. I would also like to place a checkbox on userform that allows a user to check it to indicate they no longer want the userform to appear. thanks adk |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
userform open when sheet activated
ok I fixed it.....had to put the code in module and made the line:
If Sheets("Criteria").CheckBox1.Value = True Then One other problem is that the cell does not blank out if checkbox is unchecked -adk "ADK" wrote in message ... I get a runtime error '424' Object required When going to Debug, the following line is highlighted: If CheckBox1.Value = True Then ?? -ADK "stevebriz" wrote in message oups.com... Try this In your useform1 ( assuming this is you welecome form) put Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Sheets("Criteria").Range("A93").Value = "SHOW" Else Sheets("Criteria").Range("A93").Value = "" End If End Sub Then in This Workbook put Private Sub Workbook_Activate() If Sheets("Criteria").Range("A93").Value = "SHOW" Then UserForm1.Show Else End If End Sub ADK wrote: A93 of the Criteria sheet "stevebriz" wrote in message ups.com... where do want store whether the user wants the welcome window to show? on a hidden sheet in a particular cell.( cell value ( true or False)? ADK wrote: I would like to open a userform (WelcomeWindow) when the worksheet (Criteria) is active. I would also like to place a checkbox on userform that allows a user to check it to indicate they no longer want the userform to appear. thanks adk |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
userform open when sheet activated
try
replacing Sheets("Criteria").Range("A93").Value = "" with If Sheets("Criteria").CheckBox1.Value = False then Sheets("Criteria").Range("A93").Value = "" Make sure the sheet is not protected. ADK wrote: ok I fixed it.....had to put the code in module and made the line: If Sheets("Criteria").CheckBox1.Value = True Then One other problem is that the cell does not blank out if checkbox is unchecked -adk "ADK" wrote in message ... I get a runtime error '424' Object required When going to Debug, the following line is highlighted: If CheckBox1.Value = True Then ?? -ADK "stevebriz" wrote in message oups.com... Try this In your useform1 ( assuming this is you welecome form) put Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Sheets("Criteria").Range("A93").Value = "SHOW" Else Sheets("Criteria").Range("A93").Value = "" End If End Sub Then in This Workbook put Private Sub Workbook_Activate() If Sheets("Criteria").Range("A93").Value = "SHOW" Then UserForm1.Show Else End If End Sub ADK wrote: A93 of the Criteria sheet "stevebriz" wrote in message ups.com... where do want store whether the user wants the welcome window to show? on a hidden sheet in a particular cell.( cell value ( true or False)? ADK wrote: I would like to open a userform (WelcomeWindow) when the worksheet (Criteria) is active. I would also like to place a checkbox on userform that allows a user to check it to indicate they no longer want the userform to appear. thanks adk |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
userform open when sheet activated
everything works except when the checkbox is checked or uncheck...it does
not change the cell value. I can manual change the cell to "" or SHOW ....which does work correctly. Seems that the checkbox being changed does not change the cell value ?? -adk (BTW, I am using Excel 2000) "stevebriz" wrote in message ups.com... try replacing Sheets("Criteria").Range("A93").Value = "" with If Sheets("Criteria").CheckBox1.Value = False then Sheets("Criteria").Range("A93").Value = "" Make sure the sheet is not protected. ADK wrote: ok I fixed it.....had to put the code in module and made the line: If Sheets("Criteria").CheckBox1.Value = True Then One other problem is that the cell does not blank out if checkbox is unchecked -adk "ADK" wrote in message ... I get a runtime error '424' Object required When going to Debug, the following line is highlighted: If CheckBox1.Value = True Then ?? -ADK "stevebriz" wrote in message oups.com... Try this In your useform1 ( assuming this is you welecome form) put Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Sheets("Criteria").Range("A93").Value = "SHOW" Else Sheets("Criteria").Range("A93").Value = "" End If End Sub Then in This Workbook put Private Sub Workbook_Activate() If Sheets("Criteria").Range("A93").Value = "SHOW" Then UserForm1.Show Else End If End Sub ADK wrote: A93 of the Criteria sheet "stevebriz" wrote in message ups.com... where do want store whether the user wants the welcome window to show? on a hidden sheet in a particular cell.( cell value ( true or False)? ADK wrote: I would like to open a userform (WelcomeWindow) when the worksheet (Criteria) is active. I would also like to place a checkbox on userform that allows a user to check it to indicate they no longer want the userform to appear. thanks adk |
|
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
userform open when sheet activated
This is strange...is cell locked...or is you checkbox not checkbox1??
I tested this code here before sending and it works fine .. try this put msgbox checkbox1.value directly under Private Sub CheckBox1_Click() and lets see if this comes up with a value...of the checkbox1 You can email your spreadsheet if you want me to take a look |
|
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
userform open when sheet activated
not sure if this is the issue ...I want the checkbox on the form not in the
sheet "Criteria" ....I currently have the checkbox1 on my welcome form adk "ADK" wrote in message ... everything works except when the checkbox is checked or uncheck...it does not change the cell value. I can manual change the cell to "" or SHOW ...which does work correctly. Seems that the checkbox being changed does not change the cell value ?? -adk (BTW, I am using Excel 2000) "stevebriz" wrote in message ups.com... try replacing Sheets("Criteria").Range("A93").Value = "" with If Sheets("Criteria").CheckBox1.Value = False then Sheets("Criteria").Range("A93").Value = "" Make sure the sheet is not protected. ADK wrote: ok I fixed it.....had to put the code in module and made the line: If Sheets("Criteria").CheckBox1.Value = True Then One other problem is that the cell does not blank out if checkbox is unchecked -adk "ADK" wrote in message ... I get a runtime error '424' Object required When going to Debug, the following line is highlighted: If CheckBox1.Value = True Then ?? -ADK "stevebriz" wrote in message oups.com... Try this In your useform1 ( assuming this is you welecome form) put Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Sheets("Criteria").Range("A93").Value = "SHOW" Else Sheets("Criteria").Range("A93").Value = "" End If End Sub Then in This Workbook put Private Sub Workbook_Activate() If Sheets("Criteria").Range("A93").Value = "SHOW" Then UserForm1.Show Else End If End Sub ADK wrote: A93 of the Criteria sheet "stevebriz" wrote in message ups.com... where do want store whether the user wants the welcome window to show? on a hidden sheet in a particular cell.( cell value ( true or False)? ADK wrote: I would like to open a userform (WelcomeWindow) when the worksheet (Criteria) is active. I would also like to place a checkbox on userform that allows a user to check it to indicate they no longer want the userform to appear. thanks adk |
|
#11
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
userform open when sheet activated
nevermind ...I fixed it had to also put code in checkbox code
Thanks for your help stevebriz -ADK "ADK" wrote in message ... not sure if this is the issue ...I want the checkbox on the form not in the sheet "Criteria" ....I currently have the checkbox1 on my welcome form adk "ADK" wrote in message ... everything works except when the checkbox is checked or uncheck...it does not change the cell value. I can manual change the cell to "" or SHOW ...which does work correctly. Seems that the checkbox being changed does not change the cell value ?? -adk (BTW, I am using Excel 2000) "stevebriz" wrote in message ups.com... try replacing Sheets("Criteria").Range("A93").Value = "" with If Sheets("Criteria").CheckBox1.Value = False then Sheets("Criteria").Range("A93").Value = "" Make sure the sheet is not protected. ADK wrote: ok I fixed it.....had to put the code in module and made the line: If Sheets("Criteria").CheckBox1.Value = True Then One other problem is that the cell does not blank out if checkbox is unchecked -adk "ADK" wrote in message ... I get a runtime error '424' Object required When going to Debug, the following line is highlighted: If CheckBox1.Value = True Then ?? -ADK "stevebriz" wrote in message oups.com... Try this In your useform1 ( assuming this is you welecome form) put Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Sheets("Criteria").Range("A93").Value = "SHOW" Else Sheets("Criteria").Range("A93").Value = "" End If End Sub Then in This Workbook put Private Sub Workbook_Activate() If Sheets("Criteria").Range("A93").Value = "SHOW" Then UserForm1.Show Else End If End Sub ADK wrote: A93 of the Criteria sheet "stevebriz" wrote in message ups.com... where do want store whether the user wants the welcome window to show? on a hidden sheet in a particular cell.( cell value ( true or False)? ADK wrote: I would like to open a userform (WelcomeWindow) when the worksheet (Criteria) is active. I would also like to place a checkbox on userform that allows a user to check it to indicate they no longer want the userform to appear. thanks adk |
|
#12
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
userform open when sheet activated
This will be the issue I think... it needs to say
userform1.checkbox1.value or XXXXX.Checkbox1.value depending on the name of your form. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Load VBA on Activated Sheet | Excel Programming | |||
| Error sheet when macro's are not activated | Excel Programming | |||
| getting activated userform name | Excel Programming | |||
| Add a button to a sheet to open a userform | Excel Discussion (Misc queries) | |||
| message/dialog box auto open when excel file is activated | Excel Discussion (Misc queries) | |||
Linear Mode
