wijziging cel timestamp met VBA meerdere colummen

[jdrmer]

Hallo dames en heren,
een vraag, ik zou graag willen dat als er in 14 kolommen de cel wordt gewijzigd een timestamp wordt gemaakt op vanaf de kolommen ernaast.
Ik heb het nu zie voorbeeld gemaakt met 2 kolommen, maar verder kom ik niet, dit zal wel niet de juiste manier zijn. Ik heb geprobeerd met range, maar niet werken.
Zou iemand kunnen helpen.
mvg Jan Fokkema

 

[edmoor]

Zet deze achter de bladen:

Private Sub Worksheet_Change(ByVal target As Range)
    Call PlaatsTimestamp(target)
End Sub

En deze in een module:

Sub PlaatsTimestamp(ByVal target As Range)
    If target.Column > 14 Then Exit Sub
    Application.EnableEvents = False
    target.Offset(0, 10).Value = IIf(target.Value <> "", Now, "")
    Application.EnableEvents = True
End Sub

Maar als je dat voor 14 kolommen wilt moet je uiteraard een offset groter dan 14 gebruiken in plaats van 10.

 

[jdrmer]

wijziging cel timestamp met VBA meerdere colummen Uw bericht

Bedankt voor je kennis, hulp, werkt.
mvg Jan

 

[jdrmer]

Hoi, ik heb nog 'n probleem.
Ik heb 25 werkbladen met daarin 12 kolommen, als ik dit toepas stuit ik op dat
Private Sub Worksheet_Change(ByVal target As Range)
Call PlaatsTimestamp79(target)
End Sub
12 keer moet kijken naar de modules, maar kan dus niet verder als 1 keer.
De wens is dus elk werkblad heeft 12 kolommen en als daarin in kolom 1 t/m 12 wordt gewijzigd naast deze kolommen de timestamp komt te staan.
Hoe nu verder?
mvg Jan

 

[edmoor]

Ik begrijp je probleem niet want dat is precies wat mijn voorbeeld doet. Wellicht dat je een beter voorbeeld moet geven.
En dit? Call PlaatsTimestamp79(target) Waarom heb je daar 79 achter gezet? Die Sub is maar 1x nodig.

 

[jdrmer]

wijziging cel timestamp met VBA meerdere colummen Uw bericht

Ik dacht hiermee het probleem op te lossen, echter nee.
Ik heb het voorbeeld aangepast, om te verduidelijken dus in de gele vlakken als daar iets wordt gewijzigd, dan timestamp in het blauw vlak. En dit voor meerdere werkbladen.
mvg Jan

 

[edmoor]

Dat werkt dus precies zoal ik al zei. Je moet alleen die Offset(0, 10) wijzigen in Offset(0, 14).
En dit:

Private Sub Worksheet_Change(ByVal target As Range)
    Call PlaatsTimestamp(target)
End Sub

Moet dus achter ieder werkblad worden geplaatst. Anders dan die Offset hoef je aan de code niets te wijzigen.

 

[jdrmer]

wijziging cel timestamp met VBA meerdere colummen Uw bericht

Je hebt gelijk, dankjewel.
mvg Jan

 

[HSV]

Of zet het éénmalig in Thisworkbook.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Call PlaatsTimestamp(Target)
End Sub

 

[edmoor]

Beter :thumb: