VBA code kopiëren naar alle bladen

[Piet Robe]

Beste mensen,
Als in meerdere werkbladen hetzelfde wilt invoeren kun je met een groep
werken.
Nu heb ik in een blad de volgende code staan:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 66 Then
Target.Offset(0,22).Value = Format(Now(), "ddyymm)
End If
End Sub

Is het mogelijk om alle werkbladen te voorzien van deze code, zonder
kopiëren, naar ander blad gaan en vevrolgens plakken te kiezen??

Zou me natuurlijk een hoop besparen want het zijn zo'n 123 werkbladen, die
allemaal een eigen tabbladnaam hebben.

Is daar een simpele oplossing voor?

Met vriendelijke groet
Piet Robe

(to reply to sender remove DITVERWIJDEREN from emailadress)

[Ingrid Baplue]

Zet volgende code in ThisWorkbook en verwijder de huidige macro uit de
werkblad-code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Column = 66 Then
Target.Offset(0, 22).Value = Format(Now(), "ddyymm")
End If
End Sub
--
Ingrid Baplue
Microsoft MVP - Excel
http://users.pandora.be/ingrid/excel/

Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Post by Piet Robe
Beste mensen,
Als in meerdere werkbladen hetzelfde wilt invoeren kun je met een
groep werken.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 66 Then
Target.Offset(0,22).Value = Format(Now(), "ddyymm)
End If
End Sub
Is het mogelijk om alle werkbladen te voorzien van deze code, zonder
kopiëren, naar ander blad gaan en vevrolgens plakken te kiezen??
Zou me natuurlijk een hoop besparen want het zijn zo'n 123
werkbladen, die allemaal een eigen tabbladnaam hebben.
Is daar een simpele oplossing voor?
Met vriendelijke groet
Piet Robe
(to reply to sender remove DITVERWIJDEREN from emailadress)

[Piet Robe]

Ingrid,
Bedankt voor je antwoord, maar is dan ook mogelijk om enkele sheets uit te
sluiten. Het zijn er ongeveer 5.
Groet
Piet

Post by Ingrid Baplue
Zet volgende code in ThisWorkbook en verwijder de huidige macro uit de
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Column = 66 Then
Target.Offset(0, 22).Value = Format(Now(), "ddyymm")
End If
End Sub
--
Ingrid Baplue
Microsoft MVP - Excel
http://users.pandora.be/ingrid/excel/
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Post by Piet Robe
Beste mensen,
Als in meerdere werkbladen hetzelfde wilt invoeren kun je met een
groep werken.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 66 Then
Target.Offset(0,22).Value = Format(Now(), "ddyymm)
End If
End Sub
Is het mogelijk om alle werkbladen te voorzien van deze code, zonder
kopiëren, naar ander blad gaan en vevrolgens plakken te kiezen??
Zou me natuurlijk een hoop besparen want het zijn zo'n 123
werkbladen, die allemaal een eigen tabbladnaam hebben.
Is daar een simpele oplossing voor?
Met vriendelijke groet
Piet Robe
(to reply to sender remove DITVERWIJDEREN from emailadress)

[Luc.Heyndrickx]

Piet,

dit hier?

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Sh.Name <> "Blad1" Then
If Target.Column = 66 Then
Target.Offset(0, 22).Value = Format(Now(), "ddyymm")
End If
End If
End Sub

Luc

Post by Piet Robe
Ingrid,
Bedankt voor je antwoord, maar is dan ook mogelijk om enkele sheets uit te
sluiten. Het zijn er ongeveer 5.
Groet
Piet

Post by Ingrid Baplue
Zet volgende code in ThisWorkbook en verwijder de huidige macro uit de
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Column = 66 Then
Target.Offset(0, 22).Value = Format(Now(), "ddyymm")
End If
End Sub
--
Ingrid Baplue
Microsoft MVP - Excel
http://users.pandora.be/ingrid/excel/
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Post by Piet Robe
Beste mensen,
Als in meerdere werkbladen hetzelfde wilt invoeren kun je met een
groep werken.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 66 Then
Target.Offset(0,22).Value = Format(Now(), "ddyymm)
End If
End Sub
Is het mogelijk om alle werkbladen te voorzien van deze code, zonder
kopiëren, naar ander blad gaan en vevrolgens plakken te kiezen??
Zou me natuurlijk een hoop besparen want het zijn zo'n 123
werkbladen, die allemaal een eigen tabbladnaam hebben.
Is daar een simpele oplossing voor?
Met vriendelijke groet
Piet Robe
(to reply to sender remove DITVERWIJDEREN from emailadress)

[Ingrid Baplue]

Als die werkbladen eerst (of laatst) staan kan je zo'n test toevoegen:

If Sh.Index > 5 Then

Sh is het werkblad waarop de wijziging gebeurt is.

Als de werkbladen er ergens tussen staan zal het makkelijker zijn om met de
namen te werken:

If Sh.Name = "Blad1" Or Sh.Name = "Blad2" Or ... Then Exit Sub

Post by Piet Robe
Ingrid,
Bedankt voor je antwoord, maar is dan ook mogelijk om enkele sheets
uit te sluiten. Het zijn er ongeveer 5.
Groet
Piet

Post by Ingrid Baplue
Zet volgende code in ThisWorkbook en verwijder de huidige macro uit
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Column = 66 Then
Target.Offset(0, 22).Value = Format(Now(), "ddyymm")
End If
End Sub
--
Ingrid Baplue
Microsoft MVP - Excel
http://users.pandora.be/ingrid/excel/
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Post by Piet Robe
Beste mensen,
Als in meerdere werkbladen hetzelfde wilt invoeren kun je met een
groep werken.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 66 Then
Target.Offset(0,22).Value = Format(Now(), "ddyymm)
End If
End Sub
Is het mogelijk om alle werkbladen te voorzien van deze code, zonder
kopiëren, naar ander blad gaan en vevrolgens plakken te kiezen??
Zou me natuurlijk een hoop besparen want het zijn zo'n 123
werkbladen, die allemaal een eigen tabbladnaam hebben.
Is daar een simpele oplossing voor?
Met vriendelijke groet
Piet Robe
(to reply to sender remove DITVERWIJDEREN from emailadress)

[Piet Robe]

Ingrid en Luc,
Bedankt voor jullie oplossingen. Ik heb voor de oplossing va Ingrid gekozen
omdat het voor meerdere bladen geldt en ik kon deze zelfstandig aanpassen
naar mijn situatie.

Groet
Piet

Post by Piet Robe
Ingrid,
Bedankt voor je antwoord, maar is dan ook mogelijk om enkele sheets uit te
sluiten. Het zijn er ongeveer 5.
Groet
Piet

Post by Ingrid Baplue
Zet volgende code in ThisWorkbook en verwijder de huidige macro uit de
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Column = 66 Then
Target.Offset(0, 22).Value = Format(Now(), "ddyymm")
End If
End Sub
--
Ingrid Baplue
Microsoft MVP - Excel
http://users.pandora.be/ingrid/excel/
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Post by Piet Robe
Beste mensen,
Als in meerdere werkbladen hetzelfde wilt invoeren kun je met een
groep werken.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 66 Then
Target.Offset(0,22).Value = Format(Now(), "ddyymm)
End If
End Sub
Is het mogelijk om alle werkbladen te voorzien van deze code, zonder
kopiëren, naar ander blad gaan en vevrolgens plakken te kiezen??
Zou me natuurlijk een hoop besparen want het zijn zo'n 123
werkbladen, die allemaal een eigen tabbladnaam hebben.
Is daar een simpele oplossing voor?
Met vriendelijke groet
Piet Robe
(to reply to sender remove DITVERWIJDEREN from emailadress)