elenco a discesa da file diverso

Anonimo

Buonasera

vorrei creare una finestra che si apra con un click in una determinata cella. la finestra dovrà contenere un elenco di frasi presente in un altro file. scelgo la frase dall'elenco e questa viene inserita nella cella da cui ho aperto la finestra.

prima di crearla vorrei sapere se questo tipo di "collegamenti" tra file hanno dei limiti ad esempio: se i 2 file devono stare nella stessa cartella per funzionare. oppure mettiamo il caso che io ho selezionato una frase, questa è stata inserita nella cella, salvo e chiudo. poi devo inviare il file per email. se non invio il file contenente l'elenco, ovviamente non potò usare la finestra creata, ma le frasi che ho scelto in precedenza prima del salvataggio rimangono nella cella o no ?

grazie a tutti in anticipo!

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

Risposta accettata dall'autore della domanda

Anonimo

se cancello con canc.

se elimino la riga tutto ok

Ultimo tentativo(ripeto, non riesco a priprodurre il problema). Modifica così la solita parte:

RigaErrore:

If Err.Number = -2147352571 Then

With Me.ComboBox1

.RemoveItem .ListCount - 1

End With

Resume RigaChiusura

Else

MsgBox Err.Number & vbNewLine & Err.Description

Resume RigaChiusura

End If

0 commenti

46 risposte aggiuntive

Anonimo

2011-11-15T15:52:52+00:00

ok grazie!

Allora, mi sembra di capire che l'errore si verifica se l'utente ha il file aperto e cerca di interrogare la tabella e nel frattempo tu hai eliminato una o più voci. Di nuovo, nella tabella *non devono esserci* righe vuote. Non ha senso.

Aggiungi un pulsante alla UserForm e come Caption metti Aggiorna.

Aggiungi poi questo codice alla UserForm:

Private Sub CommandButton1_Click()

    Me.ComboBox1.Clear

    mListino

End Sub

E modifica così l'ultima parte dell'evento ComboBox1_Click:

RigaErrore:

    MsgBox "Valore non trovato." & vbNewLine & _

        "Probabile aggiornamento del sorgente." & vbNewLine & _

        "Premere il pulsante Aggiorna e riprovare."

    Resume RigaChiusura

End Sub

Se(se) elimino una riga da Listino quando l'utente è con la UserForm aperta, quando l'utente tenta di interrogare Listino e la voce *rimasta* nella ComboBox non è trovata, viene avvisato di aggiornare la ComboBox. A quel punto trova solo i dati presenti.

Prova un po'.
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2011-11-15T11:37:04+00:00

ok grazie!
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2011-11-15T07:16:44+00:00

ti ripropongo il problema nel caso in cui ci sia qualche incomprensione.

apro il file listini.

<cut>

Rispondo nel pomeriggio(tardo pomeriggio).
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2011-11-15T06:49:00+00:00

ti ripropongo il problema nel caso in cui ci sia qualche incomprensione.

apro il file listini.

ipotizziamo che questa sia la mia tabella:

a1 ciao

a2 ciao, alessio

a3 ciao, alessio che fai ?

io aggiungo:

a4 ciao, alessio che fai ? mangio

salvo e chiudo.

apro il file lavoro

ctrl+a e trovo la a4 nell'elenco.

riapro listini

cancello a4

salvo e chiudo

torno su lavoro

ctrl+a e mi dice incompatibilità tra tipi

clicco ok.

vedo la userform e apro l'elenco.

al posto della frase che avevo in a4 c'è una riga vuota

clicco su questa riga vuota e mi dice:

3021

il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato.

per eseguire l'operazione richiesta è necessario disporre di un record corrente.

questo è quanto!
La risposta è stata utile?

0 commenti Nessun commento