Tengo un problema con una macro me sale el error es el error 13 cual podría ser el problema?
tengo esta macro abajo mencionada pero cuando escaneo un código de barras con mas de 45 datos aunque este sea 1 dato me lo toma ya como 45 en una sola lectura y también cuando introduzco el dato del escáner me dice que tiene un error 13 en la línea [I6] = [I6] + 1 me gustaría saber porque sale este error.
Application.ScreenUpdating = False
Sheets("DB").Select
Range("I6:K6").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
Range("E5:F5").Copy
Range("I6").PasteSpecial Paste:=xlPasteValues
Range("C5").Copy
Range("K6").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
[I6] = [I6] + 1
If [I6] >= 45 Then
MsgBox "Se han agregado 45 pieazas, debe introducir un HU o un código de barras manual", vbExclamation
[I6] = 0
End If
Sheets("Tabelle1").Select
Range("A2").Select
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub
1 Respuesta
H o l a:
El error es porque en la celda I6 no tienes un número.
Lo que hace la macro es copiar el contenido de la celda E5 a la celda I6, entonces revisa qué es lo que tienes en la celda E5 cuando ocurre el error, revisa que en la celda E5 tengas un número.
Lo otro que comentas: "cuando escaneo un código de barras con mas de 45 datos aunque este sea 1 dato me lo toma ya como 45 en una sola lectura"
No lo entiendo, tendrás que explicarme paso a paso qué haces, y qué es lo que esperas como resultado.
':) ':)
