Formula o Macro

[Lucio Peruggini]

Ciao Anthony, chiedo scusa!
Il mio primo foglio funziona perfettamente con la macro così fatta. Evidentemente nel foglio che ti ho inviato ora devo aver inserito la nuova estrazione e quindi i dati non corrispondevano con il foglio precedente e comunque i dati non sono quelli del primo foglio.

Il tutto è semplicemente armonioso e perfetto! Devo solamente controllare le altre ruote ma penso siano corrette; non può essere diversamente.

Un GRANDISSIMO GRAZIEEEEEEEE e buona giornata

[Lucio Peruggini]

Ciao Anthony, ultimissima cosa:

Ho notato che, indipendentemente dall'inserire o meno un numero in D1 foglio "At" la macro parte ugualmente.
Non so cosa combini, ripeto pur non avendo inserito alcun numero. Allora chiedo se è possibile neutralizzare la macro quando non vi è alcun numero inserito.

Grazie

[Anthony47]

Non ho capito se ora ti funziona oppure no; comunque c' era un errore [TVal = Range("D5"), mentre deve essere TVal = Range("D1")]; come pure ho aggiunto una riga per controllare che D1 contenga qualcosa di valido. Il nuovo codice e':

Codice: Seleziona tutto

Sub lpzzzz()
Dim VArr, I As Long, CPos As Long, TVal As Long, LB2 As Long, myMatch, MErr As String
Sheets("At").Select
CPos = Application.WorksheetFunction.CountIf(Range("J:J"), ">=0")
TVal = Range("D1")
'
If TVal <= 0 Or TVal > 90 Then Beep: Exit Sub
'
VArr = Range("C5").Resize(CPos, 8).Value
'etc etc

Ciao.

[Lucio Peruggini]

E' vero, neanch'io mi ero accorto che [TVal = Range("D5") conteneva il 5 anziché l'1 ma, gli storici inseriti nel Tab erano giusti perché comunque avevo esaminato il numero 5 che era contenuto casualmente in D5.

Funziona tutto e per il momento, fintanto che dovrò inserire un nuovo numero, non pastrocchio il foglio per altre verifiche.

GRAZIE MOLTE PER LA GRANDISSIMA CORTESIA, CIAO

[Lucio Peruggini]

Ho provato l'inserimento con altra estrazione, FUNZIONA TUTTO BENISSIMO!
Grazie e buona domenica a tutto il forum
ciao

[Lucio Peruggini]

Ciao Anthony, una delucidazione sull'ultima macro.

Se nel foglio “Tab” elimino le righe che riguardano la ruota NZ (Nazionale) che sono:
A17; A28; A39; A50; A61 e nel foglio “At” altre sì elimino tale ruota (colonna “C”), la macro svolge comunque il suo lavoro oppure no?

Nel codice vedo solo questo riferimento che riguarda il foglio Tab della colonna "A" oppure sbaglio?

Codice: Seleziona tutto

Sub lpzz()
Dim VArr, I As Long, CPos As Long, TVal As Long, LB2 As Long, myMatch, MErr As String
Sheets("At").Select
CPos = Application.WorksheetFunction.CountIf(Range("J:J"), ">=0")
TVal = Range("D1")
If TVal <= 0 Or TVal > 90 Then Beep: Exit Sub          'Aggiunta - affinché D1 contenga qualcosa di valido
VArr = Range("C5").Resize(CPos, 8).Value
LB2 = LBound(VArr, 2)
With Sheets("Tab")                                     '<<<<<<<<<<<<<  Questo è lunico riferimento al foglio Tab?
    For I = LBound(VArr, 1) To UBound(VArr, 1)
        If VArr(I, LB2 + 1) = TVal Then
            myMatch = Application.Match(VArr(I, LB2), .Range("A1:A200"), 0)
            If Not IsError(myMatch) Then
If VArr(I, LB2 + 4) > .Cells(myMatch, 2 + TVal).Value Then .Cells(myMatch, 2 + TVal).Value = VArr(I, LB2 + 4)
            Else
                MErr = MErr & "; " & VArr(I, LB2)
            End If
        End If
    Next I
End With
If Len(MErr) > 0 Then
    MsgBox ("Ci sono stati errori nell' identificazione di Ruo-Pos" & vbCrLf & Left(mess, 100))
End If
End Sub

https://dl.dropboxusercontent.com/u/182 ... T%203A.PNG

https://dl.dropboxusercontent.com/u/182 ... T%203B.PNG

Ciao

[Anthony47]

La macro dovrebbe funzionare; al massimo, se non trova in Tab dei valori invece presenti in At, lo segnala con un messagebox.

Nella macro, dalla riga With Sheets("Tab") in avanti i riferimenti sono al foglio Tab, se non diversamente indicato.

Ciao

[Lucio Peruggini]

Grazie Anthony e buona giornata.
Ciao