Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Metodo findnext
- Hai un problema con Excel?
Metodo findnext
di Nic82 data: 11/05/2010
Ciao a tutti,
devo cercare le celle che hanno un certo valore nel foglio attivo, come faccio ogni volta che la mia macro mi trova la cella ad avere un msgbox con l'indirizzo, poi passa alla cella successiva che contiene quel dato valore e mi da un nuovo msgbox con il nuovo indirizzo eccetera er si ferma quando ha trovato tutti i valori corrispondenti? cioè che esce dalla routine automaticmanete quando non ci sono più celle che contengono quel valore???
grazie a tutti
Sub Trova() With ActiveWorksheet Set a = Cells.Find("0600") a.Select Cells.FindNext (a) End With MsgBox a.Address End Sub
di Big ronnie (utente non iscritto) data: 12/05/2010
Ciao nick82,
prova questa macro dovrebbe fare al caso tuo.
ciao big
Sub Trova() For Each cell In ActiveSheet.UsedRange If cell = "Inserisci il Valore da ricercare QUI" Then MsgBox cell.Address(RowAbsolute:=False, ColumnAbsolute:=False) Next End Sub
di Nic82 data: 13/05/2010
Ok, grazie big, con il for each concordo che sia più elegante, ma volevo un'attimo vedere come funzionava il metodo findnext perchè dalla guida non l'ho capito!
grazie!!!
- Vuoi Approfondire?
