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
hola, como estan? mi nombre es alan de buenos aires argentina
llegue al foro a travez de google buscando alguna solucion interna para la gestion de clientes para un telemarketing
paso a desarrollar el tema lo mas especifico posible
esporto la base de datos de mi pagina, que todos los dias se registran empresas nuevas...
a estos mismos les tengo que vender y hacerles un seguimiento
lo que necesito es:
elejir el id del cliente = me aparecen los datos de 10 o 20 columnas
y tenes una opcion o caja de texto para insertar datos , bastantes como
con quien hable
posibilidad de venta del 1 al 5 en numero
que se le ofrecio
cuando
proximo llamado
objeciones del cliente
todo esto si es por carga de un formulario mejor
------------------------
segundo paso
elejir id o filtrar por "posibilidad de venta" siendo 1 ninguna y 5 venta completa
al elejirlo que me aparezcan los datos y los nuevos datos cargados
y otra vez el mismo proceso
si yá existe algo asi, perfecto, sino necesitaria toda la ayuda posible como lo dice el nombre del foro
espero haber sido bastante claro, sino me preguntan aqui estaré pendiente a las respuestas y contestare de inmediato
saludos y gracias de antemano