Moderatori: Anthony47, Flash30005
=CONTA.SE($BO$130:$BO$146;CU130) + CONTA.SE($BZ$130:$BZ$154;CU130) + CONTA.SE($CJ$130:$CJ$154;CU130)=3
=((CONTA.SE($BO$130:$BO$146;CU130)>0)*(CONTA.SE($BZ$130:$BZ$154;CU130)>0)*(CONTA.SE($CJ$130:$CJ$154;CU130)>0))
Public NCU As Long, RCU, NTr As Integer
Sub TrovaEColora()
For RCU = 130 To 206
NTr = 0
NCU = Range("CU" & RCU).Value
Call NumBO
If NTr = 3 Then Range("CU" & RCU).Interior.ColorIndex = 3
Next RCU
End Sub
Sub NumBO()
For RBO = 130 To 146
If NCU = Range("BO" & RBO).Value Then
NTr = NTr + 1
Call NumBZ
Exit Sub
End If
Next RBO
End Sub
Sub NumBZ()
For RBZ = 130 To 154
If NCU = Range("BZ" & RBZ).Value Then
NTr = NTr + 1
Call NumCJ
Exit Sub
End If
Next RBZ
End Sub
Sub NumCJ()
For RCJ = 130 To 154
If NCU = Range("CJ" & RCJ).Value Then
NTr = NTr + 1
Exit Sub
End If
Next RCJ
End Sub
Torna a Applicazioni Office Windows
Inserimento parziale valore cella in MessageBox Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Aggiornare cella con somma quando aggiungo nuova colonna Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 1 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 19 ospiti