Jump to content

SebastianFelipe

Members
  • Content Count

    70
  • Joined

  • Last visited

  • Country

    Chile

About SebastianFelipe

  • Rank
    Advanced Member

Converted

  • Campos
    ;

Recent Profile Visitors

697 profile views
  1. @JSDJSD a priori ha funcionado tal cual buscaba. Voy a incluirlo en mi archivo y te cuento. Muchisimas gracias por tu tiempo.
  2. Estimados, espero que todos se encuentren bien. Estoy experimentando problemas con un código el cual intento tener un listado RowSource dinámico. Lo requiero debido a que existirá un combobox que se irá alimentando de datos, y requiero realizar busquedas a través de él. Llegué a un código a través del foro, pero no he podido compilarlo. Alguien podría darme luces de cual es el error que estoy cometiendo? Agradecido de todos ustedes. Libro1.xlsm
  3. Estimados @Antoni y @Haplox, estoy muy agradecidos de ambos por sus propuestas que me han brindado, ambas son brillantes. En el caso de la propuesta de @Haplox, estoy muy agradecido por darte el tiempo de comentar el código, me lo he estudiado y no solo me ha funcionado a la perfección, si no que he aprendido un poco más de como van los códigos que me has dejado. En el caso de @Antoni, me ha gustado mucho la presentación del archivo con ListBox y TextBox, queda bastante amigable para rellenar. Al no ser algo que tenía en mente, me ha impresionado mucho. Agradecido de ambos, doy por cerrado el tema con dos excelentes propuestas. Una de ellas comentada para quienes lo requieran y otra opción con el implemento de useforms. Gracias! PS: y que pena que no se puedan marcar ambas respuestas como mejor respuesta.
  4. Estimado @Haplox, estudiando el código que me has presentado, he notado lo siguiente: Sólo al hacer la primera iteración, se permite obtener más de una vez un número aleatorio (la probabilidad es de un 0,1% pero me percaté porque me pasó). Si cancelas la comisión tal cual lo hago en el video, se puede corroborar. Video nuevo.mp4 Lo segundo ocurre cuando se intenta agregar un grupo de personas y ya se encuentra alguien en el registro, te preguntará si quieres agregar a una persona nueva. Sin embargo, termina por agregar cuatro personas (es un poco dificil de explicar por lo que te subo el siguiente video a youtube (pesaba mucho para adjuntar acá) Finalmente si sigues con la iteración hasta superar las 37 ocaciones, termina por crashearse el excel. Te adjunto un print en donde podrás notar que se repiten cada vez que intenta suplantar una nueva persona que ya se encuentra en el registro. Eso serían las dos cosas que noté. por lo demás, te agradezco mucho el tiempo que te has tomado y la gentileza de responder todas mis dudas que no soy capaz de resolver por mi mismo. Te deseo muy buen término se semana. Atentamente, Felipe.
  5. Estimado @Haplox me he estado demorando en revisar lo que me adjuntas. Con anticipación te agradezco mucho tu ayuda y hoy revisaré para contarte. GRACIAS!
  6. Buenas tardes @Haplox, he estado trabajando en tu solución y es lo que estoy buscando, GRACIAS!. Lo que he notado, es que al iterar un par de veces, los valores se me han comenzado a repetir: Me pregunto, se deberá porque en un mismo día de limpieza no debería haber más de una iteración? Faltará que, una vez identificada una iteración, el código identifique los que ya han limpiado para no seleccionarlos nuevamente? Por cierto, cuando limpio el registro de personas, arroja un error y al finalizar, solo entrega un dato (adjunto screenshot) Sobre lo anterior, Al depurar indica que está fallando la siguiente linea: Selection.AutoFill Destination:=Range("A2:A" & ufR + 1), Type:=xlFillSeries ' (Será que Falta una condición para cuando está vacía?) Solo eso observé de tu propuesta, de la cual estoy enormemente agradecido. Te quería consultar, en casos de que una persona que haya sido elegida para limpieza no asistiera por X motivo, que tan dificil sería considerar un MsgBox que consulte si los números aleatorios satisfacen las necesidades seguir con el proceso, y si por alguna razón que el administrador considere pertinente se vuelva a hacer la iteración? Un estilo de: If MsgBox("Está seguro que desea fijar la siguiente comisión?", vbYesNo + vbQuestion) = vbYes Then GoTo Nuevo End if Completamente agradecido de tu ayuda, Felipe.
  7. Buenas tardes @Haplox, gracias por tu respuesta. Creo que la manera optima sería que si se saca un aleatorio y este no ha limpiado, se le asigne la labor; en caso de ya haber participado, dejar el valor nulo y "devolverlo" o "anularlo" para buscar un nuevo participante que cumpla los requisitos. Efectivamente tal cual tu dices. Te agradezco mucho la pregunta para permitirme aclararlo.
  8. Estimada Comunidad: Recurro a ustedes esperando que se encuentren muy bien: Les escribo para hacer consulta sobre como podría generar números aleatorios con VBA, los cuales se vayan enlistando a medida que vayan saliendo. Mi idea es simular un sorteo aleatorio de las personas que se deberán encargar de la limpieza de un lugar y que, una vez les haya tocado limpiar, quede registrado en una hoja excel el día que les ha tocado. Además, lo ideal es que no se repitan hasta que todos hayan pasado por 1 día de limpieza. De lo anterior desprendo que lo necesario es lo siguiente: 1) Generar 3 números aleatorios que no se repitan entre sí. 2) Verificar si ya han limpiado anteriormente (en el registro). Si ya limpiaron, volver a generar aleatorios. Si no han tirado. Registrar y terminar proceso. De esta manera podría garantizar que tres personas serán generadas aleatoriamente y se verificará si ya han salido sorteados anteriormente. Mi trabajo hasta el momento es el siguiente: 'GENERAR NÚMERO ALEATORIO. '(Módulo NroAleatorio) Option Explicit Dim min As Integer Dim max As Integer Private Function Aleatorio(min As Integer, max As Integer) As Integer Aleatorio = Int((min - max + 1) * Rnd + max) End Function Public Function AleatorioSP() As Integer DefineValores AleatorioSP = Int((min - max + 1) * Rnd + max) End Function Private Sub DefineValores() min = Hoja1.Range("C30") max = Hoja1.Cells(31, 3) End Sub Option Explicit Sub Loteria() Dim Nros As String Dim Temp As Integer Dim i As Integer ' For i = 1 To Hoja1.Range("C32") 'For i = 1 To 3 'Temp = NroAleatorio.AleatorioCP(1, 45) Temp = NroAleatorio.AleatorioSP If InStr(1, Nros, CStr(Temp)) = 0 Then Nros = Nros & ", " & CStr(Temp) Else i = i - 1 End If Next MsgBox "Las personas que deberán ser parte de la comisión de limpieza la semana X son los asociados al numero " & Nros Dim matriz(30) As String matriz(1) = "July" matriz(2) = "Patricia" matriz(3) = "Jessica" matriz(4) = "Marcela" matriz(5) = "Javiera" matriz(6) = "Felipe" matriz(7) = "Janet" matriz(8) = "Jordan" matriz(9) = "Carol" matriz(10) = "David" matriz(11) = "Alejandra" matriz(12) = "Jessica" matriz(13) = "Karem" matriz(14) = "Karen" matriz(15) = "Monica" matriz(16) = "Jaime" matriz(17) = "Gustavo" matriz(18) = "Catherine" matriz(19) = "Moira" matriz(20) = "Andrés" matriz(21) = "Javier" matriz(22) = "Francisco" matriz(23) = "Matías" matriz(24) = "Mirtha" matriz(25) = "Sandra" matriz(26) = "Cristian" matriz(27) = "Alfonso" matriz(28) = "Konny" matriz(29) = "Graciela" matriz(30) = "Carolina" matriz(31) = "Tiare" matriz(32) = "Yasna" matriz(33) = "Miguel" matriz(34) = "Jorge" matriz(35) = "Pedro" matriz(36) = "Patricio" matriz(37) = "Camilo" MsgBox "La persona asociada al número es " & matriz(Nros) End Sub Lo interesante es que hasta el momento genero un número aleatorio pero no puedo compilar al no poder mezclar el valor generado aleatoriamente con la matriz generada. Dudas: Esta bien realizado? Consultas a vosotros: Si logro compilar vinculando la matriz a los números generados, como puedo ir escribiendo los números generados aleatoriamente en un registro (Hoja Registro) y luego ir verificando en ella si ya ha salido anteriormente el número? Agradezco muchisimo su ayuda y espero que todos se encuentren sanos y vigorosos en estos días dificiles. Saludos desde Chile. PS: Adjunto mi archivo. aleatorio.xlsm
  9. Muchas gracias @Chrispal1977, me ha servido de maravilla !
  10. Hola @Chrispal1977, muchas gracias por tu tiempo para darme una respuesta. Es precisamente lo que buscaba, agregar columnas hacia la derecha para poder atender las otras columnas que necesito. A modo de aprender de ti, y siempre y cuando no sea abusar de tu gentileza, los cambios requeridos para agregar columnas se dan en este código? .List(.ListCount - 1, 1) = Range("c" & x) .List(.ListCount - 1, 2) = Range("d" & x) .List(.ListCount - 1, 3) = Val(Range("e" & x)) .List(.ListCount - 1, 4) = Range("f" & x) Y una última consulta, tu sabes si es posible realizar un conteo, o alguna operación aritmética en los cuadros "total mes" y "% pagado" ? Sin más, agradecer tu tiempo y gentileza, Chrispal, un saludo.
  11. Hola a todos, quisiera pedirles sus consejos y/u opiniones sobre un tema pasado el cual he intentado reutilizar y adaptar a mis requerimientos. El tema en cuestión y la respuesta que ha recibido son los siguientes adjuntos: En la respuesta de don @Antoni, (quien es el autor de la macro que modifiqué) adjunta una macro la cual cuenta con un cuadro desplegable en donde se visualizaban dos columnas, tal cual como se observa en la imagen "Fecha" y "N° LP". Mi pregunta nace en el momento de querer agregar otras columnas hacia la derecha, "monto, D.Obra y Pago(s/n)", las cuales es muy importante tener un resumen del total de los montos registrados para dicho mes y el porcentaje de pagos que han sido realizados (el cual se comporta de manera binaria; si o no). Con la poca experiencia que tengo, no estoy al tanto de si es posible realizar este tipo de cosas en estos formularios, es por ello que recurro a ustedes por consejos, ayuda, opiniones, todo es bienvenido. Cuales serían los tipos de códigos que debería utilizar? Desde ya agradezco vuestro tiempo de leer este tema, y todos los consejos que puedan entregarme, ya sean tips, guías para leer, etc. Un saludo desde Chile. filtros_formulario.xlsm
  12. Buen día a aquellas personas que participan de este tema, quisiera aprovechar el archivo que ha subido don @Cacho R para hacerles una consulta, será necesario crear un nuevo tema, o podré aprovechar esta instancia? En caso de poder aprovechar este tema, le comento Cacho R que al intentar filtrar datos entre el 18-12 y el 22-12 el excel deja de funcionar, y no cuento con la suficiente expertiz para determinar que es la causa del crash. Podría usted orientarme? y si es necesario que cree un nuevo tema, podría comentarmelo? Desde ya agradezco su tiempo, y de todas las personas que ayudan día a día en este foro. Un saludo desde Chile. FiltrarFechas_2 Cacho R SEM.xlsm
  13. Agradecido de tu aporte Haplox, este tema me ha servido mucho para lo que necesitaba. Saludos a ambos.
  14. Saludos a todos señores. Estoy muy agradecido con todos, hoy apenas entro y veo sus tres propuestas, muchas gracias a todos !!
  15. Si, los subtotales son solamente los que se encuentran en negrita.
×
×
  • Create New...

Important Information

Privacy Policy