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
Estimados tengo un libro excel que abro desde mi pc y me da el siguiente error.
Se ha producido el error 1004 en tiempo de ejecución.
Error odbc.
El tema es que lo abro desde otras PCs y funciona bien.
Ya intente agregar la misma version de office que de las otras PCS, inclusive agregue los parches hotfix.
En la depuración me sale el siguiente error.
With Worksheets("PODER_RESCATE")
Range("W100").Activate
Worksheets("PODER_RESCATE").QueryTables("listDiaActividad").Refresh
'Worksheets("ARQUEO").cargaCombo
'Worksheets("PODER_RESCATE").CB_Fechas.Select
'Worksheets("PODER_RESCATE").CB_Fechas.Clear
Acciones.CB_Fechas.Clear
Range("W101").Select
Do While ActiveCell <> Empty
'Worksheets("PODER_RESCATE").CB_Fechas.AddItem ActiveCell
Acciones.CB_Fechas.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
If Acciones.CB_Fechas.ListCount > 0 Then
Worksheets("PODER_RESCATE").QueryTables("MaxDiaActividad").Refresh
Range("AK101").Activate
Acciones.CB_Fechas.Value = ActiveCell
End If
Error en: Worksheets("PODER_RESCATE").QueryTables("listDiaActividad").Refresh
Que puede ser? gracias a todos por destinar tiempo en mi pregunta.
Saludos.