Alleen de lijst laten zijn in dropdown menu

Status
Niet open voor verdere reacties.

NPersijn

Gebruiker
Lid geworden
27 jul 2018
Berichten
56
Beste,

Ik heb de volgende macro waarbij een lijst wordt gegenereerd. Bij het aantikken van de cel krijg je een dropdownmenu waarbij een keuze mag maken. echter de lijst gaat door met lege cellen.
Wat moet ik aan de macro toevoegen zodat ik alleen de eerste lege cel en de beschikbare namen te zien krijg, de lege cellen onder de laatste naam mogen niet meer zichtbaar zijn. Is dit mogelijk?

Vast bedankt

Gr Norman

Bekijk bijlage 328431


Code:
Private Sub ComboBox1_Click()

End Sub


Sub prepare_list()

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Sheets("rooster").UsedRange) Is Nothing And Target.Cells.Count = 2 And Sheets("rooster").Cells(1, Target.Column).Value <> "" Then
If Sheets("rooster").Cells(1, Target.Column).Value = "o" Then
Sheet1.Range(Sheet1.Cells(1, 70).Address, Sheet1.Cells(1000000, 70).Address) = ""
ins = Sheet2.UsedRange.Value
For y = 2 To UBound(ins, 2)
If ins(1, y) = Sheet1.Cells(Target.Row, 1) Then
Z = 1
For x = 2 To UBound(ins, 1)
If ins(x, y) <> "" Then
Z = Z + 1
Sheet1.Cells(Z, 70) = ins(x, y)
End If
Next x
GoTo uit
End If
Next y
uit:
End If




End If
End Sub
 
Laatst bewerkt:
Zet je code hierboven even in codetags en plaats een voorbeeld document.
 
Formule in je validatielijst i.p.v. $B$R:$B$R

Incl. de eerste lege regel.
Code:
=VERSCHUIVING($BR$1;0;0;AANTALARG($BR$1:$BR$100)+1;1)

Beperkt tot rij 100.
 
Graag gedaan,

In het vervolg graag op de reageerknop drukken i.p.v. de citeerknop.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan