Luis Mondelo

Esta es mi solución: mi matriz es A1:F10 Copia esta macro en un módulo, ejecútala y verás el resultado. Public c Public f Sub resaltar() On Error Resume Next Cells(f, c).Interior.ColorIndex = xlNone fila = Application.WorksheetFunction.RandBetween(1,...

=SI.ERROR(redondear(G20-(G20*H20);2);"") En este caso estoy redondeando con dos decimales

Te recomiendo que trabajes con un userform de excel para la introducción de los datos. De esa manera evitaras teclear datos en la cuadricula de excel evitando errores y plasmarás una buena imagen y limpieza en el procedimiento. Si quieres puedo...

Tu problema se puede resolver implementando un tabla dinámica. Si quieres mándame tus datos y te la elaboro. [email protected]

Te mando la solución: Situate en el primer nif de tu lista y ejecuta esta macro: Sub solounicos() Do While ActiveCell.Value <>"" valor = ActiveCell.Value contarsi =Application.WorksheetFunction.CountIf(Columns(1), valor) If contarsi > 1 Then...

Pon esa línea de esta manera y te evitarás problemas: ActiveCell.Value = Application.WorksheetFunction.CountIf(Range(Cells(3, 2 + x), Cells(3 + y, 2 + Z)), 4) recuerda finalizar la consulta

Dime tu correo y te mando un caso práctico que he desarrollado para que lo adaptes a tus datos.

Con esta macro del evento INITIALIZE (que se activa al arrancar el formulario) lo solucionas: Private Sub UserForm_Initialize() OptionButton2.Value = True End Sub

Mándame tu archivo con los artículos y te lo dejo preparado. Supongo que el ejemplo sería así: En la celda tecleamos AR349 y nos aparece su foto ¿verdad? [email protected]

Marca con el ratón el rango A5:J5 y métele estos dos formatos condicionales en el apartado fórmula =$K$5="" ------>eligiendo un relleno vacío =$K$5=0 --------> eligiendo un relleno de color