come far funzionare exit for in macro

[giorgioa]

Salve a tutti,

date le mie conoscenze limitate in materia non riesco ad andare oltre
a completare questa macro.
UN GRANDE AIUTO

Sub Trova()
Dim e As Currency, f As Currency, g As Currency
e = [E1]
f = [F1]
g = [G1]
For g = 1 To 90
For f = 1 To 90
For e = 1 To 90
If Cells(1, 5).Value = Cells(1, 5).Value Then Cells(1, 5).Value = Cells(1, 5).Value + 1
If Cells(1, 5).Value > 90 Then Cells(1, 5).Value = 1
If Cells(3, 9).Value = Cells(4, 3).Value Then Exit For
Application.CutCopyMode = False
If Cells(1, 5).Value > 90 Then Cells(1, 6).Select

Next e
If Cells(1, 6).Value = Cells(1, 6).Value Then Cells(1, 6).Value = Cells(1, 6).Value + 1
If Cells(1, 6).Value > 90 Then Cells(1, 6).Value = 1
If Cells(3, 9).Value = Cells(4, 3).Value Then Exit For
Application.CutCopyMode = False
If Cells(1, 6).Value > 90 Then Cells(1, 7).Select

Next f
If Cells(1, 7).Value = Cells(1, 7).Value Then Cells(1, 7).Value = Cells(1, 7).Value + 1
If Cells(1, 7).Value > 90 Then Cells(1, 7).Value = 1
If Cells(3, 9).Value = Cells(4, 3).Value Then Exit For
Application.CutCopyMode = False
If Cells(1, 7).Value > 90 Then Exit Sub
' Next e
'Next f
Next g

End Sub
Quello che vorrei è che quando i 3 for hanno contemporaneamente che I3 = C4 si deve fermare
la macro e poi ricliccando la macro cerca altri dati fino a che sia g1, sia f1 che e1 completano i
cicli a 90.
Salve

[Flash30005]

Forse è opportuno che fornissi i dati dai quali parti (input)
specifichi le condizioni
per ottenere i dati finali (output)

cercare di capire una macro che non funziona senza sapere cosa deve funzionare diviene sempre un problema

ciao

[giorgioa]

Salve,

una correzione da parte mia è che currency non riguarda
moneta ma è numerico riguarda il dato nelle tre celle e1-f1-g1
che forse dovrebbe essere irrilevante.

Non che non voglio ma postare il file mi è difficile e per
la sua grandezza di dati e che mi è difficle ridurre i dati
riportati.
Quindi se mi potete aiutare con quanto riportato nella macro.

cosa fa la macro?
in e1 vengono riportati dei numeri da 1 a 90 tipo contatore
1 poi2 ecc fino a 90;
quando il numero di e1 arriva a 90 ricomincia la conta
e incrementa di una unita f1 fino a quando f1 arriva a 90
che a sua volta incrementa g1.

I3 tiene conto di una somma che se le 3 celle sommate
saranno uguale a c4 la macro si deve fermare ma NON
uscire da essa poi cliccare per continuare a trovare
l'altra somma che è fissa in c4.

So che ci saranno altri interventi per chiarimenti ma
vediamo se ho spiegato qualcosa di comprensibile.

Salve

[giorgioa]

Salve,

riporto 2 esempi per chiarimento.

se E1=15; F1=70; G1=5 la cella I3 fa la somma e in questo caso
la somma è 90 poichè C4 ha il valore 90 la macro si deve fermare;

altro esempio,
E1=30; F1=31; G1=29 totale 90.
C4=90; C4 chiede che se la somma in E3 è = a C4 la macro si deve fermare.

Se si può inserire nella macro che i valori di E1, F1, G1 nel momento in cui
fanno somma uguale a I3 e quindi = C4 i numeri fra essi devono essere tutti differenti

Per esempio E1=30; F1=30; G1=30 è vero che i numeri nelle celle sommati
fa 90 ma non li deve accettare come pure se delle 3 due di esse(celle) sono uguali,

per esempio E1=35; F1=20; G1=35
Quindi la macro non si deve fermare quando ci sono 2 oppure 3 numeri uguali.

La macro si deve fermare quando G1 è = 90, quando F1 =90 e E1 =90.

Credo che questo chiarisca cosa vorrei dalla macro.

Saluti

[Flash30005]

Non so se per fermare intendi uscire dalla macro e poi riprendere da "quel punto" ovvero da quelle condizioni e continuare la sequenza numerica ciclica
se è così e la tua macro fa tutto il resto del "lavoro"
(perché secondo me sono inverti i cicli)
quindi se la tua macro funziona ma devi fare solo lo stop
devi solo modificare la prima parte della macro

Codice: Seleziona tutto

Ei = [E1]
Fi = [F1]
Gi = [G1]
For g = Gi To 90
 For f = Fi To 90
 For e = Ei To 90

se invece non funziona, come penso perché si avvia prima G1 e non E1
allora far fare il ciclo For next di For e
prima degli altri due
poi c'è For f
e infine (all'interno dei due) il ciclo For g
così per capirci

Codice: Seleziona tutto

For e = Ei To 90
For f = Fi To 90
For g = Gi To 90


e chiaramente anche i rispettivi next vanno spostati
ciao

[giorgioa]

Salve Flash,

così com'è la macro inizia da E1 a 90 incrementa F1 di uno,
dopo i che E1 ha incrementato F1 a 90,
F1 inizia a incrementare G1 e quindi ricomincia
daccapo.
Quindi la macro fa questo, il probllema sta che
quando I3 fa la somma delle 3 celle il cui risultato
è uguale a C4 non si ferma.

Cioè, per spiegarmi, non rispetta Exit for, non si ferma.

Ho cambiato le posizioni dei for cioè
il gruppo di righe che riguarda il For ma niente

[scossa]

Ciao,

scusa ma il tuo codice è, come dire..... bizzarro:
[quote="giorgioa"]

Codice: Seleziona tutto

g = [G1]
For g = 1 To 90


prima assegni a g il valore della cella G1 e subito dopo lo utilizzi come indice di un ciclo for...next (perdendo il valore precednetemente assegnato .....)

Poi

Codice: Seleziona tutto

        If Cells(1, 5).Value = Cells(1, 5).Value

confronti un valore con se stesso, secondo te quel confronto potrà mai dare un risultato diverso da VERO?

Comincia con l'esaminare il problema dal punto di vista logico e poi ti preoccuperai di come scrivere il codice.

[giorgioa]

Salve

allego il file così ed effettivamente vedete dove stanno gli errori

http://www.filedropper.com/cerca

A me interessa che la macro si fermi quando I3 ha la stessa somma di C4
però poi deve continuare a cercare clikkando sul tasto.
Detto brevemente uno stop con exit for

La mia macro la potete anche capovolgere, a me interessa quanto detto
sopra mentre deve uscire per ipotesi non trova la somma di c4 quando
Gi poi F1 ed E1 sono a 90-90-90

ciao

[giorgioa]

Salve,

ho apportato dei cambiamenti alla macro
ma c'è un difetto che si ferma a un numero in più.

cioè se in C4 scrivo 90 e si ferma a 91 come in I3.

Da cosa dipende?

http://www.filedropper.com/cerca_1

[Flash30005]

Non ho forse capito il quesito
comunque
prova questa macro

Codice: Seleziona tutto

Option Explicit

Sub Trova()
Dim e As Integer, f As Integer, g As Integer, EI As Integer, FI As Integer, GI As Integer

EI = [E1]
FI = [F1]
GI = [G1]
For e = EI To 90
    [E1] = e
    For f = FI To 90
        [F1] = f
        For g = GI To 90
            [G1] = g
            If e + f + g = [C4] Then
                Exit Sub
            End If
        Next g
    Next f
Next e
End Sub


La macro si ferma quando la somma di E1+F1+G1 = C4
ma in I3 devi togliere il -1 nella formula altrimenti avrai 99 quando è 100

Oppure con E1 che inizia con il massimo valore (90)
usa questa

Codice: Seleziona tutto

Sub TrovaRov()
Dim e As Integer, f As Integer, g As Integer, EI As Integer, FI As Integer, GI As Integer

EI = [E1]
FI = [F1]
GI = [G1]
For e = EI To 1 Step -1
    [E1] = e
    For f = FI To 1 Step -1
        [F1] = f
        For g = GI To 1 Step -1
            [G1] = g
            If e + f + g = [C4] Then
                Exit Sub
            End If
        Next g
    Next f
Next e
End Sub


ciao

EDIT ore 23:30 by Flash - Corretta macro TrovaRov

[giorgioa]

Salve


sto provando la macro e i cicli li fa solo che
quando fa il risultato di i3 che è uguale a c4
la macro deve fermarsi e non uscire completamente da essa stessa
per spiegarmi tipo exit for
perchè poi deve continuare la ricerca da dove si è fermata
fino a quando, qualora non trova il dato che = ad i3,
alla fine dei 3 cicli se puoi inserire una input box che mi avvisa
che il calcolo è finito.

[Flash30005]

Le macro sono due
la seconda l'ho modificata poco fa

Io non prendo affatto in considerazione cosa contiene la cella I3

quindi devi dirmi quale delle due macro stai utilizzando e poi
spiegare cosa non funziona perché anche se esce definitivamente dalla routine
quando la riavvierai partirà dall'ultima combinazione trovata

ciao

[giorgioa]

ciao

non avevo letto che in i3 si il - 1 va tolto.

Appena ho visto la macro non ho tenuto conto di altro

[giorgioa]

ho usato entrambe le macro.

volevo chiedere se non prendi in considerazione il dato di
i3 la macro quando si ferma?

[giorgioa]

Ciao Flash,

non ti faccio lavorare nel buio.

questo il file ed ho collegato ai 2 tasti le 2 macro.

http://www.filedropper.com/indicisommativirecuperato1

Devi tenere conto di i3 perchè i3 mi conterebbe le vincite
avvenute in quella colonna (i3).
C4 a sua volta mi conta quante estrazioni sono state
riportate.
In questo caso c4 = 6 e voglio sapere se i3 ha fatto 6.
Se i 3 ha fatto 6 si ferma la macro devo trascrivere i dati di
e-f-g e poi continuare fino alla fine dei 3 cicli.

[giorgioa]

eventualmente ti può servire,
quando avvii una delle 2 macro in i3 se trova
il numero 6 la cella si colora di rosso però siccome
il conteggio continua si nota un attimo la collorazione.

Nel provare le macro se per esempio
nelle 3 celle 1 escono 3 due le macro
non ripartono, sembano inchiodate.

[giorgioa]

Salve,

in verità la macro trova il ciclo della cella f
pare non lo fa completo.
cioè se e èè stato incrementato di 1 f
deve cominciare sempre il ciclo da 1 a 90
mentre la macro trova rov pare faccia l'inverso.

Cioè all'incremento di e f conta a scendere se
si trova a 60 fa 59, 58 fino a 1.

ciao

[giorgioa]

Salve Flash,

i riporto il file con dati più ristretti in modo tale
che possa renderti conto meglio di ciò che vorrei.
Sulla DX del foglio ci sono i tasti delle mie macro
che fanno qualcosa ma non esattamente questo
ai fini di fermarsi quando trova i dati ma alcune
volte si ferma altre prosegue nella ricerca.
Quanndo, avviando la mia macro vedi che i3 si
tinge di rosso dovrebbermarsi ma lo fa alcune volte
e molte no.
Le tue macro sono quelle di SX.

Per avere con un dato la panoramica di quanto voglio
più che altro dimostrativa, in
e1 scrivi 85, in f1 39 in g1 87 mentre la lettera = E.
Questo manualmente che a volte si ferma con questo
dato e altre volte no.
Poi con l'aver eliminato dei dati qualche formula ha perso il
collegamento e si è resa inutilizzabile.
Cmq versione è quella corretta.
Ciao

http://www.filedropper.com/indicisommativirecuperato1_1

[giorgioa]

Salve,

se quallcuno mi può dare delle spiegazioni.
apro il file e nelle celle e1-f1-g1 scrivo 3 1
al fare di lanciare la macro dmtrl la macro semba non uscire fuori da
quel calcolo e questo ci si accorge clikkando e ricliccando più volte.
Cosa c'è da fare per correggere questa situazione?

ma anche quando riporto 2-2-2-o 1-2-1.

Grazie

[Anthony47]

se qualcuno mi può dare delle spiegazioni

Da una veloce lettura della discussione mi pare che non sia mai stato detto che cosa si vuole che la macro faccia.
In questa situazione credo che nemmeno i piu' volonterosi possano essere in grado di dire qualcosa, anche solo per eliminare qualche probabile ridondanza nel codice.

Inoltre, a spanne, qualla macro potrebbe durare tra 40 e 70 secondi; spero tu ne tenga conto quando parli di "clikkando e ricliccando più volte".

Ciao