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, estoy trabajando en una macro que me filtre una tabla y que la pegue en otro libro, todo funciona correctamente salvo una parte.
A la tabla que deseo copia le pongo la opción de un autofiltro para que me seleccione solo una semana en particular, y tengo una validación para ello:
Sheets("DataIns").Select
Worksheets("DataIns").AutoFilterMode = False
Range("A1").Select
Selection.AutoFilter Field:=7, Criteria1:=wk
Range("G1").Select
ActiveCell.Offset(1, 0).Select
comproWeek = ActiveCell.Value
If comproWeek = wk Then
Range("B1").Select
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Else
Copiar = "No"
End If
Al utilizar el offset para comprobar si es la celda con la semana correcta queda dentro de las ocultas y por tanto no se copia.
Lo que necesito es que pueda desplazarse una fila y caer sobre el valor que corresponde para correr la condicional si debe copiarse o no...