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
Hola de nuevo a todos y feliz día.
Hoy nuevamente tengo una duda que no se muy bien como resolver.
En esta ocasión se trata de la extracción de un número dígito a dígito con alineación a la derecha de un rango.
Es decir:
Yo tengo en A1 el número: 12345 y quiero que en B,C,D,E,F se pogan el dígito que corresponda con las unidades, decenas, etc.
Ejemplo: B1=1,C1=2,D1=3,E1=4,F1=5
Eso es fácil:
B1= EXTRAE(A1;1;ENCONTRAR("";A1;1))
C1= EXTRAE(A1;2;ENCONTRAR("";A1;1))
D1= EXTRAE(A1;3;ENCONTRAR("";A1;1))
E1= EXTRAE(A1;4;ENCONTRAR("";A1;1))
F1= EXTRAE(A1;5;ENCONTRAR("";A1;1))
Problema:
Eso funciona muy bien con un número de 5 dígitos,
pero con uno de 4 las unidades pasan a E1 y no a F1.
Con uno de 3 las unidades pasan a D1...
Lo que necesito:
Que indistintamente de si un número tiene un dígito o 5 la alineación sea siempre igual
El dígito correspondiente a las unidades en F
El dígito correspondiente a las decenas en E
El dígito correspondiente a las centenas en D
El dígito correspondiente a los millares en C
El dígito correspondiente a las decenas de millares en B
Espero haberme explicado bien.
Muchas gracias.
Demo_extraccción.xlsx