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
Actualizaciones:
Versión 31.03.2012 17:50 -Cambio en la notación de las jugadas a modo mas "profesional"
Versión 02.04.2012 10:32 -Resolución incidencias del enroque
Versión 02.04.2012 20:43 -Resolución incidencias II del enroque
Hola:
¡¡¡ Tachán, tachán !!!
Aquí va la versión beta del Macroajedrez.
http://dl.dropbox.com/u/241435/MacroAjedrez Beta.xls
No contiene ni una sola fórmula,....jejeje.
Es algo distinto del de Pedro (Pegones1), he hecho mas incapié en el juego que en la visualización.
Falta pulir muchas cosas, por ejemplo, una notación mas "profesional" de las jugadas y el tema de "comer peón al paso".
También falta en su totalidad la parte de guardar las partidas para poder ser visionadas con posterioridad.
Como funciona:
Al abrir el archivo os encontrareis un tablero dispuesto a empezar una partida nueva, simplemente empezar a jugar.
Las jugadas irán apareciendo en los visores de jugadas de forma automática.
Los visores de jugadas son "sensibles" al cursor. Podeis cambiarlos de lugar y cerrar/abrir en cualquier momento.
Os rogaría que probeis todo lo que se os ocurra, sobre todo movimientos no permitidos con cualquiera de las piezas.
Pues nada, ya me contareis, si no es gusta, pues os aguantais, porqué a mi si,......jajaja
Saludos para todos.
Este aporte se lo dedico a Luis