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 a tod@s,
les agradecería si me pueden ayudar en lo siguiente.
Teniendo en una carpeta muchos excel, para este ejemplo sólo 2, me gustaría que sobre el excel que se llama final me mostrase por ejemplo
en la celda A1 el nombre del primer fichero en este caso 1.txt
en la celda A2 si existe la linea "Nombre de host" en 1.txt que la muestre, y si no, que ponga que no existe
En la celda A3 si existe la linea "Propiedad de" en 1.txt que la muestre, y si no, que ponga que no existe
Y asi sucesivamente con todos los ficheros
He encontrado macros que me muestran todos los ficheros de una carpeta, pero no consigo hacer las otras busquedas.
Agradezco toda su ayuda
Muchas gracias
ejemplo.zip