meerdere commando's aan knop koppelen

[Stokkie2000]

Hallo,

Ik heb op twee verschillende bladen een macro voor het invoegen van nieuwe kolommen. De kolommen zijn op beide bladen anders, maar op beide bladen moeten wel hetzelfde aantal kolommen ingevoegd worden. Op dit moment heb ik op beide bladen een knop waarmee de nieuwe kolommen ingevoegd kunnen worden. Ik zou graag willen dat ik alleen maar een knop op het eerste blad hoef te plaatsen, maar dat, bij het indrukken, op beide bladen tegelijk een nieuwe kolom wordt ingevoegd. Hoe kan ik beide macro's aan de ene knop 'hangen', maar dat ze wel op de verschillende bladen worden uitgevoerd.

 

[fihod]

Als je voor End Sub in je eerste macro

Sheets("Blad2").Select

ingeeft, en vervolgens de routine die er boven staat kopieert en er onder plakt, zal op beide pagina's hezelfde gebeuren.

 

[Stokkie2000]

Misschien had ik aan moeten geven dat het twee verschillende macro's zijn. ik heb nu gedaan wat je aangegeven hebt, maar dan geeft VBA het volgende aan:

Private Sub CommandButton1_Click()
'
' Nieuwe_kolom_invoegen_4 Macro
' De macro is opgenomen op 13-10-2004 door R.J. Zurhorst.
'
' Sneltoets: CTRL+q
'
Columns("I:J").Select
Selection.Copy
Selection.Insert Shift:=xlToRight

Sheets("5.toets").Select
'
' Nieuwe_kolom_invoegen_5 Macro
' De macro is opgenomen op 13-10-2004 door R.J. Zurhorst.
'
' Sneltoets: CTRL+a
'
Columns("H:H").Select
Selection.Copy
Selection.Insert Shift:=xlToRight

End Sub

Het rode gedeelte geeft hij nu als fout aan???

 

[fihod]

Het hangt er eigenlijk een beetje van af welke knop je gebruikt.

In bijlage hoe het lukt.

 

[Stokkie2000]

Oke dit werkt een stuk beter, ronduit goed dus. Heel erg bedankt. Ik had inderdaad een ander soort knop.