| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delette active sheet from form button
When I try to delete the active sheet with a button that I have on the
sheet I get an automation error. I assume it is because the button is firing the event and I am trying to delete the sheet that the button is on. Is there a way to do this? Any help would be appreciated Thanks TIM |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Delette active sheet from form button
Hi,
That wouldn't cause an automation error, the sheet & button are deleted. What else do you have in the module, post the code. Mike "TimSpangler" wrote: When I try to delete the active sheet with a button that I have on the sheet I get an automation error. I assume it is because the button is firing the event and I am trying to delete the sheet that the button is on. Is there a way to do this? Any help would be appreciated Thanks TIM |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Delette active sheet from form button
This is what I have in the button code:
' Sub to delete the current braced wall line Private Sub CmdBtn_DELBWL_Click() Application.DisplayAlerts = False If ActiveSheet.Name = "MASTER" Then MsgBox "MASTER Sheet can not be deleted", vbCritical, "BWL Sheet Delete Error!" Else ActiveSheet.Delete Application.DisplayAlerts = True End If End Sub And when the button is selected I get this: Run-time error '-2147221080 (800401a8)': Automation Error On Oct 9, 3:09*pm, Mike H wrote: Hi, That wouldn't cause an automation error, the sheet & button are deleted. What else do you have in the module, post the code. Mike "TimSpangler" wrote: When I try to delete the active sheet with a button that I have on the sheet I get an automation error. *I assume it is because the button is firing the event and I am trying to delete the sheet that the button is on. Is there a way to do this? *Any help would be appreciated Thanks TIM |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Delette active sheet from form button
Hi,
I can replicate this if the code is in a worksheet module. Put the sub in a general module and don't declare as private and attach the code to your button and things should be fine. Mike "TimSpangler" wrote: This is what I have in the button code: ' Sub to delete the current braced wall line Private Sub CmdBtn_DELBWL_Click() Application.DisplayAlerts = False If ActiveSheet.Name = "MASTER" Then MsgBox "MASTER Sheet can not be deleted", vbCritical, "BWL Sheet Delete Error!" Else ActiveSheet.Delete Application.DisplayAlerts = True End If End Sub And when the button is selected I get this: Run-time error '-2147221080 (800401a8)': Automation Error On Oct 9, 3:09 pm, Mike H wrote: Hi, That wouldn't cause an automation error, the sheet & button are deleted. What else do you have in the module, post the code. Mike "TimSpangler" wrote: When I try to delete the active sheet with a button that I have on the sheet I get an automation error. I assume it is because the button is firing the event and I am trying to delete the sheet that the button is on. Is there a way to do this? Any help would be appreciated Thanks TIM |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Delette active sheet from form button
Will do. I'll try that and get back to you.
Thanks On Oct 9, 3:51*pm, Mike H wrote: Hi, I can replicate this if the code is in a worksheet module. Put the sub in a general module and don't declare as private and attach the code to your button and things should be fine. Mike "TimSpangler" wrote: This is what I have in the button code: ' Sub to delete the current braced wall line Private Sub CmdBtn_DELBWL_Click() * * Application.DisplayAlerts = False * * If ActiveSheet.Name = "MASTER" Then * * * * MsgBox "MASTER Sheet can not be deleted", vbCritical, "BWL Sheet Delete Error!" * * Else * * * * ActiveSheet.Delete * * * * Application.DisplayAlerts = True * * End If End Sub And when the button is selected I get this: Run-time error '-2147221080 (800401a8)': Automation Error On Oct 9, 3:09 pm, Mike H wrote: Hi, That wouldn't cause an automation error, the sheet & button are deleted. What else do you have in the module, post the code. Mike "TimSpangler" wrote: When I try to delete the active sheet with a button that I have on the sheet I get an automation error. *I assume it is because the button is firing the event and I am trying to delete the sheet that the button is on. Is there a way to do this? *Any help would be appreciated Thanks TIM |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Delette active sheet from form button
OK. VB isn't really my thing, I am winging this right now. I took it
out of the worksheet and put it in the workbook but how do I get the code attached to the button now? Do I us a Call from the worksheet button event? On Oct 9, 3:58*pm, TimSpangler wrote: Will do. *I'll try that and get back to you. Thanks On Oct 9, 3:51*pm, Mike H wrote: Hi, I can replicate this if the code is in a worksheet module. Put the sub in a general module and don't declare as private and attach the code to your button and things should be fine. Mike "TimSpangler" wrote: This is what I have in the button code: ' Sub to delete the current braced wall line Private Sub CmdBtn_DELBWL_Click() * * Application.DisplayAlerts = False * * If ActiveSheet.Name = "MASTER" Then * * * * MsgBox "MASTER Sheet can not be deleted", vbCritical, "BWL Sheet Delete Error!" * * Else * * * * ActiveSheet.Delete * * * * Application.DisplayAlerts = True * * End If End Sub And when the button is selected I get this: Run-time error '-2147221080 (800401a8)': Automation Error On Oct 9, 3:09 pm, Mike H wrote: Hi, That wouldn't cause an automation error, the sheet & button are deleted. What else do you have in the module, post the code. Mike "TimSpangler" wrote: When I try to delete the active sheet with a button that I have on the sheet I get an automation error. *I assume it is because the button is firing the event and I am trying to delete the sheet that the button is on. Is there a way to do this? *Any help would be appreciated Thanks TIM |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| save only active sheet Button. | Excel Discussion (Misc queries) | |||
| Form Button not active | Excel Discussion (Misc queries) | |||
| Copy my active sheet to a new sheet and open with an input form | Excel Programming | |||
| create a form for search text in active sheet then got to selected | Excel Programming | |||
| Automatically Display a data input form when active sheet changes | Excel Programming | |||
Linear Mode
