elenco a discesa da file diverso

Anonimo
2011-11-11T16:00:42+00:00

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!

Microsoft 365 e Office | Excel | Per la casa | Windows

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 Nessun commento
Risposta accettata dall'autore della domanda
Anonimo
2011-11-17T08:37:14+00:00

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

La risposta è stata utile?

0 commenti Nessun commento

46 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2011-11-14T17:06:26+00:00

    1)Non è la virgola che non accetta ma l'apice. ad esempio se scrivo: ciao, hai le armi è  ok. 

    se scrivo: ciao, hai l'armatura da errore.

    2)Ho notato un altro errore:

    Aggiungo una al mio elenco

    Aggiungo la riga all'intervallo di celle su inserisci-nome

    Cancello la frase appena inserita lasciando la riga vuota

    Salvo e chiudo

    Vado sull'altro file e digito ctrl+a per attivare la macro

    Appare una finestra con scritto incompatibilità tra tipi.

    Clicco ok e posso scegliere dall'elenco, ma volevo sapere se è possibile far si che non appaia quella finestra con scritto incompatibilità tra tipi perchè il mio elenco sarà puntualmente aggiornato da gli utenti che lo usano

    E' un po' che ti dico che sono apici e doppi apici che danno problemi.... Se ha apici(o apostrofi), modifica così:

        With rs

            .CursorLocation = 2

            .Open "SELECT * FROM [Foglio1$] WHERE Dato1 ='" & _

                Replace(Me.ComboBox1.Text, "'", "''") & "'", cn, 3

            ActiveCell.Value = .Fields(0).Value

        End With

    Per favore rispiega l'altra cosa che non l'ho capita. Grazie.

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2011-11-14T16:51:53+00:00

    1)Non è la virgola che non accetta ma l'apice. ad esempio se scrivo: ciao, hai le armi è  ok. 

    se scrivo: ciao, hai l'armatura da errore.

    2)Ho notato un altro errore:

    Aggiungo una al mio elenco

    Aggiungo la riga all'intervallo di celle su inserisci-nome

    Cancello la frase appena inserita lasciando la riga vuota

    Salvo e chiudo

    Vado sull'altro file e digito ctrl+a per attivare la macro

    Appare una finestra con scritto incompatibilità tra tipi.

    Clicco ok e posso scegliere dall'elenco, ma volevo sapere se è possibile far si che non appaia quella finestra con scritto incompatibilità tra tipi perchè il mio elenco sarà puntualmente aggiornato da gli utenti che lo usano

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Anonimo
    2011-11-14T16:47:44+00:00

    la mia riga è questa:

    .Open "SELECT * FROM [Foglio1$] WHERE Dato1 ='" & Me.ComboBox1.Text & "'", cn, 3

    Non riesco a riprodurre il tuo problema. Non è, ripeto, che hai apici o doppi apici nelle stringhe della lista? Seleziona una delle voci che da problemi nel foglio dove hai la lista e guarda cosa c'è nella barra delle formule(non nella cella). Grazie.

    La risposta è stata utile?

    0 commenti Nessun commento
  4. Anonimo
    2011-11-14T16:43:07+00:00

    la mia riga è questa:

    .Open "SELECT * FROM [Foglio1$] WHERE Dato1 ='" & Me.ComboBox1.Text & "'", cn, 3

    La risposta è stata utile?

    0 commenti Nessun commento