Now()

[Tjico30]

Ik wil dat excel uitomatisch de tijd past in cel A2 als ik een waarde invul in cel A1
Ik ken de functie =NOW() maar die tijd veranderd iedere keer als ik enter.
Hoe kan ik dit oplossen ?

 

[robdgr]

Dat vraagt om een stukje code, zie bijlage

 

[Tjico30]

Rob, bedankt.
je hebt het over een stukje code (waarschijnlijk een VBA waar ik geen kaas van heb gegeten)
Als ik deze "code" nou wil copieren naar andere cellen hoe doe ik dat dan ?
Daarom had ik ook een formule/functie verwacht.
Ik heb veel meer cellen waar deze code in moet voorkomen.

 

[Roncancio]

Rob, bedankt.
je hebt het over een stukje code (waarschijnlijk een VBA waar ik geen kaas van heb gegeten)
Als ik deze "code" nou wil copieren naar andere cellen hoe doe ik dat dan ?
Daarom had ik ook een formule/functie verwacht.
Ik heb veel meer cellen waar deze code in moet voorkomen.

Het lijkt mij niet dat de code gekopieerd moet worden voor de andere cellen.
Wat handiger is, is om zodra een waarde is veranderd, de tijd in de naastgelegen cel aan te passen.
Zo heb je ook weinig code nodig.

Het zou handig zijn als je een voorbeeldbestand met fictieve gegevens kan bijvoegen.

Met vriendelijke groet,


Roncancio

 

[Tjico30]

Ik heb een voorbeeld bijgevoegd,

Als er een waarde in cell A2 wordt gezet moet automatisch in B2 de tijd worden gepaste.
Dit telt ook voor alle onderliggende cellen .
Hoe de uiteindelijke sheet eruit moet komen te zien weet ik nog niet ,dus ik zal er nog veel aan moeten sleuten.

 

[Tjico30]

met bijlage

 

[trucker10]

Test deze eens

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r           As Range
    Dim cell        As Range

    Set r = Intersect(Target, Columns(1), Me.UsedRange)
    If r Is Nothing Then Exit Sub

    On Error Resume Next
    Application.EnableEvents = False
    For Each cell In r
        Cells(cell.Row, "B").Value = IIf(cell = Empty, vbNullString, Format(Now(), "hh:mm:ss"))
        
    Next cell
    Application.EnableEvents = True
End Sub

Je kan ook wat spelen met volgende >

 Format(Now(), "op dddd dd/mm/yy te hh:mm:ss"))

 

[Tjico30]

Ziet er allemaal mooi uit maar zoals ik al zei ik heb geen kaas gegeten van code's.
Wat kan/moet ik met deze code

In ieder geval bedankt voor je reactie

 

[trucker10]

De macro staat in het bestandje , deze kan je inkijken wijzigen . Doe een rechtermuisklik op je tab van het blad ( sheet1)> klik op " programma code weergeven " en je komt direct in het goede venster , je kan ook Alt F11 drukken om in de VB editor te komen .

Indien je het via een formule wil oplossen kan dit ook zet dan deze in je kolom B en doortrekken naar onder.

=ALS(A2="";"";(NU()))

dan moet je in kolom B de celeigenschappen op uur u:mm:ss zetten

 

[Warme bakkertje]

Dit kan toch met 1 regel

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then Target.Offset(, 1) = Format(Time, "hh:mm:ss")
End Sub

 

[Tjico30]

Trucker10

Formule wil niet omdat deze tijd na iedere enter in iedere cell dan veranderd.
Op het moment dat de tijd wordt gepaste moet die niet meer veranderen.

 

[sylvester-ponte]

zo iets?

met functies

]Function Test_nu(C As Range)
  Static Cs
  If C <> Cs Then
    Test_nu = Now()
    Cs = C
  End If
End Function

groet sylvester

 

[sylvester-ponte]

hallo


ik maakte het veelte ingewikkeld deze formule werkt ook

als in A2 iets verandert, verandert in A1 de tijd

Function Test_nu(C As Range)
  Test_nu = Now()
End Function

groet sylvester

 

[sylvester-ponte]

hoi Tjico30

hier je voorbeeld met formule

groet sylvester

 

[trucker10]

sylvester-ponte, ik denk dat Tjico30 nog aan het sleutelen is

Hoe de uiteindelijke sheet eruit moet komen te zien weet ik nog niet ,dus ik zal er nog veel aan moeten sleuten.

maar ik vermoed dat eens de tijd der staat deze niet meer mag wijzigen > fiks

Ik ken de functie =NOW() maar die tijd veranderd iedere keer als ik enter.

zo zal er een If statement in de macro moeten staan voor als de cel ( kolom B ) reeds een tijdswaarde bevat .
Ik wacht tot de TS nog eens van zich laat horen om ..........

 

[sylvester-ponte]

hoi trucker10

ik dacht juist dat bij ieder wijziging de tijd aangepast moest worden

maar wat jij zegt is ook mogenlijk:thumb:

ik ben benieuwd naar wat Tjico30 zijn bedoeling is

groet sylvester

 

[Tjico30]

Sorry voor mijn late reactie.
Was aan het sleutelen.!!!
Inmiddels is het mij gelukt met "het stukje code".
In ieder geval allemaal bedankt.
Ik weet nog steeds niet wat de code doet en kan het zelf niet maken maar voorlopig ben ik geholpen

 

[trucker10]

Tjico30 , dit forum heeft een ingebouwde zoekfunctie Voor de mensen die dezelfde vraag ( zouden) hebben , wat was voor jou de " goede " code " ?

 

[Tjico30]

Ik heb de code van RDG1314 gebruikt.
De andere heb ik om eerlijk te zijn niet geprobeerd enkel de test_nu.
Die werkt ook.

 

[Tjico30]

RDG1314 ,
Alles werkt naar behorens (bedankt)
Is er ook een mogelijkheid in de code om in een kollom ernaast de datum te plakken ?