Ga naar inhoud

Macro op verschillende tabbladen


Nuttelozer
 Delen

Aanbevolen berichten

Beste,

 

In Excel heb ik een macro die op mijne eerste tabblad werkt met een snelkoppling (CTRL+E), wanneer ik het tweede tabblad aanklik en de snelkoppeling indruk, voert hij de macro ook uit op het eerste tabblad.

 

Is er een mogelijkheid om een macro op het actieve tabblad te laten uitvoeren met eenzelfde snelkoppeling? Dus dezelfde macro op alle tabbladen met dezelfde snelkoppeling, maar dus enkel op het actieve tabblad...

 

Alvast bedankt!

Link naar reactie
Delen op andere sites


Beste,

 

Mijn excuses. Hier is de code:

 

Sub Rij_Invoegen()
'
' Rij_Invoegen () Macro
'
'
    Application.ScreenUpdating = False
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row).Offset(1).Insert
Rows.Copy
ActiveCell.Offset(0, 0).Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

Link naar reactie
Delen op andere sites


Beste,

 

In het bestand staan nog maar 2 maanden, de overige 10 maanden moet ik nog dupliceren.

 

In elke tabblad zie je een tabel staan waar de ontvangsten per maand worden ingegeven. Om eenvoudig een extra lijn toe te voegen gebruik ik de macro. Ik heb via het tabblad ontwikkelaars -> Macro's bij opties een sneltoets ingesteld. Maar deze werkt enkel op het eerste tabblad. Ik zou dus willen dat de macro en snelkoppeling werkt op alle tabbladen. Natuurlijk moet hij niet op alle tabbladen tegelijk een extra rij toevoegen, maar enkel in het werkblad waarin ik op dat moment aan het werken ben.

 

Alavst bedankt!

 

file.xlsm

Link naar reactie
Delen op andere sites

Opmerking 1, de code klopt niet met je vraag.

Opmerking 2, je macro kan herleid worden tot volgende code: (volgens mijn bescheiden mening)

Sub Rij_Invoegen()
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row).Offset(1).PasteSpecial
Application.CutCopyMode = False
End Sub

JeanPaul28 heeft ergens gelijk, een gelijkend voorbeeldbestandje met wat fictieve gegevens en wat je wilt bereiken met je macro is in dit geval wenselijk.

 

Link naar reactie
Delen op andere sites


Ik heb je voorbeeldje bekeken.

Je moet de macro in een gewone module zetten in plaats van in de bladmodule.

in de VBA editor (Alt + F11) -> Invoegen Module en daar je code plaatsen en een snelkoppeling toekennen.

In bijlage een voorbeeldje met als snelkoppeling Ctrl + q met mijn code.

Is dit een stap in de goede richting?

 

invoegen.xlsm

Link naar reactie
Delen op andere sites

Op 24/8/2020 om 16:52, dotchiejack zei:

Ik heb je voorbeeldje bekeken.

Je moet de macro in een gewone module zetten in plaats van in de bladmodule.

in de VBA editor (Alt + F11) -> Invoegen Module en daar je code plaatsen en een snelkoppeling toekennen.

In bijlage een voorbeeldje met als snelkoppeling Ctrl + q met mijn code.

Is dit een stap in de goede richting?

 

invoegen.xlsm 26 kB · 2 downloads

Beste,

 

Dit werkt inderdaad super! Bedankt!  Ik heb wel nog 1 vraagje. Op deze manier overschrijft hij de rijen. De totalen onderaan worden overschreven. Is het mogelijk om een rij toe te voegen en alles 1 rij mee naar onder schuift?

 

Alvast bedankt!

Link naar reactie
Delen op andere sites

Hoi,

Ik heb je bestandje wat herwerkt.

Ik heb de samengevoegde cellen verwijderd.

Een goede raad, probeer zoveel mogelijk samengevoegde cellen te vermijden, beter nog gebruik geen samengevoegde cellen.

Ik heb voor jou een invulformulier gemaakt.(ik maak gebruik van tabellen)

Het enige dat je hoeft te doen is het voorbeeldblad te kopiëren voor de volgende maanden, de rest gebeurd automatisch.

Ik denk dat het op die manier wat makkelijker werkt voor jou.

 

 

 

dagontvangsten.xlsm

Link naar reactie
Delen op andere sites

 Delen

×
×
  • Nieuwe aanmaken...