Opgelost Op nieuw tablad macro knoppen plaatsen van ander tabblad

[PeterBijns]

Ik sta op Blad1 en daar heb ik 2 knoppen geplaatst waar ik macro's mee opstart, nu wil ik als ik een nieuw tabblad aanmaak deze knoppen daar ook op hebben.
Is dat mogelijk met een macro?

Deze macro wil ik alleen op Blad1 hebben dus daar kan ik dus kan ik een knop daarvoor maken op dat werkblad.
Ik kan natuurlijk de knoppen gewoon kopieren en plaatsen op het nieuwe tabblad maar via een macro is het handigger vind ik.

Groet, Peter

 

[emields]

zoals in het voorbeeldje.

 

[PeterBijns]

Emields,
Zoiets als voorbeeld dienende?

 

[emields]

maak gebruik van actieve X knoppen

 

[PeterBijns]

Hoi Emields, dit is niet wat ik zoek, Ik wil dus een macro hebben welke een nieuw tabblad maakt en daar de 2 buttons welke zich op Blad1 bevinden kopieerd en deze kopien daarvan op het zojuist aangemaakte nieuwe blad plaatst. Groet, Peter

 

[edmoor]

Als die buttons werkzaamheden uitvoeren op Blad1, moeten die dan na het kopiëren de werkzaamheden uitvoeren op het nieuwe werkblad of nog steeds op Blad1?
Dus moet de code ook worden gekopieerd waarna je deze aanpast?
Of wil je alleen de knoppen zelf?

 

[PeterBijns]

Hoi Edmoor, Die Buttons moeten een macro opstarten en die macro doet telkens op het active blad iets dus dat is geen probleem. Maar ik wil dat als ik op Blad1 sta de macro opstarten welek dus een geheel nieuw tabblad maakt en de buttons van blad1 kopieerd en plaatst op dat nieuwe tabblad en dat de buttons dezelfde macro's opstarten dan de buttons op blad1. Groet, Peter

 

[edmoor]

Doe het dan eens zo:

Sub NieuwwBlad()
    ActiveSheet.Copy , ActiveSheet
    ActiveSheet.Name = "Nieuw blad_" & ActiveSheet.Index
End Sub

 

[PeterBijns]

Hoi Edmoor, Dit is ongeveer wat ik wil alleen nu wordt ook de inhoud van het blad mee gekopieerd en dat is niet de bedoeleing. Ook dat de macro een naam geeft aan het nieuwe blad hoeft niet, wat wel mooi zou zijn dat ik zelf gelijk een naam voor het nieuwe blad in kan geven.
Groet, Peter

 

[snb]

Gebruik de Quick Access Toolbar (QAT) voor een icoon met een te starten macro.

 

[edmoor]

Of zo:

Sub NieuwwBlad()
    ActiveSheet.Copy , ActiveSheet
    ActiveSheet.UsedRange.ClearContents
    ActiveSheet.Name = InputBox("Bladnaam: ")
End Sub

 

[PeterBijns]

Edmoor, Dat is het helemaal, geweldig dat je mij geholpen hebt ik ben er zeer blij mee. Groet, Peter

 

[PeterBijns]

Ook snb bedankt voor de tip, ik ga ook eens kijken of mijn dat zal lukken om knoppen in het menu te maken. Groet, Peter

 

[AHulpje]

snb bedoelt zoiets, en dat lijkt mij voor jouw toepassing prima te gebruiken:

 

[PeterBijns]

Ahulpje, het ziet er mooi uit alleen zijn de knopjes erg klein en de pictogrammen ook, maar het is best een handige optie. Bedankt voor je tip hierover. Groet, Peter

 

[AHulpje]

Met behulp van Office RibbonX Editor kun je een eigen tabje aan het lint toevoegen, dan heb je grotere pictogrammen en grotere knoppen.

 

[PeterBijns]

Ahulpje, Dat ziet er iets beter uit maar hoe ik dat voor elkaar kan krijgen is nog een raadsel.
Zit Die Office RibbonX Editor ingebouwd in Excel, zelf of moet daar iets voor geinstalleerd worden?

Groet, Peter

 

[AHulpje]

Nee, die zit niet in Excel. Zoek maar eens naar Office RibbonX Editor.

 

[emields]

Blijft de vraag waarom wil je zoveel gelijke bladen als je op het eind toch alles in 1 blad wil zien?

 

[edmoor]

Kijk eens hier:

Om deze inhoud te bekijken, hebben we jouw toestemming nodig om cookies van derden te gebruiken.
Voor meer gedetailleerde informatie, zie onze cookiespagina.

Accepteer cookies van derden