Tabblad verwijderen en waarden aftrekken

[CRUZ2]

Beste excelliefhebbers,

Ik probeer met de volgende code de waarde in cel [d64] en [a1] met 1 af te trekken.
Dit als er een blad verwijderd wordt er ook een in mindering gebracht wordt.

Private Sub Deletesheet_Click()
If ActiveSheet(Left(, 9)).Name = "Sleevecel" Then
[d64].Value = -1
[A1] = -1
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
MsgBox "Blad verwijderd"
Application.DisplayAlerts = True
delsheet.Hide
End If
End Sub

De code kijkt naar de eerste karakters van een werblad.

Wie ken mij helpen

Thnx in advanced :thumb:

 

[Roncancio]

Ik zou de If-functie veranderen in:

If Left(ActiveSheet.Name, 9) = "Sleevecel" Then

Met vriendelijke groet,


Roncancio

 

[CRUZ2]

Lukt nog net niet

Beste Roncancio

Ik heb de code aangepast hij gaat net iets verder alleen mis ik een stukje

Klein beetje hulp a.u.b

Private Sub Deletesheet_Click()
If Left(ActiveSheet.Name, 9) = "Sleevecel" Then
[Blad1!d64] -1
[Blad1!A1].Value = -1
End If
If Left(ActiveSheet.Name, 8) = "Drukdoos" Then
[Blad1!d65].Value = -1
[Blad1!A2] = -1
End If
If Left(ActiveSheet.Name, 7) = "Trekcel" Then
[Blad1!d66].Value = -1
[Blad1!A1] = -1
End If
If Left(ActiveSheet.Name, 9) = "Draadklem" Then
[Blad1!d67].Value = -1
[Blad1!A1] = -1
End If
If Left(ActiveSheet.Name, 6) = "Meetas" Then
[Blad1!d68].Value = -1
[Blad1!A1] = -1
End If
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
MsgBox "Blad verwijderd"
Application.DisplayAlerts = True
delsheet.Hide
End Sub

Hij trekt van de waardes in cel [a1] en [d64] niet de -1 zoals gespecificeerd

 

[Wigi]

Dit is dan ook niet de syntax die VBA gewend is:

[Blad1!d64] -1

Dit lijkt me meer naar de regels van VBA:

[Blad1!d64] = [Blad1!d64] -1

 

[Roncancio]

Hij trekt van de waardes in cel [a1] en [d64] niet de -1 zoals gespecificeerd

VBA is geen JAVA dus [Blad1!A1].Value = -1 gaan dan niet werken.
In VBA gebruik je de constructie:

[Blad1!A1].Value = [Blad1!A1].Value -1

Met vriendelijke groet,


Roncancio