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
Buenas tardes, aquí con un trabajo que no he conseguido realizar.
Tengo una fila con datos, de los cuales tengo que separar las letras en la columnas contiguas.
De este problema tengo que realizar lo siguiente:
Hoja 01
1) Tengo que separar solo las consonantes y unir las tres primeras consonantes de las letras separadas. Ejemplo:
CAMISA=CMS
Pero si existe otro valor igual le asigne una secuencia numérica.
(CAMISETA=CMS)), pero como se repite debería pasar a (CMS001) y sucesivamente.
Hoja 02
2) Separar letras y unir las tres primeras. Ejemplo:
CAMISA=CAM
Pero si existe otro valor igual le asigne una secuencia numérica. (CAMARA=CAM), pero como se repite debería pasar a (CAM001) y sucesivamente.
Hoja 03
3) Existen Valores con tres o mas palabras, debe quedar así:
CAMISA POLO 38=CAMP38
Ojala me haya explicado bien, por su valiosa ayuda y tiempo, Muchas Gracias.
Adjunto Archivo.
Separar Letras.xls