[Excel] Ricerca RIF nelle formule

[antom]

Salve a tutti.
Dopo tempo di latitanza ritorno all'attacco con un nuovo quesito.
Ho i miei soliti 2000 file excel in cui devo controllare che nelle formule non ci siano #RIF! ovvero che tutte siano consistenti.

Procedura:
Apri il file
primo foglio: cerca RIF
secondo foglio: cerca RIF
..
n-simo foglio: cerca RIF

Esiste RIF nel foglio esaminato? SI => in un foglio di appoggio di UN ALTRO file dovrò scrivere:
Nome file
Foglio
Cella
Chiudo il file senza salvare

Esiste RIF? NO
Chiudo il file senza salvare

Ho provato a studiarmi il metodo Cells.Find, ma non capisco come utilizzare i parametri.

HELP!!!

Grazie mille,
antom

[Anthony47]

Bentornata...
Sorry, non puoi usare il metodo Find per trovare le celle con errori; pero' puoi sfruttare il metodo Specialcells con tipo=Formule e costante=Errore, ad esempio in una macro come questa:

Codice: Seleziona tutto

Sub Check_Rif()
On Error Resume Next
If Selection.SpecialCells(xlFormulas, xlErrors) Is Nothing Then Exit Sub
For Each ErCell In Selection.SpecialCells(xlFormulas, xlErrors)
If ErCell.Text = "#RIF!" Then
ECA = ErCell.Address      '<<< Indirizzo cella
'
'QUI le Istruzioni per errore
'
End If
Next
End Sub


La macro fa riferimento alle sole celle con formule ed errore e in queste celle controlla successivamente se l' errore e' di tipo #RIF; se SI allora dovrai inserire le istruzioni per accantonare su altro file i dati di errore; come pure dovrai mettere queste istruzioni in un qualche ciclo per esaminare ogni file del tuo elenco e ogni foglio del file corrente, ma ricordo che sei abbastanza smaliziata quindi probabilmente ti bastera' questo spunto.

Se fosse sufficiente sondare per qualsiasi errore (#N/A, #DIV0, #N/D etc) allora qualcosa come questa ti restituirebbe subito gli indirizzi in errore:

Codice: Seleziona tutto

ListaErr = Selection.SpecialCells(xlFormulas, xlErrors).Address


Ciao, fai sapere.