Función "Buscar" en VBA Excel

[buddyk9]

Este es una adaptación de uno que tengo y me funciona, con unos peros que te comento:
en mi caso, el valor de mi_array es mas largo, y aqui tengo una serie de valores concretos que quiero buscar.

Lo lee, y lo va buscado en el rango A1:A200 de la hoja "datos". Cuando lo encuentra, se activa, y luego con la opción ActiveCell.Offset(0,3).Value, con la variable "DATO", coge el valorq ue está 3 celdas a la derecha del encontrado.
Espero que te se util.

Dinos como te ha ido, y Cuando te funcione el código, pegalo para ir haciendo una "biblioteca" de subrutinas e ir creciendo.

s2


for n=1 to 200

mi_array = Array ("A1", "A2", "A3", "A4")

FECHA = mi_array(n)

Sheets("datos").Select
Range("A1:A200").Find(What:=FECHA, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate
DATO = ActiveCell.Offset(0, 3).Value

next