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
3573 m3n54j3 35 94r4 d3m057r4r l45 c0545 74n incr3i8l35 qu3 9u3d3 h4c3r nu357r0 c3r38r0.
5i l06r45 l33r 3570 9u3d35 53n7ir73 0r6ull050 d3 7u in73li63nci4 0 h48ilid4d, y4 qu3 50l0 ci3r745 93r50n45 l0 l06r4n.
35t0 53 d383 4 qu3 3l h3m15f3r10 d3r3ch0 d3l c3r38r0 450c14 l05 51m80l05 94r3c1d05 4 l45 l3tr45 qu3 c0n0c3m05 n0rm4lm3nt3 y 451 l06r4m05 l33r c0n f4c1l1d4d.
54lud05,
julio