3 condizioni nella stessa sequenza

[raimea]

ho " risolto" nel senso che il/ i problemi si verificano con office 2007 e 2010
mentre su offc. 2003 tutto ok....
il lavoro di tutto il file e' stato fatto con offc 2003.
mannaggia sto versioni.
vi risulta anche a voi che sto vers 2007/10 rompano un po' le b.....
grazie

[raimea]

un consiglio....
l'intero file mi funziona tutto ok su office 2003.
in offc 2007 e '10 ho degli imprevisti
il file si apre dopo un po di tempo , ed in basso a dx si vede che fa dei "calcoli".
quando e' aperto in alto si legge " modalita' compatibilita' "
ma in particolare non mi funziona la -funzione- di antony...

Codice: Seleziona tutto

Function Monitr(Dummy) As String   '<<< serve a scrivere R r in col w
Dim CAdr As String
Dim I As Integer, CCV As Integer, CP As Integer
Dim ColVP As Integer, IDR As Integer, J As Integer, aaa
'
ColVP = 13: IDR = 9    '<<p/v in 13=col M; Prima riga dati =9
'
CAdr = Application.Caller.Address
For I = Range(CAdr).Row - 1 To IDR Step -1
If Cells(I, Range(CAdr).Column) = "R" Then Exit For
If Cells(I, Range(CAdr).Column) = "r" Then Exit For
Next I
For J = I + 1 To Range(CAdr).Row
If UCase(Cells(J, ColVP)) = "V" Then
    CCV = CCV + 1
    Else:
    If UCase(Cells(J, ColVP)) = "P" Then
        CP = CP + 1: CCV = 0
    End If
End If
If CCV = 3 Then Monitr = "R": Exit Function
If CP = 2 And CCV = 2 Then Monitr = "R": Exit Function
If CP = 3 Then Monitr = "r": Exit Function
Next J
Efun:
End Function

qualche consiglio su come risolvere questo x le vers di offc 2007/10 ?
grazie a tutti

[ricky53]

Ciao,
tu hai scritto

ma in particolare non mi funziona la -funzione- di antony...

ed io ti chiedo in quale istruzione non ti funziona la -funzione- di Anthony ?

[raimea]

x richy53
compilando col. M con vari V/ p in automatico la funzione mi riconosce quando una sequenza e' finita
e in col W mi scrive la lettera r.

con offc 2007/10 ---> -" modalita' compatibilita' "- tale funzione ( che e' nel modulo 13)
non mi mette la lettera "r" in col W alla fine di una sequenza.
xro ripeto, che tale problema e' solo con offc 2007/10 perche con 2003 e' tutto ok.

io penso sia dovuto a qualche settaggio ma non sono riuscito a trovare quale-dove.....
metto il file nel caso vuoi provare.
grazie

http://www.sendspace.com/file/b1gmyj

[Anthony47]

Ho installato malvolentieri Office2010 che avevo tenuto a prendere polvere, ma il comportamento in col W mi sembra corretto: simulate varie combinazioni con esito sempre soddisfacente.
Mi dai una sequenza che invece non e' ok?

Ciao

[Anthony47]

Intanto ho visto che si puo' velocizzare di qualcosa inserendo l' istruzione marcata <<<<

Codice: Seleziona tutto

CAdr = Application.Caller.Address
If Cells(Application.Caller.Row, ColVP) = "" Then Exit Function    '<<<<
For I = Range(CAdr).Row - 1 To IDR Step -1


Ciao

[raimea]

Mi dai una sequenza che invece non e' ok?

no nooo per carita, la tua funzione e' OTTIMA
non ha "buchi"

solo che se il file lo installo su un altro pc (io ho offc 2003) con offc 2007 o 2010
in col W non scrive mai la lettera "R"

e' ok , la modifica per velocizarla.

ora se tu ai provato su offc 2010 e funge boooo riprovero
grazie per la contro-prova.