Waarde kolom A datum zien in kolom B

[thehees]

Beste allemaal,

Wanneer in kolom A een waarde ingevoerd wordt wil ik graag in kolom B een datum zien
die niet meer verandert. maw de datum van invoering is voor mij zeer belangrijk..........

Is dit te realiseren??

Mvrgr

Thehees

 

[Wigi]

Druk Ctrl-;

 

[Ginger]

Thehees, als het persé moet gebeuren op het moment dat je iets in kolom A invult, kan je deze code gebruiken (plaats in de module van de sheet waar je 't wilt gebruiken)

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 1 And Target.Offset(, 1).Value = "" Then
        Target.Offset(, 1).Value = Date
    End If

End Sub

Maar eigenlijk is de manier van Wigi ook niet zo moeilijk... Toch?

Groet, Leo

 

[thehees]

Datum van invoering

De bedoeling is dat dit geautomatiseerd gaat.....
Dus lukt het ook met (mijn simpele brein)voorbeeld als hieronder

Bijv. Als Kolom A>0, Kolom B = Ctrl-; ???

 

[Wigi]

Dat is hetgeen de code van Leo doet.

BTW Leo, Application.EnableEvents ...

Wigi

 

[Ginger]

Wigi, EnableEvents is bij deze niet nodig (volgens mij...). De code wijzigt de cel in kolom B en valt dus via het IF statement buiten het Change-event. But, please correct me if i'm wrong...

Groet, Leo

 

[Wigi]

Je hebt gelijk dat het niet veel uitmaakt, maar wel 1 IF...

(per keer dat je er een datum wordt weggezet).

Dat is dus wel verwaarloosbaar zeker op een vrijdagavond.

Wigi

 

[Ginger]

zeker op een vrijdagavond

...en ZO is het!

 

[thehees]

eehm.......

Ok... ik heb het even geprobeerd met die formule invoeren... maar geen succes...
Vraag! waar moet ik dit invoeren(kolomB)???..

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 1 And Target.Offset(, 1).Value = "" Then
        Target.Offset(, 1).Value = Date
    End If

End Sub

Het is ook allemaal Engels!!
heb zelf een nederlandse Excel!!

 

[Wigi]

waar moet ik dit invoeren(kolomB)

Dan gaat het niet werken.

Dit is VBA-code, de taal waarin je programmeert in Excel.

Dat is steeds in het Engels, ongeacht de taal van de Excel versie.

Klik met rechtermuisknop op de bladtab van het werkblad waar dit moet gelden.

Dan kies je "Programmacode weergeven".

Plak de code in het grote witte vlak en sluit het venster terug.

Zou dan in orde moeten zijn.

Wigi

 

[Finch]

Dan gaat het niet werken.

duidelijk vrijdagavond

 

[Wigi]

duidelijk vrijdagavond

Geduld, geduld Finch :evil:

Of ben ik niet snel genoeg

 

[Finch]

Geduld, geduld Finch :evil:

Of ben ik niet snel genoeg

Toen ik u quote stond al diene tekst er, niet de oplossing

Maar nu is het goed zenne

 

[Wigi]

Toen ik u quote stond al diene tekst er, niet de oplossing

Maar nu is het goed zenne

Ik heb je daarover gemaild.

Back on-topic

 

[Finch]

Ik heb je daarover gemaild.

Back on-topic

mail back

nu terug on topic

 

[Wigi]

thehees

Let niet op deze laatste berichtjes over en weer... 't is weekend hé.

Over jouw vraag: probeer zelf eens te doen wat ik als oplossing aangaf, mocht dat om één of andere reden niet lukken, vraag dan maar weer.

Maar houd er wel rekening mee dat dit een VBA-oplossing is, en - zoals ik het nu kan inschatten - dat jij op dit moment nog niet echt bedreven bent in Excel. (Hopelijk vergis ik mij). Dat is uiteraard helemaal niet erg, maar wees je er wel van bewust dat dingen als dit verder gaan dan het "gewone" Excelwerk. En dat er dingen zijn die nu boven je petje gaan. Misschien kan de Kerstman een VBA-boek meebrengen

Succes ermee.

Wigi

 

[thehees]

Het is gelukt!! Helemaal top!!
Mijn eerste stappen tot expert zijn gedaan dankzij jullie!!

:thumb:

Alleen......waar kan de kerstman zo'n VBA-boek vinden??(hahaha)


Jullie horen nog van mij!

Bedankt.

Fijne dagen

 

[Wigi]

Mijn eerste stappen tot expert zijn gedaan dankzij jullie!!

"The road to success is long..."

Alleen......waar kan de kerstman zo'n VBA-boek vinden??(hahaha)

Ik vermoed dat de hahaha wel betekenen dat dit een vraag is die niet beantwoord moet worden.

Voor jou ook prettige feesten.

Wigi