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:
Dicen que vale mas un ejemplo que 1.000 palabras ,con el IVA 1.180,y pronto, lastimosamente, 1.200.
Vale para comparar asignaturas, temperaturas, tiempos,... y lo que se os ocurra.
Abrir el adjunto y pulsar Ctrl+f, se abrirá un formulario para comparar 1 hoja con 1 a n hojas (promedio si es mas de 1).
Admite caulquier nº de filas/columnas, se reserva la fila 1 para títulos y el rango A:B para el ID y el NOMBRE del sujeto.
Una vez ejecutado, aparecerán unas flechitas (Rojas, Azules, Verdes) en función de la comparación de las hojas seleccionadas en el formulario.
Si se pulsa sobre una flecha, se mostrará los valores de comparación.
¡ Be happy !
Subida modificación. Ver post #3 para mas detalle.
CompararResultados II.xls