La puntuación alta de Excel Vba ayuda a encontrar a continuación dónde usarlo mal

El parámetro en findnext debe ser un objeto de celda, por lo que si vl es un valor aquí, no funcionará

Consulte el ejemplo de búsqueda en la ayuda de VBA: p>

Ejemplo

Este ejemplo busca todas las celdas que contienen el valor 2 en el rango A1:A500 de la primera hoja de trabajo y cambia el valor de estas celdas a 5. Con?Worksheets(1).Range("a1:a500")

Set?c?=?.Find(2,?lookin:=xlValues)

Si?No? c?¿Nada?Entonces

primeraDirección?=?c.Dirección

Hacer

c.Value?=?5

Set?c?=?.FindNext(c)

¿Bucle?While?Not?c?Is?Nothing?And?c.Address?<>?firstAddress

Fin?If

¿Fin? Con