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 tardes al foro,
Necesito si me pueden ayudar en lo siguiente
1. Tengo dos archivos los cuales cada uno manejan la misma Base de datos de Pacientes (Se encuentra en una pestaña llamada Pacientes)
2. Cuando selecciono el campo de nombre el me busca en la Base de datos de Paciente el nombre y me lo trae.
3. El inconveniente es que si hay que crear a un Paciente, se debe crear en las dos Base de datos que se encuentran en cada archivo.
4. Como hago para que se comparta la Base de Datos y solo crearla en una sola parte?
Adjunto Archivos
No me deja adjuntar los archivos.
Les agradezco que me den una indicación para saber por me oriento.