datum vast leggen

[jurjen65]

hallo
in ee bestand wil ik de datum vast gelegd hebben van het de dag dat het ingevuld word.
Als ik in kolom I een getal in vul groter dan 10 moet de datum van die dag eigelijk verschijnen in kolom K.
Deze datum moet dan ook blijven staan.
kan iemand mij hier bij helpen al vast bedanktBekijk bijlage proef.xls

 

[Roncancio]

In je bestand zit een macro de datum plaatst als de waarde in de I-kolom groter is dan 10.



Met vriendelijke groet,


Roncancio

 

[Cobbe]

En wat gebeurt er morgen met de opdracht 'date' ?

Je zou nog bij afsluiten van het bestand deze datum copy/pasten ->values.

Denk ik toch zo.

Of misschien deze toevoeging:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 And Target.Value > 10 [COLOR="#FF0000"][/COLOR][B]And IsDate(Target.Offset(0, 2)) = False [/B]Then Target.Offset(0, 2).Value = Now
End Sub

 

[Roncancio]

Dan verschijnt de datum van morgen als je in de I-kolom een waarde groter dan 10 invoert.
De code plaatst alleen de datum van vandaag maar niet de functie, dus van een automatische berekening is geen sprake.
Copy/Paste is dan ook niet nodig.

Met vriendelijke groet,


Roncancio

 

[jurjen65]

bedankt roncancio

de marcro werkt inderdaad maar hoe krijg ik hem in het orignele bestand dit was een proef blad omdat het origneel veel te groot is.
kun je dat ook nog uitleggen alvast bedankt.

 

[Roncancio]

De code staat in de VBE (Visual Basic Editor).
Dit kun je bereiken door met ALT-F11.
Als het goed is zie je links een lijst met de werkbladen. Zo niet CTRL-R).
Dubbelklik in de lijst links op het werkblad met de code en kopieer de code op dezelfde plek in het origineel.

Met vriendelijke groet,


Roncancio

 

[jurjen65]

bedankt roncarnio
het is inderdaad gelukt , ik heb nog een vraag als het niet kolom K maar L of M kun je dit dan ook makkelijk veranderen?.
Ik alvast bedankt.

 

[Roncancio]

In de code maak ik gebruik van:

If Target.Column = 9 And Target.Value > 10 Then Target.Offset(0, 2).Value = Date

De 9 staat voor de 9e letter van het alfabet ("I").

Je kunt ook werken met de letters zelf:

If Chr(64 + Target.Column) = "I" And Target.Value > 10 Then Target.Offset(0, 2).Value = Date

De 2e code is iets makkelijker leesbaar maar je komt in de problemen als de betreffende kolom verder ligt dan Z.

Het is maar net wat je prettiger vindt werken.

Met vriendelijke groet,


Roncancio

 

[jurjen65]

roncancio bedankt
ook voor de uit leg snap het nu en het werkt goed bedankt ga de vraag nu sluiten