Cerca su foglio Excel

  • Aiuto di Alberto
    Stò iniziando a lavorare in vba e ho un problema (beh sicuramente più di uno, ma ora mi preme questo).
    stò cominciando ad usare il comando cells.find. quando lo uso il comando mi attiva la cella interessata (se c'è). io però ho bisogno di metterlo in un ciclo if then per fare una cosa del tipo: se il valore cercato esiste allora ...
    quindi per farlo dovrebbe essere una cosa del genere:
    c = cells.find ("xxyyzz").activate
    if c =true then . . .
    else
    end if
    qualcuno sa se è possibile?

    alberto

    Ciao alberto di Apoben64
    Benevenuto nel forum !.
    ti allego questo codice , che puoi adattare alle tue esigenze e che utilizza la proprietà find, con un ciclo , per la ricerca di testo mediante una inputbox. come puoi notare la risposta si visualizza in una msgbox .
    spero ti possa essere d'aiuto !

     
    Sub ricerca()
    Dim CL As Object
    Dim Zona As Excel.Range
    Dim Cerca As String
    Dim Dove As String
    Dim domanda As Integer
    Dim txtTesto As String
    Dim I As Byte
    
    
    txtTesto = ""
    
    
    Worksheets("Quadro1").Activate
    Set Zona = ActiveSheet.UsedRange
    ANCORA_1:
    Cerca = InputBox("Digita Nominativo")
    If Cerca = "" Then Exit Sub
    
    
    On Error GoTo NONTROVATO
    Dove = Zona.Find(Cerca).Row
    
    
    For I = 1 To 4 Step 1
    txtTesto = txtTesto & " " & Cells(Dove, I).Value
    Next
    
    
    domanda = MsgBox("trovato """ & Cerca & """ nella riga " & Dove _
     & ". Tutte le parole """ & txtTesto & """ Vuoi cercare ancora?", vbYesNo)
    
    
    If domanda = vbNo Then
    Exit Sub
    Else
    GoTo ANCORA_1
    End If
    
    
    Exit Sub
    NONTROVATO:
    domanda = MsgBox("Non trovato!")
    Resume ANCORA_1
    
    
    
    End Sub

    Grazie per l'aiuto di Alberto
    Molto interessante la tua routine, perderei l'intera giornata a studiare e capire il funzionamento di routine come quella, ma rischierei il licenziamento.
    avrei un'altra domanda: a parte l'ottimo funzionamento di questo forum, conoscete manuali, dispense, o anche corsi su cd che siano semplici e validi per conoscere meglio il vba?

    ciao alberto

    di Enzo
    Se vuoi io ho acquistato tempo fa un manuale interessante
    si chiama visualbasic 6.0
    guida alla programmazione
    autori julia case bradley - anita c. millspaugh
    casa editrice mcgraw-hill
    e' in italiano
    prova un po

    Per alberto di Apoben64
    Ciao alberto, la routine era solo un esempio pratico di come cercare un valore con il metodo find, se vuoi la possiamo applicare alla tua realtà.
    per quanto riguarda qualche corso, in questo sito , mauro ha svilppato un corso base ed uno con approndimenti che riguardano in maniera ampia gli argomenti tipo relativi al vba, e quello che più importa è semplice.
    un saluto luca

    Per apoben64 di Alberto
    La routine è molto interessante. ho avuto modo di studiarmela velocemente e capire alcune cose che magari non conoscevo e non erano disponibili sulla guida in linea di excel (es.:zona=excel.range).
    nel mio caso specifico (e la tua routine può essere adattata) stavo cercando un comando simile a "..contiene.." dei filtri