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
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: