Moderatori: Anthony47, Flash30005
Sub TrovaRit()
UR = Sheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Foglio1").Range("N8:P50000").ClearContents
For RR1 = 8 To UR - 1
SR = 0
Gr1 = Sheets("Foglio1").Range("G" & RR1).Value
For RR2 = RR1 + 1 To UR
Gr2 = Sheets("Foglio1").Range("G" & RR2).Value
If Gr1 = Gr2 Then
SR = SR + 1
Else
If SR > 0 Then
Sheets("Foglio1").Range("N" & RR2 - 1).Value = Sheets("Foglio1").Range("E" & RR2 - 1).Value
Sheets("Foglio1").Range("O" & RR2 - 1).Value = SR + 1
Sheets("Foglio1").Range("P" & RR2 - 1).Value = Sheets("Foglio1").Range("D" & RR2 - 1).Value - Sheets("Foglio1").Range("D" & RR1).Value
RR1 = RR2 - 1
End If
GoTo SaltaRR2
End If
Next RR2
SaltaRR2:
Next RR1
End Sub
=SOMMA.PIÙ.SE(Foglio1!C$8:C$250000;Foglio1!B$8:B$250000;B8;Foglio1!C$8:C$250000;C8)
=SOMMA((Foglio1!B$8:B$250000=B8)*(Foglio1!C$8:C$250000=C8))
=MAX((Foglio1!F$8:F$250000)*(Foglio1!B$8:B$250000=B8)*(Foglio1!C$8:C$250000=C8))
Lucio Peruggini ha scritto:Grazie Flash, provo la formula sul foglio originale e ti farò sapere.
Flash30005 ha scritto:Perdona ma non so cosa abbia fatto in particolare
da allora ne ho fatte di cose...
ho perso solo tempo a cercare uno delle ultime macro fatte per te in un file che ha uno schema diverso da ciò che proponi ora.
Quindi spiega meglio cosa vorresti ottenere
P.s. Ricorda che questo è un Forum nel quale altri devono apprendere ciò che si fa di volta in volta e non cercare chi che cosa...
In altri termini quali sono i dati di input e i dati di output secondo le specifiche che illustrerai
Sub TrovaRit()
UR = Sheets("Storici").Range("B" & Rows.Count).End(xlUp).Row + 1
Sheets("Storici").Range("S8:V50000").ClearContents
For RR1 = 8 To UR - 1
SR = 0
MMR = 0
Gr1 = Sheets("Storici").Range("L" & RR1).Value
For RR2 = RR1 + 1 To UR
Gr2 = Sheets("Storici").Range("L" & RR2).Value
If Gr1 = Gr2 Then
SR = SR + 1
MR1 = Sheets("Storici").Range("J" & RR2 - 1).Value
If MMR < MR1 Then MMR = MR1
Else
If SR > 0 Then
If MMR < MR1 Then MMR = MR1
Sheets("Storici").Range("S" & RR2 - 1).Value = Sheets("Storici").Range("J" & RR2 - 1).Value
Sheets("Storici").Range("U" & RR2 - 1).Value = SR + 1
Sheets("Storici").Range("T" & RR2 - 1).Value = MMR
Sheets("Storici").Range("V" & RR2 - 1).Value = Sheets("Storici").Range("I" & RR2 - 1).Value - Sheets("Storici").Range("I" & RR1).Value
RR1 = RR2 - 1
End If
GoTo SaltaRR2
End If
Next RR2
SaltaRR2:
Next RR1
End Sub
Torna a Applicazioni Office Windows
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Problemi di stampa file .PDF da macro. Autore: zanatta77 |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: Nessuno e 37 ospiti