Excel - Buscar multiples condiciones multiples resultados

SELECT Mapas

FROM [Tabla Relación]

WHERE Paises="España" OR Paises="Italia"

GROUP BY Mapas

HAVING Count(Mapas)=2

SELECCIONE el campo Mapas

DE la tabla [Tabla Relación]

DONDE el campo Paises es igual a "España" o

         campo Paises es igual a "Italia"

AGRUPE POR Mapas

QUE TIENE que Contar Mapas y sea igual a 2

=SI(O(Y(M$5<>"";M$7<>"";M$5=M$7);Y(M$5<>"";M$9<>"";M$5=M$9);Y(M$5<>"";M$11<>"";M$5=M$11);Y(M$5<>"";M$13<>"";M$5=M$13);Y(M$7<>"";M$9<>"";M$7=M$9);Y(M$7<>"";M$11<>"";M$7=M$11);Y(M$7<>"";M$13<>"";M$7=M$13);Y(M$9<>"";M$11<>"";M$9=M$11);Y(M$9<>"";M$13<>"";M$9=M$13);Y(M$11<>"";M$13<>"";M$11=M$13));"... hay PAÍSES REPETIDOS, cambia tu elección !!!";(SI(Y(O(M5<>"";M7<>"";M9<>"";M11<>"");('Cruce Listas'!B53)="");"Los países que has elegido NO tienen ningún MAPA en común !!!";(SI.ERROR(concatenarceldas('Cruce Listas'!H55:H186);"")))))

Private Sub LB_Selec_Click()

Dim imag As String

Dim item As String

item = LB_Selec.Text

imag = ThisWorkbook.Path & "\imagenes_cobertura\"

Image1.Picture = LoadPicture(imag & item & ".jpg")

End Sub

Private Sub Btn_clean_Click()

    Dim imag As String

    imag = ThisWorkbook.Path & "\imagenes_cobertura\"

    CB_Texto_5.Text = ""

    CB_Texto_4.Text = ""

    CB_Texto_3.Text = ""

    CB_Texto_2.Text = ""

    CB_Texto_1.Text = ""

    LB_Selec.Clear

    Image1.Picture = LoadPicture(imag & "ini.jpg")

    CB_Texto_1.SetFocus

End Sub

Private Sub CB_Texto_2_Change()

    If CB_Texto_2.ListIndex < 0 Then

       Etiqueta_3.Visible = False

       CB_Texto_3.Visible = False: Exit Sub

    Else

       Etiqueta_3.Visible = True

       CB_Texto_3.Visible = True: Call Filtrar(2)

    End If

End Sub

Private Sub CB_Texto_2_Change()

    If CB_Texto_2.ListIndex < 0 Then

       Etiqueta_3.Visible = False

       CB_Texto_3.Visible = False: Exit Sub

    Else

       Etiqueta_3.Visible = True

       CB_Texto_3.Visible = True: Call Filtrar(2)

    End If

    If CB_Texto_1.Text = CB_Texto_2.Text Then

       MsgBox "El dato ya existe", vbCritical, "Repetido"

       CB_Texto_2.SetFocus

       CB_Texto_2.Text = ""

    End If

End Sub

Private Sub CB_Texto_5_Change()

    If CB_Texto_5.ListIndex < 0 Then

       Exit Sub

    Else

       Call Filtrar(5)

    End If

    If CB_Texto_4.Text = CB_Texto_5.Text Then

       MsgBox "El dato ya existe", vbCritical, "Repetido"

       CB_Texto_5.SetFocus

       CB_Texto_5.Text = ""

    End If

    If CB_Texto_3.Text = CB_Texto_5.Text Then

       MsgBox "El dato ya existe", vbCritical, "Repetido"

       CB_Texto_5.SetFocus

       CB_Texto_5.Text = ""

    End If

    If CB_Texto_2.Text = CB_Texto_5.Text Then

       MsgBox "El dato ya existe", vbCritical, "Repetido"

       CB_Texto_5.SetFocus

       CB_Texto_5.Text = ""

    End If

    If CB_Texto_1.Text = CB_Texto_5.Text Then

       MsgBox "El dato ya existe", vbCritical, "Repetido"

       CB_Texto_5.SetFocus

       CB_Texto_5.Text = ""

    End If

End Sub

Private Sub Btn_clean_Click()

    Dim imag As String

        imag = ThisWorkbook.Path & "\imagenes_cobertura\"

        CB_Texto_5.ListIndex= -1

        CB_Texto_4.ListIndex= -1

        CB_Texto_3.ListIndex= -1

        CB_Texto_2.ListIndex= -1

        CB_Texto_1.ListIndex= -1

        LB_Selec.Clear

        Image1.Picture = LoadPicture(imag & "ini.jpg")

        CB_Texto_1.SetFocus

End Sub

Private Sub CB_Texto_2_Change()

    If CB_Texto_2.ListIndex < 0 Then

       Etiqueta_3.Visible = False

       CB_Texto_3.Visible = False: Exit Sub

    Else

       If CB_Texto_1.Text = CB_Texto_2.Text Then

          MsgBox "El dato ya existe", vbCritical, "Repetido"

          CB_Texto_2.SetFocus

          CB_Texto_2.ListIndex = -1

       Else

          Etiqueta_3.Visible = True

          CB_Texto_3.Visible = True: Call Filtrar()

       End If

    End If

End Sub

Private Sub CB_Texto_5_Change()

    If CB_Texto_5.ListIndex < 0 Then

       Exit Sub

    Else

       If CB_Texto_4.Text = CB_Texto_5.Text Then

          MsgBox "El dato ya existe", vbCritical, "Repetido"

          CB_Texto_5.SetFocus

          CB_Texto_5.ListIndex  = -1

       ElseIf CB_Texto_3.Text = CB_Texto_5.Text Then

          MsgBox "El dato ya existe", vbCritical, "Repetido"

          CB_Texto_5.SetFocus

          CB_Texto_5.ListIndex  = -1

       ElseIf CB_Texto_2.Text = CB_Texto_5.Text Then

          MsgBox "El dato ya existe", vbCritical, "Repetido"

          CB_Texto_5.SetFocus

          CB_Texto_5.ListIndex  = -1

       ELseIF CB_Texto_1.Text = CB_Texto_5.Text Then

          MsgBox "El dato ya existe", vbCritical, "Repetido"

          CB_Texto_5.SetFocus

          CB_Texto_5.ListIndex  = -1

       Else

          Call Filtrar()

       End IF

    End If

End Sub

Private Sub CB_Texto_5_Change()

    Dim Repe as Boolean

    If CB_Texto_5.ListIndex < 0 Then

       Exit Sub

    Else

       Repe = False

       If CB_Texto_4.Text = CB_Texto_5.Text Then Repe = True

       If CB_Texto_3.Text = CB_Texto_5.Text Then Repe = True

       If CB_Texto_2.Text = CB_Texto_5.Text Then Repe = True

       IF CB_Texto_1.Text = CB_Texto_5.Text Then Repe = True

       IF Repe Then

          MsgBox "El dato ya existe", vbCritical, "Repetido"

          CB_Texto_5.SetFocus

          CB_Texto_5.ListIndex  = -1

       Else

          Call Filtrar()

       End IF

    End If

End Sub

' </> --------------------------------------------------------------------- </>

' </> ----&---  FILTRO                                              ---&--- </>

' </> --------------------------------------------------------------------- </>

Sub Filtrar()

    Dim Tabla_Txt(100) As String, a As Integer, Lin As Integer, Ok As Boolean, _

        Tabla_Num(100) As Integer, Campo As String, Num As Byte, _

        Tabla_Pun As Integer

    Sheets(TABLA_3).Select

    Tabla_Pun = 0

    Lin = 2

    While Cells(Lin, 1) <> ""

        Campo = Cells(Lin, 2): Ok = False: Num = 0

        If CB_Texto_1.ListIndex >= 0 Then Num = Num + 1: If Campo = CB_Texto_1.List(CB_Texto_1.ListIndex) Then Ok = True

        If CB_Texto_2.ListIndex >= 0 Then Num = Num + 1: If Campo = CB_Texto_1.List(CB_Texto_2.ListIndex) Then Ok = True

        If CB_Texto_3.ListIndex >= 0 Then Num = Num + 1: If Campo = CB_Texto_1.List(CB_Texto_3.ListIndex) Then Ok = True

        If CB_Texto_4.ListIndex >= 0 Then Num = Num + 1: If Campo = CB_Texto_1.List(CB_Texto_4.ListIndex) Then Ok = True

        If CB_Texto_5.ListIndex >= 0 Then Num = Num + 1: If Campo = CB_Texto_1.List(CB_Texto_5.ListIndex) Then Ok = True

        If Ok Then

           Ok = False

           For a = 1 To Tabla_Pun

               If Tabla_Txt(a) = Cells(Lin, 1) Then

                  Tabla_Num(a) = Tabla_Num(a) + 1

                  Ok = True

               End If

           Next

           If Not Ok Then

              Tabla_Pun = Tabla_Pun + 1

              Tabla_Txt(a) = Cells(Lin, 1)

              Tabla_Num(a) = 1

           End If

        End If

        Lin = Lin + 1

    Wend

    LB_Selec.Clear

    For a = 1 To Tabla_Pun

        If Tabla_Num(a) = Num Then LB_Selec.AddItem Tabla_Txt(a)

    Next

End Sub

Private Sub Btn_Limpiar_Click()

    CB_Texto_5.ListIndex = -1

    CB_Texto_4.ListIndex = -1

    CB_Texto_3.ListIndex = -1

    CB_Texto_2.ListIndex = -1

    CB_Texto_1.ListIndex = -1

    LB_Selec.Clear

    CB_Texto_1.SetFocus

End Sub

' </> --------------------------------------------------------------------- </>

' </> ----&---  Ver el Mapa                                         ---&--- </>

' </> --------------------------------------------------------------------- </>

Private Sub LB_Selec_Click()

    Dim Texto As String, Mapa As String, a As Integer

    On Error Resume Next: Graf.Visible = False:

    On Error GoTo 0

    Texto = ""

    Mapa = LB_Selec.List(LB_Selec.ListIndex)

    For a = 1 To Len(Mapa)

        If Mid$(Mapa, a, 1) = " " Then

           Texto = Texto + "_"

        Else

           Texto = Texto + Mid$(Mapa, a, 1)

        End If

    Next

    For Each Graf In Me.Controls

        If Graf.Name = Texto Then

           Graf.Visible = True

           Graf.Top = 30

           Graf.Left = 440

           Graf.Height = 270

           Graf.Width = 270

           Me.Width = 780: DoEvents: Exit For

        End If

    Next

End Sub

Pais = ""

Repe = False

Punt=ComboBox1.ListIndex:

If Pun > 0 Then

   IF Instr(Pais, ComoBox1.List(Punt))=0 Then Pais = Pais & "^" & ComoBox1.List(Punt) Else Repe=True

End IF

Punt=ComboBox2.ListIndex:

If Pun > 0 Then

   IF Instr(Pais, ComoBox2.List(Punt))=0 Then Pais = Pais & "^" & ComoBox2.List(Punt) Else Repe=True

End IF

Punt=ComboBox3.ListIndex:

If Pun > 0 Then

   IF Instr(Pais, ComoBox3.List(Punt))=0 Then Pais = Pais & "^" & ComoBox3.List(Punt) Else Repe=True

End IF

Punt=ComboBox4.ListIndex:

If Pun > 0 Then

   IF Instr(Pais, ComoBox4.List(Punt))=0 Then Pais = Pais & "^" & ComoBox4.List(Punt) Else Repe=True

End IF

Punt=ComboBox5.ListIndex:

If Pun > 0 Then

   IF Instr(Pais, ComoBox5.List(Punt))=0 Then Pais = Pais & "^" & ComoBox5.List(Punt) Else Repe=True

End IF

' </> --------------------------------------------------------------------- </>

' </> ----&---  MAIN  ---  Oculta el libro al entrar                ---&--- </>

' </> --------------------------------------------------------------------- </>

Private Sub UserForm_Activate()

    Application.Visible = False  ' --- Esta oculta

End Sub

' </> --------------------------------------------------------------------- </>

' </> ----&---  MAIN  ---  Muestra el libro al salir                ---&--- </>

' </> --------------------------------------------------------------------- </>

Private Sub UserForm_Terminate()

    Application.Visible = True          ' --- Esta muestra

    Application.ScreenUpdating = True

    Sheets(TABLA_3).Select

End Sub