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.
Tengo hecha una macro muy sencilla cuyo objetivo es mostrar en otra hoja aquellas celdas que están en blanco. Este es el código:
Public Sub blancos()
Dim f As Integer
Dim f_max, c_max As Long
ActiveWorkbook.Worksheets("Hoja1").Copy after:=Worksheets("Hoja2")
'Para saber cuantas filas y columnas hay como maximo rellenas
f_max = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
c_max = ActiveSheet.Cells.SpecialCells(xlLastCell).Column
'Para situarse en la celda
Range("AE").Select
'Cells(4, 10).Select
'Rows(4, 10).Select
For f = 4 To f_max
If ActiveCell.Value <> "" Then ActiveCell.EntireRow.Delete
If ActiveCell.Value = "" Then ActiveCell.Offset(1, 0).Select
Next f
ActiveWorkbook.Worksheets(3).Name = "Sin correo"
End Sub
Al ejecutar el código me sale el siguiente error:
Error de compilación:
No se ha definido Sub o Function
Al ejecutarlo paso a paso el error me salta en otro procedimiento que tengo con el código:
Public Sub Workbook_Open()
Call blancos
End Sub
El código del otro procedimiento lo tengo en la hoja1.
Si ejecuto solo el procedimiento de la hoja1 me sale el error:
Se ha producido el error 1004 en tiempo de ejecución:
Error definido por la aplicación o el objeto
Este error se produce en la línea
Range("AE").Select
¿Como puedo solucionar estos errores?
Gracias.