Kedves Imre!

Hasonló problémám van, mint, amit kolléga fentebb említett.
Próbáltam VB-ben írni macrot hozzá, de sajna üres érteket ad vissza. Próbáltam „szabály létrehozást” csinálni, de nem színezi be kívánt cellákat, sorok. (Lehet, hogy rosszul használom, nem kizárt ez sem).

Globálban létrehoztam egy workbook_open() esményre egy call popupuzenet funkciót, ami a Munka1 munkafüzeten meghívja a kövi macrot:
Sub popupuzenet()

Dim sorszam As Integer
Dim a As Integer
Dim uzi As String

uzi = „A következő számlák jártak le: ” & vbCrLf & vbCrLf
sorszám = ThisWorkbook.Worksheets(„Munka1”).Range(„B” & Rows.Count).End(xlUp).Row

For a = 5 To sorszam
If ThisWorkbook.Worksheets(„Munka1”).Range(„B” & a) – Date <= 0 Then
uzi = uzi & ThisWorkbook.Worksheets(„Munka1”).Range(„C” & a).Value & ” ”
End If
Next a
MsgBox uzi

End Sub

A táblázat adatstruktúrája: Lerjárt(dátum cellák alatta), Cégnév(szöveg cellák alatta), összeg (szám cellák alatta).

Nekem megfelel az, ha az irodai mail címünkre küldene egy értesítést, ami egy gyűjtő email, így mindenki megkapja, aki illetéket. (Sajna, ezt a részét már nem tudom integrálni a macroba, hogy email-t is küldjön). Outlook van a gépeken, céges domainű email címekkel. Hatalmas segítség lenne, ha a kiküldendő mailben (mint ahogy a kódban is) a Cég neve szerepelne, dátum a mail-ben nem fontos (szerintem). Max annyival módosíthatnám, hogy Today() helyett mondjuk 7 nappal korábbi dátumokat figyeljen a kód. (tudom, ha egy másik oszlopban megcsinálom a =Lejárt(cella)-7, akkor figyelheti a macro azt az oszlopot is.

Remélem, tudnál segítene ebben a kis projectben. Nagyban megkönnyítené a mindennapjaimat az irodában és más feladatokra fordíthatnám a felszabadult időt.

Köszönöm előre is a válaszodat.