VBA e vlookup

[dipic]

Buongiorno a tutti.
Seguendo i vari post del forum, ho sviluppato una piccola macro che dovrebbe riportarmi un dato sulla barra di stato:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A3:A21")) Is Nothing Then
aFamiglia = Right(ActiveWorkbook.Names("FAM0001"), Len(ActiveWorkbook.Names("FAM0001")) - 1)
sStBarMsg = CStr(Application.VLookup(Target, aFamiglia, 6, True))
Application.StatusBar = sStBarMsg
Else
Application.StatusBar = ""
End If
End Sub

Mi viene generato l'errore 2015. Non capisco come gestire FAM0001 che è un nome contenente una matrice (ARTICOLI!A2:N14) ... nella riga dove creo il msg (sStBarMsg) ho provato a sostituire la variabile aFamiglia con "ARTICOLI!A2:N14", ma l'errore è sempre lo stesso.
...
Non riesco a capire dov'è l'errore ...
grazie per qualsiasi suggerimento

[Flash30005]

Ammesso che "sStBarMsg" sia una variabile (numero o stringa)
dovresti inizializzare l'applicazione della barra io uso questo codice

Codice: Seleziona tutto

oldStatusBar = Application.DisplayStatusBar    '<<< chiamo oldStatusBar la barra di default
Application.DisplayStatusBar = True     '<<<< inizializzo la visualizzazione

 Application.StatusBar =  xxxx '<<<< variabile numerica o testo, nel tuo caso = sStBarMsg  (ma non so se questo è un dato reale)

Application.DisplayStatusBar = oldStatusBar  '<<< ripristino a default l'applicazione
Application.DisplayStatusBar = False   '<<< nascondo la barra

Se non fai la procedura di ripristino, il valore della barra rimane memorizzato e alla nuova apertura ti troverai un valore errato.

Fai sapere
Ciao

[dipic]

Grazie per la cortese e veloce risposta ...
il problema dello status della barra lo risolvo con una sub identica su "Worksheet_Change" ... praticamente se cambio dato nella cella e/o mi sposto di cella, controlla se è nel range specificato, se no, mi resetta lo status della barra ... e quello funziona.
Il problema è che non riesco a recuperare il dato dalla matrice FAM0001 con vlookup, mi dà sempre "errore 2015".

[Anthony47]

In aggiunta al messaggio di Flash (vedi sopra).

Cercando di capire il tuo bisogno (inespresso) dalla macro non funzionante mi viene la sensazione che dovresti semplicemente usare sStBarMsg = CStr(Application.VLookup(Target, Range("FAM0001"), 6, True)) e abbandonare aFamiglia.

Ciao

[dipic]

Ciao Anhony,
non ho nessun problema ad abbandonare la variabile aFamiglia ... stò cercando il metodo migliore e funzionante ...
purtroppo il metodo indicato mi dà errore run-time 1004 (metodo range dell'oggetto worksheet non riuscito).

Dalla tua esperienza, pensi ci sia un metodo migliore per recuperare il dato che stà nel secondo foglio della mia cartella? .... qualsiasi suggerimento è ben accetto.
grazie

p.s.
Perchè dici ... "bisogno della macro inspresso" ????
Ho scritto : "piccola macro che dovrebbe riportarmi un dato sulla barra di stato" ... il problema è che non riesco a recuperare il dato.

[Anthony47]

Dico che il tuo bisogno era inespresso perche' non l' hai descritto, l' ho dedotto dalla macro.
Ma non l' ho dedotto completamente perche' non ho immaginato che l' intervallo FAM0001 fosse su un foglio diverso da quello su cui lavori. Quindi userai
sStBarMsg = CStr(Application.VLookup(Target, Sheets("IlFoglioDoveSiTrovaFam0001").Range("FAM0001"), 6, True))

Ciao.

[dipic]

Funziona ...
riepilogando..... siccome il dato è dinamico devo recuperare anche il nome della cartella dalla matrice "FAM0001" ... ho fatto come segue (se a qualcuno può servire):
'
' FAM0001 = "ARTICOLI!$A$2:$N$14"
'
aFamiglia = Right(ActiveWorkbook.Names("FAM0001"), Len(ActiveWorkbook.Names("FAM0001")) - 1)
iPos = InStr(1, aFamiglia, "!", 1)
sSheet = Left(aFamiglia, iPos - 1)
sRange = Right(aFamiglia, Len(aFamiglia) - iPos)
sStBarMsg = "Peso=" & CStr(Application.VLookup(Target, Sheets(sSheet).Range(sRange), 6, True))

Grazie per il prezioso aiuto

[dipic]

Ciao Anthony (o comunque chiunque voglia rispondere),
premesso che (come detto nel post precedente), tutto funziona, volevo solo per conoscenza personale, sostituire la ricerca di vlookup (indicata nel tuo post precedente) con:
Index (combinato con match)
offset (sempre combinato con match)
... entrambe a livello di funzione sono più affidabili di vlookup ...

il codice però continua a darmi errori di varia natura, non riesco a capire qual'è l'oggetto/espressione corretto per usare la funzione interessata ... come nel caso citato nel tuo post , ovvero

sStBarMsg = CStr(Application.VLookup(Target, Sheets("IlFoglioDoveSiTrovaFam0001").Range("FAM0001"), 6, True))

infatti se digito Sheets. nella casella combinata che appare, il comando RANGE non c'è ... puoi cortesemente aiutarmi a capire il funzionamento ... oppure indicarmi dove posso trovare delle indicazioni da studiare?

grazie per la tua pazienza e cortesia

[Anthony47]

Le "WorksheetFunctions" hanno bisogno dei parametri propri delle equivalenti funzioni excel; l' uso di Match intrinsecamente non pone difficolta', ma nel tuo caso non vedo proprio il vantaggio di usare questa funzione, che presuppone il calcolo preliminare dell' indirizzo della colonna N. 6 dell' intervallo FAM0001 e l' uso del risultato ottenuto in un' alta funzione successiva (quindi 3 fasi invece che 1).

Se con ". . se digito Sheets. nella casella combinata che appare, il comando RANGE non c'è. . " intendi dire che quando scrivi i parametri della formula Vlookup non ti compaiono suggerimenti su metodi e proprieta' usabili, questo e' perche' sei nell' area "parametri", l' help di vba che ti compare dice Arg1 / Arg2 / etc, ed e' la sintassi della WorksheetFunction che stai usando che determina cosa deve essere Arg1, che cosa Arg2, etc.

L' help on line vba sulle WorksheetFunction e' scarno, d' altra parte parliamo di una proprieta' che consente di usare nel vba le funzioni che teoricamente l' utente di excel ha imparato a usare prima del vba.

Ciao.