Jump to content
eugeniocol

Contar coincidencias fila

Recommended Posts

Prueba con esta macro.

Sub BuscarCoincidencias()
Application.ScreenUpdating = False
Range(Range("M3"), Range("M3").End(xlDown)) = ""
For x1 = 3 To Range("B3").End(xlDown).Row
   For x2 = 3 To Range("J3").End(xlDown).Row
      c = 0
      For y = 10 To 12
         Set n = Range("B" & x1 & ":G" & x1).Find(Cells(x2, y), , , xlWhole)
         If Not n Is Nothing Then c = c + 1
      Next
      If c = 3 Then Range("M" & x2) = Range("M" & x2) + 1
   Next
Next
End Sub

 

Share this post


Link to post
Share on other sites

La macro va bien, pero cuando la ejecuto en el rango real 3 valores hasta fila 110.544 excel y mi maquina no puede, la formula de jonmpl  cuando arrastro hasta el final ya tardda en recalcular un monton, despues lo mismo al abrir solo el libro.

Cualquiera acopla la formula  a los otros reales de 4 y 5 numeros, ya que la macro tal cual Excel no lo soporta. puff…..

Salud2....

Share this post


Link to post
Share on other sites
Hace 1 minuto , Leopoldo Blancas dijo:

Hola @eugeniocol,

Siempre explica la situación real de tu problema/necesidad, si no de otra manera el resultado no es el deseado y va a tardar en que te contesten los compañeros....

Saludos.

El tema esta explicado claramente con el ejemplo en el libro subido.

Y la respuestas dadas son las correctas a lo que pido.

Siempre se postea con un ejemplo.

Otra cosa es cuando lo pasas a situacion real y lo que te encuentras como a sido ahora mi caso.

Salud2.

Share this post


Link to post
Share on other sites

Bueno la unica solucion que encuentro a mi particular movida, con la gran cantidad de datos que genera la combinacion de numeros es ejecutar la macro de combinacion de numeros a una fila de 30000 o 40000 y correr la formula bloque por bloque y pegar a valores.

Salud2

Share this post


Link to post
Share on other sites
En 18/6/2019 at 11:13 , Antoni dijo:

Prueba con esta macro.


Sub BuscarCoincidencias()
Application.ScreenUpdating = False
Range(Range("M3"), Range("M3").End(xlDown)) = ""
For x1 = 3 To Range("B3").End(xlDown).Row
   For x2 = 3 To Range("J3").End(xlDown).Row
      c = 0
      For y = 10 To 12
         Set n = Range("B" & x1 & ":G" & x1).Find(Cells(x2, y), , , xlWhole)
         If Not n Is Nothing Then c = c + 1
      Next
      If c = 3 Then Range("M" & x2) = Range("M" & x2) + 1
   Next
Next
End Sub

 

Hay alguna forma de afinar esta macro que  recorra 150.000 o 300.000 filas ???

Un Saludo.

Share this post


Link to post
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5