Limitar número caracteres

[Davides71]

Buenas tardes, mi duda es la siguiente, necesito que en una casilla de Excel, se permita como mucho escribir  los primeros 8 números que escribas y si escribo alguno más QUE NO PERMITA ESCRIBIR MAS Y SE PARE.?

 

Esta opción es realmente posible? Muchas gracias y saludos a toda la comunidadde foreros.

[Gerson Pineda]

Hola

  En 14/11/2022 at 19:40 , Davides71 dijo:

necesito que en una casilla de Excel, se permita como mucho escribir  los primeros 8 números

Expand  

Con una macro de evento y validación de datos, es posible

Te dejo un pequeño ejemplo

Restringir entrada de datos VBA_GP.xlsmFetching info...

[Davides71]

Muchas gracias. Te lo agradezco. Lo investigo luego a fondo que esto de Excel es un mundo complejo a veces. Vosotros lo hacéis más fácil. Da gusto.

 

Saludos.

[FGV]

Hola @Davides71(y Gerson),

La propuesta de Gerson es inexpugnable: no es posible de ninguna forma escribir más de 8 caracteres en A1. Con una simple validación de datos limitando a 8 el número máximo de caracteres, si tecleas sobre A1 no te permite más de 8, pero mediante copiar/pegar, arrastrar... puedes escribir cualquier número de caracteres. Supongo que lo sabes, pero la validación simple sería:

[Davides71]

Muchas gracias por las respuestas. El motivo de la consulta lo mismo es algo más complejo. Trabajo con códigos de barras y sus pegatinas correspondientes. Al disparar por ejemplo sobra la casilla A1...... te marca 10 números, siento los 2 últimos una terminación que luego tengo que borrar, porque no me sirve.

 

Mi idea era limitar los caracteres a 8 pero que recoja el número 

 

Saludos y muchas gracias.

 

 

[FGV]

Hola @Davides71(y Gerson)

No sé si te puede servir con una macro en el evento WorkSheet_Change() de modo que al escribir el número del código de barras (10 números), la celda cambia y en el evento le decimos que elimine las 2 últimas cifras...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Column = 1 Then Target = Left(Target, 8)
End Sub

De 10 a 8 caracteres.xlsmFetching info...

[Davides71]

Ha funcionado perfectamente. Envidio el conocimiento que tienes o tenéis en general los que controláis office a estos niveles de poner una duda y tener la solución.  Me intriga toda la nomenclatura que has puesto para que funcione y me esta picando la curiosidad de como podría empezar a estudiar un poco este mundillo.

¿ Alguna recomendación?

 

Muchas gracias FGV por todo.

[FGV]

No es fácil acertar lo que más te conviene. Lo ideal es que vayas consultando y leyendo cosas y tú mismo irás seleccionando lo que veas más útil. Puedes comenzar mirando por aquí:

https://abrahamexcel.blogspot.com/p/manuales.html

Algún Libro como:

https://www.excelnegocios.com/manual-vba-excel-2016-pdf-de-346-hojas/

https://www.pdf-manual.es/office/excel/106-excel-con-programacion-de-macros-en-vba.html

https://siempreexcel.com/manual-de-macros-vba-excel-pdf/

https://www.cartagena99.com/recursos/alumnos/apuntes/TEMA 6 Programacion de Macros de Excel utilizando VBA.pdf

https://mega.nz/file/IJlW0ATC#BIvdw0b_ISDZ6kvkSDUZY1PfmIKC4zuofyQIqAM56i4

https://docer.com.ar/doc/een10se

Eso sí: sin prisa pero sin pausa... Un saludo, Fernando

[Davides71]

Muchas gracias Fernando.

 

Saludos y muchas gracias por todo.