[vba] val.non.disp in vba

[ramset64]

Ciao a tutti,
questa istruzione può restituirmi un valore numerico oppure un errore (valore non disponibile): Application.WorksheetFunction.Index(Range("F_dat"), Application.WorksheetFunction.Match(Range("Ticker"), Range("Ticker_m"), 0))

non riesco in nessun modo ad usare una condizione su vba, mi spiego meglio
se io scrivo

if isna(Application.WorksheetFunction.Index(Range("F_dat"), Application.WorksheetFunction.Match(Range("Ticker"), Range("Ticker_m"), 0))) then X=1 else X=0

oppure

if Isnumber(Application.WorksheetFunction.Index(Range("F_dat"), Application.WorksheetFunction.Match(Range("Ticker"), Range("Ticker_m"), 0))) then x=1 else X=0

oppure

if Isnumeric(Application.WorksheetFunction.Index(Range("F_dat"), Application.WorksheetFunction.Match(Range("Ticker"), Range("Ticker_m"), 0))) then x=1 else X=0

ottengo sempre un errore quanto per l'appunto quella istruzione non restituisce un numero.... dove sbaglio?

[pietrol]

Ciao ramset64

prova con IsError()
equivale alla funzione VAL.ERRORE()

ciao
pietrol

[Anthony47]

Humm... IsError()... non credo che funzionera'...
Questo perche' le WorkSheetFunction eseguite nel vba eventualmente non restituiscono un errore, ma "falliscono".

Ramset, non dici quale errore ti esce ma penso sia il 1004.
Ma non avendo poi detto se F_Dat e' una matrice o un elemento lineare non posso immaginare se l' errore deriva da Index usato irregolarmente (dipende dal tipo di intervallo che hai definito con F_Dat) o da Match (mancata corrispondenza del valore cercato nel range Ticker_m.

Devi comunque predisporre una gestione di errore tramite l' istruzione On Error Goto xxxx, oppure (da valutare e combinare con accortezza) con On Error Resume Next.

Se con questi spunti non risolvi posta ancora, col codice di errore e con la disgnosi se il problema e' l' uso errato di Index o la mancata corrispondenza su Match.

Ciao

[ramset64]

Dunque io ho risolto cosi...
If Not IsError(Application.Index(Range("F_dat"), Application.Match(Range("Ticker"), Range("Ticker_m"), 0))) Then etc. etc.

ovvero ho elimnato WorksheetFunction e pare funzionare con isError, continua a non funzionare con IsNA... sembrerebbe un bug di vba.... Anthony il risultato di quella formula su excel funziona corretttamente ovvero restituisce un numero se trova il corrispondente valore cercato oppure non disponibile se non lo trova.

[Anthony47]

Anthony il risultato di quella formula su excel funziona corretttamente ovvero restituisce un numero se trova il corrispondente valore cercato oppure non disponibile se non lo trova.

Ecco, in vba non restituiscono l' errore #N/D, ma "falliscono" con un errore di vba.

Ciao

[ramset64]

Ok ho capito Anthony.... e per il fatto di aver dovuto eliminare WorksheetFunction dalla formula che mi dici? Qual è la motivazione? grazie ciao

[Anthony47]

Eh, secondo il referencebook Match e' un membro di WorksheetFunction, che e' una proprieta' dell' oggetto Application; se poi puo' essere usato direttamente come membro di Application non puo' che essere ...un bug; ma da quello che scrivi e' un bug buono.

Ciao