• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

vba script copier probleem

Status
Niet open voor verdere reacties.
M

moensk

Gebruiker
Lid geworden
23 jun 2013
Berichten
778
ik heb diverse tabbladen met op elke tabblad een besturingsknop waarbij het script de gegevens kopieert naar een andere tabblad (export)
zodra men tabblad afgewerkt heeft activeert men deze knop.
probleem is dat script de knop mee kopieert wat niet de bedoeling is.
1. kan dat opgelost worden in script
2. kan ik alle knoppen samen in één balk zetten die altijd zichtbaar is dat maakt het netter :) een "lint" maken

Code: 
Sub Export_Delhaize()
        Sheets("Export").Range("A2:Z12000").ClearContents
    With Sheets("Export")
        Sheets("Delhaize").Range("A2:Z" & Cells(Rows.Count, 1).End(xlUp).Row).Copy .Range("A" & .Rows.Count).End(xlUp).Offset(1)
    End With
End Sub
 
En is dat een ActiveX of een werkblad knop?
Plaats een voorbeeld documentje.
 
Laatst bewerkt:
Met de "Office RibbonX Editor" kun je je eigen lintmenu maken, zie bijgaand voorbeeld, tabje "My Tab". Het is ook mogelijk om bij het openen van je document je eigen tab direct actief te zetten.

Nog een wat meer gepersonaliseerd voorbeeldje van een eigen lintmenu toegevoegd.
 

Bijlagen

Laatst bewerkt:
das super handig - heb nog paar excels waar ik dit ga invoegen
thanks
 
hoi ik heb software gedownload, stappen uitgevoerd in Ribbonx editor
daar volgende script staan
Code: 
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="RibbonOnLoad" >
	<ribbon>
		<tabs>
			<tab id="tabExport" label="Export" insertAfterMso="TabHome">
				<group id="customGroup"      label="DC">
				    <button id="Import - Data"  label="Import - data"  size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
				    <button id="Data - DC"      label="Data - DC"      size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
				    <button id="DC bijwerken"   label="DC bijwerken"   size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
				    <button id="Lege rijen del" label="Lege rijen del" size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
				    <button id="DC - Export"    label="DC - Export"    size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
				    <button id="Leegmaken tabs" label="Leegmaken tabs" size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Delhaize"    label="Delhaize"     size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Colruyt"     label="Colruyt"      size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Carrefour"   label="Carrefour"    size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Fixmer"      label="Fixmer"       size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Cedicora"    label="Cedicora"     size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Superlog"    label="Superlog"     size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Resuma"      label="Resuma"       size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Lidl"        label="Lidl"         size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Aldi"        label="Aldi"         size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Conway"      label="Conway"       size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Fiege"       label="Fiege"        size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Arop"        label="Arop"         size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Dudelange"   label="Dudelange"    size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Match"       label="Match"        size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Sligro"      label="Sligro"       size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Krefel"      label="Krefel"       size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Borre"       label="Borre"        size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="ITM"         label="ITM"          size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="Bidfood"     label="Bidfood"      size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
					<button id="aanmelden"   label="aanmelden"    size="normal" onAction="ActivateMacro" imageMso = "GetPowerQueryDataFromExcel"/>
				</group> 
			</tab>
		</tabs>
	</ribbon>
</customUI>

in excel volgende script gezet
Code: 
Sub RibbonOnLoad(ribbon As IRibbonUI)
    ribbon.ActivateTab "tabExport"
End Sub

en toch zie ik tabblad niet, enig idee wat er nog ontbreekt of fout is ?
 
Er zijn een aantal dingen fout in je XML.
Probeer deze eens:
 

Bijlagen

  • XMoensk.xlsm
    XMoensk.xlsm
    16,9 KB · Weergaven: 11
  • XMoensk.png
    XMoensk.png
    43,4 KB · Weergaven: 18
Laatst bewerkt:
Edmoor, thanks - gezien waar fout lag, opgelost - werkt nu ook in mijn excel
 
En een simpele macro om de betreffende tab te activeren:
Code: 
Sub ActivateMacro(Control As IRibbonControl)
    Sheets(Control.ID).Activate
End Sub
Als de tabnamen niet gelijk zijn aan de ID's (spaties bevatten) zal je dan anders moeten oplossen.
 
Laatst bewerkt:
Bovenstaande heb ik zelf zo opgelost:

Code: 
Sub ActivateSheet(control As IRibbonControl)
[COLOR=#008000]    'Sommige sheetnamen bevatten spaties, die zijn niet toegestaan in controlID's
    'In de controlID's is daarom de spatie in de sheetname vervangen door een underscore,
    'dat wordt hier weer ongedaan gemaakt.[/COLOR]
    Sheets(Replace(control.ID, "_", " ")).Activate
End Sub

Verder nog een iets verder uitgewerkt voorbeeldje toegespitst op jouw situatie.
 

Bijlagen

Netjes :thumb:
 
Code: 
<button id="Import - Data"  label="Import - data"  size="normal" onAction="[COLOR="#FF0000"]ActivateMacro[/COLOR]" imageMso = "GetPowerQueryDataFromExcel"/>
In het rode gedeelte kan je de naam van je eigen macro ingeven.
Zie ook het voorbeeld van AHulpje.
 
Laatst bewerkt:
Maar als je niet iedere keer de Office RibbonX Editor wilt gebruiken als je een nieuwe OnAction Sub hebt gemaakt kun je het ook op bijgaande manier oplossen. Klik maar eens op "aanmelden" of "Aldi".
 

Bijlagen

Precies.
Alleen zou ik het qua schrijfwijze zo doen, maar da's een kwestie van smaak:
Code: 
Sub ActivateMacro1(control As IRibbonControl)
    Select Case control.ID
        Case "LeegmakenTabs":   LeegmakenTabs
        Case "aanmelden":       Aanmelden
        Case "Bidfood":         DoeIetsMetBidfood
        Case Else:              DoeIetsAnders
    End Select
End Sub
 
Ahulpje & Edmoor, ik heb jullie een prive bericht gestuurd, hebben jullie dit ontvangen
graag bericht
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan