Tabbladen verwijderen en saven dan afsluiten

[Schipperjte]

Hoi,

Heb 2 macro's gevonden voor het verwijderen van tabbladen ,saven en dan afsluiten

kan ik van deze 2 macro's in 1 maken

Ik heb het geprobeerd maar dan krijg ik elke keer een foutmelding

Option Explicit

Sub WEG()
 Application.DisplayAlerts = False
 Sheets(Array(5, 2, 3, 4, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31)).Delete
 
 
Application.DisplayAlerts = True
CloseWorkbook
End Sub

en dan deze

Sub dicht()
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Application.DisplayAlerts = True
    ThisWorkbook.Close Saved = True
End Sub

Er staan in de eerste macro Closeworkbook
de 2e macro moet dit ook doen

ergens zit een foutje



Bas

 

[trucker10]

Langs deze weg ?

Sub alles()
Application.DisplayAlerts = False

    Sheets(Array(5, 2, 3, 4, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31)).Delete
    ThisWorkbook.Save
 
Application.DisplayAlerts = True

    ThisWorkbook.Close

End Sub

 

[Schipperjte]

Ja bedankt hij doet het

Is het soms sneller als ik invoer zoiets als alle bladen dan bv alle nummers invoeren

Eigenlijk kunnen alle bladen weg behalve blad 1

maar hoe voer ik dat dan in ?

Sheets(Array(All Sheets)).Delete

werkt niet

 

[trucker10]

Alles behalve je eerste tabblad > Blad1

Sub wis()
    Dim ws As Worksheet
    Dim lngIndex As Long
    
    With ActiveWorkbook
        For lngIndex = .Sheets.Count To 1 Step -1
            If .Sheets(lngIndex).Name = "[COLOR="red"]Blad1[/COLOR]" Then
                
            Else
                Application.DisplayAlerts = False
                Sheets(lngIndex).Delete
                Application.DisplayAlerts = True
            End If
        Next
    End With

ThisWorkbook.Save
ThisWorkbook.Close

End Sub

 

[Warme bakkertje]

Of

Sub verwijder()
Application.DisplayAlerts = False
    For Each sh In Sheets
        If Not sh.Name = "Blad1" Then sh.Delete
    Next
Application.DisplayAlerts = True
ThisWorkbook.Close True
End Sub

 

[Schipperjte]

Hallo Rudi,,

Hij geeft een fout melding

Sub verwijder()
Application.DisplayAlerts = False
    For Each [B]sh[/B] In Sheets
        If Not sh.Name = "Blad1" Then sh.Delete
    Next
Application.DisplayAlerts = True
ThisWorkbook.Close True
End Sub

Complineerfout
Een variabele is niet gedefineerd

sh

 

[Roncancio]

Dan zal je Option Explicit bovenaan je code hebben staan.

2 opties:

1. Option Explicit verwijderen. (kan maar liever niet)
2. sh Definiëren. (goede gewoonte)

Sub verwijder()
Dim SH As Worksheet
    Application.DisplayAlerts = False
    For Each SH In Sheets
        If Not SH.Name = "Blad1" Then SH.Delete
    Next
    Application.DisplayAlerts = True
    ThisWorkbook.Close True
End Sub

Met vriendelijke groet,


Roncancio

 

[Schipperjte]

Mannen bedankt , :thumb:

Denk dat ik die van Daniël neem



Bas