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
En este formulario hay una sumatoria de los totales de los productos y ya esta perfecto
pero cuando el vendedor necesitara ingresar:
-iva (se le suma al total generado de la suma de los precios de los productos)
-descuento (se le resta al total generado de la suma de los precios de los productos)
-retencion (se le resta al total generado de la suma de los precios de los productos)
el textbox de "VALOR TOTAL A PAGAR" seria:
txtsumaart+txtiva-txtdescuento-txtretencion
lo que pasa es que:
hay veces que no se ingresa descuento ni retencion
hay veces que no se ingresa descuento ni retencion ni iva
puede ser variable dependiendo la situacion de todas maneras si no hay iva o descuento o retencion quedaria en 0
en el codigo no he podido dolucionar esto
el textbox de "VALOR TOTAL A PAGAR" no genera la suma y resta de estos aunque esten los valores o no
no genera el valor total a pagar
el adjunto muestra mas o menos como es la factura