• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Bij een bepaalde datum een pop up

Status
Niet open voor verdere reacties.

sloekie

Gebruiker
Lid geworden
7 apr 2008
Berichten
221
Ik ben op zoek naar een vba code om een pop up te laten verschijnen waar een tekst in staat b.v filter vervangen .
Maar dan alleen op bepaalde dagen b.v de eerste van de maand.

Ik heb al op het net gekeken maar niet wat kunnen vinden.

Alvast bedankt

Gr. Sloekie
 
Een aantal vragen.
In Excel bij het openen?, op je scherm bij het opstarten van je Pc?
Wat voor filter (stofzuiger, auto, boot, Excel filter) ?
 
Het zou in een bepaalde excel bestand moeten komen en het gaat om een filter in een waterleiding.

als in cel de datum van 01-06-2016 wordt ingetoest dan moet de pop up komen met de tekst filter waterleiding vervangen.

Ik stuur een voorbeeld bestand mee.

Gr. Sloekie
 

Bijlagen

Dat voorbeeld is totaal nietszeggend m.b.t. je vraag.
 
ik heb nu 1 bij gedaan waar geen verdere gevoelige informatie opstaat.

Gr. Sloekie
 

Bijlagen

Ja, maar is "filter vervangen" de enige tekst? Zo nee, waar moet die tekst dan vandaan komen. Is 01-06-2016 de enige datum waarop dat moet gebeuren? Zonee, waarmee moet de ingetoetste datum dan worden vergeleken?

Het enige dat ik n.a.v. je uitleg en voorbeeld kan verzinnen is dit achter het werkblad:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$G$4" Then Exit Sub
    If Format(Target.Value, "DD-MM-YYYY") = "01-06-2016" Then
        MsgBox "Filter vervangen"
    End If
End Sub
 
Dat zou dan al duidelijk moeten zijn in mijn voorbeeld van #6:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$G$4" Then Exit Sub
    If Format(Target.Value, "DD") = "01" Then
        MsgBox "Filter vervangen"
    End If
End Sub
 
Mag ik je danken dit werkt perfect zoals ik in gedachten heb.

Maar kan er ook in een opvallende kleur? bv. blauw en witte letters.

:thumb::thumb:

Gr Sloekie
 
Dat is het precie, hier kan ik verder mee.

Met een form dat daar zelf niet aan gedacht heb.:o

Nogmaals bedankt:thumb:

Gr. Sloekie
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan