vraagje opzoeken

[jo geuens]

ik wil data opzoeken maar lukt niet om deze in mijn userform te krijgen ik zou graag aan de hand van kolom B en als de waarde in kolom E "ja" is de gegevens
in de userform willen invullen nu werkt hij wel maar op Kolom A en geeft hij n de listbox telkens alle regel nrs weer als dit er meer worden wordt het lastig
om gegevens op te zoeken
hie een voorbeeld bestandje

Bekijk bijlage planning mail opzoeken.xls

 

[Elsendoorn2134]

Jo,

Hierbij je bestand terug met de mogelijkheid om te zoeken op kolom B.

Veel Succes.

Bekijk bijlage HelpMijMailOpzoeken.xls

 

[jo geuens]

hoi Elsendoorn2134

supper :thumb:

is er ook een mogelijkhied om enkel de aanvraagnummers in de combobox weer tegeven wanneer de waarde in" kolom E "Ja is ?anders wordt de lijst alsmaar langer


alvast bedand voor je oplossing

 

[Elsendoorn2134]

Jo,

Hierbij je een bestand waarbij de aanvraagnummers zonder ja in kolom E niet worden meegenomen.
Ik heb de volgende wijziging doorgevoerd:

Private Sub UserForm_Initialize()
    Dim myArray() As Long       'Nummers van de opdrachten
    Dim nTeller1, nTeller2 As Integer
    
    nTeller1 = 0
    nTeller2 = 0
    ReDim myArray(100000)
    With Sheets("Planning").Range("B9")
        Do While .Offset(nTeller1, 0) <> ""
            If .Offset(nTeller1, 3) = "ja" Then
                myArray(nTeller2) = .Offset(nTeller1, 0)
                nTeller2 = nTeller2 + 1
            End If
            nTeller1 = nTeller1 + 1
        Loop
    End With
    
    ReDim Preserve myArray(nTeller2 - 1)
    
    ComboBox4.List = myArray
 End Sub

Veel Succes.

Bekijk bijlage HelpMijMailOpzoeken.xls

 

[jo geuens]

hoi Elsendoorn2134

Wat ben je weer fantastich :thumb:

hartelijk bedankt