Jump to content

Como puedo Crear un número determinado de números aleatorios


santravis

Recommended Posts

Quisiera generar un número determinado de números aleatorios entre dos cifras y la cantidad de números aleatorios viene determinado en una celda.

Los números aleatorios entre dos cifras lo sé crear pero no como decirle que me cree tantos como ponga una celda.

Link to comment
Share on other sites

Buenos días, John

De momento voy entendiendo pero me sigue costando lo suyo.

Ahora tengo que relacionar la tabla de referencia 1 

he notado que cada vez se modifican los todos numeros aleatorios, como lo podría bloquear?

había pensado en hacer una lista de validación para Art. y que me traiga el Cod. correspondiente.

y ahora me comentan que cada Art. tiene sus números aleatorios (min y max), como se podría hacer?

o si sabes otra manera, estoy abierto.

Un saludo. 

 

PRUEBA_PESOS_AUTOC_2.xlsx

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • Algo no encaja, porque el código que te he pasado funciona, si o si. Sube tu archivo  y explica con un ejemplo de que es lo que quieres hacer.
    • Hola, esta es mi solución Dim UltCol As Long With Datos If .Cells(fila, .Columns.Count) <> "" Then UltCol = .Columns(1).Column + .Columns.Count - 1 Else UltCol = .Cells(fila, .Columns.Count).End(xlToLeft).Column End If End With LastColumn_Table.xlsm
    • Buenas ,  soy nuevo en Macros  seguro que el codigo que te paso es muy largo  y no muy limpio y se podra hacer con la mitad de codigo (como te digo desconozco  muchos objetos de excel) , pero por aportar mi granito te paso mi codigo comentado en cada linea.  Espero que alguna idea puedas  aprovechar. Sub ultima_cada_fila() ' ejemplo con tabla nombre "Tabla1" , rango de la tabla $D$2:$AG$10 Dim rango, primera_celda, Ultima_Celda, primera_letra, ultima_letra, primer_n, Ultimo_n, c As String Dim numero_columnas, i, ii, b As Integer rango = Replace(Range("Tabla1").CurrentRegion.Address, "$", "") ' obtenemos el rango de la tabla eliminado los $ (D2:AG10) numero_columnas = Range(rango).Columns.Count ' numero de las columnas de la tabla (30) primera_celda = Mid(rango, 1, InStr(1, rango, ":") - 1) ' cogemos la direccion de la 1 celda, Desde donde trabajara el offset(D2) Ultima_Celda = Mid(rango, Len(primera_celda) + 2, Len(rango)) ' cogemos la direccion de la 2 celda(AG10) For i = 1 To Len(primera_celda) ' proceso para desglosar la letra y el numero de la 1 celda(D2) c = Mid(primera_celda, i, 1) ' analizamos caracter a caracter If IsNumeric(c) Then ' si el caranter es un numero .. primer_n = primer_n & c ' capturamos el numero(2) Else primera_letra = primera_letra & c ' capturamos el caracter(D) End If Next For i = 1 To Len(Ultima_Celda) ' proceso para desglosar la letra y el numero de la 2 celda(AG10) c = Mid(Ultima_Celda, i, 1) ' analizamos caracter a caracter If IsNumeric(c) Then ' si el caranter es un numero .. Ultimo_n = Ultimo_n & c ' capturamos el numero (1,0) Else ultima_letra = ultima_letra & c ' capturamos el caracter(A,G) End If Next b = 0 For i = primer_n To Ultimo_n - 1 ' proceso que recorre las filas b = b + 1 For ii = primer_n To numero_columnas + 1 ' proceso que recorre las columnas por cada fila If Range(primera_celda).Offset(b, ii - primer_n).Value = "" Then ' si la celda esta vacia .. Range(primera_celda).Offset(b, ii - primer_n).Select ' seleccionamos la celda vacia MsgBox Selection.Address ' muestra la direccion de la celda vacia Exit For ' salimos de la busqueda ya que encontremos la celda vacia End If Next Next Suerte.
    • Si, evalua siempre la fila 3, porque estaba haciendo pruebas con distintas filas a mano. Con tu codigo me hace lo mismo siempre me cuenta 33 que es el numero de columnas que tiene la Tabla. Yo creo que tiene que ver con el que es una Tabla como tal. He probado fuera de esa tabla con el mismo codigo (fila 38, que está fuera del rango de la Tabla) y si que funciona como se espera.   Gracias de todos modos
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy