Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

ELENCO DATI SENZA RIFERIMENTI A CELLE

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

ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi cd7019 » 20/01/14 17:00

ciao,

vorrei inserire, in una cella, i dati tramite un elenco ma senza riferimenti ad altre celle, ma mediante un vettore impostata nella macro.

Codice: Seleziona tutto
VETTORE1=array("aa","bb","cc","dd","ee","ff","gg")
With Cells(3, 4).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=$A$1:$A$7"  *** formato classico ***
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=VETTORE1   *** formato voluto ***
End With
 


grazie
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Sponsor
 

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi ricky53 » 21/01/14 00:35

Ciao,
prova in questo modo
Codice: Seleziona tutto
    Elenco1 = "aa11, bb21, cc31, dd41, ee51, ff61, gg71, hh81" ' <<========= Modificata
    With Cells(3, 4).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Elenco1
    End With
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi cd7019 » 21/01/14 09:42

Grazie mille, molto gentile.

Vorrei inoltre nascondere le celle che contengono il carattere della cella D3 (*D3*), però non mi funziona.

Codice: Seleziona tutto
For i = 10 To 20
    If Cells(i, 1) = "*" & Cells(3, 4) & "*" Then Rows(i).EntireRow.Hidden = True
Next i


E' possibile trovare l'ultima riga non vuota di un intervallo?

Codice: Seleziona tutto
NR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row  ' CON 1 SOLA COLONNA

DIVENTEREBBE

NR = Worksheets("Foglio1").Range("A10:E20").End(xlUp).Row  ' CON + COLONNE


Grazie
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi cd7019 » 21/01/14 10:15

ciao,

invece, mettendo una casella di riepilogo l'Elenco1 non funziona.

Codice: Seleziona tutto
Elenco1 = "aa11, bb21, cc31, dd41, ee51, ff61, gg71, hh81"
ActiveSheet.ListBoxes.Add(400, 0, 100, 150).Select
    With Selection
        .ListFillRange = Elenco1
        .LinkedCell = "$D$1"
        .MultiSelect = xlNone
        .Display3DShading = False
    End With

Grazie
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi Anthony47 » 22/01/14 00:38

invece, mettendo una casella di riepilogo l'Elenco1 non funziona.
Che ti aspettavi, che ci fosse una istruzione universale? :D
La programmazione di una casella di riepilogo (l' oggetto che aggiungi con la tua macro) e' diversa da quella di un oggetto Validation e necessita di un array. Ad esempio:
Codice: Seleziona tutto
Dim Vettore1
Vettore1 = Array("aa11", "bb21", "cc31", "dd41", "ee51", "ff61", "gg71", "hh81")
'
    ActiveSheet.ListBoxes.Add(321.75, 55.5, 164.25, 81).Select
    With Selection
        .ListFillRange = ""
        .LinkedCell = ""
        .MultiSelect = xlNone
        .Display3DShading = False
        .List = Vettore1      '<<< QUESTA
    End With


Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi cd7019 » 22/01/14 15:06

Grazie mille.

Ho un problema nella lettura del vettore.
Ho un vettore con molti dati, VBA dà un errore perchè ho raggiunto il numero max di caratteri x riga, quindi sono costretto a spezzarlo in due o in tre parti.

x ELENCO A DISCESA
Codice: Seleziona tutto
Elenco1 = "aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81"  ' >>>> CONTINUA
Elenco2 = "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81"  ' >>>> CONTINUA   
[D3].select
With Cells(3, 4).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Elenco1+ Elenco2 <<<< ERRORE
    End With


Anche riducendo i vettori l'elenco a discesa segnala un errore #VALUE!. Ci sono dei limiti di caratteri?

Lo stesso problema si manifesta nella LISTBOX, però in questo caso devo unire 2 array
Codice: Seleziona tutto
Dim Vettore1
Vettore1 = Array("aaaaaaaaaaaaaaaaaaaaa11", "bssssssssssssb21", "cc31", "dd41", "ee51", "ff61", "gg71", "hh81")  >> CONTINUA
Vettore2 = Array("ssssssssssssssssa11", "ttttttttttttttt21", "yyyyyyyyyyy1", "uuuuuuuuuuu1","ppppppppppppppppp")  >> CONTINUA

    ActiveSheet.ListBoxes.Add(321.75, 55.5, 164.25, 81).Select
    With Selection
        .ListFillRange = ""
        .LinkedCell = ""
        .MultiSelect = xlNone
        .Display3DShading = False
        .List = Vettore1+  Vettore2     '<<< ERRORE
    End With



Nuovamente grazie.
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi Anthony47 » 23/01/14 02:09

Prova con
Codice: Seleziona tutto
Elenco1 = "aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81",  _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81", _
    "altro", "Altro1", "Anche questo", "questo?"


Codice: Seleziona tutto
Vettore1 = Array("aaaaaaaaaaaaaaaaaaaaa11", "bssssssssssssb21", "cc31", "dd41", "ee51", "ff61", "gg71", "hh81", _
    "ssssssssssssssssa11", "ttttttttttttttt21", "yyyyyyyyyyy1", "uuuuuuuuuuu1","ppppppppppppppppp") 

Cioe' spezzando il contenuto della stringa Elenco1 o del vettore Vettore1 su piu' righe; questo e' fatto dalla sequenza dei tasti "spazio", "sottolineato", "a capo".

Pero' vorrei sapere questo elenco lunghissimo da dove lo prelevi, perche' forse allora ti converra passare al metodo "Add", per aggiungere ogni singolo valore.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi cd7019 » 23/01/14 21:11

Ti ringranzio infinitamente, come sempre sei preciso e professionale.

Però stranamente sul mio EXCEL c'è qualcosa che non funziona.
Ho provato a fare diverse prove con input diversi:
PROVA1) copia-incolla dal tuo listato e mi crea un errore
PROVA2) Inserimento tramite numerose celle (n°=300), tutto OK. Però non è quello che desidero.
PROVA3) Creazione di un testo, con gli stessi dati della PROVA2 (n°300), ho aggiunto: , " & _ . Mi dà un errore #VALUE!

Scusa x la mia testardaggine, ma non capisco. Sbaglio qualcosa?

LISTATO
Codice: Seleziona tutto
Sub PROVA1()
Elenco1 = "aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81", _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81", _
    "altro", "Altro1", "Anche questo", "questo?"
End Sub

Sub PROVA2()
For I = 1 To 300: Cells(I, 1) = "<DFGDSFGHFGHDFHDFHDFHDFHDFHDFHDFHDFHFGSDFGSDGSDFGSDFGSDGSDFGSDFGSDGSDFZF" & I: Next I
    Range("E1").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="$A$1:$A$300"
    End With

End Sub

Sub PROVA3()
ELENCO1 = """"
For I = 1 To 300
    ELENCO1 = ELENCO1 & "<DFGDSFGHFGHDFHDFHDFHDFHDFHDFHDFHDFHFGSDFGSDGSDFGSDFGSDGSDFGSDFGSDGSDFZF" & I & ", "
Next I
ELENCO1 = ELENCO1 & " """
    Range("E1").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=ELENCO1
    End With

End Sub


FILE VISUALIZZAZIONE RISULTATI: http://rapidshare.com/share/30485E4CFECFEF1B9BFA3BE3CB1F391D

Nuovamente grazie.
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi Anthony47 » 24/01/14 23:55

Mi ero concentrato su come spezzare la linea, mi sono distratto su cosa scrivere come informazione...
Se vuoi ottenere una stringa allora gli apici devono stare solo in testa e in coda:
Codice: Seleziona tutto
Elenco1 = "aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81,  _
     SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81, _
    altro, Altro1, Anche questo, Questo?"

La sintassi per Vettore1 era corretta (ogni stringa all' interno di "Array" sara' iscritta entro gli apici)

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi cd7019 » 25/01/14 14:47

Ciao,

Ho fatto copia-incollla del tuo listato, ma continua a darmi un errore.

Errore di compilazione:
Previsto: fine istruzione.

Grazie
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi Anthony47 » 25/01/14 20:17

Azz...
L' help on line dice:
Una riga fisica di codice di Visual Basic può essere composta da un massimo di 1023 caratteri. Causa e soluzione dell'errore:
È possibile creare una riga logica più lunga unendo righe fisiche con un carattere di continuazione di riga, ovvero uno spazio seguito da un carattere di sottolineatura ( _). Con i caratteri di continuazione di riga è possibile unire fino a 25 righe fisiche per formare una singola riga logica o 24 caratteri di continuazione di riga consecutivi. Una riga logica, quindi, può contenere potenzialmente fino a 10.230 caratteri. Oltre questo limite sarà necessario suddividere la riga in singole istruzioni o assegnare alcune espressioni a variabili intermedie.


PERO' questo sembra non funzionare all' interno di una stringa...
Tagliamo la testa al toro:
Codice: Seleziona tutto
Elenco1 = "aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81," & _
    "altro, Altro1, Anche questo, Questo?"

E se non funziona nemmeno cosi' allora mi arrendo.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi cd7019 » 28/01/14 23:18

ciao,

ho provato e riprovato, ma accetto solamente una stringa di 255 caratteri.
Però l'elenco selezionando le celle non ha limiti.

Grazie
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi cd7019 » 29/01/14 00:04

ciao,
ma ho provato a copiare tutte le celle a destra per l'elenco, però devo eliminare alcune righe e quindi alcuni dati dell'elenco vengono cancellati.
Conosci altre maniere x inserire i dati, ad esempio con un for next?

Codice: Seleziona tutto
FOR I=1 TO 100
...
.ADD ... FORMULA1=CELLS(I,1)
...
NEXT I


grazie.
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi Anthony47 » 29/01/14 01:52

Questa istruzione ha caricato in Elenco1 una stringa di 3372 caratteri:
Codice: Seleziona tutto
Elenco1 = "aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81,aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81,aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81," & _
    "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81,aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81,aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81,aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81," & _
    "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81,aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81,aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81,aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81," & _
    "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81,aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81,aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81,aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81," & _
    "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81,aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81,," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81,aAAAAAAAAAa11, bbBBBBBBBBBBBBBBBBBBB21, ccBBBBBBBBBBBBBB31, dd41, ee51, ff61, gg71, hh81," & _
    "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81," & _
    "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81," & _
    "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81," & _
    "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81," & _
     "SSSSSSSSSSSSSSSSS11,TTTTTTTTTTTTTTTTTTTT21, UUUUUUU   31, dd41, ee51, ff61, gg71, hh81," & _
     "altro, Altro1, Anche questo, Questo?"

Chi e', quindi, che accetta solo una stringa di 255 caratteri?

Conosci altre maniere x inserire i dati, ad esempio con un for next?
Caricare i dati da dove a dove?

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi cd7019 » 29/01/14 10:09

CIAO,


L'elenco a discesa accetta solamente 255 caratteri da una stringa ELENCO

ELENCO = "SFASGASDFGDSFG,DFGSDGSD,GSD,GSD,G,SDG,SGH,FGH,FDH,FD,H,DF,HDF,HG,FD,HFD,H,F"

Range("E1").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=ELENCO
End With

Ho provato ad inserirla in diversi modi, ma niente da fare.
ELENCO1="..."
ELENCO2="..."
ELENCO3="..."
ELENCO= ELENCO1 & ELENCO2 & ELENCO3 >>>> NON FUNZIONA

ELENCO="..." &_
"..." &_
"..." >>> NON FUNZIONA

Pensavo di: (se è fattibile)
a) caricare i dati da un altro file.
b) copiare le celle nel mio foglio copy A1:A100 >>> PASTE Z1:Z100
c) creare un for next di inserimentro dati con .ADD come proposto nei commenti precedenti.
"Pero' vorrei sapere questo elenco lunghissimo da dove lo prelevi, perche' forse allora ti converra passare al metodo "Add", per aggiungere ogni singolo valore."


for i = 1 to 100
...
Range("E1").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=cells(i,26)
End with
next i
d) cancellare la colonna Z

modificando qualche istruzione (forse chiedo troppo ,magari non esiste!!!!) di Type:=... o AlertStyle:=... o Operator:= ...

Cerca di avere pazienza, purtroppo sono testardo.

Infinitamente Grazie
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi Anthony47 » 30/01/14 00:30

Ho creato elenchi contenenti fino a 1000 voci (oltre non ho provato), e vengono accettate come origine della convalida purche' l' elenco contenga meno di 8192 caratteri.
Lo stesso "Elenco1" creato con la macro suggerita il 29-1 "mattina presto", contenente 308 voci per una lunghezza di 3372 caratteri, e' digerito come elenco per una convalida, usando il codice pubblicato da te.
Provato su XL2003, non su XL97

Tu su che ambiente lavori e che prove hai fatto? (la tua firma e' equivoca: oggi recita "OFFICE '97, EXCEL 2003"; quale versione di Excel usi?).

Comunque, se l' elenco esiste su un file excel, copialo su un' area della tua cartella di lavoro e usa quell' area come origine della convalida; oppure, invece di crearlo nella variabile Elenco crealo sul foglio excel e procedi con la convalida da foglio.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi cd7019 » 30/01/14 19:34

ciao,
la causa è da ricercare nei limiti EXCEL '97.

Grazie.
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Re: ELENCO DATI SENZA RIFERIMENTI A CELLE

Postdi ricky53 » 30/01/14 20:04

Ciao,
che ne dici lo abbandoniamo il '97.

Attenzione anche il 2003 a breve non sarà più aggiornato da MS.

Vale la pena di pensare al 2010 o meglio al 2013 (guarda che ha dei costi accessibili intorno ai 100 € o poco più volendo c'è anche QUESTA OFFERTA)
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "ELENCO DATI SENZA RIFERIMENTI A CELLE":


Chi c’è in linea

Visitano il forum: Lucio Peruggini e 2 ospiti

cron