combobox in formulier

[Scallebe]

HSV

Ik heb de code in de sheet geplaatst maar de lijst wordt daar ook ingevuld vanaf de tweede rij.

Private Sub Worksheet_Activate()
    
With Sheets("Namenlijst")
    .Cells(1).CurrentRegion.Offset(1).ClearContents
    For Each sh In Sheets(Array("Apothekers", "Kinesisten", "MedGen", "Tandartsen", "Specialisten"))
        ar = sh.Cells(2, 1).CurrentRegion.Offset(4).Resize(, 4)
        ReDim ar1(1 To UBound(ar) - 4, 1 To 5)
        For j = 1 To UBound(ar) - 4
            ar1(j, 1) = ar(j, 1)
            ar1(j, 2) = ar(j, 4)
            ar1(j, 3) = ar(j, 3)
            ar1(j, 4) = sh.Name
            ar1(j, 5) = j + 5
        Next j
        .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(ar1), UBound(ar1, 2)) = ar1
    Next sh
     .Cells(1).CurrentRegion.Sort .[A1], , .[B1], , , , , 1
End With

End Sub

 

[HSV]

Lees #38 nog eens door en plaats de gegeven code in formulier "Opzoeken".

 

[Scallebe]

Ik heb die code in de Form geplaatst en de combobox werkt.

Alleen is de eerste regel in de combobox blanco omdat dat ook zo is in de Sheet Namelijst.

De code in #41 creëert die lijst maar plaats die lijst vanaf cel A2. Row 1 is dus leeg en dat reflecteerd zich dan ook naar de Combobox.

 

[HSV]

Wat moet je toch met een lege regel waar je niets mee doet.

Private Sub Userform_Initialize()
cboOpzoeken.List = Sheets("namenlijst").Cells(2, 1).CurrentRegion.Value
End Sub

 

[Scallebe]

Ik wil die regel niet.

Maar de lijst wordt wel geplaats vanaf regel 2

 

[HSV]

Ik begrijp er niets meer wat je wel of niet wil.
Verwijder die lege regel in dat blad en plaats de eerst gegevens code; Klaar.
Zo moeilijk is het toch niet allemaal om iets goed uit te leggen.

 

[Scallebe]

Even opnieuw...

Eerst wordt de lijst gemaakt in de sheet Namenlijst

In de combobox van mijn Userform wordt gerefereerd naar die namenlijst.

De lijst in de sheet Namenlijst begint op Rij 2. Waarom weet ik niet. Waarschijnlijk omdat de code dit zo bepaald. En ik wil dit ook helemaal niet.

Daardoor begint de comboBox in mijn userform ook met een lege rij.


Maar door de verandering in de code in #44 : ..... .Cells(2, 1) ..... is dit heuvel wel opgelost.


Bedankt

 

[Scallebe]

Het is niet altijd makkelijk om een probleem uit te leggen.

Toch bedankt voor de moeite en de gegeven oplossingen.:thumb::thumb:


Greetz

Pascal

 

[HSV]

Is het misschien ook niet altijd, maar de helpers moeten het daarmee wel kunnen begrijpen natuurlijk.
Uiteraard graag gedaan Pascal.