Moderatori: Anthony47, Flash30005
=SE(CONTA.SE(A$3:A3;A3)=2;A3;"")
=SE(B3<>"";SE(CONTA.NUMERI(B$3:B3)<5;CONTA.NUMERI(B$3:B3);"");"")
=SE(RIF.RIGA()>CONFRONTA(1;C:C);SE(CONTA.SE(INDIRETTO(INDIRIZZO(CONFRONTA(1;C:C);1)&":A"&RIF.RIGA());$A3)=2;$A3;"");"")
Sub cerca()
UR = Cells(Rows.Count, "A").End(xlUp).Row
XX = 3
For dato = 3 To UR
If Application.WorksheetFunction.CountIf(Range("A" & XX & ":A" & dato), Cells(dato, 1)) = 2 Then
Cells(dato, 2) = Cells(dato, 1)
GoTo altri
End If
GoTo cicla
altri:
dato2 = dato + 1
For i = 3 To 5
For j = dato2 To UR
If Application.WorksheetFunction.CountIf(Range("A" & XX & ":A" & j), Cells(j, 1)) = 2 Then
Cells(dato, i) = Cells(j, 1)
GoTo prossimo
End If
Next j
prossimo:
dato2 = j + 1
Next i
XX = dato + 1
cicla:
Next dato
End Sub
Andiamo avanti per l’intera serie delle 1000 celle con il presupposto
Che trovati i primi 4 valori la ricerca RIPARTE dal primo numero sottostante il primo numero raddoppiato
Trovato, nel nostro caso il numero 47 che si trova sotto il 34.
Dal 47 riparte una nuova ricerca per trovare i successivi 4 numeri RADDOPPIATI.
Andiamo avanti per l’intera serie delle 1000 celle con il presupposto
Che trovati i primi 4 valori la ricerca RIPARTE dal primo numero sottostante il primo numero raddoppiato
Trovato, nel nostro caso il numero 5 che si trova sotto il 34.
Dal 5 riparte una nuova ricerca per trovare i successivi 4 numeri RADDOPPIATI.
Sub cerca2()
UR = Cells(Rows.Count, "A").End(xlUp).Row
XX = 3
YY = 9
contatore = 0
For dato = 3 To UR
If Application.WorksheetFunction.CountIf(Range("A" & XX & ":A" & dato), Cells(dato, 1)) = 2 Then
Cells(dato, 2) = Cells(dato, 1)
GoTo altri
End If
GoTo cicla
altri:
dato2 = dato + 1
For i = 3 To 5
For j = dato2 To UR
Cells(dato, YY) = Cells(j, 1)
contatore = contatore + 1
YY = YY + 1
If Application.WorksheetFunction.CountIf(Range("A" & XX & ":A" & j), Cells(j, 1)) = 2 Then
Cells(dato, i) = Cells(j, 1)
GoTo prossimo
End If
Next j
prossimo:
dato2 = j + 1
Next i
Cells(dato, 7) = contatore
XX = XX + 1
YY = 9
contatore = 0
cicla:
Next dato
End Sub
Scusami wallace&gromit ho fatto un clamoroso errore del quale mi sono accorto solo ora, prima che tu o altri
completino la soluzione faccio presente che quanto sopra va corretto come segue:
Andiamo avanti per l’intera serie delle 1000 celle con il presupposto
Che trovati i primi 4 valori la ricerca RIPARTE dal primo numero sottostante il primo numero raddoppiato
Trovato, nel nostro caso il numero 5 che si trova sotto il 34.
Dal 5 riparte una nuova ricerca per trovare i successivi 4 numeri RADDOPPIATI.
Sub cerca3()
UR = Cells(Rows.Count, "A").End(xlUp).Row
XX = 3
YY = 9
contatore = 0
iniz = 3
For dato = 3 To UR
If Application.WorksheetFunction.CountIf(Range("A" & XX & ":A" & dato), Cells(dato, 1)) = 2 Then
Cells(dato, 2) = Cells(dato, 1)
primo = Application.WorksheetFunction.Match(Cells(dato, 1), Range("A" & XX & ":A" & dato), 0) + XX
GoTo altri
End If
GoTo cicla
altri:
dato2 = dato + 1
For i = 3 To 5
For j = dato2 To UR
If Application.WorksheetFunction.CountIf(Range("A" & XX & ":A" & j), Cells(j, 1)) = 2 Then
Cells(dato, i) = Cells(j, 1)
GoTo prossimo
End If
Next j
prossimo:
dato2 = j + 1
Next i
For k = primo - 1 To dato2 - 1
Cells(dato, YY) = Cells(k, 1)
contatore = contatore + 1
YY = YY + 1
Next k
Cells(dato, 7) = contatore
XX = XX + 1
YY = 9
contatore = 0
cicla:
Next dato
End Sub
Torna a Applicazioni Office Windows
Formattzione valori con simbolo triangolini colorati Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
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: 5 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 18 ospiti