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
Aprovecho para saludar y presentarme en este mi primer post. Llevo siguiéndoos mucho tiempo
y quiero agradeceros toda la ayuda que me váis prestando y todo lo que he aprendido
de vuestros conocimientos.
Por primera vez, después de leer y leer no encuentro la solución a mi problema.
¿Me podríais ayudar con lo siguiente?
Tengo en una hoja en la que quiero que se ejecute el siguiente código
Private Sub Worksheet_Change(ByVal Target As Range)
'Elijo el rango de una columna para que siempre que se introduzca un valor a una celda
vaya a la celda de la misma fila y de la columna A
If Intersect([F2:F1000], Target) Then
'Pongo la instrucción que quiero se ejecute
ActiveCell.Offset(-1, -5).Select
End If
End Sub
No hay ningún problema con números, lo hace perfecto. Pero si introduzco letras me sale este cuadro:
"Se ha producido el error 13 en tiempo de ejecución"
"No coinciden los tipos"
Os adjunto un archivo de ejemplo sólo con este problema.
Os estaría muy agradecido si me dijérais en qué estoy equivocado u otra manera de conseguirlo.
Muchas gracias y un saludo cordial.
Libro1.xls