arthur greven
Nieuwe gebruiker
- Lid geworden
- 29 okt 2009
- Berichten
- 3
Hoi,
Ik zit met het volgende, dit programma heb ik van het forum afgehaald,hij werkt perfect.
Dit programma gebruik ik in Excel, deze geeft aan wanneer een datum verloop. Mijn vakje word dan rood. Wat ik nu wil is dat het programma 182 dag van te voren een mail stuurt dat de datum gaat verlopen. Deze mail mag dan elke dag verzonden worden. Weet iemand wat ik moet veranderen?
Dank al vast voor de moeite
Groetjes Arthur
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [b32].Value = "" Then Exit Sub
If [b32].Value = Date Then
ActiveWorkbook.Sheets("proef").Copy
With ActiveWorkbook
.SendMail "mijn@mail.nl", "Een datum is verlopen"
.Close False
[A1].Value = ""
End With
End If
End Sub
Ik zit met het volgende, dit programma heb ik van het forum afgehaald,hij werkt perfect.
Dit programma gebruik ik in Excel, deze geeft aan wanneer een datum verloop. Mijn vakje word dan rood. Wat ik nu wil is dat het programma 182 dag van te voren een mail stuurt dat de datum gaat verlopen. Deze mail mag dan elke dag verzonden worden. Weet iemand wat ik moet veranderen?
Dank al vast voor de moeite
Groetjes Arthur
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [b32].Value = "" Then Exit Sub
If [b32].Value = Date Then
ActiveWorkbook.Sheets("proef").Copy
With ActiveWorkbook
.SendMail "mijn@mail.nl", "Een datum is verlopen"
.Close False
[A1].Value = ""
End With
End If
End Sub
