Datum/ tijd van invoer vast leggen

[Eddy v]

Hallo,

Ik moet een aantal gegeven invoeren. In dit voorbeeld zijn het getallen.

Deze worden ingevoerd in de kolom B vanaf B5
In de A kolom moet dan de huidige datum/tijd van invoer komen staan.

Ik had het probeert met de onderstaande formule

=ALS(B5="";"";WAARDE($B$1))

Maar dan verandert de datum/tijd in kolom A steeds mee naar de huidige tijd

Hopelijk kan iemand van jullie mij helpen

Eddy

 

[emields]

zo?

 

[Eddy v]

Hallo,

Als je je voorbeeld bekijk is het precies wat ik bedoel

Echter als ik getallen ga in vullen veranderd de datum steeds van heel de kolom A mee

Gr Eddy

 

[JeanPaul28]

kijk eens naar mijn oplossing

 

[Eddy v]

Uhhh volgend mij werken beide bestanden wel.

Maar werken jullie met macro's is het zonder macro niet mogelijk?

En hoe voeg ik een Marco aan een bestand toe?

Gr Eddy

 

[emields]

Hallo,

Als je je voorbeeld bekijk is het precies wat ik bedoel

Echter als ik getallen ga in vullen veranderd de datum steeds van heel de kolom A mee

Gr Eddy

µ
verander ook eerst de andere getallen die werken nog op uw systeem.

 

[Eddy v]

JA ook als ik weer vanaf begin begin in te voeren werkt het prima.

Alleen vraag ik me af hoe jullie het voor elkaar hebben gekregen.
Is een stukje VBA? Ik zag daar namelijk wel iets staan.

Maar hoe voeg je zoiets toe aan een bestaand document. Ik ga dat namelijk vast vaker gebruiken

 

[emields]

zie de code achter het blad.

klik met rechts op het tabblad
kies programmacode weergeven.

 

[Eddy v]

Ja hoor helemaal top..

Mmm nu zit ik eigenlijk te denken om op een andere manier in te vullen.

Zou nu steeds opnieuw het nummer invoeren in B3 en dan automatisch in de eerst volgende lege cel in de kolom B wordt ingevoerd.

Zodat ik de rest van het werkblad oplost kan zetten

Gr Eddy

 

[emields]

dan doe je het beter zo.

 

[Eddy v]

Hartelijk dank,

rivate Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b3]) Is Nothing Then
With [a10000].End(xlUp)
.Offset(1) = Now
.Offset(1, 1) = Target.Value
End With
End If
End Sub

Ik probeer het even te begrijpen

Als ik In B3 iets invul volgt er een tigger die dus

Offset (1) = NOw (hiermee de datum invoert)
Offset (1,1) = Target.Value (hiermee het getal invoert)

Kan ik dan ook naar een andere kolom laten verwijzen?

Met vriendelijke groet,

Eddy

 

[emields]

ja dat kan.

 

[Eddy v]

is dat erg moeilijk?

of is dat een kleine aanpassing?

 

[Haije]

...of is dat een kleine aanpassing?

pas dit aan:

.Offset(1) = Now
.Offset(1, 1) = Target.Value

 

[Eddy v]

Hallo,

Dat had ik al gedacht.

Maar ik snap helaas niet heel de logica achter deze getallen.

Wat geeft de kolom en wat de rij weer?

Gr Eddy

 

[AD1957]

Zie rode commentaar in code.
Gewoon eens een beetje spelen met de cijfers en je komt er zelf achter.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b3]) Is Nothing Then
With [a10000].End(xlUp)                         [COLOR="#FF0000"]'gaat naar eerste gevulde cel vanaf cel A10000 ( zoeken naar boven)[/COLOR]
    .Offset(1) = Now                               [COLOR="#FF0000"]'1 rij naar beneden[/COLOR]
    .Offset(1, 1) = Target.Value               [COLOR="#FF0000"] '1 rij naar beneden en 1 kolom naar rechts[/COLOR]
 End With
End If
End Sub

 

[emields]

Met een beetje uitleg in de macro.
mocht je het niet begrijpen stuur een voorbeeld

 

[Haije]

Hallo,

Dat had ik al gedacht.

Maar ik snap helaas niet heel de logica achter deze getallen.

Wat geeft de kolom en wat de rij weer?

Gr Eddy

Excel beschikt over een HELP-functie, te bereiken m.b.v. de toets F1

 

[Eddy v]

Nu is het een stuk duidelijker voor mij.

En daar kan ik zeker wat mee.

Hartelijk dank allemaal voor jullie reacties

 

[Eddy v]

Met een beetje uitleg in de macro.
mocht je het niet begrijpen stuur een voorbeeld

Hallo,

Zat nog even te puzzel met Uw voorbeeld.

Is het mogelijk dat nadat ik op enter druk als ik een nummer heb ingevoerd in B3 dat hij weer naar B3 terug springt zodat ik weer meteen een volgende nummer kan ingeven?