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
Estimados
Muy Buenas tardes
Esperando que se encuentren muy bien, comentó que el motivo de este tema es para solicitar cordialmente su generosa ayuda con este tema.
trabajo en el área de ventas y me gustaría que cada cotización que realice se guarde automáticamente en otra pestaña (denominada seguimiento).
Ejemplo:
Realizó la cotización 1 para un x cliente, esta cotización posee 10 artículos por ende estos 10 artículos deberían agregarse a la pestaña seguimiento
Realizó la cotización 2 para otro cliente, esta cotización posee 25 artículos por ende estos 25 artículos deberían agregarse a la pestaña seguimiento
Cuando revise la pestaña seguimiento debería tener 25 artículos
Pd: La pestaña seguimiento tiene pintada las celdas que deberían completarse automáticamente
Desde ya quedo muy agradecido por su ayuda.
Saludos
José
Formato cotización Prueba - copia - copia.rar