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
Que tal!!
Tengo un pequeño problema para filtrar unas fechas de una columna, tengo dos fechas que obtengo de una caja de textos...
Asi las obtengo:
FechaOrigen = Format(Caja1.Text, "mm/dd/yyyy hh:mm")
FechaDestino = Format(Caja2.Text, "mm/dd/yyyy hh:mm")
Fecha1 = CDate(FechaOrigen)
Fecha2 = CDate(FechaDestino)
Teniendo las primeras dos variables de arriba como DATE y las otras dos variables como DOUBLE
Posteriormente tengo este codigo que es donde selcciono la hoja origen y toda la columna de fechas:
Sheets(HojaDescargada).Select 'HojaDescargada es una variable tipo String
Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Es aqui donde obtengo el error
ActiveSheet.Range("$C$2:$C$C").AutoFilter Field:=1, Criteria1:= _ '$C$9698
">=" & Fecha1, Operator:=xlAnd, Criteria2:="<=" & Fecha2
Como a la hoja se le siguen introduciendo datos pense que con $C$C buscaria en todas sin poner un numero entero,
tengo 9698 filas y si lo cambio no me esta filtrando bien, ¿Tengo un problema en mi codigo?
Posteriormente quiero agregar el resultado del filtro a una nueva pestaña y agregue este codigo
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy
Sheets(Nombre).Select 'Otro String con nombre de la hoja nueva hecha anteriormente
ActiveSheet.Paste
Sheets(HojaDescargada).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(Nombre).Select
Range("C2:CC").Select
ActiveSheet.Paste
Obtuve este codigo de un macro grabada pero quisiera que la variable en rojo ajuste al numero de filas y bueno teniendo eso que filtre mis datos