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 a todos espero me puedan ayudar gracas
tengo dos libros, libro1-ENE y Datos desde el libro Datos quiero poder obtener el nombre
del libro1-ENE y ponerlo en la hoja1 columna A2, despues si el valor de la columna
A2 de la hoja1 del libro Datos es igual a libro1-ENE que desde el libro Datos haga DOS busquedas
en el libro1-ENE y que busque datos de la columna E,F ejemplo que en dos textbox meta:
E F
9861 4621005
E F G I K
9861 4621005 XX XX 345.44
Si los encuentra que copie el valor de la columna K y pegue ese valor
en el libro Datos hoja1 columna H fila 4
** Si vuelvo hacer la busqueda que ahora lo coloque en la columna H fila 6.
Pero si el nombre del libro cambia a libro1-FEB que hago la busueda pero en le libro libro1-FEB
y coloque el resultado en el libro Datos hoja1 columna I fila 4 y la segunda busqueda lo coloque en
en la columna I fila 6
**ASI para los 12 meses libro1-ENE,libro1-FEB,libro1-MAR...libro1-DIC
Para libro1-MAR el resultado en la columna J4 y J6, para libro1-ABR el resultado en la columa K4 y K6