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 todos, tengo una super duda, tal ves media imposible.
Quiero crear una tabla que no solo obtenga datos de otro libro, si no que discrimine los datos que ya se obtuvieron por una variente de fechas,
Ejemplo
el libro tiene los datos de
Fecha, tipo de contenido y numero de visualizaciones
La idea es que la tabla cree una columna por mensual con todos los contenidos pero en columnas individuales, en orden de segun la fecha.
resultado esperado ejemplo
Columna A, A1 Fecha mes A2 fecha dia A3 Visualizaciones A4-infinito otros datos
Adjunto un ejemplo de la base de datos que estoy tratando de usar
Gracias a todos por su ayuda