reminders in een popup userform

[lam201]

Hallo,


Zie bijgaand bestand.
ik heb een lijst met daar in herinneringen die op een bepaalde datum dmv een popup userform moet verschijnen. Ik gebruik hiervoor de volgende code:

Public Sub reminder()

Dim i As Long

For i = 1 To 21 
        d = Sheets("Sheet1").Range("E" & i).Value
        yn = Sheets("Sheet1").Range("F" & i).Value
        city = Range("C" & i)
        txt = Range("D" & i)


    If d > 0 And d <= Date And yn = "Yes" Then
       
            UserForm3.Show
            UserForm3.TextBox1.Text = city
            UserForm3.TextBox2.Text = txt
            
        
    End If

Next i

End Sub

Nu gaat het mis omdat de eerste keer het userform leeg is.
De keren daarna start het userform op de laatste positie om vervolgens bovenaan de lijst weer verder te gaan.
(omschrijf ik het zo duidelijk?)

Ik wil dat de userform telkens bovenaan de lijst begint.
Wat doe ik fout?

Ik heb dezelfde code ook met een messagebox ipv een userform.
Daar wordt wel de juiste volgorde gahanteerd.


Lambert

Bekijk bijlage Test reminders2.xlsm

 

[edmoor]

Doe het eens zo:

    UserForm3.TextBox1.Text = city
    UserForm3.TextBox2.Text = txt
    UserForm3.Show

Dus eerst de tekstboxen vullen en dan pas het formulier tonen in plaats van andersom.