|
Podríamos crear una funcion para ello, de tal forma que, busque la clda en un rango y si esta le damos un valor y si no la encuentra, le otargamos otro valor. Para crear una funcion, necesitamos este código
Function SiRango(valor, rango As Range, resultado1, resultado2)
With rango
Set c = .Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then SiRango = resultado1 Else SiRango = resultado2
End With
End Function
' nota.- valor=el valor a buscar, rango= el rango en el que buscar, resultado1=el valor que queremos que nos devuelva si encuentra el valor en el rango y el valor2= lo que devuelve si no encuentra lo que busca.
lo colocamos en un modulo de VBA y al ir a escribir una formula, llamariamos a la funcion y todo listo.
Si no te aclaras con el tema de las macros, me lo dices y te ayudo o te envio un fichero. Si te decides a que te lo mente en tú fichero. Mejor es que me postees tu dirección y yo te envio la misa para intercambio de ficheros.
|
