Menu a tendina correlati in Excel

[Nuzzio]

Salve, ho creato degli elenchi in excel, con menu a tendina, ora vorrei che selezionando, per esempio, il valore A, mi attivi un secondo menu a tendina relativo ad A, e cosi via...

Potete aiutarmi?

Grazie in anticipo

Nuzzio

[fabio309]

il menù a tendina come lo hai fatto con visual basic?

[Nuzzio]

Ciao, no, tramite Convalida Dati.

[fabio309]

cosa vorresti fare d preciso?
in base alla scelta del primo elenco vorresti impostare il valore del secondo o tutti gli elementi del secondo elenco?

[Nuzzio]

In pratica, se ho un menu a tendica cn A, B, C, se scelgo A, mi appare un altro menu a tendina con determinati valori, se scelgo B un altro e cosi via...

[fabio309]

non è per niente facile fare quello che chiedi comunque prova a mettere nel codice della pagina una funzione tipo

Private Sub convalida1()
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="lunedì;martedì;mercoledì"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Private Sub convalida2()
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="gennaio;febbraio;marzo"       
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Row = 1 And ActiveCell.Column = 1 Then
    If ActiveCell.Value = "A" Then
        Range("B1").Select
        Call convalida1
    End If
    If ActiveCell.Value = "B" Then
        Range("B1").Select
        Call convalida2
    End If
End If
End Sub