Menu a tendina sotto condizione

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

Angelo.Puglisi

00sabato 31 ottobre 2015 23:03

Ragazzi vi spiego il mio problema. Vorrei che nel foglio FATTURA venga visualizzato, nel menu a tendina del "Fatt n.", solo i numeri delle fatture presenti nel foglio dell'azienda selezionata.
Esempio:
alla voce spett.le scelgo Azienda1 -> nell'elenco Fatt. n. voglio siano presenti solo le fatture nel foglio FATTURE Azienda1.

Grazie in anticipo per l'aiuto.

federico460

00domenica 1 novembre 2015 01:13

ciao

la cosa più semplice è

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("G9") = "Azienda 1" Then

Range("D9").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="='FATTURE Azienda1'!$B$5:$B$29"
End With
ElseIf Range("G9") = "Azienda 2" Then
Range("D9").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="='FATTURE Azienda2'!$B$5:$B$29"
End With
End If

End Sub

da mettere sul foglio Fatture

e così via per ogni cliente ( un elseif )
ma immagino ci sia qualcosa di meno laborioso da scrivere [SM=g27827]

cromagno

00domenica 1 novembre 2015 13:05

Ciao a tutti,
@Angelo.Puglisi
credo che ti basti cambiare la formula nel campo "origine" del "convalida dati" per la cella "D9" del foglio "FATTURA".

La formula da usare è questa:

=INDIRETTO("'FATTURE "&SOSTITUISCI(FATTURA!$G$9;" ";"")&"'!$B$5:$B$"&5+CONTA.VALORI(INDIRETTO("'FATTURE "&SOSTITUISCI(FATTURA!$G$9;" ";"")&"'!$B$5:$B$104")))

Ti lascio il tuo file con la formula già inserita...

Angelo.Puglisi

00domenica 1 novembre 2015 15:12

Re:

cromagno, 01/11/2015 13:05:
Ciao a tutti,
@Angelo.Puglisi
credo che ti basti cambiare la formula nel campo "origine" del "convalida dati" per la cella "D9" del foglio "FATTURA".

La formula da usare è questa:

=INDIRETTO("'FATTURE "&SOSTITUISCI(FATTURA!$G$9;" ";"")&"'!$B$5:$B$"&5+CONTA.VALORI(INDIRETTO("'FATTURE "&SOSTITUISCI(FATTURA!$G$9;" ";"")&"'!$B$5:$B$104")))

Ti lascio il tuo file con la formula già inserita...

Grazie mille, proprio quello di cui avevo bisogno mi sei stato davvero di grande aiuto.

Angelo.Puglisi

00domenica 1 novembre 2015 15:13

Re:

federico460, 01/11/2015 01:13:
ciao

la cosa più semplice è

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("G9") = "Azienda 1" Then

Range("D9").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="='FATTURE Azienda1'!$B$5:$B$29"
End With
ElseIf Range("G9") = "Azienda 2" Then
Range("D9").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="='FATTURE Azienda2'!$B$5:$B$29"
End With
End If

End Sub

da mettere sul foglio Fatture

e così via per ogni cliente ( un elseif )
ma immagino ci sia qualcosa di meno laborioso da scrivere

La soluzione proposta sotto è di più facile applicazione, ma grazie anche a te per l'aiuto e la disponibilità.

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 01:32.