Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Ciao
in A1 la convalida
ALT F11 e ti si apre l'editor vba
doppio click sul nome del foglio interessato
incolla
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myarray As Variant
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value = "A" Then
myarray = Array(4, 5, 3, 8)
Range("a2:a5").Value = Application.Transpose(myarray)
ElseIf Target.Value = "B" Then
myarray = Array(8, 4, 5, 3)
Range("a2:a5").Value = Application.Transpose(myarray)
ElseIf Target.Value = "C" Then
myarray = Array(2, 3, 4, "")
Range("a2:a5").Value = Application.Transpose(myarray)
End If
End If
End Sub
ora ogni volta cambi in A1 si adeguano i numeri sotto