Tietojen kelpoisuuden tarkistus -ongelma

tavalliseen moduuliin...

Sub testi()
Dim Solu As Range
On Error Resume Next
For Each Solu In Cells.SpecialCells(xlCellTypeAllValidation)
If Solu.Validation.Formula1 = "=$A$50:$A$100" Then
With Solu.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$A$50:$A$102"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next
On Error GoTo 0
End Sub

Keep EXCELing
@Kunde

Anna tuolle uudelle alueelle (A50:A102) nimi, vaikka "nimilista". Valitse solu josta kopioit kelpoisuustarkistuksen muihin soluihin ja avaa Kelpoisuustarkistus. Kirjoita Lähde-ruutuun =nimilista ja ruksaa sitten kohta "Tee nämä muutokset kaikkiin soluihin, joissa on samat asetukset" ja OK. Uusi nimilista löytyy nyt kaikista soluista joissa on kelpoisuustarkistus.

Jäi vielä tuossa mainitsematta, että jos tulee taas tarvetta lisätä uusia nimiä listaan, niin menet vain Kaavat-välilehdelle ja valitse sieltä "Nimien hallinta" ja valitse "nimilista" ja muuta sieltä alhaalta "Viittaa"-kohtaan uusi solualue.

Kiitos "Kunde" ja "nimenantaja", sain ongelmaani ratkaisun "Tee nämä muutokset kaikkiin soluihin, joissa on samat asetukset" -muutoksen kautta.

Kunde, rupesi kiinnostamaan -siksi kysynkin, tuoko VB -koodi tähän ongelmaani erilaista ratkaisua, mikä ei selviä kuin vasta kokeilemalla koodiasi? Voisi olettaa, kun näit ilmeisesti kuitenkin vaivaa vääntää tuollaisen koodin. :)

No ei tossa kauan aikaa mennyt
Mutta ei nyt mitään merkittävää etua, koska toi nimenantajan vinkki toimii hyvin, koska sulla oli se solu, josta kopioit sen muihin. Jäi huomioimatta mulla ;-)
Muuten koodini olisi ihan ehdoton.
tossa testataan muutettava kelpoisuusehto
If Solu.Validation.Formula1 = "=$A$50:$A$100"
ja tossa muutetaan uusi ehto
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$A$50:$A$102"
ja lopuissa sitten voi tehdä ilmoituksiin muutoksia

Vielä helpommalla pääset kun teet jatkossa listasi dynaamiseksi siirtymä(offset) funktiolla ja silloin ei tarvitse muuta, kuin lisäillä tai poistaa nimiä luettelosta ja toimii automaattisesti...

Keep EXCELing
@Kunde

Jep, hyvät vaihtoehdot on aina tervetulleita. Tarve nimien lisäämiselle tai poistamiselle on niin minimaalista ja harvinaista, että taidan pysyä tässä "nimenantajan" ohjeessa, kun sen nyt osaan tehdä. ;D

Vaikka sinulla ei olekaan tarvetta enää lisätä uusia nimiä, kaiketi, niin tuo Kunden mainitsema dynaaminen lista on hyvä konsti automaattisesti muuttaa nimilista-aluetta SIIRTYMÄ-funktiolla. Tässä esimerkki. Kirjoita siihen "alkuperäisen" solun "Kelpoisuustarkistus"-lomakkeeseen Lähde-kohtaan kaava:
=SIIRTYMÄ(Taul1!$A$50;0;0;LASKE.A(Taul1!$A$50:$A$200);1)
ja ruksaa se kohta "Tee nämä muutokset..."
Nyt nimilista "toimii" alueella A50:A200 automaattisesti. Voit lisätä/poistaa nimiä listasta ja kaikki löytyy aina jokaisesta "Kelpoisuustarkistus"-solusta.
Tämän saman kaavan voi myös kirjoittaa Nimien hallinnassa "nimilistalle" Viittaa-kohtaan, jos käyttää tuota ensin mainitsemaani nimen antamista solualueelle.

Totta, tarve voi tulla milloin vaaan. Laitan tämän talteen myöhempiä kokeiluja varten.
Kiitos molemmille vinkistä!