Validatie lijst probleem

[HWV]

Beste,

Ik heb een orderformulier waar ik doormiddel van VBA verticaalzoeken een adresnummer plaats in een validatie veld.
Als ik de lijst open maak dan is de lijst leeg, maar als ik dan naar boven scrol staan daar wel de adresnummers.

Hoe kan ik er voor zorgen dat ik altijd boven aan de validatielijst terecht kom.

groet HWV

 

[snb]

Ik kan je voorbeeldbestand niet openen....

 

[Warme bakkertje]

Zorg ervoor dat de bovenste cel van je gegenereerde lijst een lege cel is

 

[HWV]

Oplossing gevonden

Beste,

Bedankt voor het meedenken.

@snb
Ik kan je voorbeeldbestand niet openen....

Vreemd genoeg nooit toegevoegd, zal ik op een bepaalde manier tussen de regels door moeten lezen ;-)

Rudi,

Ivm dat ik een code gebruik kan ik niet een legen regel toevoegen boven aan de validatie

Bij de code die ik eerder van jou heb gekregen heb ik een regel toegevoegd ( in het rood), op deze manier krijg ik altijd het eerste afleveradres te zien die er is. Dus ik hem met deze oplossing twee vliegen in één klap. Ik heb de afleveradres staan en als ik de validatie dropdown gebruikt sta ik boven aan.

Bedankt HWV

Sub vinden()
    [Afleveradressen!K2:T2000].ClearContents
    With [Afleveradressen!a2:a20000]
    Set c = .Find([Orderbon!D9].Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) 'LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Resize(1, 10).Copy [Afleveradressen!K65536].End(xlUp).Offset(1, 0)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
    End With
[COLOR="Red"]    [Orderbon!M8].Value = [Afleveradressen!L2][/COLOR]
    With [Orderbon!M8].Validation
        .Delete
        .Add xlValidateList, xlValidAlertStop, xlBetween, "=Afleveradressen"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

 

[Warme bakkertje]

:thumb:
Dan mag de vraag op opgelost