Jump to content

edu_hoyos

Members
  • Content Count

    14
  • Joined

  • Last visited

Everything posted by edu_hoyos

  1. Gracias a tu respuesta he logrado dejarlo en segundos. Ni conozco Scripting pero me lo apunto pero a veces algo de teoria es justo lo que buscaba. Mil Gracias!
  2. SI Si , si lo entiendo perfectamente. Simplemente en este caso para que sea una estructura real y solida para que las pruebas fueran con sentido tendria que dejar muchos datos. De todos modos leyendo todo lo que me habeis escrito e llegado a una solucion que pasa de 12 minutos a menos de 30 segundos. Sigo copiando la formula de BuscarV en la primera fila y luego arrastro con VBA. Si a alguien le sirve me alegro. Gracias a todos!
  3. Hola Leopoldo. Si soy consciente de que seria lo optimo. Tendria que eliminar demasiadas partes del programa para subirlo ( no por mi programa que eso me da igual sino porque los datos que uso son empresariales como costes de productos... ) por eso me quede en preguntarlo como duda para saber si el proceso de VBA sobre buscarV era tecnicamente igual o no y si es normal que haciendolo manual tarde lo que yo tarde en escribir la formula. Practicamente Excel no tarda muchos segundos en resolverlo en cambio esa parte escrita como pongo tarde muchos minutos. Tanto en paso a paso como ejecutando automaticamente. Si la respuesta es que no , que deberia tardar lo mismo que es lo que no he logrado encontrar , ya lo monto de propio aislando la parte del programa y lo suba. Gracias por contestar!!!
  4. Ayer tire por algo similar y tardaba el doble. Me gustaba el for porque podia controlar mas datos y podia optimizarlo de forma que no hiciera filas que no necesitaba pero se disparo a 12 minutos para terminar los 25.000 productos.
  5. Buenos dias. Tengo una duda que me corroe desde hace meses y no logro dar con la respuesta. Usamos muchas veces BUSCARV. Hasta ahora como todo era por formulas iba bien , ahora muchos procesos los estamos programando y siempre que uso el buscarV mediante programacion tarda una barbaridad Con este codigo ( x 3 ) sobre 24000 filas tarda unos 8 minutos en finalizar. Haciendolo a mano ( es decir poniendo la formula tal cual , copiando y pegando valores etc etc ) no tardo ni 30 segundos With Worksheets("Inventario").Range("C2:C" & Fin) .Formula = "=IF(ISERROR(VLOOKUP(A2,Datos_Magento!$A$2:$C$" & Final & ",3,0)),""Libre"",VLOOKUP(A2,Datos_Magento!$A$2:$C$" & Final & ",3,0))" .Formula = .Value End With
  6. Funciona perfectamente. Antes de darlo por cerrar una duda de los Frames. ME ha pasado ya dos veces que al moverlos se mete uno dentro de otro y cuando miro en el otro no esta. ( pero el codigo y todo esta ) . Esto es algun bug de Excel? Soy muy torpe?
  7. Mil Gracias Antoni. De momento ya es bastante mas funcional y rapido. Y llevo toda la mañana desde tu ejemplo revisando como funcionan los marcos y es un gusto. Ya he corregido otro archivo que tenia similar. En cuanto confirme que funciona lo doy por resuelto.
  8. He probado con DoEvents y sigue fallando. Si me mandas algo perfecto, de todos modos buscare tambien sobre mostrar/ocultar frames. Gracias Antoni.
  9. Ok. He aislado la parte del programa donde da el error y verificado que sigue dandolo. Ejecutando el formulario " formulario_contar" te pide un codigo de barras. Adjunto un txt con los codigos de barras y el stock que dara Correcto. Se puede introducir tambien mal la cantidad pero sera mas largo. En la prueba de esta mañana me ha fallado cuando llevaba contados 34 pero tengo la sensacion que es aleatorio. ( adjunto pantallazo tambien del error ). Si le das a depurar y vuelves a darle al play para que te muestre el error, te muestra uno diferente "Se ha producido el error "1004" en tiempo de ejecucion : Error definido por la aplicacion o el objeto. " Contar2.xlsm productos.txt
  10. Hola. Resumo un poco el archivo : Es una tabla donde en la Columna A se encuentra el codigo de barras. Si el codigo de barras que introduzco esta en dicha columna salta un segundo formulario para introducir el valor. El Enter_click se encuentra en un formulario donde permite poner un texto ( un codigo de barras ) y al hacer click ejecuta el codigo a continuacion. Cada X productos salta el error : "se ha producido el error '-2147417848 (80010108) en tiempo de ejecucion : Error de Automatizacion". Si pulsamos en depurar la fila que marca es la del Set. Si paro el programa y vuelvo a intentarlo salta un error diferente aunque lo marca en el mismo sitio : "Se ha producido el error "1004" en tiempo de ejecucion : Error definido por la aplicacion o el objeto. Lo curioso es que salta el error cada X veces ( no siempre el mismo numero de veces ) y si guardo el excel. Lo cierro y volvemos a abrirlo y seguimos nos permite continuar por el mismo codigo de barras otras tantas veces. Private Sub Enter_Click() Dim CodBarras As String Dim Novedad As String Dim Revision As Long Dim celda As Object Application.ScreenUpdating = False Application.DisplayAlerts = False CodBarras = txt_codigo_barras If CodBarras = "" Then MsgBox "No puedes introducir nada.", , "Error" Exit Sub End If Set celda = Sheets("Contar").Range("A:A").Cells.Find(What:=CodBarras, LookAt:=xlWhole) If celda Is Nothing Then MsgBox "Codigo de Barras no encontrado" Exit Sub ElseIf celda = CodBarras Then celda.Select Unload Me Formulario_Stock.Show End If Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png