verificare il termine della progress. martingala

[raimea]

ciao
tramite una macro avrei bisogno di verificare quando la
progressione martingala e' terminata "saltata"
cosa che tramite formule non riesco a fare.

il fgl martingala contiene gia le formule per realizzare
tale progressione ed e' funzionante.

il controllo va fatto sui valori delle celle di col N e T

la progres. si considera terminata quando:

il valore in cella col N contiene un importo SUPERIORE
al valore della cella PRECEDENTE di col T

per spiegarmi meglio uso i rif del file allegato,
il valore di cella N30 e' > di T29
in questo caso si considera terminata "saltata".

la macro dovremme rispondermi con un msgbox
contenente la cella di col N (N30), e la scritta terminata.

spero di essermi spiegato.

via allego il file.

https://www.dropbox.com/scl/fi/x8a06emuoh1lcwfwg7l7h/martingala.xlsm?rlkey=ko39pfxc0ze0j46q9t0lssojf&dl=0

ciao

[Anthony47]

In formula potrebbe bastare

Codice: Seleziona tutto

=MAX(SE(N6:N100>T5:T99;RIF.RIGA(N6:N100);""))


(Contr-Maiusc-Enter)

Tradotto in vba:

Codice: Seleziona tutto

Dim MaRow As Long

MaRow = Evaluate("MAX(IF(N6:N100>T5:T99,ROW(N6:N100),""""))")
MsgBox ("Terminata su N" & MaRow)


[raimea]

ciao
tutto ok entrambe le soluzioni

grazie

[raimea]

ciao
la macro

Codice: Seleziona tutto

Dim MaRow As Long

MaRow = Evaluate("MAX(IF(N6:N100>T5:T99,ROW(N6:N100),""""))")
MsgBox ("Terminata su N" & MaRow)

ora mi sta dando un risultato errato

nel file allegato dovrebbe indicarmi la cella N31
in quanto il valore e' maggiore di T30

invece indica la cella di ultima riga N53, perche' ?

anche la formula in O3 da stesso risultato N53!!

vi allego il file

https://www.dropbox.com/scl/fi/euvkqx1dn8g22f5b1hh1d/martingala2.xlsm?rlkey=ea87svhpaqll6zfzttlckq6u2&dl=0

ciao

[Anthony47]

In realta' la formula giusta avrebbe dovuto essere:

Codice: Seleziona tutto

=MIN(SE(N6:N100>T5:T99;RIF.RIGA(N6:N100);999))

ma il layout precedente mi aveva tratto in inganno

In vba:

Codice: Seleziona tutto

MaRow = Evaluate("MIN(IF(N6:N100>T5:T99,ROW(N6:N100),999))")

[raimea]

ciao

ora ok
faccio altri test

grazie