Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Code
The following code works well, however how can I change
this to run with a command button. Also is there any way I could delete some columns from the sheets as well. Private Sub Workbook_Open() Dim wb As Workbook 'copy all sheets Worksheets.Copy Set wb = ActiveWorkbook Application.DisplayAlerts = False 'delete the sheets you want wb.Sheets(Array("Suspense", "RCA exc RIM", "Operations summary", "RCA incl RIM", "First Qtr", "Second Qtr", "Third Qtr", "Fourth Qtr")).Delete Application.DisplayAlerts = True End Sub Thanks Mark |
#2
|
|||
|
|||
Hi Mark
This example will delete column A and B in each sheet Alt-F11 InsertModule from the menubar paste the sub in there Alt-Q to go back to Excel If you use Alt-F8 you get a list of your macro's Select "test" and press Run Or right click on a commandbar and click on Forms Add a button on your sheet and assign the macro to it Sub test() Dim wb As Workbook Dim sh As Worksheet Worksheets.Copy Set wb = ActiveWorkbook Application.DisplayAlerts = False wb.Sheets(Array("Suspense", "RCA exc RIM", "Operations summary", "RCA incl RIM", "First Qtr", "Second Qtr", "Third Qtr", "Fourth Qtr")).Delete Application.DisplayAlerts = True For Each sh In wb.Worksheets sh.Columns("A:B").EntireColumn.Delete Next End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Mark" wrote in message ... The following code works well, however how can I change this to run with a command button. Also is there any way I could delete some columns from the sheets as well. Private Sub Workbook_Open() Dim wb As Workbook 'copy all sheets Worksheets.Copy Set wb = ActiveWorkbook Application.DisplayAlerts = False 'delete the sheets you want wb.Sheets(Array("Suspense", "RCA exc RIM", "Operations summary", "RCA incl RIM", "First Qtr", "Second Qtr", "Third Qtr", "Fourth Qtr")).Delete Application.DisplayAlerts = True End Sub Thanks Mark |
#3
|
|||
|
|||
Soz i have posted the first part of this query twice.
i now have the command button working. so can anyone help with the second part ie deleting colums. Is there anyway you can stop the command button from transfering to the new sheet. thanks for this mark. -----Original Message----- The following code works well, however how can I change this to run with a command button. Also is there any way I could delete some columns from the sheets as well. Private Sub Workbook_Open() Dim wb As Workbook 'copy all sheets Worksheets.Copy Set wb = ActiveWorkbook Application.DisplayAlerts = False 'delete the sheets you want wb.Sheets(Array("Suspense", "RCA exc RIM", "Operations summary", "RCA incl RIM", "First Qtr", "Second Qtr", "Third Qtr", "Fourth Qtr")).Delete Application.DisplayAlerts = True End Sub Thanks Mark . |
#4
|
|||
|
|||
Soz i have posted the first part of this query twice.
i now have the command button working. so can anyone help with the second part ie deleting colums. Is there anyway you can stop the command button from transfering to the new sheet. thanks for this mark. -----Original Message----- The following code works well, however how can I change this to run with a command button. Also is there any way I could delete some columns from the sheets as well. Private Sub Workbook_Open() Dim wb As Workbook 'copy all sheets Worksheets.Copy Set wb = ActiveWorkbook Application.DisplayAlerts = False 'delete the sheets you want wb.Sheets(Array("Suspense", "RCA exc RIM", "Operations summary", "RCA incl RIM", "First Qtr", "Second Qtr", "Third Qtr", "Fourth Qtr")).Delete Application.DisplayAlerts = True End Sub Thanks Mark . |
#5
|
|||
|
|||
this work great thanks for your help.
-----Original Message----- Hi Mark This example will delete column A and B in each sheet Alt-F11 InsertModule from the menubar paste the sub in there Alt-Q to go back to Excel If you use Alt-F8 you get a list of your macro's Select "test" and press Run Or right click on a commandbar and click on Forms Add a button on your sheet and assign the macro to it Sub test() Dim wb As Workbook Dim sh As Worksheet Worksheets.Copy Set wb = ActiveWorkbook Application.DisplayAlerts = False wb.Sheets(Array("Suspense", "RCA exc RIM", "Operations summary", "RCA incl RIM", "First Qtr", "Second Qtr", "Third Qtr", "Fourth Qtr")).Delete Application.DisplayAlerts = True For Each sh In wb.Worksheets sh.Columns("A:B").EntireColumn.Delete Next End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Mark" wrote in message ... The following code works well, however how can I change this to run with a command button. Also is there any way I could delete some columns from the sheets as well. Private Sub Workbook_Open() Dim wb As Workbook 'copy all sheets Worksheets.Copy Set wb = ActiveWorkbook Application.DisplayAlerts = False 'delete the sheets you want wb.Sheets(Array("Suspense", "RCA exc RIM", "Operations summary", "RCA incl RIM", "First Qtr", "Second Qtr", "Third Qtr", "Fourth Qtr")).Delete Application.DisplayAlerts = True End Sub Thanks Mark . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Error trapped only while stepping through the code - Not triggered when run | Excel Discussion (Misc queries) | |||
Opening a file with code without a set file name | Excel Discussion (Misc queries) | |||
Opening a file with code without a set file name | Excel Discussion (Misc queries) | |||
Error trapped only while stepping through the code - Not triggered when run | Excel Discussion (Misc queries) | |||
Command Button VBA code | Excel Discussion (Misc queries) |