Buscar una referencia

Chécate muy bien la línea que dice 'Una menos que el número total de datos
en las matrices

Debes tener cuidado en poner For i = 1 To X [en donde x es el numero de
filas - 1]

Es decir si tu rango es de C1:D15000, debes poner

For i = 1 To 14999

También checa donde inicia el rango. Yo te puse en el ejemplo desde C2,
presumiendo que la primera fila es de titulos

'**********************************************************************
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Encontrado As Boolean
Dim matriz1, matriz2 As Variant
matriz1 = Worksheets("Hoja1").[C1:D600]
matriz2 = Worksheets("Hoja1").[E1:F600]


If (Intersect(Target, Range("A:A")) Is Nothing) Then Exit Sub

Encontrado = False

For i = 1 To 599 'Una menos que el número total de datos en las
matrices
If Target.Value = matriz1(i, 1) Then Target.Offset(0, 1).Value =
matriz1(i, 2): Encontrado = True
If Target.Value = matriz2(i, 1) Then Target.Offset(0, 1).Value =
matriz2(i, 2): Encontrado = True
If Encontrado Then Exit Sub
Next

If Not Encontrado Then Target.Offset(0, 1).Value = "Not Found"

End Sub
'**********************************************************************

"Antonio" escribió en el mensaje
news:

Funciona bien, pero me gustaría saber como puedo hacer para que al
eliminar el valor de A1, el que se de buscar en la matriz, desaparaezca
tambien el resutado de busqueda.

Saludos y gracias.


"Antonio" escribió en el mensaje
news:

Os cuento mi problema:

Ten una tabla con datos que estan divididos por trios de columnas a los
que les pongo un nombre, por ejemplo TARIFA_1; TARIFA_2, etc... Lo que
quiero hacer en otra tabla que con la función BUSCARV me busque el
valor de la celda A1, por ejemplo, y si no lo encunetra en TARIFA_1
pues que busque en TARIFA_2, etc.. ¿como puedo hacerlo?

Saludos y gracias.