Así lo he hecho, he aceptado la segunda columna de anotación y he añadido una macro:
Private Sub Worksheet_Calculate()
Dim f As Long
Dim disparar As Boolean
' Si ya se disparó una vez, salimos
If Me.Range("XX2").Value <> "" Then Exit Sub
' Comprobamos si alguna W llegó a 2
For f = 2 To 6
If Me.Cells(f, "W").Value = 2 Then
disparar = True
Exit For
End If
Next f
' Si ninguna llegó a 2, no hacemos nada
If disparar = False Then Exit Sub
' Guardamos TODO el rango como base
For f = 2 To 6
Me.Cells(f, "XX").Value = Me.Cells(f, "W").Value
' Fórmula en Y restando su base
Me.Cells(f, "Y").FormulaLocal = _
"=CONTAR.SI.CONJUNTO(Datos!B:B;$V$1;Datos!D:D;$V" & f & ")" & _
"-CONTAR.SI.CONJUNTO(Datos!B:B;$V$1;Datos!E:E;$V" & f & ")" & _
"-XX" & f
Next f
End Sub
No es la opción más bonita porque sigue contando los objetos en la columna W, pero la función me resulta suficiente para poder llevar la cuenta.
Tendré que hacer una pequeña macro para cada jugadora, son 14, pero espero no tener problemas
Por
Maku, · publicado
Buscador Diag&Dispatch - Filtrar ListBox en cascada - Error devuelve solución.
Hola amigos,
Estos trabajando en un Formulario que trabaje de la siguiente manera.
Un total de 3 ListBox relacionadas entre si.
El primer ListBox los servicios ofrecidos.
Dependiendo lo seleccionado en el Primer ListBox muestra las aplicaciones de este servicio.
Selecionando en el segundo ListBox la aplicación, muestra los errores de esta.
Por ultimo seleccionando el error en la tercer ListBox, muestra la solución del error en el TextBox1.
Tambien me gustaria que en el textBox2 al poner el error, aparezca la solución en el TextBox1.
Ando un poco perdido, me podriais ayudar?
Gracias!
Diag&dispatchv2.zip