Jump to content

viejo

Members
  • Content Count

    520
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by viejo

  1. muy bien muchas gracias, creo que con esto cerramos el tema si gustan
  2. correcto y a la primera🤗 una pregunta que tal vez no tenga que ver con el tema, es que sucede que si pongo un numero por ejemplo 12/2019, al darle al boton de registrar en base me lo toma como fecha en la hoja, ¿eso porque se debe?¿tendria que ponerle algun apostrofe o concatenar algun otro caracter para poderlo evitar?
  3. si de hecho si lo intente y lo segui intentando hasta este momento pero no se, tal vez ando bloqueado y por eso no lo logro y aunque ya encontre uno parecido no lo he podido adaptar, aun asi deje el nuevo tema. Mil gracias
  4. buen dia tengan EXPERTOS espero no importunar sucede que tengo un formulario en el cual agrego datos a un listbox y teniendo en cuenta que entre esos datos que se agregan al listbox es un id el cual tiene que ser unico, posteriormente ya que se tienen los datos en el listbox se registran en una hoja, mi pregunta es como puedo validar y evitar que registren duplicidad tanto en el listbox como en la hoja. dejo archivo muestra. Gracias consecutivonegativoperosinpositivo(Prueba1).xlsm
  5. a menos que si ya me quisieras ayudar tambien con esa parte de validar que no se repita el numero de id en la columna a pues te lo agradeceria mucho.🤗
  6. 🤗excelente, bueno creo que con eso seria suficiente para contestar el tema, te agradezco muchisimo nuevamente; lo siguiente creo que lo haré por separado para evitar hacer mas largo el tema, tomare en cuenta lo que me dices.
  7. deacuerdo al titulo del tema el archivo que me enviaste cumple con la funcion requerida, y te agradezco muchisimo por ello, solo me surge una duda al momento de probar el archivo y es al momento de darle en el boton de editar la secuenciacion que hace el optionbutton de negativo se altera, y no se por que, solo explicame a groso modo que sucede ahi. de antemano mil gracias por tu pasciencia JSDJSD, dios te llene de bendiciones.
  8. correcto, es lo que queria hacer y ahora ya lo lograste. ¿podrias poner el archivo? porfavor
  9. es casi lo que busco,,,,ojala esos espacios vacios que se quedan en la columna de id (en listbox y hoja) cuando metemos un positivo se puedan rellenar con lo que contenga el textbox que inicialmente le habias puesto...entonces es aqui donde me vas a decir que tengo que hacer para que me pases el archivo, cierto?
  10. al abrir el formulario el lblid debe mostrar el ultimo dato numerico de mayor valor + 1, el cual debe ser tomado de la hoja y al mismo tiempo poner el optionbutton de negativo en true. (eso ya esta en el formulario que te envie) el listbox no debe mostrar nada al abrir el formulario, ya que en el listbox se van a ir agregando los datos. (eso ya esta en el formulario que te envie) asi es, el boton agregar debe estar condicionado por si es positivo o negativo, pero aqui es donde radica el problema por que lo que pretendo es que el id sea unico solo cuando es negativo, y es aqui donde me planteo la idea de mejor agregar otra columna que se llame resultado y entonces ahi poner si es negativo o positivo esto en razon de la estricta relacion del listbox con la hoja, sin embargo y vuelvo a mencionarlo, mi intension era que dentro del listbox se detectara el ultimo id y asi poderlo nombrar como negativo ya que si es positivo al momento de agregarlo deja un hueco en la columna de id. si, al pulsar registrar todo lo que esta en el listbox se manda a la hoja y he aqui donde mi intensión es que se envie todo lo del listbox en el orden que ya mencioné anteriormente respecto de los id. por el momento solo puedo contestar esto; el formulario que te ya envie, ese formulario así tal cual debe hacer las cosas, con la excepcion de la parte de positivo y negativo, las cuales deben estar dentro de la columna de listbox pero como al poner un id negativo y luego poner un id positivo y luego poner un id negatvio todo eso pues de alguna manera altera el orden y lo que yo queria ver o saber es si dentro del mismo listbox se podia leer ese ultimo id negativo para que cuando se pulsara el optionbutton de negativo este pudiera ponerse en automatico en el lblID listo para agregarse y asi entonces poderlo agregar al listbox para que despues una vez teniendo todos los elementos en el listbox hasta ese momento solo hasta ese momento poder darle al boton de registrar.
  11. pues mas o menos es lo que pretendo jsdjsd pero mas bien se parece al archivo que dejo, solo que intento que sea dentro de la misma columna y todo a nivel de formulario. es decir en este archivo solo faltaria adecuar lo que intento hacer de lo del positivo y negativo. consecutivonegativoperosinpositivo.xlsm
  12. la parte de positivo no es necesario lleve un correlativo e introducirlo manualmente es funcional, sin embargo lo que me interesa realmente es el coorelativo en negativo pero dentro del listbox. osea por ejemplo si al listbox se le agregaron 4 items y estos son asi 1 dato 2 dato dato 3 dato 4 dato si te das cuenta en el ejemplo anterior hay un hueco y obviamente este dato hueco es lo que se haya escrito del positivo pero tambien si te das cuenta el "3" se autopuso para asi continuar con la consecutividad y esa consecutividad en negativo dentro del listbox es lo que requiero.
  13. https://www.dropbox.com/s/kg0eq0y0ecksv9r/consecutividadennegativo.jpg?dl=0 dejo una imagen de como ilustro aun que sea un poco lo que estoy requiriendo
  14. todo eso ya lo explique de la mejor manera que puedo y tambien puse el ejemplo muestra, y tambien mencioné hasta donde pude hacer el formulario; pero lo vuelvo a explicar paso por paso para ver si se me logra entender
  15. esto es porque los datos deben estar validados antes de ser ingresados a la hoja, y es por eso que quiero que me ayuden a poderlos detectar dentro del listbox y no dentro de la hoja. si ya lo explique de muchas formas, no se porque dices que no explique nada, no creo que seas obtuso pero tampoco creo que no se me entienda lo que explico, a la mejor me desespero y se me pasan detalles pero la idea global ya plantié
  16. la funcion del formulario debe hacer que antes de ingresar (el boton de registrar) en todo en la hoja se debe ser pasado antes al listbox. al agregar los datos al listbox antes debe estar condicionado si es positivo o si es negativo si es positivo los datos de los textbox (1,2 y 3) y lblID se pasan tal cual al renglon que corresponda del listbox si es negativo (he aqui el porque solicito su ayuda) necesito que exista alguna manera de que se "detecte dentro" del listbox el utimo dato numerico (tal cual en lo que publicaste en el post 7 pero que lo haga dentro del listbox y no dentro de la hoja) para que una vez que se logre tener tener los datos "acomodadas" dentro del listbox hasta ese entonces poderle dar al boton de registrar. gracias
  17. gracias Haplox, la aportacion que me acabas de hacer es muy buena y genera que en el lblID aparezca el dato numerico mayor dentro de la columna A pero esto lo hace en la hoja y no en el listbox no digo que este mal de hecho es buen avance y hasta aqui esa parte esta bien, sin embargo lo que me hace falta es hacer la diferenciacion durante el proceso de agregar a listbox; es decir, si cuando yo le doy al botón agregar este agrega al listbox (dependiendo de los optionbutton negativo o positivo) lo que hay en el LblID, TEXTBOX1, TEXTBOX2 Y TEXTBOX3 al listbox. Si optbtn_POSITIVO esta en true entonces el lblID se quedará en blanco (o lo que haya en el, eso ya es otro tema) pero si el optbtn_NEGATIVO esta en true entonces pondrá el ultimo ID en lblID que se encuentre dentro del listbox si por ejemplo existiera dentro del listbox el 23 y luego en el siguiente renglon "nada", entonces el ultimo id que tendria que "leer" dentro del listbox es el 23, por lo tanto el siguiente listo para que se agregue seria el 24. gracias
  18. no me funciona Jose BN, has de cuenta lo que quiero hacer es lo siguiente: el id depende del resultado solo si este es negativo, osea si es positivo no se le dara id, esto se registrara en el listbox, entonces cuando existe un resultado positivo y como no se le da id al positivo y este es agregado al listbox deja un "hueco" al momento de poner un id negativo, y es aqui donde existe lo que no he podido hacer, osea que ese id negativo sea detectado (ya que es numerico) para que entonces poder poner el consecutivo de este, si por ejemplo el ultimo id negativo fue 2 entonces poner su consecutivo que seria 3, pero si hay no hay nada numerico saltarse al siguiente renglon y "leerlo" para que entonces si exista la condicion de agregar ese id negativo, aclarando que todo esto debe registrarse en la misma columna...no se si lo estoy explicando bien...espero me puedan ayudar
  19. tal vez no me di a entender, lo que quiero es que me ayuden a que funcione, el codigo que lleva es porque hasta ahi llegué o hasta ahi pude hacer que funcionara. Necesito hacer que el id cuando sea negativo y cuando sea positivo sea ...pues lo que sea, aqui lo importante para mi es que pueda "leerse" ese ultimo dato numerico en la columna de id dentro del listbox, para que despues de agregar el label de id cambie al consecutivo correspondiente
  20. buen dia expertos, disculpen la molestia, alguien me podria ayudar para poder resolver lo siguiente: tengo un listbox en el cual voy registrando un id y un nombre, solo que esto esta condicionado por ponerle id al nombre siempre y cuando sea negativo, si es positivo se le pone otro valor, mi duda radica en que cuando estoy registrando en el listbox los id y nombres que son negativos la consecutividad del id esta bien, es decir no se altera, pero cuando se registra un id y nombre positivo debe ponerse otro valor (sea numerico o lo que sea) entonces esto rompe con la consecutividad del id y nombre negativo ¿como puedo hacer que se tome el ultimo registro numerico (del id y nombre negativo) y asi cuando vuelva a registrar (osea darle click en el boton de registrar) ponga el consecutivo de ese ultimo registro numerico? ejemplo: id nombre resultado 1 juan negativo 2 pedro negativo algo pablo positivo 3 jorge negativo algo leonardo positivo 4 jesus negativo espero haberme dado a entender, ojala puedan ayudarme a poder lograr la consecuvidad numerica del negativo. de ante mano muchas gracias dejo archivo muestra ConsecutividadenNegativosolamente.xlsm
  21. 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.
  22. no funcion, ni con do events ni logro verlo con f8, tal vez estoy haciendo algo mal, seguire revisando
  23. aqui esta el archivo gracias por la aclaración maestro ComboboxSelectordeHojasycolumnas_conbarradeprogreso.xlsm
  24. 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
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png