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 amigos/as. Quiero pedirle nuevamente ayuda para solucionar mi problema.
Tengo un TextBox en una HOJA Excel el cual el evento es Private Sub TextVenta_Change().
Puede que el evento no tenga que ser este pero probe con GotFocus que es el que mejor dá pero hace una repeticion cuando cambio de hoja
No he podido lograr insertar formula y formato a partir de la 1ª libre.
Adjunto libro de prueba en 3 partes una ves que no me acepta el tamaño en uno solo. Son de 60 KB cada
De verdad necesito su ayuda. Agradezco una mirada al codigo que tengo su correccion
Gracias
Editado:
Quisiera cerrar o eliminar este tema, preferiblemente eliminarlo porque el tema esta mal expuesto
Gracias