Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Assign Cell "B5" Value to Macro (activation function)
Hi, Everyone,
I want to prepare one function that allows user to run specific macro when they enter the different numbers in to "B5" SUPPOSE: if user Enter 777 into B5, then Run Macro "Rows_Hide" if user Enter 888 into B5, then Run Macro "Rows_Show" like this........... I already feed 777 into B5, then the Macro "Rows_Hide" will run, when the worksheet activated. then the user feed 888 into B5, then the other Macro will run and shows all the Rows in the sheet. Sub Rows_Hide() Sheets("sheet2").Rows("25:65536").EntireRow.Hidden = True End Sub Sub Rows_Show() Sheets("sheet2").Rows("25:65536").EntireRow.Hidden = False End Sub And I also want to restrict the B5 for 777 and 888 digit only. the Sheet2 is very hidden sheet. I made a userform to change the B5 into Sheet2 by Textbox, how I restrict the Textbox1 for only for 777 and 888. I hope that you understand my problem. JUSTIFICATION FOR THIS FUNCTION: Actually I made a small vba project, for all public, and I will share this to all peoples, initially they will have this worksheet only for 25 rows data entry, once they are satisfied with this program, then they will send me a mail for activation for unlimited access, then I will send 888 digit for activation of this workbook. Thank you and best regard. Shahzad Madinah |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Assign Cell "B5" Value to Macro (activation function)
You could do it with the worksheet change event code. Right click your
worksheet tab, view code and paste this in Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub If Target.Address = "$B$5" Then Select Case Target.Value Case Is = 777 Rows_Hide Case Is = 888 Rows_Show Case Else End Select End If End Sub Mike "Shazi" wrote: Hi, Everyone, I want to prepare one function that allows user to run specific macro when they enter the different numbers in to "B5" SUPPOSE: if user Enter 777 into B5, then Run Macro "Rows_Hide" if user Enter 888 into B5, then Run Macro "Rows_Show" like this........... I already feed 777 into B5, then the Macro "Rows_Hide" will run, when the worksheet activated. then the user feed 888 into B5, then the other Macro will run and shows all the Rows in the sheet. Sub Rows_Hide() Sheets("sheet2").Rows("25:65536").EntireRow.Hidden = True End Sub Sub Rows_Show() Sheets("sheet2").Rows("25:65536").EntireRow.Hidden = False End Sub And I also want to restrict the B5 for 777 and 888 digit only. the Sheet2 is very hidden sheet. I made a userform to change the B5 into Sheet2 by Textbox, how I restrict the Textbox1 for only for 777 and 888. I hope that you understand my problem. JUSTIFICATION FOR THIS FUNCTION: Actually I made a small vba project, for all public, and I will share this to all peoples, initially they will have this worksheet only for 25 rows data entry, once they are satisfied with this program, then they will send me a mail for activation for unlimited access, then I will send 888 digit for activation of this workbook. Thank you and best regard. Shahzad Madinah |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Assign Cell "B5" Value to Macro (activation function)
On Jul 30, 5:43*pm, Mike H wrote:
You could do it with the worksheet change event code. Right click your worksheet tab, view code and paste this in Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub If Target.Address = "$B$5" Then Select Case Target.Value * * Case Is = 777 * * * * Rows_Hide * * Case Is = 888 * * * * Rows_Show * * Case Else * * End Select End If End Sub Mike "Shazi" wrote: Hi, Everyone, I want to prepare one function that allows user to run specific macro when they enter the different numbers in to "B5" SUPPOSE: if user Enter 777 into B5, then Run Macro "Rows_Hide" if user Enter 888 into B5, then Run Macro "Rows_Show" like this........... I already feed 777 into B5, then the Macro "Rows_Hide" will run, when the worksheet activated. then the user feed 888 into B5, then the other Macro will run and shows all the Rows in the sheet. Sub Rows_Hide() * * Sheets("sheet2").Rows("25:65536").EntireRow.Hidden = True End Sub Sub Rows_Show() * * Sheets("sheet2").Rows("25:65536").EntireRow.Hidden = False End Sub And I also want to restrict the B5 for 777 and 888 digit only. the Sheet2 is very hidden sheet. *I made a userform to change the B5 into Sheet2 by Textbox, how I restrict the Textbox1 for only *for 777 and 888. I hope that you understand my problem. JUSTIFICATION FOR THIS FUNCTION: Actually I made a small vba project, for all public, and I will share this to all peoples, initially they will have this worksheet only for 25 rows data entry, once they are satisfied with this program, then they will send me a mail for activation for unlimited access, then I will send 888 digit for activation of this workbook. Thank you and best regard. Shahzad Madinah- Hide quoted text - - Show quoted text - Hi Mike H, Good Morning, I got your Function, its working Excellllllent. Exactly I needed that.... Thank you very much for your support. Regards. Shahzad Madinah |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
"assign macro" not an option from short menu | Excel Discussion (Misc queries) | |||
commnd button - when i rt click, "assign macro" isnt an option... | Excel Programming | |||
not getting the "assign macro" shortcut | Excel Programming | |||
"Assign Macro" is gone from menu | Excel Programming |