Trovare una cella a tendina

[cd7019]

CIAO,

Come posso trovare una cella che contiene un menù a tendina?
il seguente listato produce un errore.

For I4 = 3 To 7
If Cells(I4, 9).Validation = True Then ...
Next I4


Grazie

[Anthony47]

Dipende a quale fine... in genere non si va alla ricerca di una cella che contiene la convalida da elenco...
Diciamo che puoi ottenere l' indirizzo delle celle che hanno una convalida con qualcosa come

Codice: Seleziona tutto

VAdr = ActiveCell.SpecialCells(xlCellTypeAllValidation).Address

Se devi cercare le convalide "da elenco" controlli ognuna di queste celle (For Each myCell in Range(VAdr) '(**)) per vedere quali abbian una convalida di tipo "xlValidateList" (If myCell.Validation.Type = xlValidateList Then ...)

Ciao

[cd7019]

ciao,

scusa ma non ci sono riuscito.

Codice: Seleziona tutto

For I4 = 1 To 20
If Cells(I4, 1).Validation.Type = xlValidateList Then Cells(I4, 1).Interior.ColorIndex = 45
Next I4


produce un errore run-time 1004.


Grazie

[Anthony47]

Hai approssimato il mio suggerimento:
1- PRIMA TROVI l' indirizzo delle celle che hanno una convalida
2- POI controlli ognuna di queste celle (quelle appartenenti agli indirizzi trovati al punto 1) per vedere quali abbian una convalida di tipo "xlValidateList"

Ciao

[cd7019]

Funziona perfettamente.


Grazie, Grazie, Grazie.

[cd7019]

Codice: Seleziona tutto

VADR = [I3:I7].SpecialCells(xlCellTypeAllValidation).Address
For Each MYCELL In Range(VADR)
    If MYCELL.Validation.Type = xlValidateList Then Range(VADR).Interior.ColorIndex = 45
    If MYCELL.Validation.Type = xlValidateList Then Range(VADR) = Trim(Left(MYCELL, 2))
Next


i colori dello sfondo sono OK.

Si sono MANIFESTATI 2 problemi:
1) selezionando diversi dati a tendina, vengono visualizzate in tutte le celle le prime due lettere della 1° validation.
torino >>> to vorrei >>> to
milano >>> to vorrei >>> mi
genova >>> to vorrei >>> ge

2) quando l'ho inserito in
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

mi produce un errore:
spazio nello stack esaurito

Grazie

[Anthony47]

Hai ancora approssimato il suggerimento (e non e' vero che i colori sono Ok, perche' applicheresti quel colore anche ad eventuali convalide non "da elenco")...
Ok l' indirizzo calcolato in VAdr; adesso devi gestirle una cella alla volta con il For Each myCell in Range(VAdr) /Next. Quindi:

Codice: Seleziona tutto

For Each myCell in Range(VAdr)
If myCell.Validation.Type = xlValidateList Then
    myCell.Range(VADR).Interior.ColorIndex = 45
    myCell.Value = Trim(Left(myCell.Value, 2))
End If
Next myCell

Quanto allo spazio stack esaurito la cosa piu' probabile e' che la tua macro Worksheet_SelectionChange sia autorecursiva, cioe' si reinnesca all' interno del codice macro.
Per evitare questo dovresti inserire Application.EnableEvents = False / Application.EnableEvents = True all' ingresso e all' uscita della macro.
Per altri suggerimenti dovresti postare il codice della tua Worksheet_SelectionChange.

Ciao