Stukje VBA voor een macro

[bascas]

Hallo, ik ben op zoek naar een stukje VBA wat er voor zorgt dat er een leeg tabblad wordt aangemaakt na het laatste tabblad met de titel (wk 1) verhoogt met 1. Dus (wk 2), en daarna weer (wk 3) enz, enz.

Groetjes Bas

 

[edmoor]

Sheets.Add after := Sheets(Sheets.Count)
Sheets(Sheets.Count).name = "WK " & Sheets.Count-1

 

[bascas]

Edmoor, bedankt voor je reactie. Het werkt, alleen tabblad 1 heet bij mij " voorblad" en dan krijg je wk 1, wk 2, enz. hij moet dus eigelijk doornummeren en dan -1.

Groet Bas

 

[edmoor]

Zie aangepaste code.

 

[bascas]

Helemaal Top. Laatste verbetering, als ik nu een knop met een macro eronder wil geplaatst hebben op die nieuwe tabbladen, welk stukje code ontbreekt er dan nog?
Groet Bas

 

[Roncancio]

Dat hangt een beetje van de soort knop af.
Indien het een knop is van ActiveX dan kun je de code er direct onder zetten.
Indien het een knop van een formulier is dan dien je te verwijzen naar een macro.
In dat geval, geef een naam aan de code bijv.:

Sub Bascas()
Sheets.Add after := Sheets(Sheets.Count)
Sheets(Sheets.Count).name = "WK " & Sheets.Count-1

End Sub

Zorg dat de knop vervolgens naar de knop Bascas verwijst.

Met vriendelijke groet,


Roncancio

 

[edmoor]

Aanvulling op de eerdere code:

    Sheets(Sheets.Count).Select
    Sheets(Sheets.Count).Buttons.Add(156, 47, 77, 29).Select
    Selection.OnAction = "macro1"
    Selection.Characters.Text = "Dit is de knop"

Waarbij macro1 de naam is van de macro die je aan de knop wilt toewijzen.
De dimensies van de knop kun je naar eigen wens aanpassen.

Dit gaat dus om een formulier knop en geen ActiveX.

 

[Roncancio]

De totale code zal dan als volgt zijn:

Sub Bascas()
    Sheets.Add after:=Sheets(Sheets.Count)
    With Sheets(Sheets.Count)
        .Name = "WK " & Sheets.Count - 1
        With .Buttons.Add(156, 47, 77, 29)
            .OnAction = "macro1"
            .Characters.Text = "Dit is de knop"
        End With
    End With
End Sub

Met vriendelijke groet,


Roncancio

 

[edmoor]

Klopt helemaal en zo is 'ie echt netjes :thumb:

 

[bascas]

En zo ben ik er weer erg blij mee! Hartelijk bedankt heren.

groet Bas

 

[bascas]

Toch nog een probleempje. Ik heb dit document gemaakt in excel 2003. Heb thuis nergens last van. Als ik het op mijn werk open in 2003 dan gaat ie ineens cellen berekenen, en duurt alles heel erg lang. is nu het systeem op mijn werk zo traag, ben ik zo snel, of zijn de formules te lang?

Doc zit erbij

Groet Bas
Bekijk bijlage Compensatie overzicht afd X.xls

 

[edmoor]

Hij gaat bij mij heel snel maar vervolgens zie ik alleen maar verwijzingsfouten: #VERW!
Kolom B (wk1) in het Totaal blad is leeg. Alles lijkt een kolom opgeschoven waardoor de functie terug komt met de #VERW! fout.

 

[Roncancio]

De formule werkt gewoon, zij het dat de berekening vrij traag is.
De #VERW! foutmelding ontstaat omdat er naar werkbladen verwezen wordt die niet in het bestand zitten.

Met vriendelijke groet,


Roncancio

 

[edmoor]

Ok, ik zie verder geen problemen maar hij zal ook snel klaar zijn omdat de berekeningen niet uitgevoerd kunnen worden.