Contar Quintetos, Cuartetos, Tríos y Dúos.

[Lázaro]

Un Saludo a Tod@s.

De nuevo por aquí intentando ver si me podéis Ayudar.

La intención es poder contar los Quintetos, Cuartetos, tríos y Dúos de un Histórico de Combinaciones con relación a una Combinación específica.

El problema que tengo es que, para poder obtener los resultados esperados, tengo que colocar muchísimas formulas e incluso distribuir las mismas en varias celdas y después sumarlas y ahí es donde me pierdo y No logro resolver el problema.

La idea es saber si existe algún otro tipo de solución de poder resolver esta situación, supongo que con una Macros sería mucho mejor, pero igual con formula se puede hacer algo, desde luego no con las mismas que tengo en el Archivo que subo.

En el Archivo que adjunto hay un ejemplo muyyyyyy simplificado de lo que necesito.

Muchas Gracias de Antemano.

Un Saludo

Lázaro

Contar quintetos hasta duos-1.xlsb

[Janlui]

Será esto?

Sorteo.xlsm

[Lázaro]

Saludos @Janlui

Perfecto!!!!!!!!! Compadre, antes que nada, Muchísimas Gracias por responder a mi Tema, ¡¡¡¡¡increíble!!!!  como con tan pocas Instrucciones hayas logrado lo que necesito, alucinante tu Aporte, muy agradecido mi hermano. Pará que tengas una idea llevo más de tres días pensado si subía este problema al Foro o no, más que nada porque suponía que se necesitaban muchas instrucciones y después no entendería como trabajarlas, incluso me has Aportado otro Parámetro, que es cuando no Aparece Ningún Numero.

Bueno tengo dos situaciones diferentes, que no encuentro una solución adecuada e intentare ver si puedo subirlas al Foro en unos días.

Por supuesto el Tema esta Solucionado, solo pido No Cerrarlo a los Moderadores en dos días, para intentar pasar la Macros a uno de mis Archivos Originales, por si me surge algún problema.

Una vez Agradecido @Janlui

Un Abrazo.

Lázaro

[Antoni]

Otra forma:

Sub Contar()
Application.ScreenUpdating = False
Range("BH3:BH8") = ""
For x = 11 To Range("A" & Rows.Count).End(xlUp).Row
   cuenta = 0
   For y = 3 To 7
      For Z = Range("BH1").Column To Range("BL1").Column
         If Cells(x, y) = Cells(2, Z) Then cuenta = cuenta + 1
      Next
   Next
   Range("BH8").Offset(-cuenta) = Range("BH8").Offset(-cuenta) + 1
   Range("H" & x) = cuenta '<- Actualiza la columna H
Next
End Sub

 

[Janlui]

Dándole vista al resultado.

 

Sorteo.xlsm

[Antoni]

Hace 9 minutos , Antoni dijo:

Otra forma:

Sub Contar()
Application.ScreenUpdating = False
Range("BH3:BH8") = ""
For x = 11 To Range("A" & Rows.Count).End(xlUp).Row
   cuenta = 0
   For y = 3 To 7
      For Z = Range("BH1").Column To Range("BL1").Column
         If Cells(x, y) = Cells(2, Z) Then cuenta = cuenta + 1
      Next
   Next
   Range("BH8").Offset(-cuenta) = Range("BH8").Offset(-cuenta) + 1
   Range("H" & x) = cuenta '<- Actualiza la columna H
Next
End Sub

 

Incluyo el color:

Sub Contar()
Application.ScreenUpdating = False
Range("BH3:BH8") = ""
For x = 11 To Range("A" & Rows.Count).End(xlUp).Row
   cuenta = 0
   For y = 3 To 7
      Cells(x, y).Font.Color = vbBlack
      For Z = Range("BH1").Column To Range("BL1").Column
         If Cells(x, y) = Cells(2, Z) Then
            cuenta = cuenta + 1
            Cells(x, y).Font.Color = vbRed
            Exit For
         End If
      Next
   Next
   Range("BH8").Offset(-cuenta) = Range("BH8").Offset(-cuenta) + 1
   Range("H" & x) = cuenta '<- Actualiza la columna H
Next
End Sub

 

[Lázaro]

Saludos @Antoni

Muchas Gracias mi hermano por responder a mi Tema, ya he copiado tu Aporte y mañana lo reviso, la verdad que ya hoy voy mareado de tantos números.

Bueno @Janlui y @Antoni. A decir verdad, yo no le he dado ninguna configuración al Archivo, ya que hace solo dos semanas empecé en su creación, todavía me quedan varias cosas pendientes.

Muchas Gracias a ambos.

Un Abrazo.

Lázaro

[Gerson Pineda]

Hola Lazaro

Aunque estamos en Macros, te dejo algo con formulación, y veras que no es complicada de adaptar

Hace 13 horas, Lázaro dijo:

La idea es saber si existe algún otro tipo de solución de poder resolver esta situación, supongo que con una Macros sería mucho mejor, pero igual con formula se puede hacer algo, desde luego no con las mismas que tengo en el Archivo que subo.

 

Saludos 

Contar quintetos hasta duos_GP.xlsx

[Lázaro]

Saludos @Gerson Pineda

Muchas Gracias mi hermano por tu Aporte, perdona la demora en contestar, pero ya sabes, la diferencia horaria.

Siempre mi intención @Gerson Pineda fue con fórmulas, más que nada por todo lo demás que tengo que hacer y la mayoría depende de los resultados de este Tema, pero al verlo tan complicado lo coloque el tema en Macros.

Bueno hoy en cuanto tenga una oportunidad (voy muy liado con mis problemas de Salud) intentaré entender primero el Aporte de @Antoniy por supuesto el tuyo, que ya te anticipo tendré dudas con el Administrador de Nombres, es increíble siempre se me ha resistido ese tema, bueno y otros.

Una vez más Muy Agradecido.

Un Abrazo.

Lázaro

[Gerson Pineda]

Es un gusto saber nuevamente de ti Lazaro

En cuanto a mi aporte, lo hice para que veas que la formulación no es tan complicada, con respecto a los rangos nombrados, no te preocupes, usa tus rangos normales, si se te complica

Ahora, como ya sabemos, que tu libro esta cargado de formulas, piensa entonces que el calculo con VBA, puede mejorar mucho, aunque seria una misión para ti, llevarlo todo a VBA y lo que implicaría poder adaptar e implementar

Por otro lado, espero que te mejores, en estos tiempos la salud es mas valioso que cualquier otra cosa 

 

Saludos

[Lázaro]

Saludos @Janlui @Antoni y @Gerson Pineda

He podido trabajar muy poco en los Aportes que me habéis brindado, es mi intención en este fin de semana poder realizar los cambios necesarios, por favor no me cierren el Tema.

Un Abrazo

Lázaro

[Lázaro]

Saludos.

Bueno como dicen en mi Cuba, “Cuando el Mal es de Cag@r, no valen ni Guayabas Verdes” (perdonando la expresión), desde el sábado en la tarde, la USB donde tenia todos mis Archivos Importantes, pues se bloqueo y no quiere funcionar, ya he realizado de casi todo lo que sale en la Web, para intentar recuperar los Archivos y nada de nada, incluso hasta he entrado en el CMD del ordenador y con diskpart/list volume e intentar encontrar el volumen y borrar los Atributos, pero ni así aparece, también cree la Carpeta StorageDevicePolicies, con todos los demás pasos que llevan y nada.

Solo me queda empezar de cero a crear todos los Archivos y Muchísima Paciencia.

Yo al menos pude pasar el Aporte de @Janlui, pero el de @Antoni no, así que en cuanto tenga creado de nuevo el archivo Original, pues lo intentare, el Aporte de @Gerson Pineda, aunque parezca increíble también lo había pasado muy bien al Original, así que espero no tener problemas, para el Nuevo que haga.

Así que Tema Solucionado y en caso que necesite algún apunte , pues abriré otro Tema.

Una vez mas Muchísimas Gracias a los tres.

Un Abrazo para todos.

Lázaro