Giulia1962, 12/03/2024 14:26:Buongiorno e un saluto a tutti voi professionisti di Excel, devo trovare con quale si e accoppiato maggiormente
Giulia1962, 12/03/2024 15:42:Si infatti sto provando ad studiare e imparare qualcosa. Mi devi scusare o scaricato il file ma non cè nessuna formula. grazie
federico460, 12/03/2024 15:52:ciao secondo me in chiusura non hai salvato e le formule non ci sono il file è quello di Giulia pari pari se scrivi la formula la controllo con la mia
Giulia1962, 12/03/2024 16:13:Ciao, grazie di cuore mi hai fatto un grosso regalo risolto. Giulia ❤
Sub trova() Dim r, c, d, x, y, k, rng, num d = Cells(1, 8) Range("Numeri").ClearContents ReDim num(1 To 90) For x = 2 To Cells(Rows.Count, 1).End(xlUp).Row Set rng = Range("A" & x & ":E" & x) k = WorksheetFunction.CountIf(rng, d) If k = 1 Then For y = 1 To 5 k = Cells(x, y) If k = d Then GoTo 1 num(k) = num(k) + 1 1 Next y End If Next x r = 1: c = 10 For x = 1 To 90 Cells(r, c) = num(x) r = r + 1 If r = 31 Then r = 1: c = c + 2 Next x End Sub
Giulia1962, 12/03/2024 16:51:Ciao scusatemi, o solo cambiato celle e non mi funziona, per cortesia me lo correggete, era cosi perfetto sto piangendo.... si stanno numeri tipo 90 o 72 che non sono usciti e me li segna come 1 uscita. allego file Grazie Giula
Giulia1962, 12/03/2024 17:03:Ciao grazie a tutti, quello che chiedo che vede tutti gli accoppiamenti compreso anche 81, solo la correzione al file inviato prima grazie Giulia