Datum automatisch invullen in cel bij bepaalde voorwaarde.

[machielv]

Heb in kolom een te ontvangen bedrag daarnaast een kolom overgemaakt dan zou ik indien ik daar het bedrag heb ingevuld in de naastliggende kolom de datum zien.

 

[edmoor]

Met deze:
=ALS(C2>0;TEKSTVANDAAG();"Open")

Alleen even de cel eigenschappen op Datum zetten.

 

[machielv]

Bedankt voor de snelle reactie.

 

[AlexCEL]

@Edmoor:

=ALS(C2>0;TEKSTVANDAAG();"Open")

is TEKSTVANDAAG() een nieuwe functie?

 

[edmoor]

Graag gedaan, maar bedenk me net dat die datum dan morgen op een dag later zal staan en ik denk niet dat je dat wilt.
Dan brengt een stukje VBA uitkomst:
Bekijk bijlage Kopie van datum.xlsm

 

[machielv]

Krijg helaas in kolom d nu #Naam?

 

[machielv]

Nog even een reactie van mijn kant ik gebruik dit in Office 365 en dan werkt een xlsm volgens mij niet.
Machiel

 

[edmoor]

Die TEKST is een foutje, dat moet gewoon dit zijn:
ALS(C2>0;VANDAAG();"Open")

Ik zou verder zeggen, probeer het eens met dat .xlsm document.

 

[edmoor]

@Edmoor:

is TEKSTVANDAAG() een nieuwe functie?

Ik werd gestoord en kennelijk op Opslaan geklikt

 

[AlexCEL]

:d

 

[VenA]

Wat moet er gebeuren als een bedrag gedeeltelijk betaald is? Of komt dat niet voor?

Met 1 regel

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Cells(1).CurrentRegion.Offset(1).Resize(, 1).SpecialCells(2).Offset(, 2)) Is Nothing Then Target.Offset(, 1) = IIf(Target <> "", Date, "Open")
End Sub

Ik werd gestoord

Blij dat je hersteld bent:d

 

[edmoor]

Blij dat je hersteld bent:d

Blij dat er iemand is die dat gelooft