Problema Find y Array en VBA Excell

[buddyk9]

Tengo un problema con una subrutina en excel que espero puedan ayudarme a solucionar

Quiero buscar los datos del Array "mi array" en las celdas A15:A220 de la "Hoja1".

En esta celda, pueden estar los valores del array o no pueden estar...... Una vez que los encuentra quiero que me recupere unos valores adyacentes mediante la opción Activate.Cell.Offset

Funciona bien recorriendo los distintos valores del array y buscándolos, pero cuando no encuentra un valor, se detiene, da un error y no sigue. ¿como consigo que si no encuentra un valor busque el siguiente ? Gracias

Mi subrutina (resumida) es:

For n = 0 To 24

mi_array = Array("A1", "B1", "C1", "D1", "E1", "F1", "G1", "H1", "A2", "B2", "C2", "D2", "E2", "F2", "G2", "H2", "A3", "B3", "C3", "D3", "E3", "F3", "G3", "H3" )

WELL3 = mi_array(n)

Sheets("Hoja1").Select

Range("A15:A220").Find(What:=WELL3, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate
nombre = ActiveCell.Offset(0, 1).Value

Next

Gracias por su ayuda

[3pies]

Añade esta línea al principio de la rutina:

Código:

On Error Resume Next

Que viene a decir algo como esto: "si te encuentras con un error, no hagas ni caso, omítelo, y contínua haciendo lo que tienes que hacer"

[buddyk9]

Muchas Gracias, ha funcionado bien!