Jump to content

eugeniocol

Members
  • Content Count

    519
  • Joined

  • Last visited

  • Days Won

    1

About eugeniocol

  • Rank
    Advanced Member

Converted

  • Campos Array

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Hola buenas. Dentro de una celda,en rango en A tengo esto ejemplo: 1,2,3,4,5 10,2,30,4,6 Busco una formula para B,C,D.E,F que me pille tanto si hay un,dos o tres valores entre las comas. Uso la tipica funcion =EXTRAE(A1;1;1) trato de solucionarlo con esta funcion : =EXTRAE($A$1;1;ENCONTRAR(",";$A$1;1)-1) Y nada... Un Saludo.
  2. bueno acabo de ver que la macro ejemplo que puse, no da el resultado ok Bueno pues si puede ser una macro que de el resultado correcto como la formula. Salud2...
  3. Hola buenas. Tengo una formula para contar coincidencias columna O, las coincidencias de J:M con B:G. J:M puede tener entre 150.000 a 300.000 filas y B:G entre 10.000 a 30.000 filas. La formula hasta 150.000 filas en J:M la desplazo hasta el final y trada unos 30 minutos en recalcular pero la macro se queda colgada. Mi intencion es encontrar una macro que sea mas rapida que la formula. Esta es la macro Sub BuscarCoincidencias() Application.ScreenUpdating = False Range(Range("N3"), Range("N3").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("N" & x2) = Range("N" & x2) + 1 Next Next End Sub Y esta es la formula =SUMA(N(MMULT(N(CONTAR.SI(DESREF(B$3:G$3;FILA(B$3:B$10000)-FILA(B$3););J5:M5)>0);{1;1;1;1})=4)) Bueno en el libro se pueden ver Un Saludo. CONTAR COINCIDENCIAS FILAS FORO 2.xlsm
  4. Hay alguna forma de afinar esta macro que recorra 150.000 o 300.000 filas ??? Un Saludo.
  5. 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
  6. 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.
  7. 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....
  8. Hola buenas. No encuentro la manera de contar por filas unas coincidencias. Rango datos B:G coincidencias a contar J:L resultado esperado a mano en M Salud2... CONTAR COINCIDENCIAS FILAS FORO.xlsm
  9. En principio funcionan ok l Pero el libro se hace muy pesado, la solución que no pensé ni comente es que los datos repetidos más de una vez en fila por ejemplo 1 1 2 3 o sea el 1 me sobra la fila entera. Esta macro (no mia) lo hace y elimina un montón de filas. Sub COMBINAR_4() For H = 5 To 35 Columns(H).ClearContents Next H M = 6 N = 7 O = 8 P = 9 FIN_A = Range("A1", Range("A" & Rows.Count).End(xlUp)).Rows.Count FIN_B = Range("B1", Range("B" & Rows.Count).End(xlUp)).Rows.Count FIN_C = Range("C1", Range("C" & Rows.Count).End(xlUp)).Rows.Count FIN_D = Range("D1", Range("D" & Rows.Count).End(xlUp)).Rows.Count For x = 1 To FIN_A For Y = 1 To FIN_B For Z = 1 To FIN_C For AA = 1 To FIN_D If FIN_E > 1000000 Then FIN_E = 0 M = M + 5 N = N + 5 O = O + 5 P = P + 5 End If If Cells(x, 1).Value <> Cells(Y, 2).Value Then If Cells(x, 1).Value <> Cells(Z, 3).Value Then If Cells(x, 1).Value <> Cells(AA, 4).Value Then If Cells(Y, 2).Value <> Cells(Z, 3).Value Then If Cells(Y, 2).Value <> Cells(AA, 4).Value Then If Cells(Z, 3).Value <> Cells(AA, 4).Value Then FIN_E = FIN_E + 1 Cells(FIN_E, M) = Cells(x, 1) Cells(FIN_E, N) = Cells(Y, 2) Cells(FIN_E, O) = Cells(Z, 3) Cells(FIN_E, P) = Cells(AA, 4) End If End If End If End If End If End If Next AA Next Z Next Y Next x End Sub
  10. Hola buenas. Tengo una macro para combinacion de numeros, pero dado el limite en excel Número total de filas y columnas en una hoja de cálculo 1.048.576 filas por 16.384 columnas No puede finalizar la macro se queda pillada en la fila 810.00, la idea es que se ejecute ejemplo hasta la fila 500.00 y siga en otras columnas o rango ejemplo k:m Esta es la macro: Sub COMBINAR_4() Columns(5).ClearContents Columns(6).ClearContents Columns(7).ClearContents Columns(8).ClearContents Columns(9).ClearContents FIN_A = Range("A1", Range("A" & Rows.Count).End(xlUp)).Rows.Count FIN_B = Range("B1", Range("B" & Rows.Count).End(xlUp)).Rows.Count FIN_C = Range("C1", Range("C" & Rows.Count).End(xlUp)).Rows.Count FIN_D = Range("D1", Range("D" & Rows.Count).End(xlUp)).Rows.Count For X = 1 To FIN_A For Y = 1 To FIN_B For Z = 1 To FIN_C For AA = 1 To FIN_D FIN_E = FIN_E + 1 Cells(FIN_E, 6) = Cells(X, 1) Cells(FIN_E, 7) = Cells(Y, 2) Cells(FIN_E, 8) = Cells(Z, 3) Cells(FIN_E, 9) = Cells(AA, 4) Next AA Next Z Next Y Next X End Sub Un Saludo.
  11. me falto que el 14,17 y 23 se repite tambien 2 veces.
  12. Hola buenas. Intento encontar la solucion en repeticion de 3 numeros por fila ( serian 3,4 y 5 numeros) como ejemplo y nada. Lo ultimo que intento es hacer 4 columnas individuales con la fórmula concatenar hoja 1. Pero el resultado esperado seria en hoja RESULTADO OK. Se repiten 2 veces 3 números resultado a mano 14,17,42/23, 27,38 y 23,27,36. Saludos. REPETICIONES POR FILA DE VALORES para foro.xlsx
×
×
  • Create New...

Important Information

Privacy Policy

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