met datums rekenen

Status
Niet open voor verdere reacties.
O

Oude leerling

Gebruiker
Lid geworden
30 aug 2010
Berichten
554
Geacht forum,

Ik wil een herinnering sturen van een factuur waarvan de vervaldatum is verstreken
In ("F" & Range("N1")) staat de vervaldatum (opmaak is datum)
In Range("A40") staat de datum van vandaag (opmaak is datum)

Als ik nu die 2 van elkaar aftrek en het getal is groter dan nul , dan is de vervaldatum nog niet bereikt en
volgt er een mededeling. Is het getal kleiner dan nul dan word er een herinnering verstuurd.

Ik dacht dat het met onderstaande code zou moeten gaan maar krijg de mededeling "Typen komen niet overeen"
Wat doe ik nou fout?? en wat moet de code dan wel zijn??

Jaap

Code: 
If ("F" & Range("N1")) - Range("A40") > 0 Then
MsgBox "Vervaldatum is nog niet bereikt"
Exit Sub
Else
 
Zonder document met voorbeeld zou ik zeggen dat je er dit van moet maken:
If Range("F" & Range("N1")) - Range("A40") > 0 Then

Je mist dus het rode gedeelte.
 
Laatst bewerkt:
Lijkt mij een bijzondere constructie. De vervaldatum staat in kolom F in de rij die je in N1 opgeeft? De datum van vandaag kan je gewoon opvragen en hoef je niet in A40 te zetten.

If Range("F" & Range("N1")) - Date > 0
 
edmoor,

Dat ik Range vergeten ben ervoor te zetten. Stom stom , zal wel in dat uur verschil zitten.

VenA , O dat wist ik niet , alweer wat bijgeleerd

Allebei bedankt voor de hulp en nog een prettige avond gewenst.

Groetje Jaap
 
of

Code: 
If cells(1,6)\date then
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan