VBA e Nomi Definiti

Question

Buonasera,

avrei bisogno di estrarre, con VBA, il contenuto da un "nome definito" in una cartella Excel.

Esempio: dal nome "ElencoNomi" (che contiene "Pippo", "Pluto", "Paperino"), vorrei creare una tabella monodimensionale "TabellaNomi() as string" che contenga i nomi suddetti (TabellaNomi(0)= "Pippo", TabellaNomi(1)="Pluto", TabellaNomi(2)="Paperino").

Non sono riuscito a capire come si fa.

Grazie

Ivo

Answer 1

Ciao  Ivo,

Grazie, Norman, funziona.

Bene!

Visto che ci sono: e se il "Nome definito" contiene un array o una formula, non collegati a celle di un foglio, come si può fare?

Nel caso di un array assegnato ad un nome definito, prova la seguente leggera modifica del codice suggerito da Casanmaner:

'=========>>

Public Sub Test()

    Dim TabellaNomi As Variant

    TabellaNomi = Split(Evaluate(ThisWorkbook.Names("ElencoNomi").Value), _

                        Application.International(xlRowSeparator))

    Call MsgBox( _

         Prompt:=Join(TabellaNomi, vbNewLine), _

         Buttons:=vbInformation, _

         Title:="REPORT")

End Sub

'<<=========

Potresti scaricare il mio file di prova Ivo20180312.xlsm

===

Regards,

Norman

Answer 2

Ah ok,

allora vedi l'ultimo file esempio di Norman dove la procedura estrae i nominativi proprio come inseriti nel nome "Nomi1" :)

Answer 3

Ciao, ho provato, ma ottengo l'errore "Tipo non corrispondente".

Buona giornata

Ivo

Answer 4

Ciao Ivo,

avrei bisogno di estrarre, con VBA, il contenuto da un "nome definito" in una cartella Excel.

Esempio: dal nome "ElencoNomi" (che contiene "Pippo", "Pluto", "Paperino"), vorrei creare una tabella monodimensionale "TabellaNomi() as string" che contenga i nomi suddetti (TabellaNomi(0)= "Pippo", TabellaNomi(1)="Pluto", TabellaNomi(2)="Paperino").

Non sono riuscito a capire come si fa.

Oltre all'ottimo suggerimento di Casanmaner, se il nome definito si riferisse ad un elenco in intervallo del workbook, prova qualcosa del genere:

'=========>>

Public Sub Tester()

    arr = Application.Transpose(ThisWorkbook.Names("ElencoNomi"). _                                                                                 RefersToRange.Value)

End Sub

'<<=========

===

Regards,

Norman

Answer 5

Se in "Riferito a:" hai

="Pippo,Pluto,Paperino"

Prova qualcosa del genere:

Sub Test()

  Dim TabellaNomi As Variant

  TabellaNomi = Split(Application.Evaluate(ThisWorkbook.Names("ElencoNomi").Value), ",")

  MsgBox TabellaNomi(0) & vbNewLine & TabellaNomi(1) & vbNewLine & TabellaNomi(2)

End Sub