Moderatori: Anthony47, Flash30005
Flash30005 ha scritto:Ciao Luigi
Se non ha ricevuto risposta fino ad ora penso che sia poco chiaro il tuo quesito
Ricontrolla quanto postato da te, compresa l'immagine nella quale ci sono dati discordanti rispetto alle colonne che riportano i numeri e quanto da te indicato.
Cosa intendi avere due ritardi?
Inoltre parli di formula oppure potrebbe andare bene anche una macro?
Vedrai che se chiarisci meglio qualcuno ti darà sicuramente una mano...
Ciao
Cosa intendi avere due ritardi?
Inoltre parli di formula oppure potrebbe andare bene anche una macro?
=CONTA.NUMERI(C4:G4)
=CONFRONTA(MAX($A$1:$A$20000);$A$1:$A$20000;0)-MAX(SE(H$2:H388>1;RIF.RIGA(H$2:H388);""))
Sub RitardiA()
UR = Worksheets("Foglio1").Range("C" & Rows.Count).End(xlUp).Row
Range(Cells(UR + 2, 3), Cells(UR + 2, 53)).ClearContents
ContaR = 0
For RR = UR - 3 To 4 Step -1
ContaR = ContaR + 1
For CC = 3 To 8 Step 5
ContaA = 0
For CCR = CC + 0 To CC + 5
If Cells(RR, CCR).Value = Cells(UR, CCR).Value Then
ContaA = ContaA + 1
If ContaA = 2 Then
If Cells(UR + 2, CC + 2).Value = 0 Then
Cells(UR + 2, CC + 2).Value = ContaR
GoTo SaltaCC
End If
End If
End If
Next CCR
SaltaCC:
Next CC
Next RR
End Sub
Sub RitardiA()
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
UR = Worksheets("Statistica").Range("A" & Rows.Count).End(xlUp).Row
'For CC = 3 To 53 Step 5 '<<<< attivare questa per 10 ruote
For CC = 3 To 8 Step 5 'commentare questa per 10 Ruote
Sub RitardiA()
Application.ScreenUpdating = False
Application.Calculation = xlManual
UR = Worksheets("Statistica").Range("A" & Rows.Count).End(xlUp).Row
Range(Cells(UR + 2, 3), Cells(UR + 2, 53)).ClearContents
For CC = 3 To 53 Step 5
ContaR = 0
For RR = UR - 3 To 4 Step -1
ContaA = 0
For CCR = CC + 0 To CC + 4
If Val(Cells(RR, CCR)) = Val(Cells(UR, CCR)) Then
ContaA = ContaA + 1
If ContaA = 2 Then
If Cells(UR + 2, CC + 2).Value = 0 Then
Cells(UR + 2, CC + 2).Value = UR - 3 - RR
ContaA = 0
GoTo SaltaCC
End If
End If
End If
Next CCR
Next RR
SaltaCC:
Next CC
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Avatar3 ha scritto:Penso che tu possa importare l'archivio al posto di C:\ (root) userei C:\temp\
ma in che formato sono i dati di importazione?
Lucio Peruggini ha scritto:ma penso di averla sparata grossa
Torna a Applicazioni Office Windows
Modidica Formula Somma I Riferimenti Autore: Francesco6918 |
Forum: Applicazioni Office Windows Risposte: 2 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 106 ospiti