Il problema dei 3 corpi: Attraverso continenti e decadi, cinque amici geniali fanno scoperte sconvolgenti mentre le leggi della scienza si sgretolano ed emerge una minaccia esistenziale. Vieni a parlarne su TopManga.
 
Previous page | 1 2 | Next page
Vote | Print | Email Notification    
Author

Calcolare la frequenza dei valori evidenziati in blu

Last Update: 3/2/2024 12:38 PM
Post: 1,173
Registered in: 4/2/2018
Location: PESCARA
Age: 75
Veteran User
EXCEL 2016 - SPREAD32
OFFLINE
2/27/2024 8:45 PM
 
Modify
 
Delete
 
Quote

Buonasera a tutti
Ciao Mario
prima di considerare definitivamente chiusa questa discussione vorrei precisare di nuovo quanto da me già detto.
nell'archivio dell'OP ci sono 11 estrazioni per 11 ruote per 5 estratti = 1210 valori
il tuo algoritmo, che ripeto ineccepibile, cerca gli ambi con la classica notazione, al netto della colonna dei nomi delle ruote:

for tutte le righe
for a = 1 to 4
for b = a+1 to 5


e va bene, MA
quando l'algoritmo incontra 3 numeri colorati sulla stessa riga è costretto a interpretare la situazione come un terno.
Quindi nel terno 54-52-14 dell'estrazione n.25, e mi sembra anche in un altro, l'algoritmo troverà

54-52
54-14
52-14


per cui i 3 numeri vengono rilevati come doppia presenza di ciascuno

Ed è proprio questo fatto che porta al risultato finale di 2 valori in più per ogni numero facente parte di un terno.
Questa differenza sembra aver sconvolto l'OP, al punto che lui chiedeva la correzione del fenomeno.

Allora io avevo pensato che, se invece di fare la ricerca puntuale dell'ambo, si fosse fatta la semplice ricerca di un numero colorato

for tutte le righe
for a = 1 to 5


senza il secondo elemento for b =

appena si fosse trovato un numero colorato sarebbe stato segnalato come presente una sola volta, e così gli altri 2 elementi colorati del terno
In questo modo il conteggio finale non avrebbe creato la discrepanza rilevata (riguardante solo i terni).
Guarda caso tu stesso hai detto che non ti eri accorto di terni e l'algoritmo rilevava "gli ambi".
Ora l'OP si è cancellato dal forum, per cui magari è inutile scervellarsi a correggere.
Mi sono solo premurato di spiegare di nuovo il fatto, diciamo a bocce ferme, per amor di completezza
Saluti
[Edited by L2018 2/27/2024 8:48 PM]

LEO
https://t.me/LordBrum
Post: 1,682
Registered in: 6/27/2011
Veteran User
excel 2007
OFFLINE
2/28/2024 8:06 PM
 
Modify
 
Delete
 
Quote

Re: Re:
tanimon, 27/02/2024 11:35:




Ciao Mario,
spero che questa Tua reazione non dipenda da un mio
involontario comportamento.
In caso affermativo ne sono dispiaciuto e chiedo scusa.

Buona giornata a Te😉
Frank




ciao,
lo abbiamo detto un sacco di volte: LIBERI TUTTI

Si può rimanere delle proprie idee, ma ignorare chi chiede scusa in poco tempo dopo avere sbagliato,
faccio fatica a capirlo.

In ogni caso ha ragione Mario:
parliamo di Excel!







Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...
Post: 1,954
Registered in: 7/27/2010
Veteran User
OFFLINE
2/29/2024 1:23 PM
 
Modify
 
Delete
 
Quote

Re:
Ciao,

L2018, 27/02/2024 20:45:


quando l'algoritmo incontra 3 numeri colorati sulla stessa riga è costretto a interpretare la situazione come un terno.
Quindi nel terno 54-52-14 dell'estrazione n.25, e mi sembra anche in un altro, l'algoritmo troverà

54-52
54-14
52-14


per cui i 3 numeri vengono rilevati come doppia presenza di ciascuno


secondo me non è chiara la richiesta: io ho capito che vanno considerati solo gli ambi ripetuti e, quindi, solo gli ambi 52-14 e 54-14 sono presenti su due ruote del'estrazione 25, mentre l'ambo 54-52 è presente su una sola ruota.

Non so se questo report che ho generato in VBA possa essere utile a chiarire e, eventualmente all'OP, per toglierci i dubbi:


ad esempio il conteggio del numero 14 secondo me non dovrebbe essere 3 ma 4, appunto perché è presente come ambo sulle ruote di Genova (con il 52 di Bari) e di Roma (con il 54 di Genova).

Anche il 23 dovrebbe essere 4: perché è presente, come ambo nell'estrazione 30, sulla ruota di Cagliari con il 28 di Firenze e con il 73 di Venezia.
[Edited by scossa 2/29/2024 2:44 PM]

Bye!
scossa

scossa's web site
___
Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Post: 1,175
Registered in: 4/2/2018
Location: PESCARA
Age: 75
Veteran User
EXCEL 2016 - SPREAD32
OFFLINE
2/29/2024 1:54 PM
 
Modify
 
Delete
 
Quote

Ciao Scossa
ma infatti hai ragione
l'OP non è stato completamente chiaro nella richiesta, anche perchè nelle estrazioni compaiono 2 terni.
come dici tu il 14 compare non 3 ma 4 volte, e questo è il risultato del giusto conteggio di Mario, mentre l'OP ha contestato dicendo 3, poichè nel terno il 14 lo si vede UNA volta.
------------------
approfitto di questa insolita occasione della tua presenza per farti complimenti per le tue competenze che storicamente ho spesso notato, come pure negli anni ho notato lurkando quelle dell'ottimo Canapone.
In questo senso vorrei chiederti se sarebbe possibile che tu modifichi in qualche modo un file di cui sei autore, cambiando in qualche modo l'impaginazione dei dati sia in ingresso che in uscita, dal momento che io sono un amatore di quella materia.
In questo momento non riesco a trovare il forum e / o la pagina dove compare la tua macro, ma se mi dai un recapito tecnico e se sei disposto, potrei darti i riferimenti.
La macro si occupa brillantemente di evidenziare in ordine decrescente i numeri di un archivio, elencando tutti i numeri che compaiono un determinato numero di volte.
Grazie comunque
Ciao
Edit
Ah, ecco, la tua macro sembra che si chiami
MODA FINO AL 10 POSTO
[Edited by L2018 2/29/2024 2:03 PM]

LEO
https://t.me/LordBrum
Post: 1,955
Registered in: 7/27/2010
Veteran User
OFFLINE
2/29/2024 7:54 PM
 
Modify
 
Delete
 
Quote

Re:
L2018, 29/02/2024 13:54:


...vorrei chiederti se sarebbe possibile che tu modifichi in qualche modo un file di cui sei autore, cambiando in qualche modo l'impaginazione dei dati sia in ingresso che in uscita, dal momento che io sono un amatore di quella materia.
...



Ciao,
ti consiglio di aprire una nuova discussione spiegando quello che vuoi ottenere.



Bye!
scossa

scossa's web site
___
Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Post: 3,257
Registered in: 10/10/2013
Location: VICENZA
Age: 69
Master User
365
OFFLINE
2/29/2024 11:22 PM
 
Modify
 
Delete
 
Quote

ciao
non ho letto tutto e neanche la spiegazione
mi baso sui dati che leggo sul file

estraggo tutti i numeri con cella blu

Sub TrovaCol()
Columns("I:I").ClearContents
For RR = 3 To 300
For CC = 1 To 6
If Cells(RR, CC).Interior.ColorIndex = Range("C1").Interior.ColorIndex Then Cells(Rows.Count, 9).End(xlUp).Offset(1, 0).Value = Cells(RR, CC).Value
Next CC
Next RR
End Sub



estraggo gli univoci

=SE.ERRORE(INDICE($I$2:$I$1000;CONFRONTA(0;INDICE(CONTA.SE(J$1:$J1;$I$2:$I$1000&""););0));"")



conto la frequenza

=SE(J2="";"";CONTA.SE($I$2:$I$1000;$J2))



non sono in ordine ma basta filtrare
ma mi sembra che sia esattamente quello che chiede

NB
non ho provato la macro di marius.che immagino vada bene
[Edited by federico460 2/29/2024 11:25 PM]
Post: 1,176
Registered in: 4/2/2018
Location: PESCARA
Age: 75
Veteran User
EXCEL 2016 - SPREAD32
OFFLINE
2/29/2024 11:26 PM
 
Modify
 
Delete
 
Quote

grazie Federico
stavo chiudendo quando ho ricevuto l'avviso
sì, la macro di Mario per me è giusta, ma non è stata capita
la tua la provo senz'altro domattina
Ciao

LEO
https://t.me/LordBrum
Post: 3,258
Registered in: 10/10/2013
Location: VICENZA
Age: 69
Master User
365
OFFLINE
2/29/2024 11:34 PM
 
Modify
 
Delete
 
Quote

ciao
fulvio
è da migliorare vedi le celle che si popolano una ad una
ma voi vbaisti mi auguro la sistemiate.

nb
i colori mi piacciono
ma se scrivete in nero RISPONDI E NUOVA DISCUSSIONE
è meglio
cavolo non riuscivo a trovarli...sarà l'età😃
[Edited by federico460 2/29/2024 11:36 PM]
Post: 1,956
Registered in: 7/27/2010
Veteran User
OFFLINE
2/29/2024 11:41 PM
 
Modify
 
Delete
 
Quote

Ciao,

io però ho l'impressione che le celle evidenziate in blu siano frutto di un lavoro manuale, infatti non sono state evidenziate nell'estrazione 30 le celle relative all'ambo 23-73 sulle ruote di Cagliari e Venezia.
Quindi mi domando se è veramente il caso di basarsi sul colore delle celle e non sia meglio basarsi sulla verifica degli ambi (come ho fatto per il report nel mio post #34) ?

Bye!
scossa

scossa's web site
___
Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Post: 7,552
Registered in: 11/14/2004
Master User
Office 2019
OFFLINE
3/1/2024 8:28 AM
 
Modify
 
Delete
 
Quote

Ciao a tutti, guardando più a fondo il file dei numeri Blu, ho capito che non intende i numeri Blu ma gli ambi che si sono ripetuti nell'estrazione, forse dopo li avrà evidenziati in blu, in questo modo ha sviato la ricerca effettiva.

quindi a mio parere basta fare la ricerca degli ambi ripetuti nell'estrazione, logico che ci sono anche 3 numeri blu sull'estrazione questo perche uno di quelli è abbinato a qualche altro Ambo e sembra un terno, ma non lo è.

una volta avevo fatto una macro per la ricerca degli ambi isotopi, ora vedo di adattarla anche a quelli non isotopi



bisogna solo stabilire da quale estrazione partire e per quante estrazioni fare la ricerca.

Ciao By Sal (8-D
[Edited by by sal 3/1/2024 8:33 AM]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Post: 1,957
Registered in: 7/27/2010
Veteran User
OFFLINE
3/1/2024 1:06 PM
 
Modify
 
Delete
 
Quote

Ho l'impressione che dall'OP non riceveremo più nessun chiarimento 😩

Bye!
scossa

scossa's web site
___
Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Post: 1,177
Registered in: 4/2/2018
Location: PESCARA
Age: 75
Veteran User
EXCEL 2016 - SPREAD32
OFFLINE
3/1/2024 1:07 PM
 
Modify
 
Delete
 
Quote

Re:
scossa (Scossa.vr), 01/03/2024 13:06:

Ho l'impressione che dall'OP non riceveremo più nessun chiarimento 😩


Ciao, infatti l'OP si è rapidamente cancellato, in effetti si era espresso in modo incompleto e improprio.
Si possono solo rileggere i suoi primi 2 messaggi per riuscire a interpretare
[Edited by L2018 3/1/2024 1:11 PM]

LEO
https://t.me/LordBrum
Post: 3,259
Registered in: 10/10/2013
Location: VICENZA
Age: 69
Master User
365
OFFLINE
3/1/2024 1:31 PM
 
Modify
 
Delete
 
Quote

ciao
non preoccupatevi😄
quel file l'ho già visto ma non ricordo dove
e la richiesta mi sembrava fosse proprio quella di trovare gli stessi ambi
nella giocata
amen così vanno i forum
Post: 1,178
Registered in: 4/2/2018
Location: PESCARA
Age: 75
Veteran User
EXCEL 2016 - SPREAD32
OFFLINE
3/1/2024 1:34 PM
 
Modify
 
Delete
 
Quote

Re:
federico460, 01/03/2024 13:31:

ciao
quel file l'ho già visto ma non ricordo dove
e la richiesta mi sembrava fosse proprio quella di trovare gli stessi ambi
nella giocata


quale file ?

LEO
https://t.me/LordBrum
Post: 3,260
Registered in: 10/10/2013
Location: VICENZA
Age: 69
Master User
365
OFFLINE
3/1/2024 3:04 PM
 
Modify
 
Delete
 
Quote

il file allegato alla richiesta
Post: 1,179
Registered in: 4/2/2018
Location: PESCARA
Age: 75
Veteran User
EXCEL 2016 - SPREAD32
OFFLINE
3/1/2024 3:07 PM
 
Modify
 
Delete
 
Quote

Re:
federico460, 01/03/2024 15:04:

il file allegato alla richiesta


i files sono 2, e sono ancora scaricabili dalla prima pagina di questa discussione

LEO
https://t.me/LordBrum
Post: 1,958
Registered in: 7/27/2010
Veteran User
OFFLINE
3/1/2024 3:37 PM
 
Modify
 
Delete
 
Quote

Re:
federico460, 01/03/2024 13:31:

ciao
quel file l'ho già visto ma non ricordo dove



in una recente discussione in altro forum.



Bye!
scossa

scossa's web site
___
Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Post: 1,180
Registered in: 4/2/2018
Location: PESCARA
Age: 75
Veteran User
EXCEL 2016 - SPREAD32
OFFLINE
3/1/2024 3:55 PM
 
Modify
 
Delete
 
Quote

....recente dell'altro ieri, quando si è cancellato da qui non tanto perchè io lo avessi offeso avendogli indicato una strada non "pappa pronta", quanto per evitare il crossposting, e in questo momento è lì che cerca di parare i colpi

LEO
https://t.me/LordBrum
Post: 3,261
Registered in: 10/10/2013
Location: VICENZA
Age: 69
Master User
365
OFFLINE
3/1/2024 6:37 PM
 
Modify
 
Delete
 
Quote

no no
l'ho visto tempo fa che chiedeva di estrarre i numeri
con l'età ho imparato a dimenticare quello che non mi interessa
va beh!
comunque contento lui contento anch'io
Post: 1,959
Registered in: 7/27/2010
Veteran User
OFFLINE
3/1/2024 6:40 PM
 
Modify
 
Delete
 
Quote

Ciao,

comunque, lasciando perdere l'OP, ai fini della disamina del problema, sarebbe importante capire se la ricerca degli ambi doppi va circoscritta alle singole estrazioni (121 iterazioni) o estesa a tutte le estrazioni (14.762 iterazioni), ma stando alle celle colorate opterei per la prima ipotesi.

Bye!
scossa

scossa's web site
___
Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Post: 3,262
Registered in: 10/10/2013
Location: VICENZA
Age: 69
Master User
365
OFFLINE
3/1/2024 7:34 PM
 
Modify
 
Delete
 
Quote

ciao
si mi pare di ricordare che volesse
estrarre solo gli ambi "doppi" per estrazione
se non si trovavano ambi uguali nella stessa estrazione non dovevano essere calcolati
Post: 7,553
Registered in: 11/14/2004
Master User
Office 2019
OFFLINE
3/2/2024 7:48 AM
 
Modify
 
Delete
 
Quote

Ciao Questa la mia soluzione, un immagine


come vedete una volta impostato il numero dell'estrazione di partenza ed il numero di colpi successivi, riporta tutti gli ambi usciti, esempio 27-85 è uscito sia a Genova che Torino all'estrazione 6511 del 18/01/2024, dove si trovano 3 numeri vuol dire che sono usciti 3 ambi su quelle 2 Ruote

questa invece la macro

Sub CercaAmbi()
Dim rng, rng2, estr, Ruote, a(1 To 5), nR
Dim r, c, cc, d, x, y, z, i, j, k, n, nE, nC, n1, n2, aa

SetFg
sh1.Activate
With sh1
  nE = .Cells(2, 1) + 1
  nC = .Cells(2, 3) + 1
  .Range("F2:K2000").ClearContents
  r = 2: c = 6: cc = 3
  For x = nE To nE + nC
    If sh2.Cells(x, 1) = "" Then Exit For
    For y = 1 To 10
      estr = Range(sh2.Cells(x, cc), sh2.Cells(x, cc + 4))
      k = cc + 5
      For z = y + 1 To 11
        rng2 = Range(sh2.Cells(x, k), sh2.Cells(x, k + 4))
        Set rng = Range(sh2.Cells(x, k), sh2.Cells(x, k + 4))
        a(1) = WorksheetFunction.CountIf(rng, estr(1, 1))
        a(2) = WorksheetFunction.CountIf(rng, estr(1, 2))
        a(3) = WorksheetFunction.CountIf(rng, estr(1, 3))
        a(4) = WorksheetFunction.CountIf(rng, estr(1, 4))
        a(5) = WorksheetFunction.CountIf(rng, estr(1, 5))
        aa = a(1) + a(2) + a(3) + a(4) + a(5)
        If aa >= 2 Then
          j = 1
          ReDim nR(1 To 3)
          For i = 1 To 5
            If a(i) = 1 Then nR(j) = estr(1, i): j = j + 1
          Next i
          .Cells(r, c) = x
          .Cells(r, c + 1) = sh2.Cells(x, 2)
          .Cells(r, c + 2) = Ruo(y)
          .Cells(r, c + 3) = Ruo(z)
          .Cells(r, c + 4) = nR(1)
          .Cells(r, c + 5) = nR(2)
          .Cells(r, c + 6) = nR(3)
          r = r + 1
        End If
        k = k + 5
      Next z
      cc = cc + 5
    Next y
    cc = 3
  Next x
End With
End Sub


Ciao By Sal (8-D
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Post: 3,263
Registered in: 10/10/2013
Location: VICENZA
Age: 69
Master User
365
OFFLINE
3/2/2024 12:16 PM
 
Modify
 
Delete
 
Quote

ciao
By sal

non so se è quello che cercava comunque complimenti.

ah!
ho visto che ha risolto sull'altro forum
non ti posso inserire il file perchè
io sono stato sospeso per insubordinazione al regolamento
e di conseguenza mi sono cancellato.
strana la vita
da una parte ti sospendono dall'altra ti premiano mah!
[Edited by federico460 3/2/2024 12:16 PM]
Post: 1,181
Registered in: 4/2/2018
Location: PESCARA
Age: 75
Veteran User
EXCEL 2016 - SPREAD32
OFFLINE
3/2/2024 12:24 PM
 
Modify
 
Delete
 
Quote

Re:
federico460, 02/03/2024 12:16:


...
ho visto che ha risolto sull'altro forum
...


l'OP ha risolto cucendo insieme diversi codici di cui l'ultimo è di Zuccalà
no, non è di Zuccalà, la soluzione l'ha data Rubik72
ma è stato compassionevole e divertente seguire la discussione, in cui l'hanno etichettato come sempre desideroso di pappa pronta con aggiunta di formaggio.
Se io volessi inserire il file temo che dovrei ricostruirlo
lo avevo scaricato, eccolo, la soluzione dovrebbe essere la macro AMBI_2, nella quale però compare un debug.print che a me non è facilissimo sostituire con valori da inserire nel foglio.
Ma ci ha pensato Rubik:
al posto di debug
[...]
        For x = 0 To Dict.Count - 1
            If Dict.items()(x) > 1 Then
                riga= riga + 1
                Cells(riga, "Q") = Left(Dict.keys()(x), 2) & "/" & Right(Dict.keys()(x), 2)
                Cells(riga, "R") = Dict.items()(x) & " ambi"
                Cells(riga, "S") = "Estrazione " & est
            End If
        Next x
[...]
[Edited by L2018 3/2/2024 12:35 PM]

LEO
https://t.me/LordBrum
Post: 1,960
Registered in: 7/27/2010
Veteran User
OFFLINE
3/2/2024 12:38 PM
 
Modify
 
Delete
 
Quote

Ciao,
di seguito il codice che ho scritto per ottenere la tabella riportata nel post #33, basata sul file postato dall'OP al post #1.

Premessa: creare il named range [Estrazioni] che contiene le 11 aree relative alle estrazioni con questo codice:

Sub CreaEstrazioni()
  ThisWorkbook.Names.Add "Estrazioni", RefersTo:=Foglio1.Range( _
    "$B$3:$F$13,$B$17:$F$27,$B$31:$F$41,$B$45:$F$55," & _
    "$B$59:$F$69,$B$73:$F$83,$B$87:$F$97,$B$101:$F$111," & _
    "$B$115:$F$125,$B$129:$F$139,$B$143:$F$153")
End Sub


Questa la sub (buona parte della complessità è dovuta alla cura "estetica" dell'output):

AmbiRipetuti
Sub AmbiRipetuti()
  Dim rng As Range, rArea As Range, rRuota As Range, rRow As Range, rCell As Range
  Dim sRuoteEst As String, vAmbo As Variant
  Dim sAmbo As String, sRuota As String, sRuotaAmbo As String, sNum As String
  Dim aRuota As Variant, nRiga As Long, nEsp As Integer
  Dim nArea As Long, nRuota As Long, nMatch As Long
  Dim j As Long ', nIter As Long
  
  Set rng = [estrazioni]
  nRuota = 0
  sRuota = "#"
  nRiga = 2
  Application.ScreenUpdating = False
  Foglio1.Range("$H$3:$M$53").ClearContents
  For Each rArea In rng.Areas
    nArea = rArea.Row
    For Each rRuota In rArea.Rows
      nRuota = nRuota + 1
      If nRuota <> (rRuota.Row - rArea.Row) Then
        aRuota = Application.Transpose(Application.Transpose(rRuota.Value))
        sRuota = "#" & Join(aRuota, "#") & "#"
        For Each rRow In rArea.Rows
          If rRow.Row > rRuota.Rows(1).Row Then
            For Each rCell In rRow.Cells
              'nIter = nIter + 1
              sNum = "#" & rCell.Text & "#"
              If InStr(sRuota, sNum) Then
                If InStr(sAmbo, sNum) = 0 Then
                  sAmbo = sAmbo & rCell.Text & "#"
                  nMatch = nMatch + 1
                End If
              End If
            Next rCell
            If nMatch < 2 Or Len(sAmbo) < 4 Then
              sAmbo = ""
              nMatch = 0
            ElseIf Len(sAmbo) - Len(Replace(sAmbo, "#", "")) > 2 Then
              vAmbo = Split(sAmbo, "#")
              For j = LBound(vAmbo) To UBound(vAmbo) - 1
                'nIter = nIter + 1
                sAmbo = vAmbo(j) & "#" & IIf(vAmbo(j + 1) = "", vAmbo(0), vAmbo(j + 1))
                sAmbo = Replace(Trim(Replace(sAmbo, "#", " ")), " ", "-")
                If InStr(sRuoteEst, rArea.Cells(1, 1).Offset(-2, -1) & ": ") = 0 Then
                  sRuoteEst = rArea.Cells(1, 1).Offset(-2, -1) & ": "
                End If
                sRuoteEst = sRuoteEst & "#" & Foglio1.Cells(rRuota.Row, 1)
                sRuoteEst = sRuoteEst & "-" & Foglio1.Cells(rRow.Row, 1)
                nEsp = UBound(Split(sAmbo, "-"))
                If nEsp > 1 Then nEsp = nEsp + 1
                nRiga = nRiga + 1
                Foglio1.Cells(nRiga, 8).Value = rArea.Cells(1, 1).Offset(-2, -1)
                Foglio1.Cells(nRiga, 9).Value = Foglio1.Cells(rRuota.Row, 1)
                Foglio1.Cells(nRiga, 10).Value = Foglio1.Cells(rRow.Row, 1)
                Foglio1.Cells(nRiga, 11).Value = Replace(Trim(Replace(sAmbo, "#", " ")), " ", "-")
                Foglio1.Cells(nRiga, 12).Value = Split(Replace(Trim(Replace(sAmbo, "#", " ")), " ", "-"), "-")(0)
                Foglio1.Cells(nRiga, 13).Value = Split(Replace(Trim(Replace(sAmbo, "#", " ")), " ", "-"), "-")(1)
                Foglio1.Cells(nRiga, 14).NumberFormat = "@"
                Foglio1.Cells(nRiga, 14).Value = 2 * nEsp
              Next j
              sAmbo = ""
              nMatch = 0
            Else
              sAmbo = Replace(Trim(Replace(sAmbo, "#", " ")), " ", "-")
              If InStr(sRuoteEst, rArea.Cells(1, 1).Offset(-2, -1) & ": ") = 0 Then
                sRuoteEst = rArea.Cells(1, 1).Offset(-2, -1) & ": "
              End If
              sRuoteEst = sRuoteEst & "#" & Foglio1.Cells(rRuota.Row, 1)
              sRuoteEst = sRuoteEst & "-" & Foglio1.Cells(rRow.Row, 1)
              nEsp = UBound(Split(sAmbo, "-"))
              If nEsp > 1 Then nEsp = nEsp + 1
              nRiga = nRiga + 1
              Foglio1.Cells(nRiga, 8).Value = rArea.Cells(1, 1).Offset(-2, -1)
              Foglio1.Cells(nRiga, 9).Value = Foglio1.Cells(rRuota.Row, 1)
              Foglio1.Cells(nRiga, 10).Value = Foglio1.Cells(rRow.Row, 1)
              Foglio1.Cells(nRiga, 11).Value = Replace(Trim(Replace(sAmbo, "#", " ")), " ", "-")
              Foglio1.Cells(nRiga, 12).Value = Split(Replace(Trim(Replace(sAmbo, "#", " ")), " ", "-"), "-")(0)
              Foglio1.Cells(nRiga, 13).Value = Split(Replace(Trim(Replace(sAmbo, "#", " ")), " ", "-"), "-")(1)
              Foglio1.Cells(nRiga, 14).NumberFormat = "@"
              Foglio1.Cells(nRiga, 14).Value = 2 * nEsp
              sAmbo = ""
              nMatch = 0
            End If
          End If
        Next rRow
        sRuotaAmbo = ""
        If nMatch < 2 Then
          sAmbo = ""
          nMatch = 0
        Else
          sAmbo = ""
          nMatch = 0
        End If
      End If
    Next rRuota
    If sRuoteEst > "" Then Debug.Print sRuoteEst
    sRuoteEst = ""
    sAmbo = ""
    nMatch = 0
  Next rArea
  'Debug.Print nIter
  Application.ScreenUpdating = True
End Sub



Bye!
scossa

scossa's web site
___
Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Vote: 15MediaObject5.00355 3
Admin Thread: | Close | Move | Delete | Modify | Email Notification Previous page | 1 2 | Next page
New Thread
 | 
Reply
Feed | Forum | Bacheca | Album | Users | Search | Log In | Register | Admin
Tutti gli orari sono GMT+01:00. Adesso sono le 7:22 PM. : Printable | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com