Waarschuwing in excel als datum bereikt is

[Marliesjuh]

Beste,

Ik heb een zeer grote excel file met gegevens over mijn klanten waar ook data in staan wanneer brieven verstuurd moeten worden. Aangezien het over 5 verschillende brieven en dus ook data gaat per klant en wij 100+ klanten hebben zou ik graag een waarschuwing willen krijgen wanneer ik deze brieven moet versturen.

Deze waarschuwing wil ik dan elke uur of elke dag laten opkomen totdat ik heb aangegeven dat ik de brief heb verstuurd.

Weet iemand of dit mogelijk is in Excel met VBA of is er misschien een mogelijkheid om deze data te koppelen aan outlook en automatisch als taak in outlook te laten zetten.

Alvast heel erg bedankt.

Met vriendelijke groet,
Marlies

 

[exhelp]

Zet volgende code in 'ThisWorkBook' in de VBA Editor:

Private Sub Workbook_Open()

Dim LastRow As Long
Dim a As Integer

With ActiveWorkbook.Sheets(1)
    LastRow = .Range("A1").SpecialCells(xlCellTypeLastCell).Row
End With

For a = 1 To LastRow
    If .Cells(a, "A") >= Date Then
        MsgBox .Cells(a, "B") & "moet zijn brief ontvangen!"
    End If
Next a

End Sub

--> in dit voorbeeld staat de datum van verzending in kolom A en de klantnaam in kolom B.



Elke keer als je het bestand opent zal er een msgbox verschijnen per brief die nog verstuurd moet worden.

Mvg,
Exhelp

 

[Marliesjuh]

Beste Exhelp,

Heel erg bedankt. De VBA code doet het bij mij echter niet.

Hij geeft de volgende foutmelding:
Compileerfout:
Ongeldigde of niet gekwalificeerde verwijzing

waarbij het gedeelde .Cells wordt gemarkeerd in de code.

Ik hoop dat je mij kunt vertellen wat hier mis gaat.

Vriendelijke groet,
Marlies

 

[exhelp]

Oops!

Geen tijd gehad om het te testen.

Verander:

With ActiveWorkbook.Sheets(1)
    LastRow = .Range("A1").SpecialCells(xlCellTypeLastCell).Row
End With

For a = 1 To LastRow
    If .Cells(a, "A") >= Date Then
        MsgBox .Cells(a, "B") & "moet zijn brief ontvangen!"
    End If
Next a

in

With ActiveWorkbook.Sheets(1)
LastRow = .Range("A1").SpecialCells(xlCellTypeLastCell).Row


For a = 1 To LastRow
    If .Cells(a, "A") >= Date Then
        MsgBox .Cells(a, "B") & "moet zijn brief ontvangen!"
    End If
Next a

End With

 

[jverkerk]

Ik heb geen verstand van vba, gebruik het zelf wel eens maar dan moet het helemaal voorgekauwd worden, maar misschien kunnen onze specialisten deze uitdaging aan!!!
Heb wel een voorbeeld gevonden maar ik kan niet controleren of hij werkt.
Je schijnt in outlook ook iets aan te moeten zetten.

http://www.ozgrid.com/forum/showthread.php?t=15716

Option Explicit

Sub Create_Task()
'You must set a reference to the Microsoft Object Library x.x via the Tools | Reference...
'in the VB-editor.
Dim olApp As Outlook.Application
Dim olTask As Outlook.TaskItem

Set olApp = New Outlook.Application
Set olTask = olApp.CreateItem(3)

Application.ScreenUpdating = False

With olTask
.Subject = "This is the title"
.Body = "This is the body"
'You need to change to Your own dateformat.
.StartDate = "2002-09-11"
.DueDate = "2002-09-14"
.Status = olTaskWaiting
.Importance = olImportanceHigh
.ReminderPlaySound = True
.Companies = "XL-Dennis"
.Save
End With

Set olTask = Nothing

Set olApp = Nothing

Application.ScreenUpdating = True

MsgBox "The task-list updated successfully.", vbInformation

End Sub

Misschien kun je hier nog wat mee.
http://www.schoonepc.nl/nieuwsbrief/tips_versturen_facturen_email.html

 

[cow18]

zowel bij outlook als met excel heb je er maar iets aan als de toepassing open staat. Dus heb je outlook niet actief staan of je hebt die specifieke werkmap in excel niet geopend dan krijg je nooit een waarschuwing. Bovendien is, zoals het nu geprogrammeerd is, die waarschuwing 1-malig, namelijk bij het openen.
Nog een extra probleem voor Outlook is wanneer moet die waarschuwing klaargezet worden en hoe moet die afgeboekt worden. Moet je dagelijks brieven verzenden of zo nu en dan een keer 5 brieven.

Kan je anders eens een voorbeeldje (zonder gevoelige info) sturen van wat je nu hebt, dat vergemakkelijkt het vinden van de oplossing.

 

[Marliesjuh]

Beste Cow18,

Bij deze een voorbeeldje van het bestaande excel bestand. Bij alle kolommen waarvan de naam paars is moet er een brief, een email of een telefoontje de deur uit om iets te regelen.

Ik hoop dat jullie mij kunnen helpen.

Vriendelijke groet,
Marlies

Beste Exhelp,

De VBA code doet het bij mij nog steeds niet.

Vriendelijke groet,
Marlies

 

[sylvester-ponte]

om te beginnen misschien iets met een filter? (kolom y)
Bekijk bijlage voorbeeld planning met filter.xlsx

groet sylvester

 

[cow18]

hierbij een aanvang tot oplossing van je probleem
op blad 2 een knop die een lijstje aanmaakt van wat je nog dringend moet doen (in het oranje) en wat er nog in de eerstvolgende maand moet gebeuren.

 

[exhelp]

Beste Exhelp,

De VBA code doet het bij mij nog steeds niet.

Vriendelijke groet,
Marlies

Dag Marlies,

Ik had >= gezet in plaats van <=. Waarvoor mijn excuses.
Voorbeeldbestand in bijlage.

Prettige feesten!
Exhelp