Hola amigos

Adjunto un archivo de uso diario en el cual me funciona bien una macro de limpieza de rangos específicos.

Quiero estar seguro que si abro otro archivo no se ejecute en éste recién abierto la misma macro si presiono (por equivocación) las teclas de acceso directo. En este caso Ctrl+Mayus+V.

Lo hice con grabación de macros y al código generado yo le agregué "With Hoja1" y su correspondiente "End With".

¿Debo en alguna parte del código (supongo que al principio) agregar algo más? Algo como "ThisWorkbook" u otra propiedad...

Gracias de antemano

Rubén

000000 Transferencias.xlsm

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.

1. No asignarlo a una combinación de teclas, mejor ponerlo en una forma o botón.

2. 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.

3. Al principio de tu código pondría algo como: If Thisworkbook.Name <> ActiveWorkbook.Name Then Exit sub

En 28/8/2025 at 14:29 , DiegoPC dijo:

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.

1. No asignarlo a una combinación de teclas, mejor ponerlo en una forma o botón.

2. 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.

3. Al principio de tu código pondría algo como: If Thisworkbook.Name <> ActiveWorkbook.Name Then Exit sub

Muchas gracias @DiegoPC !!

Pasa lo siguiente...

No entiendo qué significa.

La opción 2 no la entiendo nada. Pero no me afecta eso.
La opción 3 me gusta If Thisworkbook.Name <> ActiveWorkbook.Name Then Exit sub

Qué debo escribir después de "Thisworbopk.Name" ?

Gracias

Rubén

Hola @RubenDario

El error seleccionado puede ser porque ".Selection" hace referencia a cualquier cosa seleccionada (un rango, un gráfico, un segmentador...) pero ClearContents es un método de los rangos. El error se da si la selección en ese momento no es un rango. Revisa bien todo tu código.

En 9/9/2025 at 8:44 , RubenDario dijo:

Qué debo escribir después de "Thisworbopk.Name" ?

Menor que, mayor qué < > eso significa "diferente"

hace 4 horas, DiegoPC dijo:

Hola @RubenDario

El error seleccionado puede ser porque ".Selection" hace referencia a cualquier cosa seleccionada (un rango, un gráfico, un segmentador...) pero ClearContents es un método de los rangos. El error se da si la selección en ese momento no es un rango. Revisa bien todo tu código.

Menor que, mayor qué < > eso significa "diferente"

Hola Diego ! Gracias por reponder
Yo entiendo que "<>" significa "diferente" como también ">" significa es mayor que y "<" es menor que.
Preguntaba si que palabras (o lo que sea) debo poner despues de "Thisworkbook.Name". Concretamente después del ".Name".
Eso.

Rubén

Hola Ruben

Solo deberías escribir esto. Esa línea hace que si el nombre del libro donde está la macro (thisworkbook) es diferente al nombre del libro donde se encuentra el usuario (libro activo = Activeworkbook)

En 28/8/2025 at 12:29 , DiegoPC dijo:

If Thisworkbook.Name <> ActiveWorkbook.Name Then Exit sub

Genial @DiegoPC

Ahora lo tengo claro !

Un abrazo amigo.

Muchas gracias

Rubén