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
Querria crear una web con archivos de excel hechos por mi totalmente gratis para que la gente se las pueda descargar .
El problema es que para financiar el proyecto quisiera incluir publicidad dentro de los archivos excel .
mi pregunta es si se puede de alguna forma con macros o como sea incluir en el excel publicidad de Adsense o de otra empresa de publicidad similar
El codigo que te dan en Adsense es HTML para que lo pongas en la web y es del estilo( este codigo en concreto no funciona):
<script type="text/javascript"><!--
google_ad_client = "ca-pub-585185562854944";
/* Enlaces */
google_ad_slot = "5843165204";
google_ad_width = 728;
google_ad_height = 15;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Muchas gracias por adelantado