Comparar un combobox con dos columnas diferentes en otra hoja
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 ><
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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 ><