Moderatori: Anthony47, Flash30005
=Se(NonSoChe="Convalida1");"Richiesto";"") & Se(NonSoChe="Convalida2");"Non Richiesto";"") & Se(NonSoChe="Convalida3");"Fai tu";"") & Se(NonSoChe="Convalida4");"Valore4";"")
=INDIRETTO(A1)
Range("P6:P8").Select 'copia i valori delle celle blu
Selection.Copy
Range("E11:E13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False ' incolla solo i valori nelle celle verdi
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E3")) Is Nothing Then
Select Case Target.Value
Case "Configurazione1"
Range("E11:e13").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=CONFIGURAZIONE1"
End With
Case "Configurazione2"
Range("E11:e13").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=CONFIGURAZIONE2"
End With
Case "Configurazione3"
Range("E11:e13").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=CONFIGURAZIONE3"
End With
End Select
End If
Range("E11").Select
End Sub
=INDICE(Sheet1!$O$6:$Q$8;CONFRONTA(Sheet1!$D11;Sheet1!$N$6:$N$8;0);CONFRONTA(Sheet1!$E$3;Sheet1!$O$5:$Q$5;0))
Torna a Applicazioni Office Windows
File batch per copiare file selezionato da menu contestuale Autore: valle1975 |
Forum: Programmazione Risposte: 3 |
Aggiungere menù a tendina da lista variabile Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 17 |
Menu a tendina che non mi seleziona una provincia Autore: danibi60 |
Forum: Applicazioni Office Windows Risposte: 6 |
da correggere una macro con 3 variabili Autore: giorgioa |
Forum: Applicazioni Office Windows Risposte: 9 |
Visitano il forum: Nessuno e 11 ospiti