Moderatori: Anthony47, Flash30005
Nota: se troppo complicato o per altre ragioni non è fattibile, quantomeno se può essere soddisfatto solamente quest’ultimo quesito:
Marcare in colonna “B e C” (alla fine), il nuovo evento spia uscito nella riga due. Per me sarebbe già un grandissimo aiuto.
Lucio Peruggini ha scritto:Colonna “A” = stessa ruota cella E1.
Colonna “B” = stesso numero spia riga 5.
Colonna “E” = uno dei due numeri che sia uguale a uno dei cinque della riga due e quindi appartenenti alla ruota marcata in E1
Sub Compila()
Range("H10:H100").ClearContents
For CC = 3 To 50 Step 5
CRuota = Cells(1, CC + 2).Value
N1A = Cells(2, CC).Value
N2A = Cells(2, CC + 1).Value
N3A = Cells(2, CC + 2).Value
N4A = Cells(2, CC + 3).Value
N5A = Cells(2, CC + 4).Value
N1S = Cells(5, CC).Value
N2S = Cells(5, CC + 1).Value
N3S = Cells(5, CC + 2).Value
N4S = Cells(5, CC + 3).Value
N5S = Cells(5, CC + 4).Value
UR1 = Range("A" & Rows.Count).End(xlUp).Row
For RR1 = 10 To UR1
If UCase(Range("B" & RR1).Value) = CRuota And (Range("C" & RR1).Value = N1S Or Range("C" & RR1).Value = N2S Or Range("C" & RR1).Value = N3S Or Range("C" & RR1).Value = N4S Or Range("C" & RR1).Value = N5S) Then
MioN1 = Val(Left(Range("E" & RR1).Value, 2))
MioN2 = Val(Right(Range("E" & RR1).Value, 2))
If MioN1 = N1A Or MioN1 = N2A Or MioN1 = N3A Or MioN1 = N4A Or MioN1 = N5A Or MioN2 = N1A Or MioN2 = N2A Or MioN2 = N3A Or MioN2 = N4A Or MioN2 = N5A Then
Range("H" & RR1).Value = "*"
End If
End If
Next RR1
Next CC
End Sub
Sub CompilaA3()
Sheets("Attuali3").Select
Range("H10:H100").ClearContents
For CC = 3 To 50 Step 5
CRuota = Cells(1, CC + 2).Value
N1A = Cells(2, CC).Value
N2A = Cells(2, CC + 1).Value
N3A = Cells(2, CC + 2).Value
N4A = Cells(2, CC + 3).Value
N5A = Cells(2, CC + 4).Value
N1S = Cells(5, CC).Value
N2S = Cells(5, CC + 1).Value
N3S = Cells(5, CC + 2).Value
N4S = Cells(5, CC + 3).Value
N5S = Cells(5, CC + 4).Value
UR1 = Range("A" & Rows.Count).End(xlUp).Row
For RR1 = 10 To UR1
If UCase(Range("B" & RR1).Value) = CRuota And (Range("C" & RR1).Value = N1S Or Range("C" & RR1).Value = N2S Or Range("C" & RR1).Value = N3S Or Range("C" & RR1).Value = N4S Or Range("C" & RR1).Value = N5S) Then
MioN1 = Val(Left(Range("E" & RR1).Value, 2))
MioN2 = Val(Mid(Range("E" & RR1).Value, 4, 2))
MioN3 = Val(Right(Range("E" & RR1).Value, 2))
If MioN1 = N1A Or MioN1 = N2A Or MioN1 = N3A Or MioN1 = N4A Or MioN1 = N5A Or MioN2 = N1A Or MioN2 = N2A Or MioN2 = N3A Or MioN2 = N4A Or MioN2 = N5A Or MioN3 = N1A Or MioN3 = N2A Or MioN3 = N3A Or MioN3 = N4A Or MioN3 = N5A Then
Range("H" & RR1).Value = "*"
End If
End If
Next RR1
Next CC
End Sub
=SE(MATR.SOMMA.PRODOTTO(--($B$10:$B$100=$E$1);--($C$10:$C$100=C5))>0;CONTA.SE($C$10:$C$100;C5);"")
=MATR.SOMMA.PRODOTTO(--($B$10:$B$40=$E$1);--($C$10:$C$40=C5))
=SE(MATR.SOMMA.PRODOTTO(--($B$10:$B$40=$E$1);--($C$10:$C$40=C5))>0;MATR.SOMMA.PRODOTTO(--($B$10:$B$40=$E$1);--($C$10:$C$40=C5));"")
Torna a Applicazioni Office Windows
Come interrompere macro sndPlaySound Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro per aggiungere testo in tutti i files di una cartella? Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 15 |
Screenshot automatizzato fogli excel:script?macro o...? Autore: Paolo67met |
Forum: Programmazione Risposte: 9 |
Macro riporta testo specifico se condizione Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 18 |
Visitano il forum: Nessuno e 8 ospiti