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
El problema que tengo es el siguiente:
Tengo una hoja de calculo, la cual tiene datos desde la celda A1,
hasta aproximadamente la celda L250, el echo es que tengo que,
filtrar datos, por la columna "K",y columna"L", que tiene unos 10
valores distintos.
(opcion1, opcion2, opcion3....)
bueno mi solución, fue crear un userform, el cual posee varias casillas
de verificación, y al chulear, dichas casillas, y pulsar un botón de búsqueda,
me realiza el filtro. Y hay es donde viene mi problema, el filtro se me aplica,
únicamente a una solo opción, es decir si chuleo la opcion1, y la opcion2
únicamente me aplicara el filtro a una de estas opciones, y lo que necesito,
esque se aplique a todas las opciones que chulee mediante las casillas de
verificación, y en las columnas K , L.
Agradeceria a quien pueda darle solucion a mis problemas
Una de las cosas que intente fue la siguiente:
If opcion1 = True And opcion2 = True Then
ActiveSheet.Range("$A$5:$l$999").AutoFilter , Field:=11, Criteria1:=Array _
("opcion1", "opcion2"), Operator:=xlFilterValues
End If
pero como podrán notar, son 20 casillas de verificación (10 en columna K y
10 en la L), y si realizo el filtro por medio de una condición, me tocaria hacer
infinidad de condiciones, (opcion1 con opcion2, opcion1 con opcion2 y opcion3,
opcion1 con opcion2 opcion3 y opcion4.....)