Kelpoisuuden tarkistaminen

ilman koodia ei onnistu...

pikku kikkailulla

taulukon moduuliin...
nyt solussa H1 kelpoisuustarkistus ja kelpoisuusluettelo on soluissa E1:EXXX
voi vapaasti poistella arvoja listasta tai lisätä uusia listaan ja jättää jopa tyhjiä soluja väliin. Kun valitaan H1, niin poistaaaluksi tyhjät luettelosta ja päivittää kelpoisuusehdon H1 soluun.
Helppo lisätä uusia kelpoisuusehto soluja ja muokata koodia lueetelon suhteen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim vika As Long
If Not Intersect(Target, Range("H1")) Is Nothing Then
vika = Range("E65536").End(xlUp).Row
Range("E1" & vika).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
vika = Range("E65536").End(xlUp).Row
With Range("H1").Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=$E$1:$E$" & vika
End With
End If
End Sub

Keep Excelling
@Kunde