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
buen dia
quisiera ver si hay alguna manera de verificar si un numero esta en cierta pagina web
y si es asi que siga con las sigueintes macros.
mi duda salio al ver el programa de proteccion por seriales del admin
pero hay algunas formas de burlar dicho metodo.
lo que busco es si nos da un id de maquina que lo verifique via internet y si es asi
muestre la casilla de activacion. y sino es asi simplemente le diga que no tiene permiso
o se cierre el documento. o habilite un boton de siguiente
todo esto con el fin de que cada vez que se abra el programa verifique si el id de maquina
tiene derecho a uso de software. Dada la limitacion que si se activa por serial servira siempre
y asi se tendria un derecho de limitacion adicional
espero me puedan aydar con dichos dilemas
saludos