Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
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