Risultati da 1 a 12 di 12

Discussione: ricerca tra più fogli



  1. #1
    L'avatar di robertopiro
    Clicca e Apri
    Data Registrazione
    Oct 2016
    Località
    Lugo(Ra)
    Messaggi
    30
    Versione Office
    Excel 2016
    Mi Piace ricevuti
    0
    Mi Piace dati
    14

    ricerca tra più fogli

    Buon giorno, girando in rete ho trovato questo forum e ne sono rimasto subito piacevolmente incuriosito e così mi sono registrato.
    Premetto sono un neofita di Excel-VBA e sto iniziando ora a muovere i primi passi ... Ecco questo è il problema che volevo proporre :
    ho creato un Db composto da 25 fogli(Riepilogativo,Gennaio-a,Febbraio-a,Marzo-a....Dicembre-a,Gennaio-b,Febbraio-b,Marzo...Dicembre-b). Ora Vorrei sapere come fare una macro che mi permette di trovare il nome di una città e di posizionarsi sul primo record trovato nella cella F e che mi chieda poi se la ricerca effettuata mi soddisfa oppure mi propone il secondo report trovato e così via fino alla scansione di tutti i fogli dei mesi...
    Ringrazio anticipatamente per eventuali suggerimenti.

  2. #2
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    2026
    Versione Office
    2007 - 2013
    Mi Piace ricevuti
    256
    Mi Piace dati
    39

    Re: ricerca tra più fogli

    Ciao Roberto

    Visto che sei nuovo ti invito a dare una lettura al Regolamento agli annunci dello staff e a presentarti nella relativa sezione.

    Per il tuo problema ti consiglierei di allegare un file di esempio con pochi dati fittizi e spiegare quello che vuoi fare/ottenere.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"
    Cit. Berna11: "Se ti piace la risposta di qualcuno, oltre a ringraziarlo, puoi cliccare su "Mi Piace" in basso a sinistra del loro messaggio."

  3. I seguenti utenti hanno dato un "Mi Piace"


  4. #3
    L'avatar di robertopiro
    Clicca e Apri
    Data Registrazione
    Oct 2016
    Località
    Lugo(Ra)
    Messaggi
    30
    Versione Office
    Excel 2016
    Mi Piace ricevuti
    0
    Mi Piace dati
    14

    Re: ricerca tra più fogli

    Scusa ... provvedo subito
    File Allegati File Allegati

  5. #4

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    52
    Messaggi
    3700
    Versione Office
    2011/2016MAC
    Mi Piace ricevuti
    1104
    Mi Piace dati
    653

    Re: ricerca tra più fogli

    Ciao,
    se ho ben capito, potrebbe andare bene questo codice:
    Codice: 
    Sub Cerca()
    Dim sh As Worksheet
    Dim parola As Object
    Dim idomanda As Integer
    Dim quesito As String
        quesito = InputBox("Inserisci la parola che stai cercando")
        If quesito = "" Then Exit Sub
            For Each sh In ActiveWorkbook.Sheets
                For y = 1 To 100
                    For x = 1 To 50
                        Set parola = sh.Cells(y, x)
                        If UCase(parola.Value) Like "*" & UCase(quesito) & "*" Then
                            Dove = "foglio: " & sh.Name & ", cella " & parola.Address(rowabsolute:=False, columnabsolute:=False)
                            idomanda = MsgBox("Trovato " & UCase(quesito) & " in " & Dove & ". Vuoi Cercare ancora?", vbYesNo)
                        If idomanda = vbNo Then
                                sh.Activate
                                parola.Select
                        Exit Sub
                                End If
                        End If
                    Next
                Next
            Next
        MsgBox "RICERCA TERMINATA!"
    End Sub
    File Allegati File Allegati
    Ultima modifica fatta da:ges; 13/10/16 alle 23:33 Motivo: Postato il codice corretto
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  6. I seguenti 3 utenti hanno dato un MI Piace a ges per questo post:


  7. #5

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    44
    Messaggi
    1660
    Versione Office
    Excel 2013
    Mi Piace ricevuti
    517
    Mi Piace dati
    428

    Re: ricerca tra più fogli

    Propongo una variante al codice di ges (che saluto) :
    Codice: 
    Sub Ricerca()
    Dim Ricerca As Range
    Dim Primo As Range
    Dim Risposta As VbMsgBoxResult
    Dim Fgl As Worksheet
    Di Testo As String 
    
    Testo=InputBox("Parola da cercare",  "RICERCA") 
    
    For Each Fgl In Worksheets
        Fgl.Activate
        Set Ricerca = Cells.Find(What:=Testo, _
            After:=ActiveCell, _
            SearchDirection:=xlNext, _
            MatchCase:=False)
        If Ricerca Is Nothing Then GoTo Successivo
        Ricerca.Activate
        Set Primo = Ricerca
        Do
            Risposta = MsgBox("Vuoi proseguire la ricerca?", vbQuestion + vbYesNo, "RICERCA")
            Set Ricerca = Cells.FindNext(After:=ActiveCell)
            Ricerca.Activate
        Loop Until Risposta = vbNo Or Primo = Ricerca
    Successivo:
    Next
    MsgBox "Ricerca terminata", vbInformation, "RICERCA"
    
    Set Ricerca = Nothing
    Set Primo = Nothing
    End Sub
    Inviato dal mio GT-I9301I utilizzando Tapatalk
    Ultima modifica fatta da:Rubik72; 14/10/16 alle 10:10

  8. I seguenti 2 utenti hanno dato un MI Piace a Rubik72 per questo post:


  9. #6
    L'avatar di robertopiro
    Clicca e Apri
    Data Registrazione
    Oct 2016
    Località
    Lugo(Ra)
    Messaggi
    30
    Versione Office
    Excel 2016
    Mi Piace ricevuti
    0
    Mi Piace dati
    14

    Re: ricerca tra più fogli

    Funziona !!! però mi segnala un errore di compilazione sulla riga "Di Testo Ascoli String" ....cosa significa ???? Ho poi eliminato questa riga e così funziona ...
    Grazieeeee

  10. #7

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    44
    Messaggi
    1660
    Versione Office
    Excel 2013
    Mi Piace ricevuti
    517
    Mi Piace dati
    428

    Re: ricerca tra più fogli

    Citazione Originariamente Scritto da robertopiro Visualizza Messaggio
    Funziona !!! però mi segnala un errore di compilazione sulla riga "Di Testo Ascoli String" ....cosa significa ???? Ho poi eliminato questa riga e così funziona ...
    Grazieeeee
    Il T9 fa brutti scherzi, modifica in
    Dim Testo As String


    Inviato dal mio GT-I9301I utilizzando Tapatalk

  11. #8
    L'avatar di robertopiro
    Clicca e Apri
    Data Registrazione
    Oct 2016
    Località
    Lugo(Ra)
    Messaggi
    30
    Versione Office
    Excel 2016
    Mi Piace ricevuti
    0
    Mi Piace dati
    14

    Re: ricerca tra più fogli

    Si è questo che intendevo ... funziona alla perfezione
    Grazie

  12. #9
    L'avatar di robertopiro
    Clicca e Apri
    Data Registrazione
    Oct 2016
    Località
    Lugo(Ra)
    Messaggi
    30
    Versione Office
    Excel 2016
    Mi Piace ricevuti
    0
    Mi Piace dati
    14

    Re: ricerca tra più fogli

    Scusa Rubik72 .... mi sono accorto ora che quando voglio terminare la ricerca e rispondo No all'InputBox "Vuoi proseguire la ricerca ?" la ricerca continua ugualmente ....bho ???

  13. #10

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    44
    Messaggi
    1660
    Versione Office
    Excel 2013
    Mi Piace ricevuti
    517
    Mi Piace dati
    428

    Re: ricerca tra più fogli

    Ecco la modifica:
    Codice: 
    Sub Ricerca()
    Dim Ricerca As Range
    Dim Primo As Range
    Dim Risposta As VbMsgBoxResult
    Dim Fgl As Worksheet
    Dim Testo As String
    
    Testo = InputBox("Testo da cercare", "RICERCA")
    
    For Each Fgl In Worksheets
        Fgl.Activate
        Set Ricerca = Cells.Find(What:=Testo, _
            After:=ActiveCell, _
            SearchDirection:=xlNext, _
            MatchCase:=False)
        If Ricerca Is Nothing Then GoTo Successivo
        Ricerca.Activate
        Set Primo = Ricerca
        Do
            Risposta = MsgBox("Vuoi proseguire la ricerca?", vbQuestion + vbYesNo, "RICERCA")
            If Risposta = vbNo Then GoTo Esci
            Set Ricerca = Cells.FindNext(After:=ActiveCell)
            Ricerca.Activate
        Loop Until Primo = Ricerca
    Successivo:
    Next
    
    Esci:
    MsgBox "Ricerca terminata", vbInformation, "RICERCA"
    
    Set Ricerca = Nothing
    Set Primo = Nothing
    End Sub

  14. I seguenti 2 utenti hanno dato un MI Piace a Rubik72 per questo post:


  15. #11
    L'avatar di robertopiro
    Clicca e Apri
    Data Registrazione
    Oct 2016
    Località
    Lugo(Ra)
    Messaggi
    30
    Versione Office
    Excel 2016
    Mi Piace ricevuti
    0
    Mi Piace dati
    14

    Re: ricerca tra più fogli

    Funziona ... grazie le due soluzioni sono entrambe valide e risolvono il mio problema

    PS. Volevo aggiungere il tag Risolto nella discussione .... ma non ho capito come fare (???)

  16. #12
    L'avatar di Dillina
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Tenerife
    Messaggi
    999
    Versione Office
    2013
    Mi Piace ricevuti
    127
    Mi Piace dati
    521

    Re: ricerca tra più fogli

    Ciao Robertopiro , ho notato che ancora non ti sei PRESENTATO

    Vieni a farlo appena hai due minuti?

    Grazie

    (scusate l'intrusione ragazzi!!)
    Sii gentile quando possibile. È sempre possibile
    (Dalai Lama)

Discussioni Simili

  1. Ricerca Dati in più Fogli
    Di Giuseppe Zammuto nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 17/10/16, 10:36
  2. [UserForm] Ricerca Dati in più Fogli
    Di Giuseppe Zammuto nel forum Domande su Excel VBA e MACRO
    Risposte: 26
    Ultimo Messaggio: 17/10/16, 09:44
  3. [Risolto] Unione di più fogli con ricerca
    Di Rudolfet nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 03/10/16, 13:42
  4. Ricerca su piu' fogli con VBA
    Di supermagix1 nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 10/04/16, 15:12
  5. Ricerca su più fogli
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 38
    Ultimo Messaggio: 21/01/16, 06:52

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
  •