Risultati da 1 a 17 di 17

Discussione: Effettuare una ricerca partendo da una lettera.



  1. #1
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    Bari
    Messaggi
    111
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Effettuare una ricerca partendo da una lettera.

    Buongiorno a tutti, e Vi chiedo una consulenza.

    In tre colonne di un foglio ho inserito circa 20-30 voci e gradirei effettuare una ricerca inserendo solo la prima lettera della voce e con il pulsante successivo vorrei che venga effettuata delle altre voci che iniziano con la stessa lettera.


    Grazie come sempre anticipatamente,


    Mauro

    (allego file)
    File Allegati File Allegati

  2. #2
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    308
    Versione Office
    2010
    Likes ricevuti
    56
    Likes dati
    17

    Re: Effettuare una ricerca partendo da una lettera.

    La mia domanda Ŕ: PerchŔ?
    Esiste giÓ la funzione trova in excel che fa quanto da te richiesto..

  3. #3
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Binasco
    EtÓ
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Effettuare una ricerca partendo da una lettera.

    >>>gradirei effettuare una ricerca inserendo solo la prima lettera della voce
    OK si puo fare

    Per˛ non dici "cosa dovrebbe fare?"
    Ex cerchi in colonna A ed esegui su colonne B/C
    Ex cerchi indistamente nelle colonne A/B/C e fai un "qualcosa"

    Di norma sarebbe un LIKE, casomai aggiungendo un *

  4. #4
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    Bari
    Messaggi
    111
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Effettuare una ricerca partendo da una lettera.

    Grazie Raffaele,
    il compito che dovrebbe svolgere Ŕ che, una volta inserito la parola da cercare, se non Ŕ in elenco, MSGBox avvisa "Voce non trovata".
    Diversamente se la voce da cercare esiste le voci in elenco verranno inserite nei tre TextBox Voce1 Voce2 e Voce3; per es: se inserisco la parola B, nei tre TXTBox dovrebbero apparire: BELLO AGNELLO e CARTA e con il pulsante Successivo dovrebbero apparire: BRUTTO SERPENTE e CAVO e cosý via (vedere file allegato nel mess. precedente).


    Ho notato un errore: ho nominato i tre CommandButton con Combobox.
    Con la funzione CERCA, ho tentato di realizzarla senza riuscire.

    Mauro

  5. #5
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1099
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Effettuare una ricerca partendo da una lettera.

    mi sembra lo stesso quesito del mess. precedente, perchÚ non hai continuato quello ?

  6. #6
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    Bari
    Messaggi
    111
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Effettuare una ricerca partendo da una lettera.

    Ciao patel,
    nell'esempio precedente era con il ComboBox che funziona perfettamente ma comporta un inconveniente per la ricerca nell'elenco numeroso.
    Io gradirei effettuare la ricerca inserendo solo la prima lettera se Ŕ fattibile.

    Prima di chiedere aiuto al Forum, ho effettuato numerose prove con esito negativo.

  7. #7
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1099
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Effettuare una ricerca partendo da una lettera.

    prova il file allegato, non funziona ancora il successivo
    File Allegati File Allegati
    Ultima modifica fatta da:patel; 01/07/16 alle 06:28 Motivo: mancava codice VBA

  8. #8
    L'avatar di Gerardo ZuccalÓ
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Milano, Italy
    EtÓ
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125

    Re: Effettuare una ricerca partendo da una lettera.

    Un Saluto a tutti gli amici del forum
    Se si vuole una alternativa alle userfrm, con un semplice =CERCA.VERTICALE() si pu˛ ottenere la stessa cosa, ovviamente basteranno che si inseriscono i primi caratteri nella cella (in questo caso J18), e poi mettere una formula in K18 e trascinare a destra
    Un Saluto

    I
    J
    K
    L
    M
    4
    5
    Voce 1
    Voce 2
    Voce 3
    6
    7
    1
    bello
    agnello
    carta
    8
    2
    cattivo
    capra
    foglio
    9
    3
    odore
    bue
    matita
    10
    4
    puzza
    bisonte
    penna
    11
    5
    brutto
    serpente
    cavo
    12
    6
    pignolo
    cavallo
    cavetto
    13
    7
    sicurezza
    pulce
    spina
    14
    8
    ballo
    uccello
    presa
    15
    16
    17
    Testo parziale
    18
    be
    bello agnello carta

  9. #9
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1099
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Effettuare una ricerca partendo da una lettera.

    ora funziona anche il successivo
    File Allegati File Allegati

  10. #10
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    Bari
    Messaggi
    111
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Effettuare una ricerca partendo da una lettera.

    Patel, la ricerca con la prima lettera funziona perfettamente e mi auguro di risolvere per il "successivo".


    Grazie Gerardo del tuo suggerimento ma l'avevo trovata e provata l'istruzione, essendo il progettino basato su macro penso che non sia idoneo.


    Noto da diversi giorni e non riesco a trovare rimedio, al momento della chiusura del progettino, mi chiede sempre di salvare anche se non ho effettuato nessuna modifica.

    Ricordo tempo fa, di aver trovato una soluzione da inserire, non ricordo, se al "Modulo" o a "Questa_cartella_di_lavoro" un'istruzione per ovviare questo inconveniente.
    Ringrazio tutti per la disponibilitÓ e la pazienza, saluto.

  11. #11
    L'avatar di Gerardo ZuccalÓ
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Milano, Italy
    EtÓ
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125

    Re: Effettuare una ricerca partendo da una lettera.

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    ora funziona anche il successivo

    Ciao Patel
    Innanzi tutto grazie per il tuo grande contributo che dai al forum.
    Dedico due minuti a scrivere questo messaggio perchŔ visto che sei un assiduo frequentatore del forum credo che ne valga la pena.
    Ti chiedo una gentilezza, quando inserisci un allegato, inserisci anche la formula, il codice VBA o il metodo che hai utilizzato, oppure in alternativa senza allegato ma solo il CodiceVBA o Formule, tutto questo te lo spiego qui sotto:


    Regola nr. 12 "Insieme all'allegato postare Codici VBA e formule"
    Oltre ai file allegati Ŕ buona norma pubblicare anche le formule o i codici VBA utilizzati, perchŔ non sempre si possono aprire i file allegati per problemi di banda e problemi con telefonini che non possono accedere all'Editor VBA, cosi da non avere il piacere di capire il codice scritto
    Quando possibile si pu˛ anche evitare di mettere l'allegato, questo perchŔ i file vecchi man mano vengono eliminati per lasciare spazio nei server e quindi il vostro sforzo verrÓ vanificato
    Un saluto

  12. #12
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1099
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Effettuare una ricerca partendo da una lettera.

    per il successivo sostituisci tutto il codice con questo
    Codice: 
    Public riga As Long, iRiga As Long, uRiga As Long, Friga As Long, lt As Integer
    
    Private Sub FineButton_Click()
    Unload Me
    End Sub
    
    Private Sub SuccessivoButton_Click()
    Sheets("Trova").Select
    found = 0
    For Each cell In Foglio1.Range("J" & Friga & ":J" & uRiga)
      If Left(cell.Text, lt) = Left(TextBox4.Text, lt) Then
        TextBox1.Value = cell.Text
        TextBox2.Value = cell.Offset(0, 1).Text
        TextBox3.Value = cell.Offset(0, 2).Text
        riga = cell.Row
        found = 1
        Exit For
      End If
    Next
    If found = 0 Then
    '  TextBox4 = ""
    '  TextBox1 = ""
    '  TextBox2 = ""
    '  TextBox3 = ""
      TextBox4.SetFocus
      MsgBox "Record non trovato"
    End If
    Friga = riga + 1
    End Sub
    
    Private Sub TrovaButton_Click()
    Dim cell As Range
    lt = Len(TextBox4.Text)
    If TextBox4 = "" Then
      MsgBox "Inserire un elemento", vbInformation, "Rubrica"
      TextBox4 = ""
      TextBox4.SetFocus
    End If
    
    Sheets("Trova").Select
    Call conteggio
    found = 0
    For Each cell In Foglio1.Range("J7:J" & uRiga)
      If Left(cell.Text, lt) = Left(TextBox4.Text, lt) Then
        TextBox1.Value = cell.Text
        TextBox2.Value = cell.Offset(0, 1).Text
        TextBox3.Value = cell.Offset(0, 2).Text
        riga = cell.Row
        found = 1
        Exit For
      End If
    Next
    If found = 0 Then
      TextBox4 = ""
      TextBox1 = ""
      TextBox2 = ""
      TextBox3 = ""
      TextBox4.SetFocus
      MsgBox "Record non trovato"
    End If
    Friga = riga + 1
    End Sub
    
    Private Sub UserForm_Initialize()
    TextBox4.SetFocus
    End Sub
    Private Sub conteggio()
    iRiga = 7
    riga = iRiga
    
    uRiga = Foglio1.Range("L" & Rows.Count).End(xlUp).Row
    
    End Sub
    @gerardo
    avevo visto la regola ma non l'avevo interpretata correttamente

  13. I seguenti 2 utenti hanno dato un "Like" a patel per questo post:


  14. #13
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    Bari
    Messaggi
    111
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Effettuare una ricerca partendo da una lettera.

    Grazie Patel, per la disponibilitÓ e la pazienza. Al momento funziona perfettamente.
    Se Ŕ possibile, per non aprire una nuova discussione, vorrei cercare di eliminare l'inconveniente descritto nella risposta precedente, riguardante il salvataggio che si presenta alla chiusura del progettino anche senza aver effettuato alcuna operazione o variazione.

  15. #14
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1099
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Effettuare una ricerca partendo da una lettera.

    excel lo fa normalmente, non mi sembra un problema, se sai che non hai fatto modifiche chiudi senza salvare

  16. #15
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    Bari
    Messaggi
    111
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Effettuare una ricerca partendo da una lettera.

    Buongiorno Patel, noto un problema che non riesco a risolvere al "Successivo" e ti chiedo aiuto per poterlo rislovere.

    Faccio l'esempio per essere sbrigativo:


    Inserendo la lettera B al TextBox (Lettera) e premendo il Trova, le tre TextBox si popolano e premendo il Successivo, fa la relativa scansione ed all'ultima voce non esce il messaggio di "Record completato".

    Il resto funziona perfettamente.

    Per precauzione allego nuovamente il file.
    Scusa il disturbo, e grazie anticipatamente.
    File Allegati File Allegati

  17. #16
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1099
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Effettuare una ricerca partendo da una lettera.

    Codice: 
    Private Sub SuccessivoButton_Click()
    Sheets("Trova").Select
    found = 0
    For Each cell In Foglio1.Range("J" & Friga & ":J" & uRiga)
      If Left(cell.Text, lt) = Left(TextBox4.Text, lt) Then
        TextBox1.Value = cell.Text
        TextBox2.Value = cell.Offset(0, 1).Text
        TextBox3.Value = cell.Offset(0, 2).Text
        riga = cell.Row
        If riga = uRiga Then MsgBox "Record completato"
        found = 1
        Exit For
      End If
    Next
    If found = 0 Then
      TextBox4 = ""
      TextBox1 = ""
      TextBox2 = ""
      TextBox3 = ""
      TextBox4.SetFocus
    End If
    Friga = riga + 1
    End Sub

  18. #17
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    Bari
    Messaggi
    111
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Effettuare una ricerca partendo da una lettera.

    Grazie Patel .... funziona

Discussioni Simili

  1. Risposte: 2
    Ultimo Messaggio: 26/04/16, 13:23
  2. Lettera a grandezza foglio
    Di tk71 nel forum Domande sul Microsoft Word
    Risposte: 6
    Ultimo Messaggio: 11/04/16, 23:51
  3. Lettera nella textbox
    Di dautattmaui nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 22/02/16, 11:23
  4. Ordine civico con lettera
    Di sebgi nel forum Domande su Excel in generale
    Risposte: 14
    Ultimo Messaggio: 31/01/16, 11:08
  5. Restituire la lettera max o min di una serie
    Di Master nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 22/01/16, 10:15

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •