Reminder/pop-up instellen op kolom geselecteerd

[Muchacho NL]

Dag experts

Graag zou ik jullie hulp willen bij de volgende uitdaging.

In een Excel bestand staan alle medewerkers met een datum wanneer hun contract verloopt.
Graag zou ik in dat bestand een pop-up willen bouwen die, zodra een datum minder dan 30 dagen in de toekomst ligt, aangeeft dat de betreffende cel
een waarde heeft die binnen 30 dagen ligt, en dus de persoon een contractverlenging of -annulering moet krijgen.

Ik hoop dat het duidelijk genoeg is, anders maak ik er een tekeningetje van

 

[ExcelAmateur]

Muchacho NL,

Men heeft graag een voorbeeld bestandje i.p.v. een tekeningetje.
Kijk eens op de link of je daar mee uit den voeten kunt.

Kijk hier eens.

 

[Warme bakkertje]

Deze eens gemaakt voor iemand anders op het forum. Zelfde principe

 

[Muchacho NL]

Warme bakkertje,

Bedankt!
Hier moeten we goed mee uit de voeten kunnen komen.
Kan je me een kleine uitleg geven hoe ik dit kan aanpassen naar bijv. een groter bereik (heel de kolom) en een iets specifiekere naam bij de knop en het pop-up venster?

ExcelAmateur, bedankt voor het meedenken, maar dat was niet geheel compleet.

 

[Warme bakkertje]

Het bereik zou ik niet aanpassen dwz hij neemt nu enkel het bereik vanaf F2 tot de laatsgevulde cel in kolom F, wat voldoende is omdat je anders met XL2007 1048756 cellen moet doorlopen, wat dan weer onzinnig is.
Voor de naam v/d knop ga je naar tabblad Ontwikkelaars, selecteer ontwerpmodus, rechtsklik op de knop en selecteer Eigenschappen, bij Caption gewenste naam invullen.
Voor de naam v/h formulier ga naar VB-Editor (ALT F11), Formulieren, Formulier selecteren, klik op eigenschappen( F4 ), bij Caption gewenste naam invullen.

 

[Muchacho NL]

Ah, dus als ik een cel invul dan pakt-ie het automatisch mee. Nice.

EDIT: Helaas, toch niet.
Ik ben tot dusver gekomen dat ik het werkblad heb ingekort, en ook de code heb weten aan te passen.
Nu heeft deze slechts één keer gewerkt, en nu krijg ik de foutmelding die jullie ook gaan krijgen als je het bestand bekijkt.

Vervolgens zou ik graag wel voor- en achternaam willen zien in de pop-up box, en de laatste heb ik handmatig toegevoegd, en pakt zoals je ziet niet de voorwaardelijke opmaak mee.

Bekijk bijlage contracts.xlsm

 

[Warme bakkertje]

Private Sub userform_initialize()
    Dim myarray() As Variant, i As Integer
    i = 0
    ReDim myarray(2, 1 To ActiveSheet.UsedRange.Rows.Count)
    With Sheets("Blad1")
        For Each cl In .Range("D2:D" & .Cells(Rows.Count, 4).End(xlUp).Row)
            If DateValue(cl) > Date And DateValue(cl) <= DateSerial(Year(Date), Month(Date), Day(Date) + 30) Then
                i = i + 1
                myarray(0, i) = DateValue(cl)
                myarray(1, i) = cl.Offset(, -3) & " " & cl.Offset(, -2)
            End If
        Next
        ReDim Preserve myarray(2, 1 To i)
        With ListBox1
            .ColumnCount = 2
            .ColumnWidths = "80;80"
            .List = WorksheetFunction.Transpose(myarray)
        End With
    End With
End Sub

In de LB verschijnen dan ook alleen data vanaf de huidige datum tot 30+.
Wat betreft de VW, die wordt niet automatisch meegenomen en moet je dus telkens handmatig kopieëren.

 

[Muchacho NL]

Geweldig, het is me gewoon gelukt om zelf de formatting aan te passen.

Dank, dank, dank, dank