Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
deleting worksheets msg box
hi,
I am very new @ coding. just started yesterday... I have 2 problems right now... I have several tabs, and I whant a macro to erase em all, but , Sheet(1). (1) my macro is kinda doing it, but i dont know how to make it to loop. (2) as the macro runs the " Worksheets(DB).Delete " line, excel pops up a msg box confirming the lost of data on the sheet deleted, how do i work around that? I thank in advance... my curent code is Private Sub CommandButton2_Click() Dim x As Long Dim DB As Long Dim Wsht As Long Wsht = Worksheets.Count Debug.Print Wsht For DB = 2 To Wsht Debug.Print DB Exit For Next Worksheets(DB).Delete End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
deleting worksheets msg box
Sub DeleShts()
Dim sh As Worksheet For Each sh In ThisWorkbook.Sheets If Sheet.Name < "Sheet1" Then sh.Delet End If Next End Sub "Paulo" wrote: hi, I am very new @ coding. just started yesterday... I have 2 problems right now... I have several tabs, and I whant a macro to erase em all, but , Sheet(1). (1) my macro is kinda doing it, but i dont know how to make it to loop. (2) as the macro runs the " Worksheets(DB).Delete " line, excel pops up a msg box confirming the lost of data on the sheet deleted, how do i work around that? I thank in advance... my curent code is Private Sub CommandButton2_Click() Dim x As Long Dim DB As Long Dim Wsht As Long Wsht = Worksheets.Count Debug.Print Wsht For DB = 2 To Wsht Debug.Print DB Exit For Next Worksheets(DB).Delete End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
deleting worksheets msg box
I am very new @ coding. just started yesterday...
Out of curiosity, was it really easier to hit Shift+2 (assuming an American keyboard) instead of simply typing "at"?<g I have 2 problems right now... I have several tabs, and I whant a macro to erase em all, but , Sheet(1). (1) my macro is kinda doing it, but i dont know how to make it to loop. (2) as the macro runs the " Worksheets(DB).Delete " line, excel pops up a msg box confirming the lost of data on the sheet deleted, how do i work around that? This code should do what you ask... Sub RemoveSheets() Dim X As Long Worksheets(1).Select On Error GoTo CleanUp Application.DisplayAlerts = False For X = Worksheets.Count To 2 Step -1 Worksheets(X).Delete Next CleanUp: Application.DisplayAlerts = True End Sub Rick |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
deleting worksheets msg box
JLG forgot about the warning you wanted ignored......
========================== Option Explicit Sub DeleShts() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In ThisWorkbook.Sheets If sh.Name < "Sheet1" Then sh.Delete End If Next Application.DisplayAlerts = True End Sub ===================== :) susan On Jun 5, 1:38*pm, JLGWhiz wrote: Sub DeleShts() * *Dim sh As Worksheet * *For Each sh In ThisWorkbook.Sheets * * *If Sheet.Name < "Sheet1" Then * * * * sh.Delet * * *End If * *Next End Sub "Paulo" wrote: hi, I am very new @ coding. just started yesterday... I have 2 problems right now... I have several tabs, and I whant a macro to erase em all, but , Sheet(1).. (1) my macro is kinda doing it, but i dont know how to make it to loop. (2) as the macro runs the " Worksheets(DB).Delete " line, excel pops up a msg box confirming the lost of data on the sheet deleted, how do i work around that? I thank in advance... my curent code is Private Sub CommandButton2_Click() Dim x As Long Dim DB As Long Dim Wsht As Long Wsht = Worksheets.Count Debug.Print Wsht For DB = 2 To Wsht Debug.Print DB Exit For Next Worksheets(DB).Delete End Sub- Hide quoted text - - Show quoted text - |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
deleting worksheets msg box
Rick, worked great
tanks again, life saver... "Rick Rothstein (MVP - VB)" wrote: I am very new @ coding. just started yesterday... Out of curiosity, was it really easier to hit Shift+2 (assuming an American keyboard) instead of simply typing "at"?<g I have 2 problems right now... I have several tabs, and I whant a macro to erase em all, but , Sheet(1). (1) my macro is kinda doing it, but i dont know how to make it to loop. (2) as the macro runs the " Worksheets(DB).Delete " line, excel pops up a msg box confirming the lost of data on the sheet deleted, how do i work around that? This code should do what you ask... Sub RemoveSheets() Dim X As Long Worksheets(1).Select On Error GoTo CleanUp Application.DisplayAlerts = False For X = Worksheets.Count To 2 Step -1 Worksheets(X).Delete Next CleanUp: Application.DisplayAlerts = True End Sub Rick |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
deleting worksheets msg box
thanks for your help susan
"Susan" wrote: JLG forgot about the warning you wanted ignored...... ========================== Option Explicit Sub DeleShts() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In ThisWorkbook.Sheets If sh.Name < "Sheet1" Then sh.Delete End If Next Application.DisplayAlerts = True End Sub ===================== :) susan On Jun 5, 1:38 pm, JLGWhiz wrote: Sub DeleShts() Dim sh As Worksheet For Each sh In ThisWorkbook.Sheets If Sheet.Name < "Sheet1" Then sh.Delet End If Next End Sub "Paulo" wrote: hi, I am very new @ coding. just started yesterday... I have 2 problems right now... I have several tabs, and I whant a macro to erase em all, but , Sheet(1).. (1) my macro is kinda doing it, but i dont know how to make it to loop. (2) as the macro runs the " Worksheets(DB).Delete " line, excel pops up a msg box confirming the lost of data on the sheet deleted, how do i work around that? I thank in advance... my curent code is Private Sub CommandButton2_Click() Dim x As Long Dim DB As Long Dim Wsht As Long Wsht = Worksheets.Count Debug.Print Wsht For DB = 2 To Wsht Debug.Print DB Exit For Next Worksheets(DB).Delete End Sub- Hide quoted text - - Show quoted text - |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
deleting worksheets msg box
JLGWIHIZ thanks for helping out ...
"JLGWhiz" wrote: Sub DeleShts() Dim sh As Worksheet For Each sh In ThisWorkbook.Sheets If Sheet.Name < "Sheet1" Then sh.Delet End If Next End Sub "Paulo" wrote: hi, I am very new @ coding. just started yesterday... I have 2 problems right now... I have several tabs, and I whant a macro to erase em all, but , Sheet(1). (1) my macro is kinda doing it, but i dont know how to make it to loop. (2) as the macro runs the " Worksheets(DB).Delete " line, excel pops up a msg box confirming the lost of data on the sheet deleted, how do i work around that? I thank in advance... my curent code is Private Sub CommandButton2_Click() Dim x As Long Dim DB As Long Dim Wsht As Long Wsht = Worksheets.Count Debug.Print Wsht For DB = 2 To Wsht Debug.Print DB Exit For Next Worksheets(DB).Delete End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Deleting Worksheets | Excel Programming | |||
Deleting Worksheets | Excel Programming | |||
Deleting Worksheets | Excel Programming | |||
Deleting Worksheets | Excel Programming | |||
Deleting worksheets | Excel Programming |