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 tengo un archivo de macros de office 2013 y al abrirlo en 2007 me tira error asi
aal grabar macros que hago que filtre los 10 mejores la tabla dinamica al corrrerlo de nuevo en office 2007 me tira error
dice algo de pivot table será por la version de windows? la gran cantidad de datos?
por favor prueben el archivo en 2007 y 2013 y diganme que ocurre
Libro1.rar