Menu a tendina condizionato

[BG66]

Ciao a tutti e Buon Natale anticipato.
Vorrei che il contenuto del menu a tendina delle celle della colonna A (foglio di lavoro "Imp") mi mostrasse solamente gli impianti che nella colonna G del foglio di lavoro "03-07" presentano la parola: SI.

https://www.dropbox.com/scl/fi/evyvnttfghjc668hye14a/Forum_ATS.xls?dl=0&rlkey=k8ksvpow7e9own4vw5xzvt9tp

Grazie in anticipo.
Gene

[Anthony47]

Devi crearti un altro elenco che contiene solo i valori che ti interessano; poi usi questo elenco per la convalida.
Ad esempio, in N6 di foglio '03-07':

Codice: Seleziona tutto

=SE.ERRORE(INDICE($C$1:$C$172;PICCOLO(SE($G$6:$G$172="SI";RIF.RIGA($G$6:$G$172);"");RIF.RIGA(A1)));"")

A matrice, quindi Contr-Maiusc-Enter, non il solo Enter
Poi copia verso il basso per quanto pensi che serva; al limite fino a N172

Poi imposta la convalida su questo nuovo elenco

In questo modo pero' immagino che avrai un elenco lunghissimo, con solo un tot di valori compilati in testa. Potresti pertanto creare un "intervallo dinamico" contenente le sole celle compilate.
Per questo, crea (tramite Menu /Formule /Gestione nomi) un nuovo intervallo nominato; chiamalo YConvalida; come "Riferito a" inserisci la formula

Codice: Seleziona tutto

=SCARTO('03-07'!$N$6;0;0;CONTA.SE('03-07'!$G$6:$G$200;"SI");1)

Infine come origine dell'elenco di convalida userai =YConvalida

Buone Feste anche a te
Ciao

[Marius44]

Ciao
Ben ritrovato!

In aggiunta alla soluzione di Anthony (un caro saluto) ti propongo qualcosa con VBA.
Ricordati, comunque, di fare una ricerca in rete, sempre. Ci potevi arrivare anche tu.
Inserisci questo codice nel Modulo di classe del Foglio2("Imp")

Codice: Seleziona tutto

Private Sub Worksheet_Activate()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim ur1 As Long, ur2 As Long, ur3 As Long, i As Long, a As Long
Dim elenco() As String

Set sh1 = Sheets("03-07")
Set sh2 = Sheets("Imp")
ur1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ur1
  If sh1.Cells(i, 7) = UCase("si") Then
    a = a + 1
    ReDim Preserve elenco(1 To a)
    elenco(a) = Sheets(1).Cells(i, 3)
  End If
Next i
ur2 = sh1.Cells(Rows.Count, 10).End(xlUp).Row
ur3 = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1
With sh2
  .Select
  .Cells(ur3, 1).Select
  With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Join(elenco, ",")
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
  End With
End With
Set sh1 = Nothing
Set sh2 = Nothing
End Sub


Ogni volta che selezioni il foglio1 nella prima riga vuota ti inserisce la convalida dei dati che a fianco hanno SI.
Attento ad una cosa: riporta SOLO il rigo in cui c'è "si", non anche quello sotto.

Fai sapere. Ciao,
Mario

[Anthony47]

Due proposte in due minuti, credo sia un record...

Buone Feste anche a te, Mario

[Marius44]

Ciao Anthony
Contraccambio di cuore a te e a Gene ed alle vostre famiglie.
Speriamo che il 2021 sia un poco meglio del precedente.

Ciao,
Mario

[BG66]

Ciao a tutti.
@Anthony
I tuoi suggerimenti mi hanno stuzzicato e ci ho messo del mio...o quasi!!
Il menu a tendina oltre ad essere condizionato, ora ha la lista che si riduce man mano che seleziono gli impianti
https://www.dropbox.com/scl/fi/0x316w61vy180q7i91258/Forum_ATS-Marius.xls?dl=0&rlkey=wrg1yijc7f2j2k2lanm70r5jt

@Marius

Ricordati, comunque, di fare una ricerca in rete, sempre.

Nel tuo CV oltre a mago del VBA dovrai aggiungere anche MASTER googleratore!!
Io non avevo trovato nulla
In merito al tuo script:
Per evitare che l'operatore deve fare andata e ritorno sul foglio"Imp" ho provato in coda prima dei

Codice: Seleziona tutto

Set sh1 = Nothing
Set sh2 = Nothing

a farlo fare in automatico inserendo:

Codice: Seleziona tutto

sh1.Range("A1").Select
etc

ma non lavora....

Gene

[Marius44]

Ciao
Ovvio che non può funzionare.
Prova in questo modo:
Nel Modulo del Foglio("03_07") inserisci questo codice

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
  '.... inserisci qui l'intero codice precedente (ovviamente senza SUB ... END SUB)
End If
End Sub


Ogni volta che si seleziona la prima riga vuota del Foglio, viene inserita la CV
Fai sapere. Ciao,
Mario

[BG66]

Ciao Mario,
ovviamente funziona.

Grazie ancora e alla prossima.
Gene
STAY SAFE