Wat zit er fout in de code (of iets anders)

[JosEindhoven]

Als het bestand opstart moet er een melding komen wie er binnenkort jarig is.
Er verschijnt echter niets.
Wat doe ik fout, ??????

 

[Ginger]

Je haalt het foute jaar op in je variabele VerjDitJaar. Namelijk Year(Date) geeft op dit moment nog 2017 en dan zullen dus de daarop volgende testvoorwaarden niet voldoen.

 

[JosEindhoven]

Hallo Ginger

In die richting heb ik ook al zitten "prutsen", maar kom hier niet verder.
Zou je aan kunnen geven in het bestand wat de juiste oplossing zou moeten zijn

 

[ExcelAmateur]

Zoek met Google naar Kees Oosterhuis, die heeft een kant en klare Verjaardagsfeest kalender, die doet wat je wil

Prettige jaarwisseling.

 

[edmoor]

Probeer deze eens:

Private Sub Workbook_Open()
    Dim Tekst As String, c As Range, VerjDitJaar As Date
    
    Sheets("menu").Activate
    Tekst = "OPGELET:" & vbCrLf & vbCrLf
    
    For Each c In Range("V1:V" & Range("V" & Rows.Count).End(xlUp).Row)
        If Month(c) < Month(Date) Then
            VerjDitJaar = DateSerial(Year(Date) + 1, Month(c), Day(c))
        Else
            VerjDitJaar = DateSerial(Year(Date), Month(c), Day(c))
        End If
        
        If VerjDitJaar <= Date + 5 Then
            Tekst = Tekst & c.Offset(, -1) & " is op " & VerjDitJaar & " jarig" & vbCrLf
            n = n + 1
        End If
    Next c

    If Tekst <> "OPGELET:" & vbCrLf & vbCrLf Then
        MsgBox (Tekst)
    End If
End Sub

 

[ExcelAmateur]

Hier is de link.
http://www.oosterveld.biz/Excel/Verjaardagskalender.html

 

[JosEindhoven]

Hoi Edmoor

Helemaal goed.
Code er zo ingeplakt en zo werken


Ik heb verder niet gekeken, maar waar zat nu de fout

 

[edmoor]

Je moet bepalen of die komende verjaardag dit jaar of volgend jaar is.
Wil nog niet zeggen dat het zo helemaal correct is overigens.

 

[JosEindhoven]

Hallo EA

Ik zit niet te wachten op een verjaardagskalender. Verjaardagen is maar een gedeelte van het bestand,maar toch bedankt voor het goed bedoelde meedenken.
Ook voor jou natuurlijk een heel goede jaarwisseling

Groetjes
Jos

 

[JosEindhoven]

Hallo Edmoor

Duidelijk, ook voor jou een prettige maar vooral rustige jaarwisseling

 

[gast0660]

probeer deze eens
Zie formule in kolom t en aangepaste code.
Kleine opmerking, het is mij een raadsel dat je voor iedere handeling een ander userform hebt gemaakt, kan toch allemaal in één.

 

[JosEindhoven]

Hallo Philiep

Aangepaste formule en code snap ik

Voor elke handeling een ander userform is wat anders.Ik zou niet weten hoe ik het anders moet doen.
Ik denk dat dat het verschil is tussen een professional (zoals ik jou zie) en een amateur. (zoals ik mezelf beschouw)

Ik wil je bedanken voor alle hulp afgelopen tijd en een hele fijne jaarwisseling toewensen

Groetjes

Jos

 

[gast0660]

Nieuwjaarskadootje voor Helene:love:
Ja, het is een echt kado, je moet het eerst uitpakken.

 

[JosEindhoven]

Chapeau, Philiep

Met recht een Nieuwjaarskado.
Hier heb je vast veel puzzelwerk aan gehad op de laatste dag van 2017 of de eerste dag van 2018.
Op deze manier had ik het nooit voor elkaar gekregen
Nogmaals bedankt.

 

[gast0660]

@ Helene en Jos
Mijn wens voor jullie is de taal VBA in 2018 nog beter begrijpen.
(moet ik ook nog doen.)

 

[JosEindhoven]

:thumb: