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.
Tras buscar en el foro no he sabido encontrar algo que me resuleva el problema que tengo.
Partimos del hecho que mi conocimiento es muy justito y lo poco que se lo voy sacando de los foros que tan amablemente me ayudan.
No incluyo archivo pues la cuestion es muy simple y probablemente se soluciona con 4 lineas de código.
Problema:
Necesito encontrar un archivo dentro de un directorio que contiene cierto texto (en este caso el archivo comienza con este texto).
Ejemplo.
14022 PCP 1548P.xlsm
14022 PCP 2503P.xlsm
14022 PCP 4432P.xlsm
24136 PCP ABP.xlsm
24136 PCP scx.xlsm
etc de forma que sólo quiero buscar los que empiecen por 14022 (este valor lo saco de una celda que yo relleno)
Como hay varios archivos iguales ( que comienzan igual) necesito que seleccione y abra el más moderno ( el último que se ha creado).
Muchísimas gracias de antemano por la ayuda.
Un saludo