Jump to content

viejo

Members
  • Content Count

    497
  • Joined

  • Last visited

  • Days Won

    1

viejo last won the day on September 30

viejo had the most liked content!

About viejo

  • Rank
    Advanced Member
  • Birthday 01/01/1999

Recent Profile Visitors

830 profile views
  1. nuevamente gracias a todos, pero creo que me quedaré con lo que me es mas funcional; si bien es cierto las barras de progreso son una manera de visualizar lo que en ese momento esta haciendo el computador y proyectándolo al usuario pero también es una carga más para los registros de memoria haciéndolos mas lentos, ya que sin barra de progreso en una hoja con 500mil registros buscar algo tardaba menos de 1 min, y al probar las aportaciones en dicha hoja en el caso de antoni tardaba poquito mas del minuto con barra de progreso, cosa que no es tanto y es soportable y no altera la pasciencia del usuario al estar esperando por contrario y en relacion a una hoja con mas de 500mil registros (como lo dijo leopoldo blancas) con su aporte que fue probado en dicha hoja tardó mas 4 minutos lo cual no me es funcional no se si lo lindo lo vuelva mas lento, por mi parte creo que la mejor barra de progreso y que va casi en funcion de la "velocidad" de la busqueda es el quinto post y aporte hecho por el maestro antoni, no quiere decir que el ultimo post hecho por leopoldo blanca sea malo de hecho es lindo como él lo expresó pero es mas lento de lo que deberia ser y esa parte no la vuelve funcional aun asi le agradezco ya que me ha dado unas ideas esenciales, pero para el caso de lo que estoy haciendo es mas que suficiente con la aportacion del maestro antoni y como siempre da en el clavo y quedo agradecido por ello.
  2. no funcion, ni con do events ni logro verlo con f8, tal vez estoy haciendo algo mal, seguire revisando
  3. aqui esta el archivo gracias por la aclaración maestro ComboboxSelectordeHojasycolumnas_conbarradeprogreso.xlsm
  4. muy buen dia tengan todos, solicito su valiosa colaboracion; seré directo pues se trata de un formulario que realiza busqueda en un tabla donde se selecciona la hoja y la columna donde buscar ya que he estado intentando ponerle una barra de progreso pero unicamente a traves de un label que va aumentando, no quiero usar un control adcional ya que luego en algunas computadores no tienen instalado el control de barra de progreso por lo tanto quiero usar un label, aqui mi plan es que mientras haga la busqueda ese label simule el porcentaje de aumento que vaya mostrando el avance de la busqueda, he aqui el codigo y no se como establecerlo con el label-barradeprogreso. de antemano les agradezco la atencion. Sub buscar() Dim i, nFilaFin If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Or txt_Buscarr = "" Then MsgBox "Seleccione una hoja, una columna y escriba un texto de busqueda", vbCritical, "Departamento de Finanzas" ListBox1.Clear txt_Buscarr.SetFocus Exit Sub End If ListBox1.Clear btn_modificar.Enabled = False Me.btn_cancelar.Enabled = False btn_buscar.Enabled = False Me.ListBox1.Locked = True Dim rango As Variant Set rango = Range("A" & Rows.Count).End(xlUp).Rows For i = 2 To rango If LCase(Cells(i, ComboBox2.ListIndex + 1).Value) Like "*" & LCase(txt_Buscarr.Value) & "*" Then ListBox1.AddItem Cells(i, 1) ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(i, 3) ' ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(i, 4) ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(i, 8) 'ListBox1.List(ListBox1.ListCount - 1, 4) = Cells(i, 5) 'ListBox1.List(ListBox1.ListCount - 1, 5) = Cells(i, 6) ListBox1.List(ListBox1.ListCount - 1, 4) = i End If '------------------------------barra de progreso---------------------------------------------------- Dim porcentaje As Long porcentaje = (100 / (rango / i)) Me.Label76.Width = 0 Me.Label76.Width = porcentaje '--------------------------------------------------------------------------------------------------- lblResultado.Caption = "Espere 1 minuto..." DoEvents Next i txt_Buscarr.SelStart = 0 txt_Buscarr.SelLength = Len(txt_Buscarr.Text) nFilaFin = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row lblResultado.Caption = ListBox1.ListCount & " Registros Encontrados de: " & nFilaFin - 1 btn_modificar.Enabled = True Me.btn_cancelar.Enabled = True btn_buscar.Enabled = True Me.ListBox1.Locked = False End Sub
  5. ok, una disculpa nuevamente: paso 1.- colocarse en b2 pas2.- irse hasta la ultima celda con datos hacia abajo paso3.- guardar lo que contiene en esa celda en una variable paso4.- buscar y comparar el contenido de esa variable en la lista que esta en la hoja paso5.- compararlo si es igual paso6.- si es igual bricar al siguiente registro o renglon paso7.- tomar el valor de ese renglon y ponerlo en el textbox5 del formulario paso8.- si no es igual, seguir buscando hasta este punto esa seria la macro principal hasta donde el formulario cuando abra eso mostrará osea "aqui le toca el siguiente turno de trabajar", posteriormente se tiene la parte de registro y asi tambien la parte de saltar el turno, al menos esa es mi idea de como hacerlo y no me imagino otra manera.
  6. si lo acabo de ver pero no da el resultado correcto :s
  7. ok una disculpa, lo que intento hacer es un rol de trabajo en el cual deacuerdo al orden de la lista que esta en el label12 y en la lista que esta en la hoja2 (que son la misma), requiero que cuando se abra el formulario se vaya a la utima celda con datos de la columna de -nombre de persona que le toca trabajar- y "lea" ese dato y entonces vaya y busque ese "dato leido" en la lista y arroje el siguiente en el textbox5. ejemplo: si en la columna B se encuentran los datos: y el siguiente celda esta vacia, entonces la macro debe buscar en la lista a Pato Carlo y deacuerdo a la lista el siguiente nombre es Salomé Terán Tiezo, entonces ese debe ir en el textbox5
  8. algo asi, entonces como vez leopoldo, podrias ayudarme?
  9. Hola muy buen dia, les escribo para solicitar su valiosa colaboracion, tengo un formulario en el cual estoy tratando de hacer un rol de trabajo ¿como se da la ejecucion de este rol de trabajo?, pues deacuerdo a la lista de personal necesito que se siga ese orden y el formulario vaya llenando huecos consecutivamente hacia abajo (como se ve en la hoja), les dejo el archivo para ver si me doy a entender. de antemano agradezco la atencion al presente. saludos roldeturnosdetrabajo.xlsm
  10. jaja perdoname la vida mi estimado maestro Antoni, sucede que solo me aboqué a ver los minutos y ver que el calculo sea correcto, pero no me di cuenta que tmb hacia la cuestion de los dias tambien, es correcto tmb, no te molestes por mi descuido, aveces tenemos la cabeza metida en varias cosas a la vez y no nos damos cuenta y de antemano gracias. se puede dar por terminado el tema
  11. Dr Hyde te agradezco el consejo, pero sucede que no puedo calcular al dia siguiente es decir; sabemos que el dia empieza desde las 00:00:00 y termina hasta las 23:59:59, pero lo que yo no puedo hacer es que en la macro que calcula logre hacer el calculo al dia siguiente: ejemplo; si tenemos como fecha inicial el dia 26/abr/2019 y hora inicial a las 23:59:59 y la fechafinal es el 27/abr/2019 a las 00:00:00 no logro hacer el calculo, no logro que identifique ese cambio de dia, no se si pudieran ayudarme en este tema o tendria que hacer uno nuevo?, agrazdeco de antemano la atencio prestada
  12. de acuerdo, entonces buscare que un boton haga eso y relacionar todo el proyecto con una macro xD
  13. si muchas gracias estimado maestro, aqui mi pregunta iva enfocada al hecho de que cuando llegue al 23:59:59 la macro no cuenta o hace el calculo al siguiente dia, aun que esos msgbox que pautaron las cosas en el codigo me hicieron reflexionar un poco, deja los veo con mas razonamiento (a mi nivel) y te comento
  14. buen dia tengan, perdonden mi ignorancia e inpertinencia, existe alguna macro que haga la funcion del boton de restablecer del editor de vba, es decir que esa macro pare o detenga toda macro que se este ejecutando? por su atencion y pasciencia mil gracias y por sus respuestas 2000gracias
  15. y es que si notan, la macro si logra calcular el tiempo pero siempre y cuando este dentro del rango de 00:00 a las 23:59 pero el problema esta en el minuto del 59 al 00.
×
×
  • Create New...

Important Information

Privacy Policy