H o l a:
Cuando utilizas la función Aleatorio, cada vez que realices un cálculo en la hoja, las funciones se actualizarán; puedes probar presionando la tecla F9, cada vez que la presiones, todas las fórmulas que utilizan Aleatorio obtendrán un nuevo resultado.
Una solución para dejar fijo el valor encontrado es utilizar una macro.
Sub Indicadores()
'Por.Dante Amor
Dim valores As New Collection
Dim letras As New Collection
Set valores = Nothing
Set letras = Nothing
'
Set h = Sheets("Indicadores Soc")
celdas = Array(10, 14, 18, 22)
For i = LBound(celdas) To UBound(celdas)
dato = ""
valor = Range("C" & celdas(i)) + Evaluate("=RANDBETWEEN(0,4)") / 10
valores.Add Range("C" & celdas(i))
Set b = h.Columns("A").Find(valor, lookat:=xlWhole)
If Not b Is Nothing Then
existe = False
For j = valores.Count - 1 To 1 Step -1
If valores(j) = Range("C" & celdas(i)) Then
existe = True
Exit For
End If
Next
If existe Then dato = letras(j) Else dato = b.Offset(0, 1)
End If
Range("R" & celdas(i)) = dato
letras.Add dato
Next
Set valores = Nothing
Set letras = Nothing
End Sub
Sigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: pinta
- Aceptar.
- Para ejecutarla dale click a la imagen.
':)
S a l u d o s . D a n t e A m o r
':) Si es lo que necesitas. Recuerda valorar la respuesta. G r a c i a s.