Saltar al contenido

Comparar un combobox con dos columnas diferentes en otra hoja


Nodoka

Recommended Posts

publicado

Buenas ^_^

A ver si me podéis echar un cable porque no hay manera ><

tengo un combobox en una hoja el cual le meto una lista que esta el hoja7 "Tablas" y lo que quiero es que cuando seleccione un nombre me compare si existe ese nombre en la hoja7 "Tablas" en dos columnas columnas diferentes tengo dividida la lista del combobox es decir que si el nombre que le meto se encuentra en la columna O2 : O53 me active que se vea Imagen1 y si se encuentra en la columna P2 : P75 me active Imagen2 para asi diferenciarlas y si se da el caso de que el nombre no aparezca en ninguna de las columnas o el combobox no tenga ningun dato me desactive la aparición de las imagenes

mirando ejemplos he sacado esto:

Dim Fan_Esp As Range

Dim Fan_Lat As Range

Set Fan_Esp = Hoja7.Columns(14).Find(What:=Informacion.Com_Fansub.Text)

Set Fan_Lat = Hoja7.Columns(15).Find(What:=Informacion.Com_Fansub.Text)

'On Error Resume Next

If Fan_Lat <> Informacion.Com_Fansub.Text Then

Informacion.Lbl_Bandera_Esp_Fan.Visible = True

Else

If Fan_Esp <> Informacion.Com_Fansub.Text Then

Informacion.Lbl_Bandera_Esp_Fan.Visible = False

Informacion.Lbl_Bandera_Lat_Fan.Visible = True

Else

Informacion.Lbl_Bandera_Esp_Fan.Visible = False

Informacion.Lbl_Bandera_Lat_Fan.Visible = False

End If

End If

pero el problema radica en que si encuentra un nombre que no esta en ninguna de las dos columnas me pone siempre una bandera ><

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.