werkblad verwijderen en naam wijzigen

[CRUZ2]

Beste forum leden'

Ik heb een macro gemaakt die een blad kopieert als de waarde in d67 groter is dan in A1
Als deze waarde kleiner of gelijk is aan A1 dan geeft hij een melding.

Nu vroeg ik me af als het ook mogelijk is om een werkblad te verwijderen met het verschil dat d67 kleiner wordt?

Sub Loadcell_SLEEVE()
Dim A  As Integer
Dim B As String


If [a1] >= [d67] Then
MsgBox "Loadcell sheet reeds aanwezig"
Exit Sub
Else
A = [d67] - [a1]
Range("A1").Value = [d67]
B = [B67]
    For numtimes = 1 To A
    Worksheets(B).Visible = True
    Worksheets(B).Copy After:=Worksheets(B)
    Worksheets(B).Visible = False
    Next
    MsgBox "Loadcell sheet toegevoegd -Gaarne invullen- "
    End If
    End Sub

Hoop dat ik zo duidelijk genoeg bent.

2e vraag is kan ik bij het blad dat excel kopieert ook nog een tekst toevoegen voordat ie kopiert
bv blad heet sleevcel
en na kopieren hoofdhijs sleevcel

Hoop dat jullie me kunne helpen.

 

[wiki]

Nu vroeg ik me af als het ook mogelijk is om een werkblad te verwijderen met het verschil dat d67 kleiner wordt?

Wat bedoel je hiermee?

gr wim

 

[CRUZ2]

Wat bedoel je hiermee?

gr wim

Dat de bladen bijv. blad1 (1) en blad1 (0)
Gewist worden als in cell D67 0 geplaatst wordt

 

[wiki]

Application.DisplayAlerts = False
If [a1].Value = 0 Then

    Sheets("Blad1").Delete
    'activesheet.delete
    End If
    Application.DisplayAlerts = True

gr wim

 

[CRUZ2]

Application.DisplayAlerts = False
If [a1].Value = 0 Then

    Sheets("Blad1").Delete
    'activesheet.delete
    End If
    Application.DisplayAlerts = True

gr wim

Dank je wel Wim
Het uis een dele van de oplossing
Ik heb de volgende voorbeeld toegevoegd om mijn vraag iets te verduidelijken.

Als je in Cel D2 2 invult en je druk op "configureer loadcell"
Dan zal hij 2 tabbladen aanmaken
Als je Cel D2 veranderd in 1 dan wil ik graag dat hij de laatse van de zojuist aangemaakte bladen verwijderd en er maar 1 overhoud.
Bekijk bijlage Voorbeeld.xls

 

[wiki]

snap de werking van je sheet niet helemaal, of kijk te snel, maar met

Worksheets(ActiveSheet.Index + 1).delete

kun je een eerstvolgend of nog later aangemaakt blad verwijderen
varieer even met de +1 voor het juiste blad

wil je ajb je tekst nalezen voor je deze plaatst want met deze zinsbouw en fouten is dit niet te volgen

gr wim