Sheets verwijderen

[don42]

Ik ben bezig met een factuur
nu maak ik elke maand een 60 facturen
op het einde van een maand wil ik graag alle scheets tussen
tabblad START en HERINNERING verwijderen
optimistich als ik ben heb ik dit geprobeerd

Private Sub CommandButton5_Click()
 With ActiveWorkbook.Sheets.Select
.after:=ActiveWorkbook.Sheets("Start")
.before:=ActiveWorkbook.Sheets("Herinnering")
End With
End Sub

Misschien iemand van jullie die wel weet hoe zoiets moet

dus alles tussen start en herinnring moet weg

Don

 

[edmoor]

Private Sub CommandButton5_Click()
    For Each sht In ThisWorkbook.Sheets
        Select Case sht.Name
            Case "Start", "Herinnering"
        Case Else
            sht.Delete
        End Select
    Next sht
End Sub

 

[VenA]

Voor de tussenliggende sheets kan je deze proberen

Sub VenA()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each sh In Sheets
    If sh.Index > Sheets("Start").Index And sh.Index < Sheets("Herinnering").Index Then sh.Delete
Next
Application.DisplayAlerts = True
End Sub

 

[snb]

Sub M_snb()
    Application.DisplayAlerts = False

    For Each sh In Sheets
       If InStr("startherinnering", lcase(sh.Name)) = 0 Then c00 = c00 & "_" & sh.Name
    Next

    Sheets(Split(Mid(c00, 2), "_")).Delete
End Sub

 

[don42]

Mijn dank is wederom groot
optie #2 en #3 getest beide goed
optie 3 heb ik eerlijk gezegd nog niet geprobeerd
deze code ziet er voor mij ook het meest ingewikkeld uit
het werkt prima.

 

[VenA]

Niet dat het mij veel uitmaakt maar optie #2 en #4 hebben een belangrijk verschil gezien de vraagstelling in #1 met optie #3:d

 

[edmoor]

Nu je het zo zegt is mijn oplossing inderdaad niet overeenkomstig de vraag en die van jou wel.
De vraag is nu dus of de vraag wel correct is

 

[VenA]

De TS vindt het blijkbaar prima. Of het in overeenstemming met de vraag is, tja.

@snb,
Je hebt wel een zeer snelle methode geplaatst om van onnodige tabjes af te komen.

 

[snb]

@VenA

Hoe minder het aantal akties hoe sneller natuurlijk.

Om mijn voorstel in overeenstemming met jouw aanpak (maar zonder snelheidsverlies) te maken:

Sub M_snb()
    Application.DisplayAlerts = False

    For Each sh In Sheets
       If sh.index<> sheets("start").index and sh.index<> sheets("herinnering").index Then c00 = c00 & "_" & sh.Name
    Next

    Sheets(Split(Mid(c00, 2), "_")).Delete
End Sub

Simpeler alternatief:

Sub M_snb()
  sheets(array("start","herinnering")).copy
  thisworkbook.close
End sub