Hola @RubenDario
Faltaría que en cada línea dentro del With le pongas un punto al inicio
With Hoja1
.Range("B6:B18,F6:F18,J6:J18").Select
.Range("J6").Activate
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
.Selection.ClearContents
.Range("A1").Select
End With
Sin embargo, lo que yo haría (si fuese mi proyecto)... te ofrezco varias soluciones.
No asignarlo a una combinación de teclas, mejor ponerlo en una forma o botón.
Modificar tu libro con la app Custom UI Editor o similar y adicionar un botón en el Ribbon, estará visible solo cuando el libro esté activo.
Al principio de tu código pondría algo como: If Thisworkbook.Name <> ActiveWorkbook.Name Then Exit sub
Por
DiegoPC, · publicado
Buenas noches estoy trabajando en un proyecto de inventario para una frabica , la idea es caputurar la informacion
con codigo de barras y se actualice el saldo, tambien tiene una captura manual , y una salida , el problema es el siguiente
entradas de informacion
entrada manual = userform2
entrada pistola laser = userform 30 (hoja inventario)
salida
userform 33
en este momento las entradas y las salidad (manual) las actualiza directamente en la hoja saldo (columna c) , formule para que me contara todo los registros que son captados con las pistola laser (codigo de barras ) estos datos los coloque en la hoja saldo columna (E) , el problama es que inicialemente lo tenia formulados para que las dos entradas de material (manual y por pistola) me las sumara y las colocara en la casilla ©cantidad donde es el total pero apenas utilizo una forma el automaticmamente me actualiza ese dato y borra la formula , ya que en las userform esta formulado para que haga la resta o la suma segun sea el caso , lo que necesito es formular o adicionar a la formula la columna (e) que son los totales del materiar que se captura con codigo de barras.
las formulas estan en la userfrom15 boton aceptar. creo que seria adicionar la formula aca ya que son las entradas que se tienen.
el archivo SE LLAMA MI APLICACION esta protegido ,usuario y contraseña ADMIN
inventario.rar
inventario.rar