Cerca su foglio Excel

Hai un problema con 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

Vuoi approfondire questo argomento?