Moderatori: Anthony47, Flash30005
=SOMMA(CONTA.SE(A1:E1;MATR.TRASPOSTA($F$1:$G$1)))=SE(SOMMA(CONTA.SE($A1:$E1;MATR.TRASPOSTA($F$1:$G$1)))=2;INDIRIZZO(RIF.RIGA(A1);CONFRONTA(F$1;$A1:$E1;0));"")Sub TrovaA()
Application.Calculation = xlManual
UR = Range("A" & Rows.Count).End(xlUp).Row
Val1 = Range("F1").Value
Val2 = Range("G1").Value
DEV = Mid(Format(Val1, "00"), 1, 1)
For RR = 1 To UR
ContaD = 0
ContaA = 0
For CC = 1 To 5
ValA = Cells(RR, CC).Value
If ValA = Val1 Or ValA = Val2 Then ContaA = ContaA + 1
DEA = Mid(Format(ValA, "00"), 1, 1)
If DEA = DEV Then ContaD = ContaD + 1
Next CC
If ContaA = 2 And ContaD < 3 Then
Range("H" & RR).Value = "SI"
Else
'Range("H" & RR).Value = "NO"
End If
Next RR
Application.Calculation = xlCalculationAutomatic
End SubFlash30005 ha scritto:Comunque se si tratta di un adattamento lo si fa velocemente
=SE(E(SOMMA(CONTA.SE(A1:E1;MATR.TRASPOSTA($F$1:$G$1)))=2;SOMMA(CONTA.SE(A1:E1;MATR.TRASPOSTA($I$1:$R$1)))<3);$F$1&" - "&$G$1;"") Torna a Applicazioni Office Windows
| Excel apre solo una schermata bianca Autore: jameswilson |
Forum: Applicazioni Office Windows Risposte: 1 |
| Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
| Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 36 ospiti