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 antemano muchas gracias por tu ayuda, estoy que me rompo la cabeza tratando de realizar el siguiente macros:
En
una hoja llamada "registro" tengo todos los datos, en la columna b
(turno), columna c (fecha), columna d(cota1), columna e (volumen1),
columna f (cota2) y columna g (volumen2), como son varios datos quiero
que estos al momento de poner un dtpicker inicial y un dtpicker final,
solamente se extraigan los datos comprendidos en dichas fechas y que se
almacenen en otra hoja llamada (Registro).
A su vez tengo dos turnos A y B, en los cuales se colocan diferentes datos por ejemplo:
Turno Fecha Cota 1 Volumen1 cota2 VOlumen2
A 01/01/01 1000 300 2345 100
B 01/01/01 1233 100 2332 109
Osea
al tener dos turnos tengo dos fechas lo que yo quiero es que se genere
un promedio entre los volúmenes y solo ese promedio se grabe junto con
la fecha se grabe en la hoja registro.
Por favor necesito tu ayuda gracias
Libro3.rar