Script sheet verwijderen en aanmaken.

[Dokman]

Hallo,

Ik heb en script die verwijdert en Bladx(JA). Haalt gegevens uit en ander bestand.
Maakt in het hoofdbestand weer en Bladx(JA) aan. Met de gegevens uit het andere bestand.

Dat gaat allemaal super (Met hulp van mensen van hier uit het Forum)

Maar heb nog en andere script lopen. Die kijkt naar het Bladx maar telkens als ik de
script draai dan verandert die het nummer achter x en dat is niet goed.

Heb graag en vast nummer voor het Bladx kan ik dit ergens aangeven.

Sub Copy_Ja()

Application.DisplayAlerts = False
Sheets("JA").Delete
Application.DisplayAlerts = True

Dim mybook As Workbook

Application.ScreenUpdating = False

Set mybook = _
Workbooks.Open _
("G:\Machining\FMS 630\Datameetlijst.xlsx")
'("C:\Users\cmom\Desktop\Nieuwe map\Datameetlijst.xlsx")

mybook.Sheets("JA").Copy Before:=Workbooks("Meetlijst FMS630 26-02-2024.xlsm").Sheets(1)
mybook.Close SaveChanges:=True

Application.ScreenUpdating = True

Worksheets("JA").Move After:=Worksheets(Worksheets.Count)
Sheets("Verwerken").PivotTables("Draaitabel1").PivotCache.Refresh
End Sub

 

[emields]

Er zal wel ergens een macro lopen die dat nummer verhoogt, met een voorbeeldbestand zou dat misschien duidelijker kunnen zijn.

 

[Dokman]

Hier bij het bestand Heb alleen sommige belangrijke namen verandert naar Naam1 enz.

 

[Dokman]

Ging iets fout met het bestand was te groot.