Getal wissen werkblad verwijderen

[DANIEL162]

In kolom (A) staan nummers, ook de werkbladen bevatten dezelfde nummers
Als in kolom A) een nummer verwijderd wordt zou ook hetzelfde (werkblad nummer) verwijderd moeten worden.

Bekijk bijlage Werkblad verwijderen.xls

Groetjes Daniel

 

[Niels28]

Tabblad verwijderen als een cel wordt verwijderd weet ik niet.
maar hierbij een oplossing met dubbelklik in de cel.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.DisplayAlerts = False
On Error Resume Next
If Not Intersect(Target, Range("A9:A16")) Is Nothing Then
If Target.Value = "" Then Exit Sub
Sheets(CStr(Target.Value)).Delete
Target.Cells.Delete shift:=(xlUp)
End If
End Sub

Niels

 

[DANIEL162]

Hallo Niels,
Uw oplossing met dubbelklik werkt correct.
Bedankt voor uw hulp.
Deze heb ik nog tussen geplaatst.

If MsgBox("Verwijderen ?", vbQuestion + vbYesNo, "Tabblad verwijderen") = vbNo Then
    Exit Sub
      End If

Groetjes
Daniel

 

[Niels28]

Graag gedaan, zet je de vraag dan op opgelost.

Niels

 

[Warme bakkertje]

Niet vergeten om op het einde v/d macro de DisplayAlerts nog wel terug op True te zetten.

 

[DANIEL162]

Display Allerts op True in geplaatst.
Bedankt Rudi

Ik wist niet wat de functie was van DislpayAlerts.
En voor de mensen, die nog moeten bijleren, zoals ik
was ik benieuwd wat dat was, (Display Allerts op False uitgeschakeld).
Zie bijgevoegd JPEG afbeelding.


Nogmaals allemaal bedankt voor de bijdrage.

Groetjes
Daniel

 

[Warme bakkertje]

Nu ge toch aan't leren zijt.
Bij de argumenten tussen haakjes ziet ge Cancel As Boolean staan.
Als ge normaal in een cel dubbelklikt kan je een waarde rechtstreeks in de cel aanpassen en bevestigen met Enter of de bewerking stoppen met Esc.
Als je nu in de macro Cancel = True zet dan zal je dit effect niet krijgen en blijft je cursor niet 'steken' in de cel waarop je dubbelgeklikt hebt.

 

[DANIEL162]

Rudi en Niels
Nogmaals bedankt voor jullie hulp en de tips

Mvg,
Daniel