somma se 90

Hai un problema con Excel?

Nuova discussione

somma se 90
di griorgio (utente non iscritto) data: 15/06/2017 12:44:04
salve,

cortesemente come risolvere un conteggio a prima vista mi sembrava
facile ma forse non riesco a mettere al posto giusto " ; " e " () ".

Ho 4 celle non contigue con numerazione mai uguale (numeri uno diverso dall'altro)
conteggiando i valori delle celle a 2 a 2 sapere se c'è una coppia di celle che = 90
le celle e relativi valori
c6= 4; h6= 26; m6= 64; r6=77.
se esito positivo riportare in in x6 quanto sta scritto in x5;
questo in formula;
Se di una macro riporto in cima alla colonna x cioè x1=c; x2=h; x3= m; x4= r.
Questo perchè dovrei fare diverse ricerche di combinazioni con colonne diverse.
La ricerca delle combinazioni colonnari riguarderà sempre riga riga.

Segue l'allegato

Grazie
somma se 90
di griorgio (utente non iscritto) data: 15/06/2017 18:24:53

salve,

ehm!

qualche volenteroso può perdere qualche minuto per
la mia richiesta?

Purtroppo con le ricerche non posso andare avanti

Scusate la richiesta.

Ma sempre grazie
;
di Luca73 data: 15/06/2017 21:50:53
Ciao
Non è che la tua descrizione sia chiarissima, forse è per questo motivo che nessuno ti risponde.
Per la parte in cui parli di Macro, sinceramente non ho capito cosa vuoi

Comunque la tua formula
=(SE(C7+H7=90;SE(C7+M7=90;SE(C7+R7=90;SE(H7+M7=90;SE(H7+R7=90;SE(M7+R7=90;"Sett_1";"");););););))
è sbagliata
la funzione SE si costruisce così
SE(test; [se_vero]; [se_falso])
ora per come l'hai scritta confronta la somma di C7 e H7 con 90 se questo è vero (primo campo) allora confronta se C7+ H7,....
Le soluzioni che ti posso suggerire sono due:
Usare la funzione O (or booleano che diventa vera se almeno una delle funzioni all'interno è vera
SE(O(C7+H7=90;C7+M7=90;C7+R7=90;H7+M7=90;H7+R7=90;M7+R7=90);$X$5;"")

Altrimenti
Nidificando i se
=(SE(C6+H6=90;$X$5;SE(C6+M6=90;$X$5;SE(C6+R6=90;$X$5;SE(H6+M6=90;$X$5;SE(H6+R6=90;$X$5;SE(M6+R6=90;$X$5;"")))))))

Ciao
Luca
somma se 90
di griorgio (utente non iscritto) data: 15/06/2017 23:41:49
FORSE QUESTA E' UNA RISPOSTA IN DUPLICATO.
A ME PARE DI AVERLA SPEDITA MA NON LA VEDO

Ciao Luca,

io l'avrei risolta in questo modo pare che si assomiglia alla formula nidificata.

=SE((SE(C6+H6=90;1;SE(C6+M6=90;1;SE(C6+R6=90;1;SE(H6+M6=90;1;SE(H6+R6=90;1;SE(M6+R6=90;1)))))))=1;90;"")

però pare dovrei accettare la prima perchè, anche se difficilmente, potrebbero esserci 2 coppie
che danno 90 e a questo punto dovrò scegliere il se(O.

So che forzare la chiamata d'aiuto potrebbe anche dare di forzatura ma vuoi che dopo aver
l'heelp ci ho un po ragionato e pare mi sia riuscita, anzi se ti va di controllarla così mi togli
il pensiero se è corretta.

Sulla macro ma è solo per spiegare cosa volevo:
in cima alle colonne ho scritto le colonne che si devono combinare,
per esempio se prendi la formula mia e vedi quali sono le lettere delle celle
la macro doveva riferirsi a quelle colonne.
Mi auguro di aver chiarito il concetto.
Fai conto che il codice sostituisce la formula

Per spiegarmi meglio, credo, ti allego l'immagine
quando alla riga trovi 90 rispettando le lettere sopra la colonna di 90
nella riga a sinistra vai a controllare e in una coppia delle colonne indicate sopra
trovi 90.
Se mi sono spiegato e ti verrebbe di scrive una macro se non ti complico la vita
potresti far si che segnali con colore le 4 celle che sono interessate a 90?

Ciao

di Mister_x (utente non iscritto) data: 16/06/2017 01:21:55
ciao

da inserire nel modulo foglio
in base al tuo file postato

PS IN CASO DI VINCITE SI ACCETTANO DONAZIONI PER IL FORUM

ciao
riallego il tuo file

Option Explicit
Sub somma90()
Dim i As Long
Dim o As Long
Range("C6:V20000").Interior.ColorIndex = xlNone
Range("X6:AF20000").ClearContents
For i = 6 To Cells(Rows.Count, 1).End(xlUp).Row
 For o = 0 To 4  ''prime 5
  If Cells(i, 3 + o) + Cells(i, 8 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 3 + o).Interior.ColorIndex = 3
    Cells(i, 8 + o).Interior.ColorIndex = 3
  End If
  If Cells(i, 3 + o) + Cells(i, 13 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 3 + o).Interior.ColorIndex = 3
    Cells(i, 13 + o).Interior.ColorIndex = 3
  End If
  If Cells(i, 3 + o) + Cells(i, 18 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 3 + o).Interior.ColorIndex = 3
    Cells(i, 18 + o).Interior.ColorIndex = 3
  End If
  If Cells(i, 8 + o) + Cells(i, 13 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 8 + o).Interior.ColorIndex = 3
    Cells(i, 13 + o).Interior.ColorIndex = 3
  End If
  If Cells(i, 8 + o) + Cells(i, 18 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 8 + o).Interior.ColorIndex = 3
    Cells(i, 18 + o).Interior.ColorIndex = 3
  End If
  If Cells(i, 13 + o) + Cells(i, 18 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 13 + o).Interior.ColorIndex = 3
    Cells(i, 18 + o).Interior.ColorIndex = 3
  End If
  Next o
'''''''''''''''''''666
If Cells(i, 3) + Cells(i, 9) = 90 Then
    Cells(i, 29) = 90
    Cells(i, 3).Interior.ColorIndex = 3
    Cells(i, 9).Interior.ColorIndex = 3
  End If
  If Cells(i, 3) + Cells(i, 15) = 90 Then
    Cells(i, 29) = 90
    Cells(i, 3).Interior.ColorIndex = 3
    Cells(i, 15).Interior.ColorIndex = 3
  End If
  If Cells(i, 3) + Cells(i, 21) = 90 Then
    Cells(i, 29) = 90
    Cells(i, 3).Interior.ColorIndex = 3
    Cells(i, 21).Interior.ColorIndex = 3
  End If
  If Cells(i, 9) + Cells(i, 15) = 90 Then
    Cells(i, 29) = 90
    Cells(i, 9).Interior.ColorIndex = 3
    Cells(i, 15).Interior.ColorIndex = 3
  End If
  If Cells(i, 9) + Cells(i, 21) = 90 Then
    Cells(i, 29) = 90
    Cells(i, 9).Interior.ColorIndex = 3
    Cells(i, 21).Interior.ColorIndex = 3
  End If
  If Cells(i, 15) + Cells(i, 21) = 90 Then
    Cells(i, 29) = 90
    Cells(i, 15).Interior.ColorIndex = 3
    Cells(i, 21).Interior.ColorIndex = 3
  End If

  '''''''''''''777
  If Cells(i, 4) + Cells(i, 10) = 90 Then
    Cells(i, 30) = 90
    Cells(i, 4).Interior.ColorIndex = 3
    Cells(i, 10).Interior.ColorIndex = 3
  End If
  If Cells(i, 4) + Cells(i, 16) = 90 Then
    Cells(i, 30) = 90
    Cells(i, 4).Interior.ColorIndex = 3
    Cells(i, 16).Interior.ColorIndex = 3
  End If
  If Cells(i, 4) + Cells(i, 22) = 90 Then
    Cells(i, 30) = 90
    Cells(i, 4).Interior.ColorIndex = 3
    Cells(i, 22).Interior.ColorIndex = 3
  End If
  If Cells(i, 10) + Cells(i, 16) = 90 Then
    Cells(i, 30) = 90
    Cells(i, 10).Interior.ColorIndex = 3
    Cells(i, 16).Interior.ColorIndex = 3
  End If
  If Cells(i, 10) + Cells(i, 22) = 90 Then
    Cells(i, 30) = 90
    Cells(i, 10).Interior.ColorIndex = 3
    Cells(i, 22).Interior.ColorIndex = 3
  End If
  If Cells(i, 16) + Cells(i, 22) = 90 Then
    Cells(i, 30) = 90
    Cells(i, 16).Interior.ColorIndex = 3
    Cells(i, 22).Interior.ColorIndex = 3
  End If
''''''''''''''''''88888
   If Cells(i, 6) + Cells(i, 10) = 90 Then
    Cells(i, 31) = 90
    Cells(i, 6).Interior.ColorIndex = 3
    Cells(i, 10).Interior.ColorIndex = 3
  End If
  If Cells(i, 6) + Cells(i, 14) = 90 Then
    Cells(i, 31) = 90
    Cells(i, 6).Interior.ColorIndex = 3
    Cells(i, 14).Interior.ColorIndex = 3
  End If
  If Cells(i, 6) + Cells(i, 18) = 90 Then
    Cells(i, 31) = 90
    Cells(i, 6).Interior.ColorIndex = 3
    Cells(i, 18).Interior.ColorIndex = 3
  End If
  If Cells(i, 10) + Cells(i, 14) = 90 Then
    Cells(i, 31) = 90
    Cells(i, 10).Interior.ColorIndex = 3
    Cells(i, 14).Interior.ColorIndex = 3
  End If
  If Cells(i, 10) + Cells(i, 18) = 90 Then
    Cells(i, 31) = 90
    Cells(i, 10).Interior.ColorIndex = 3
    Cells(i, 18).Interior.ColorIndex = 3
  End If
  If Cells(i, 14) + Cells(i, 18) = 90 Then
    Cells(i, 31) = 90
    Cells(i, 14).Interior.ColorIndex = 3
    Cells(i, 18).Interior.ColorIndex = 3
  End If
 ''''''''''' 9999999999
 If Cells(i, 7) + Cells(i, 11) = 90 Then
    Cells(i, 32) = 90
    Cells(i, 7).Interior.ColorIndex = 3
    Cells(i, 11).Interior.ColorIndex = 3
  End If
  If Cells(i, 7) + Cells(i, 17) = 90 Then
    Cells(i, 32) = 90
    Cells(i, 7).Interior.ColorIndex = 3
    Cells(i, 17).Interior.ColorIndex = 3
  End If
  If Cells(i, 6) + Cells(i, 19) = 90 Then
    Cells(i, 32) = 90
    Cells(i, 6).Interior.ColorIndex = 3
    Cells(i, 19).Interior.ColorIndex = 3
  End If
  If Cells(i, 11) + Cells(i, 17) = 90 Then
    Cells(i, 32) = 90
    Cells(i, 11).Interior.ColorIndex = 3
    Cells(i, 17).Interior.ColorIndex = 3
  End If
  If Cells(i, 11) + Cells(i, 19) = 90 Then
    Cells(i, 32) = 90
    Cells(i, 11).Interior.ColorIndex = 3
    Cells(i, 19).Interior.ColorIndex = 3
  End If
  If Cells(i, 17) + Cells(i, 19) = 90 Then
    Cells(i, 32) = 90
    Cells(i, 17).Interior.ColorIndex = 3
    Cells(i, 19).Interior.ColorIndex = 3
  End If
  
Next i
End Sub

di Vecchio Frac data: 16/06/2017 08:39:11
@Mister_x
il codice è inguardabile
(a.i.v.)
somma se 90
di griorgio (utente non iscritto) data: 16/06/2017 09:05:10
Salve Vecchio Frac,

non ci fare caso,
senza offesa per Mister X e cmq grazie per il tentato aiuto
ho dovuto fare diversamente e quindi prendere un'altra decisione.
Cioè a me serve evidenziare/separare i 4 numeri fra i quali c'è la somma 90
e poichè quando ci sono 2 ed anche 3 dei 90 da colonna X:ed alcuni numeri di un 90
sono inclusi nell'altra a giusta ragione si fa confusione di evidenziare.
E siccome, non sapendo fare diversamente, ho dovuto ripiegare,
tanto per cambiare, sulle formule.
Infatti in altre colonne mi distinge quali sono i 4 numeri interessati.
Ciao

di Vecchio Frac data: 16/06/2017 09:18:26
Ma vedi che il codice funziona perfettamente.
Se il problema è solo visivo ti basta cambiare il colore dell'evidenziazione :)

  If Cells(i, 3 + o) + Cells(i, 8 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 3 + o).Interior.ColorIndex = 3
    Cells(i, 8 + o).Interior.ColorIndex = 3
  End If
  If Cells(i, 3 + o) + Cells(i, 13 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 3 + o).Interior.ColorIndex = 4
    Cells(i, 13 + o).Interior.ColorIndex = 4
  End If
  If Cells(i, 3 + o) + Cells(i, 18 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 3 + o).Interior.ColorIndex = 5
    Cells(i, 18 + o).Interior.ColorIndex = 5
  End If
... eccetera...

di Mister_x (utente non iscritto) data: 16/06/2017 10:00:18
ciao

ciao V.F. avevo visto che il codice e' un pochino schifezza, ma fatto nel giro di una 1/2 ora quello che ' e' uscito e' questo
pensavo di farlo con due semplici cicli for alla prima vista, ma mi sono accorto subito che le prime 5 colonne era possibile , la 6 e 7 cambiava, mentre la 8 e la 9 erano proprio differenti.
quindi la partenza e' stata prima di questo contrattempo di 5 + 4 ma alla fine o optato per un bel copia incolla delle varie procedure con i riferimenti di cella cambiati in un paio di minuti
per il colore ai ragione di dire al nostro amico che basta cambiare il colore ,PS a disposizione mi sembra 52,
altra cosa se il nostro amico a voglia puo fare un bel miglioramento, nel senso di dare un colore anche al 90 uguale alle coppie che lo formano

ciao

''modifica al primo for , il resto al nostro amico

Range("C6:V20000").Interior.ColorIndex = xlNone
Range("X6:V20000").Interior.ColorIndex = xlNone
Range("X6:AF20000").ClearContents
For i = 6 To Cells(Rows.Count, 1).End(xlUp).Row
 For o = 0 To 4  ''prime 5
  If Cells(i, 3 + o) + Cells(i, 8 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 24 + o).Interior.ColorIndex = 3
    Cells(i, 3 + o).Interior.ColorIndex = 3
    Cells(i, 8 + o).Interior.ColorIndex = 3
  End If
  If Cells(i, 3 + o) + Cells(i, 13 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 24 + o).Interior.ColorIndex = 4
    Cells(i, 3 + o).Interior.ColorIndex = 4
    Cells(i, 13 + o).Interior.ColorIndex = 4
  End If
  If Cells(i, 3 + o) + Cells(i, 18 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 24 + o).Interior.ColorIndex = 5
    Cells(i, 3 + o).Interior.ColorIndex = 5
    Cells(i, 18 + o).Interior.ColorIndex = 5
  End If
  If Cells(i, 8 + o) + Cells(i, 13 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 24 + o).Interior.ColorIndex = 6
    Cells(i, 8 + o).Interior.ColorIndex = 6
    Cells(i, 13 + o).Interior.ColorIndex = 6
  End If
  If Cells(i, 8 + o) + Cells(i, 18 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 24 + o).Interior.ColorIndex = 7
    Cells(i, 8 + o).Interior.ColorIndex = 7
    Cells(i, 18 + o).Interior.ColorIndex = 7
  End If
  If Cells(i, 13 + o) + Cells(i, 18 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 24 + o).Interior.ColorIndex = 8
    Cells(i, 13 + o).Interior.ColorIndex = 8
    Cells(i, 18 + o).Interior.ColorIndex = 8
  End If
  Next o

somma se 90
di griorgio (utente non iscritto) data: 16/06/2017 10:06:41

Scusami Frac non volevo dire che non funziona
e tanto di cappello a Mister X.

Diciamo che gli avrei fatto fare un lavoro in più
e di ciò me ne dispiace.
Molte volte quando si chiede qualcosa non si ha idea di
come si presenterà in futuro ma visto la difficoltà per individuare
i 4 numeri ho pensato: allego l'immagine per meglio spiegarmi
ma la cosa è nata dopo il VBA di Mister X.
Guarda l'mmagine e invece di avere segnalato i 4 numeri col colore
sono stati estrapolati dalla riga C:V.
Ciao
di Vecchio Frac data: 16/06/2017 10:35:45
@Mister_x "fatto nel giro di una 1/2 ora quello che ' e' uscito e' questo"
---> LOL

@Griorgio "Molte volte quando si chiede qualcosa non si ha idea di come si presenterà in futuro"
---> Questo è vero, succede a tutti ed è normale, perchè nessuno ha in testa il progetto finito e ci si accorge in corsa di quante cose nuove dovrebbero essere implementate.

di Vecchio Frac data: 16/06/2017 10:52:04
@Griorgio
Ho visto la nuova immagine e con un po' di attenzione si può fare

 For o = 0 To 4  ''prime 5
  If Cells(i, 3 + o) + Cells(i, 8 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 3 + o).Interior.ColorIndex = 3
    Cells(i, 8 + o).Interior.ColorIndex = 3
    'questa parte seguente si ripete uguale
    Cells(i, 34 + o) = Cells(i, 3 + o) & "_" & Cells(i, 8 + o) & "_" & Cells(i, 13 + o) & "_" & Cells(i, 18 + o)
  End If
  If Cells(i, 3 + o) + Cells(i, 13 + o) = 90 Then
    Cells(i, 24 + o) = 90
    Cells(i, 3 + o).Interior.ColorIndex = 4
    Cells(i, 13 + o).Interior.ColorIndex = 4
    Cells(i, 34 + o) = Cells(i, 3 + o) & "_" & Cells(i, 8 + o) & "_" & Cells(i, 13 + o) & "_" & Cells(i, 18 + o)
  End If

... per le righe successive occorre più attenzione

di Vecchio Frac data: 16/06/2017 11:24:17
Ma solo per giocare... propongo questa
Provate a verificare se funziona come richiesto.

Option Explicit

Sub somma90_VF()
Dim xRow As Long
Dim i As Long
Dim j As Long
Dim m As Variant
Dim mask(1 To 9) As String
Dim col1 As String, col2 As String
Dim pos As Integer
Dim s As String
Dim tmp As Integer
Dim k As Integer
Dim COLORS As Variant

    COLORS = Array(vbRed, vbYellow, vbGreen, vbCyan)
    
    For i = 24 To 32    ' [X:AF]
        mask(i - 23) = Join(Application.Transpose(Range(Cells(1, i), Cells(4, i))), vbNullString)
    Next
        
    Range("C6:V20000").Interior.ColorIndex = xlNone
    Range("X6:AH20000").ClearContents
    
    For xRow = 6 To Cells(Rows.Count, 1).End(xlUp).Row
        For Each m In mask
            For i = 1 To 3
                For j = i + 1 To 4
                    col1 = Mid(m, i, 1)
                    col2 = Mid(m, j, 1)
                    If Cells(xRow, col1) + Cells(xRow, col2) = 90 Then
                        Cells(xRow, col1).Interior.Color = COLORS(k)
                        Cells(xRow, col2).Interior.Color = COLORS(k)
                        k = k + 1
                        If k = 4 Then k = 0
                        pos = Application.Match(m, mask, False)
                        Cells(xRow, 23 + pos) = 90
                        s = ""
                        For tmp = 1 To 4
                            s = s & Cells(xRow, Mid(mask(pos), tmp, 1)) & "_"
                        Next
                        s = Left(s, Len(s) - 1)
                        Cells(xRow, 33 + pos) = s
                    End If
                Next
            Next
        Next
    Next
End Sub

somma se 90
di griorgio (utente non iscritto) data: 16/06/2017 11:50:26

ho allegato una nuova immagine,
così come si presenta piena di colori (vivaci)
darebbe l'impressione che si possa anche fare
un colpo buono .....

Ciao
di Vecchio Frac data: 16/06/2017 12:02:55
Questa nuova immagine non l'ho capita :)
somma se 90
di griorgio (utente non iscritto) data: 16/06/2017 12:18:53

volevo solo fare vedere la bella immagine che ne è uscita fuori.

Non volendo ho messo anche il TRITA 4 numeri che poi dopo il
tritra e ritrita ti da la giocata ... poi speranzosi, la vincita.

Scusa ho fatto l'aggiornameto dell'archivio C:V e non va (la ricerca)
oltre i dati iniziali.
Perchè non mi da l'ultima questo lo dico perchè ho ancora il foglio
con le formule.
somma se 90
di griorgio (utente non iscritto) data: 16/06/2017 12:25:11

E' tutto perfetto,
non avevo aggiornato la prima colonna.

PARDON
di Vecchio Frac data: 16/06/2017 13:23:21
Bene allora aspettiamo la prossima vincita ^_^
somma se 90
di griorgio (utente non iscritto) data: 16/06/2017 14:36:10

Bene dopo questa lunga e piacevole chiacchierata
soddisfattissimo degli esiti ottenuti
io vi posto questa se vi va X 5- 6 estrazioni
se va male quando ripasso mi ricordate che
il chiromante quando gli bussano alla porta non
deve chiedere " chi è? " se no che chiromante è?

57 25 18 72 14 76 (10elotto serale)

Questa in generale
mentre per Mister X
" se pe magnà dovemo aspettà de vincere ..."
Un aiutino quando ci vuole .

Salve
somma se 90
di griorgio (utente non iscritto) data: 19/06/2017 08:04:05
Salve,

alla macro o BVA si potrebbero apportare delle correzioni.

praticamente:
1)-da C:V i colori che segnano i numeri che sommati fanno 90 vanno bene;
2)-da H:AF corrispondono nella colonna i dati delle combinazioni sopra cioè rigo 1:4;
3)-da AH:AP ci sarebbro dei dati che non corrispondono H:AF;

cioè se in colonna H è stato trovato 90 in corrispondenza di colonna AH stesso rigo
deveno esserci i numeri delle 4 celle cioè colonne C H M R
dove manca in H:AF 90 non deve esserci in AH:AP nessuna quartina
Parlo della macro Somma90 V.F.
Allego una nuova immagine Somma90_3
se cortesemente può essere corretta, grazie
Salve
somma se 90
di griorgio (utente non iscritto) data: 19/06/2017 08:32:59
Salve Vecchio Frac,

pare ci sia un detto
" la gatta frettolosa fa i figli cechi "

La macro va bene solo che cancellavai dati H:AF
mentre AH:AP non venendo cancellati non faceva altro
che aggiungere dati pechè fra l'altro uso un archivio dinamico
dove pur essendo sempre le stesse righe diciamo 100
aggiornando l'archivio da dove prende i dati il dinamico
sposta l'ultima riga con l'aggiornamento alla penultima
quindi non fa che ripetere.
Ho allargato l'area da H:AF a H:AP che cancella tutti i dati
e quindi non c'è ripetizione.

Buona giornata
di Vecchio Frac data: 19/06/2017 09:48:35
Forse parli dell'istruzione Range("X6:AH20000").ClearContents che appunto cancella il contenuto del range indicato. Intervieni lì per aggiustare opportunamente il range da resettare ad avvio procedura.
Spero di aver capito così il tuo messaggio :)
somma se 90
di griorgio (utente non iscritto) data: 19/06/2017 10:18:18
Ciao Frac,

dopo che ho scritto il messaggio in una cella AH:AP ho scritto una cosa
diverso dai dati, ho rilanciato la macro ed ho visto che non ha cancellato
il dato scritto da me.
Poi per via dell'archivio dinamico ....

Da qui il detto la gatta frettolosa ... ed ho corretto fino ad AP.

Tutto OK.
di Vecchio Frac data: 19/06/2017 10:30:46
Bene! Senza contare il fatto che riuscire a sistemare da soli le cose dopo aver capito come funzionano è una bella soddisfazione
somma se 90
di griorgio (utente non iscritto) data: 19/06/2017 10:40:49
Per Mister X
Cito per indirizzarmi sul'argomento:

da inserire nel modulo foglio
in base al tuo file postato

PS IN CASO DI VINCITE SI ACCETTANO DONAZIONI PER IL FORUM

prima macro

Salve, in qualità di apprendista e per cercare di entrare nel mondo VBA
se mi puoi dare una mini spiegazione solo di ciò che chiedo:
nella macro ci sono inizialmente 6 IF che vanno a vedere se con le
combinazioni dei celle c'è una somma 90:
la domanda è: perchè 6 e non 9 in cima alle colonne H1:AF4 se
le combinazioni sono 9?
Poi lo stesso dicasi del codice che trova i numeri AH:AP
ciè che con 90 sulla stessa riga indica quali sono i numeri interessati dalla richiesta.

Tempo permettendo Mister X
Ciao
di Vecchio Frac data: 19/06/2017 10:52:21
Il codice di Mister-x effettua un controlllo brutale confrontando direttamente le sei combinazioni delle colonne della prima serie: CH-CM-CR-HM-HR-MR. Esaurito questo ciclo (facile da impostare perchè le colonne sono alla stessa distanza) passa a esaminare le colonne successive (CI ecc.) che non presentano una regolarità "ciclabile" quindi le controlla con forza bruta una a una. Comunque la sua spiegazione lui l'aveva già data, leggi qualche post addietro.
somma se 90
di griorgio (utente non iscritto) data: 19/06/2017 11:02:45

Sufficiente.
Ecco perchè non mi tornavano i conti con le celle
un For per le prime 5 e poi un if per ogni singola combinazione
delle restanti.
Grazie

Vuoi Approfondire?