Función SI e Inputbox

14/08/2003 - 20:55 por Mario Alberto | Informe spam

Hola:

Tengo la celda "A1" con validación de datos (lista del 1 al 20)
En la celda "C1" tengo la función "=buscarv(A1,Nombres,2,falso)"

Ahora bien, lo que necesito es que si en la celda "A1" selecciono
el 20, en lugar de darme el valor de la segunda columna del rango "Nombres"
me ejecute un "INPUTBOX" o me desproteja la celda para poder capturar un
nombre.

En principio pense cambiar la función por la siguiente
"=SI(A1 ,"NO SE QUE PONER",buscarv(A1,Nombres,2,falso)), pero precisamente
no se que poner, si la condición es verdadero para efectuar lo que quiero.

Gracias de antemano

Mario Alberto

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Fernando Arroyo

15/08/2003 - 11:19 | Informe spam

Puedes usar una función personalizada como argumento del SI. Por ejemplo:

=SI(A1 ;MiFunción();BUSCARV(A1;nombres;2;FALSO))

y la función MiFunción:

Function MiFunción() As String
MiFunción = Application.InputBox(prompt:="¿Nombre?", Type:=2)
End Function

que iría en un módulo creado por ti (no en ThisWorkbook ni en ninguno de los de las hojas).
Un saludo.

Fernando Arroyo
MS MVP - Excel

"Mario Alberto" escribió en el mensaje news:%

Hola:

Tengo la celda "A1" con validación de datos (lista del 1 al 20)
En la celda "C1" tengo la función "=buscarv(A1,Nombres,2,falso)"

Ahora bien, lo que necesito es que si en la celda "A1" selecciono
el 20, en lugar de darme el valor de la segunda columna del rango "Nombres"
me ejecute un "INPUTBOX" o me desproteja la celda para poder capturar un
nombre.

En principio pense cambiar la función por la siguiente
"=SI(A1 ,"NO SE QUE PONER",buscarv(A1,Nombres,2,falso)), pero precisamente
no se que poner, si la condición es verdadero para efectuar lo que quiero.

Gracias de antemano

Mario Alberto

Responder a este mensaje

#2 Mario Alberto

15/08/2003 - 17:34 | Informe spam

Gracias Fernando... Funciona de maravilla.

Saludos

"Fernando Arroyo" escribió en el mensaje
news:
Puedes usar una función personalizada como argumento del SI. Por ejemplo:

=SI(A1 ;MiFunción();BUSCARV(A1;nombres;2;FALSO))

y la función MiFunción:

Function MiFunción() As String
MiFunción = Application.InputBox(prompt:="¿Nombre?", Type:=2)
End Function

que iría en un módulo creado por ti (no en ThisWorkbook ni en ninguno de los
de las hojas).
Un saludo.

Fernando Arroyo
MS MVP - Excel

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida