Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 30 di 34

Discussione: Excel trova facilitato



  1. #1
    L'avatar di Alisea
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Messaggi
    24
    Likes ricevuti
    0
    Likes dati
    0

    Excel trova facilitato

    Ho creato un foglio excel con varie celle, per facilitarmi la ricerca vado su cerca e inserisco le ultime 4 cifre di ciò che desidero trovare, è possibile che la cella che cerco venga evidenziata, ogni volta per cercarla mi tolgo la vista.....invece se la cella venisse evidenziata sarebbe molto più facile indiiduarla.

  2. #2
    L'avatar di Beppe
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Brescia
    Età
    37
    Messaggi
    78
    Versione Office
    2010 Win
    Likes ricevuti
    1
    Citazione Originariamente Scritto da Alisea Visualizza Messaggio
    Ho creato un foglio excel con varie celle, per facilitarmi la ricerca vado su cerca e inserisco le ultime 4 cifre di ciò che desidero trovare, è possibile che la cella che cerco venga evidenziata, ogni volta per cercarla mi tolgo la vista.....invece se la cella venisse evidenziata sarebbe molto più facile indiiduarla.
    Ciao. Prova con la formattazione condizionale. È un buon esercizio per imparare i riferimenti di cella assoluti e relativi. ..
    Se non erro è il video EXCEL magico numero 1 di Gerardo.
    Buona visione
    Ultima modifica fatta da:Beppe; 18/08/15 alle 11:47
    Windows 7
    Office 2010

  3. #3
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Alisea Visualizza Messaggio
    Ho creato un foglio excel con varie celle, per facilitarmi la ricerca vado su cerca e inserisco le ultime 4 cifre di ciò che desidero trovare, è possibile che la cella che cerco venga evidenziata, ogni volta per cercarla mi tolgo la vista.....invece se la cella venisse evidenziata sarebbe molto più facile indiiduarla.
    Ciao Alisea
    Credo che questa routine VBA possa andare bene per il tuo problema.
    Devi crearti un pulsante che richiama la macro.

    Sub Macro1()


    Dim valor As String


    valor = InputBox("inserisci valore da cercare")


    Cells.Find(What:=valor, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate

    ActiveCell.Interior.ColorIndex = 20# 'cambiando il numero cambia il colore

    End Sub

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  4. #4
    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
    1126
    @Baloon_50 non conosco il VBA ma ho incollato questo codice e lo trovo simpaticissimo, l'unico problema che ho notato che quando cerco un eventuale secondo valore, il primo non viene cancellato, credo che questo potrebbe essere un problema

    @Alisea un'altro metodo per cercare un valore potrebbe essere con la formattazione condizionale però bisognerebbe vedere il file per trovare la formula più adatta

  5. #5
    L'avatar di Alisea
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Messaggi
    24
    Likes ricevuti
    0
    Likes dati
    0
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    @Baloon_50 non conosco il VBA ma ho incollato questo codice e lo trovo simpaticissimo, l'unico problema che ho notato che quando cerco un eventuale secondo valore, il primo non viene cancellato, credo che questo potrebbe essere un problema

    @Alisea un'altro metodo per cercare un valore potrebbe essere con la formattazione condizionale però bisognerebbe vedere il file per trovare la formula più adatta
    Infatti era quello che avevo notato... allego il file cosi avete un'idea più chiara

  6. #6
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    @Baloon_50 non conosco il VBA ma ho incollato questo codice e lo trovo simpaticissimo, l'unico problema che ho notato che quando cerco un eventuale secondo valore, il primo non viene cancellato, credo che questo potrebbe essere un problema

    @Alisea un'altro metodo per cercare un valore potrebbe essere con la formattazione condizionale però bisognerebbe vedere il file per trovare la formula più adatta
    dopo la riga Dim valor As String aggiungi questo

    Cells.Select
    With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Range("A1").Select

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  7. #7
    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
    1126
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    dopo la riga Dim valor As String aggiungi questo

    Cells.Select
    With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Range("A1").Select
    Yessss!!
    Sei un grande!! non so cosa hai scritto come codice ma funziona alla grande!!
    questo file lo custodirò gelosamnte e adesso lo pubblico PS ho messo anche un pulsante per richiamare lo strumento

  8. #8
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Alisea Visualizza Messaggio
    Infatti era quello che avevo notato... allego il file cosi avete un'idea più chiara
    Così è più completa; mancava la parte "se non trovato"

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  9. #9
    L'avatar di Alisea
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Messaggi
    24
    Likes ricevuti
    0
    Likes dati
    0
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    dopo la riga Dim valor As String aggiungi questo

    Cells.Select
    With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Range("A1").Select
    dovrei effettuare la ricerca in base alle ultime 4 cifre dell'iban.... possibilmente con un colore molto acceso

  10. #10
    L'avatar di Alisea
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Messaggi
    24
    Likes ricevuti
    0
    Likes dati
    0
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Così è più completa; mancava la parte "se non trovato"
    Ho allegato il file, potresti gentilmente inserire anche li il comando?
    si può usare un colore più forte?

  11. #11
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Alisea Visualizza Messaggio
    Ho allegato il file, potresti gentilmente inserire anche li il comando?
    si può usare un colore più forte?
    ti allego il file il colore l'ho cambiato in blu comunque se vuoi usarne altri, devi modificare il numero sulla riga della macro :

    ActiveCell.Interior.ColorIndex = 5# 'cambiando il numero cambia il colore

    non riesco ad allegare il file :119: ti metto il codice di seguito

    Sub Macro1()
    On Error GoTo finito
    Dim valor As String
    Cells.Select
    With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Range("A1").Select
    valor = InputBox("inserisci valore da cercare")
    Cells.Find(What:=valor, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
    ActiveCell.Interior.ColorIndex = 5# 'cambiando il numero cambia il colore
    Exit Sub
    finito:
    MsgBox ("il valore non è stato trovato")
    End Sub

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  12. I seguenti utenti hanno dato un "Like"


  13. #12
    L'avatar di Alisea
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Messaggi
    24
    Likes ricevuti
    0
    Likes dati
    0
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    ti allego il file il colore l'ho cambiato in blu comunque se vuoi usarne altri, devi modificare il numero sulla riga della macro :

    ActiveCell.Interior.ColorIndex = 5# 'cambiando il numero cambia il colore

    non riesco ad allegare il file :119: ti metto il codice di seguito

    Sub Macro1()
    On Error GoTo finito
    Dim valor As String
    Cells.Select
    With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Range("A1").Select
    valor = InputBox("inserisci valore da cercare")
    Cells.Find(What:=valor, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
    ActiveCell.Interior.ColorIndex = 5# 'cambiando il numero cambia il colore
    Exit Sub
    finito:
    MsgBox ("il valore non è stato trovato")
    End Sub
    Aspetto con ansia che riesci ad allegare il file....altrimenti potresti mandarlo via email?

  14. #13
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    Yessss!!
    Sei un grande!! non so cosa hai scritto come codice ma funziona alla grande!!
    questo file lo custodirò gelosamnte e adesso lo pubblico PS ho messo anche un pulsante per richiamare lo strumento
    il codice lo si ottiene col registratore di macro ed effettuando i passaggi che si fanno normalmente per ottenere un certo risultato :222:
    Ma come mai non mi riesce di allegare il file ? è di 34 KB circa !!!

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  15. #14
    L'avatar di MauroS
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Abruzzo
    Età
    40
    Messaggi
    56
    Versione Office
    2007 WIN
    Likes ricevuti
    1
    Ciao a Baloon_50,
    scusate se mi intrometto nella discussione ma la cosa è interessante anche per me.
    Volevo chiedere per favore se è possibile modificare il codice per cercare non un solo valore ma anche valori duplicati ed evidenziarli tutti.
    Grazie.

    Mauro

  16. #15
    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
    1126
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    il codice lo si ottiene col registratore di macro ed
    ok ma io so registrare una Macro e so che il codice VBA viene automaticamente scritto da Excel, solo che non riesco a capire come hai fatto ad inserire quella finestra di dialogo dove si inserisce il Valore che cerchi... sarebbe bello vedere un Video tutorial che faccia vedere i vari passaggi.

    Ma come mai non mi riesce di allegare il file ? è di 34 KB circa !!!
    Purtroppo e per scelta questo forum non può ospitare allegati con dimensione superiore a 30 kb per ovvi motivi di spazio nel server
    comunque si puo sempre allegare un file attraverso questi siti di file hosting come DROPBOX, Google drive ecc.
    Meglio evitare mandarsi le mail anche perchè è interessante mettere le soluzioni a disposizione di tutti
    Ciao Baloon_50 :50:

  17. #16
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da MauroS Visualizza Messaggio
    Ciao a Baloon_50,
    scusate se mi intrometto nella discussione ma la cosa è interessante anche per me.
    Volevo chiedere per favore se è possibile modificare il codice per cercare non un solo valore ma anche valori duplicati ed evidenziarli tutti.
    Grazie.

    Mauro
    Con la variazione che ho fatto dovresti riuscire a trovare ed evidenziare tutti i valori per i quali hai fatto richiesta di ricerca
    Ho caricato il file su dropbox perchè non so se riesco ad allegarlo.

    https://www.dropbox.com/s/6dybzn5a8x...uali.xlsm?dl=0

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  18. I seguenti utenti hanno dato un "Like"


  19. #17
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    ok ma io so registrare una Macro e so che il codice VBA viene automaticamente scritto da Excel, solo che non riesco a capire come hai fatto ad inserire quella finestra di dialogo dove si inserisce il Valore che cerchi... sarebbe bello vedere un Video tutorial che faccia vedere i vari passaggi.



    Purtroppo e per scelta questo forum non può ospitare allegati con dimensione superiore a 30 kb per ovvi motivi di spazio nel server
    comunque si puo sempre allegare un file attraverso questi siti di file hosting come DROPBOX, Google drive ecc.
    Meglio evitare mandarsi le mail anche perchè è interessante mettere le soluzioni a disposizione di tutti
    Ciao Baloon_50 :50:
    Non ho la "parlantina" di Gerardo :23: e comunque il box per la richiesta del valore, se guardi il mio VBA è :

    InputBox("imposta il valore da cercare")

    che viene memorizzato nella variabile valor

    Per quanto riguarda i files da allegare, ho risolto creandomi un'utenza su dropbox

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  20. #18
    L'avatar di MauroS
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Abruzzo
    Età
    40
    Messaggi
    56
    Versione Office
    2007 WIN
    Likes ricevuti
    1
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Con la variazione che ho fatto dovresti riuscire a trovare ed evidenziare tutti i valori per i quali hai fatto richiesta di ricerca
    Ho caricato il file su dropbox perchè non so se riesco ad allegarlo.
    Grazie Baloon_50,
    addattandolo alle mie esigenze si può rivelare molto comodo.

    grazie Ancora.

    Mauro.

  21. #19
    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
    1126
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Ho caricato il file su dropbox perchè non so se riesco ad allegarlo.
    Ciao Baloon_50
    come puoi notare questo file è di 19kb e avresti potuto inserirlo anche direttamente nel forum senza usare DROPBOX (Max 30 kb)
    :246:


  22. #20
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da MauroS Visualizza Messaggio
    Grazie Baloon_50,
    addattandolo alle mie esigenze si può rivelare molto comodo.

    grazie Ancora.

    Mauro.
    Si fa quel che si può :246: Prego

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  23. #21
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    bhe visto che ho speso il tempo per crearmi l'utenza su dropbox ne ho approfittato per vedere su il tutto funziona :300: e devo dire che dalla risposta di MauroS il tutto è andato :208:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  24. #22

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1017
    Versione Office
    .
    Likes ricevuti
    366
    Likes dati
    0
    @Baloon_50

    Se mi permetti di avanzare qualche suggerimento ......

    1. il codice delle sub "generiche" dovrebbero stare in di un modulo standard, non nei moduli di classe (come sono quelli di Questa_cartella_di_lavoro o quelli dei vari fogli Foglio1, Foglio2 .... etc.);
    2. LA gestione degli errori è "cosa delicata", e se possibile è meglio evitare che un errore possa verificarsi, anziché lasciare che si verifichi e poi gestirlo (vedi codice sotto);
    3. usare i metodi .Select, .Activate, come le proprietà ActiveCell è, il più delle volte, inutile e fonte di problemi; si possono tranquillamente evitare, come mostra il codice "rivisto" che riporto di seguito.


    Come potrai notare nel seguente codice ho eliminato sia la gestione dell'errore, verificando il controllo sul risultato del metodo Find, che tutti i Select, inoltre non c'è traccia di ActiveCell ....

    Codice: 
    Sub Cerca1()
      Dim rng As Range
      Dim valor As String
      Dim a As String
        
      With Cells.Interior
          .Pattern = xlNone
          .TintAndShade = 0
          .PatternTintAndShade = 0
      End With
      
      valor = InputBox("inserisci valore da cercare")
      
      With ActiveSheet
        Set rng = .Cells.Find(What:=valor, After:=.Cells(.Rows.Count, 1), LookIn:=xlFormulas, LookAt _
          :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
          False, SearchFormat:=False)
        If Not rng Is Nothing Then
          a = rng.Address
          Do
            rng.Interior.ColorIndex = 36        'cambiando il numero cambia il colore
            Set rng = Cells.FindNext(rng)
          Loop While Not rng Is Nothing And rng.Address <> a
        Else
          MsgBox ("il valore non è stato trovato")
        End If
      End With
    
      Set rng = Nothing
    
    End Sub
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  25. I seguenti utenti hanno dato un "Like"


  26. #23
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Hai perfettamente ragione ma io sono un autodidatta e pur di raggiungere lo scopo preferisco scrivere una riga di codice in più. Per quanto riguarda i moduli solitamente lo faccio. Comunque prendo per ottimi i tuoi suggerimenti e ne farò tesoro. Intanto mi sono copiato il codice e me lo guarderò con calma.

    Grazie ancora. :222:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  27. #24
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Scusami ancora Scossa,
    potresti commentare le righe del codice che hai postato perchè non riesco a capire alcuni passi

    Grazie

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  28. #25
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Volevo fare una piccola precisazione sul codice :

    - Per Alisea credo vada bene perchè mi sembra di aver letto che lei imposta una parte dell'IBAN per trovare la cella

    - Per MauroS che vuole trovare i duplicati, nella seconda riga di VBA, dove fa la ricerca, dovrebbe sostituire ":=xlPart" con ":=xlWhole".
    Nel primo caso fa una ricerca anche di parte del valore (es.: valore = 3 trova anche 13 23 30 ecc.) nel secondo caso trova il contenuto intero della cella.

    Spero di essere stato chiaro.
    Ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  29. #26
    L'avatar di MauroS
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Abruzzo
    Età
    40
    Messaggi
    56
    Versione Office
    2007 WIN
    Likes ricevuti
    1
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio

    - Per MauroS che vuole trovare i duplicati, nella seconda riga di VBA, dove fa la ricerca, dovrebbe sostituire ":=xlPart" con ":=xlWhole".
    Nel primo caso fa una ricerca anche di parte del valore (es.: valore = 3 trova anche 13 23 30 ecc.) nel secondo caso trova il contenuto intero della cella.

    Spero di essere stato chiaro.
    Ciao.
    Ciao Baloon_50,
    sei stato molto chiaro.
    grazie.

    Mauro.

  30. #27

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1017
    Versione Office
    .
    Likes ricevuti
    366
    Likes dati
    0
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    potresti commentare le righe del codice che hai postato perchè non riesco a capire alcuni passi
    Facciamo il contrario :-) tu mi dici quali sono i passi che non comprendi e io cerco ti spiegarli.
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  31. #28
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da scossa Visualizza Messaggio
    Facciamo il contrario :-) tu mi dici quali sono i passi che non comprendi e io cerco ti spiegarli.
    If Not rng Is Nothing Then
    a = rng.Address
    Do
    rng.Interior.ColorIndex = 36 'cambiando il numero cambia il colore
    Set rng = Cells.FindNext(rng)
    Loop While Not rng Is Nothing And rng.Address <> a
    Else
    MsgBox ("il valore non è stato trovato")
    End If

    Ecco volevo sapere come funzionano questi giri è la prima volta che mi capita di vederli o quantomeno non ci ho mai fatto caso

    Grazie

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  32. #29

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1017
    Versione Office
    .
    Likes ricevuti
    366
    Likes dati
    0
    Per prima cosa ti consiglio di leggere attentamente l'help in linea relativo al metodo .Find()

    Il metodo Find (se la stringa cercata viene trovata) restituisce un oggetto di tipo Range (altrimenti restituisce Nothing)
    Quindi dopo l'istruzione

    Set rng = .Cells.Find(.....)

    rng sarà Nothing se Find non trova la stringa altrimenti rappresenterà la cella dove la stringa è stata trovata; quindi l'istruzione

    If Not rng Is Nothing Then

    verifica che rng non sia Nothing e

    a = rng.Address

    memorizza nella variabile a l'indirizzo di rng, dopo di che il ciclo Do ... While viene ripetuto finché non vengono trovate altre occorrenze della stringa e finché il nuovo indirizzo di rng è diverso da a (altrimenti il metodo FindNext continuerebbe a trovare la cella con indirizzo a)
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  33. #30
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    OK adesso mi è tutto chiaro. Grazie della esauriente spiegazione.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

Discussioni Simili

  1. [Risolto] Trova tabella
    Di nicocaporale nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 14/03/17, 14:37
  2. [Risolto] Comando trova
    Di Mausa nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 24/02/17, 15:46
  3. funzione trova
    Di gigi71 nel forum Domande su Excel in generale
    Risposte: 13
    Ultimo Messaggio: 03/12/16, 18:26
  4. Finestra dialogo trova e sostituisci Excel 2016
    Di fableo nel forum Domande su Excel in generale
    Risposte: 0
    Ultimo Messaggio: 24/10/16, 10:03
  5. Trova gare
    Di AlexD nel forum Domande su Excel in generale
    Risposte: 15
    Ultimo Messaggio: 13/11/15, 22:06

Tag per Questa Discussione

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
  •