Tabbladen verwijderen o.b.v. celwaarde

abbcdcg zei:

Ik heb deze code geïntegreerd en inmiddels al weer even goed werkend.

Code:

Sub RapportGenereren()
  t = Sheets("Basis").Cells(20, 5).Value
  If t > 0 Then
    Application.DisplayAlerts = False
    Sheets("Basis").Visible = True
    Sheets("Blad2").Visible = True
    Sheets("Blad3").Visible = True
    Sheets("Blad4").Visible = True
    Sheets("C" & t).Visible = True
    Sheets("V" & t).Visible = True
    Sheets("D" & t).Visible = True
    Sheets("S" & t).Visible = True
    Sheets("Blad5").Visible = True
    Sheets("Blad6").Visible = True
    Sheets("Blad7").Visible = True
    Sheets("Blad8").Visible = True
    Sheets("Blad9").Visible = True
    Sheets("Blad10").Activate
    For Each sh In Sheets
      If InStr("CVDS", Left(sh.Name, 1)) And Not sh.Visible Then sh.Delete
    Next sh
    Application.DisplayAlerts = True
    ActiveSheet.Shapes("CommandButton1").Delete
  End If
End Sub

Nu moet op basis van de celwaarde in tabblad 'Database!$G$10= 3' Sheet D Visible zijn. Indien 'Database!$G$10' een andere waarde heeft dan '3' dienen alle Sheets 'D' te worden verwijderd.

Hoe doe ik dit???


B.v.d. !

Klik om te vergroten...