Condividi:        

[Excel] Ricerca RIF nelle formule

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Excel] Ricerca RIF nelle formule

Postdi antom » 20/01/09 12:27

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
antom
Utente Junior
 
Post: 24
Iscritto il: 07/09/08 09:26

Sponsor
 

Re: [Excel] Ricerca RIF nelle formule

Postdi Anthony47 » 21/01/09 00:53

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.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Ricerca RIF nelle formule":


Chi c’è in linea

Visitano il forum: Nessuno e 41 ospiti