Excel: Limitar elnúmero de caracteres en un celda

[maria1]

Hola, me gustaría saber cómo puedo limitar el número de caracteres en una celda. Es decir, que sólo se puedan escribir, por ejemplo, 15 caracteres y no deje poner 16. La opción Datos/validar, creo que No me sirve ya que yo volcaré los datos al excel desde otro archivo y quiere que cuando los datos que van a ser volcados superen la longitud de 15, nada más me ponga los 15 primeros.

Gracias. Belén

[3pies]

Si sabes algo de macros, copia este en la hoja en cuestión (no en un módulo):

Código:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, ActiveCell) Is Nothing Then
    ActiveCell = Left(ActiveCell, 15)
End If
End Sub

Saludos

[JoaoM]

Iniciado por 3pies

Si sabes algo de macros, copia este en la hoja en cuestión (no en un módulo): Saludos

3pies, copie el codigo en la hoja 1 y probé cambiabndo el 15 por 4, resultado
Entran cualquier cantidad de caracteres.
¿Alguna solucion? me interesa el tema

[3pies]

Es probable que eso te pase si en lugar de pulsar enter, al introducir un dato en la celda, pulsas las teclas de desplazamiento, o el tabulador. En ese caso, el evento Change no se dispara.

Para solucionarlo, podrías deshabilitar las teclas de desplazamiento y la tecla tabulador, incluyendo en el condicional anterior estas líneas:

Código:

Application.OnKey "{DOWN}", ""
Application.OnKey "{UP}", ""
Application.OnKey "{RIGHT}", ""
Application.OnKey "{LEFT}", ""
Application.OnKey "{TAB}", ""

[JoaoM]

Sin tabulador, sin flechas solo Enter y todo sigue igual.
Tengo que mencionar que tengo 2010, no se si eso influi y no funcione en esta version

[Monimo]

Si es siempre una sola celda , puedes dejar eso estipulado en la macro...

por ejemplo esto se aplicaría solo si fuera la celda E4

Código:

If Target.Column = 5 Then
 If Target.Row = 4 Then

       Target.Value = Left(Target.Value, 15)

  end if
End If

El código de 3pies aplica para la celda que sea, donde quiera que escribas en esa hoja te limitará solo a 15 caracteres:

Código:

Private Sub Worksheet_Change(ByVal Target As Range)
    Target.Value = Left(Target.Value, 15)
End Sub

[Monimo]

MMm se repitió mi mensaje no se porque, pero edito este para que no esté repetido.

[3pies]

Ays... Yo que uso 2003, y a veces 2007 (pocas), ...como para empezar con 2010 :P

El código que te ha puesto Monimo, te funcionará en todas las versiones de Excel.

[JoaoM]

Desisto, si me funciona el de Monimo pero solo para una celda y no se como hacer para que este mismo puede actuar en toda la hoja o preferiblemente que yo pueda dar a una o mas columnas este formato, xe: tengo un libro con un frmulario que desde este se envian datos a la hoja, unos textBox que solo aceptan 4 caracteres y otros con solo 7 caracteres. Quisiera que en la hoja esas columnas SOLO acepten la cantidad de caracteres que se les envia desde el form para que nadie pueda modificar nada directamente en las hojas

[Monimo]

te voy a poner el código explicado para que lo modifiques de acuerdo a lo que necesitas.

por ejemplo esto se aplicaría solo si fuera la celda E4

Código:

If Target.Column = 5 Then ' si la celda que estas escribiendo esta en la columna 5
If Target.Row = 4 Then ' evalúo que el renglón sea el 4

' si quisiera otra celda debo fijarme en que columna y en que renglón está para poner esos números aquí. por ejemplo A2 sería column =1 y row=2. Si quiero W55 sería column=23 row=55.

Target.Value = Left(Target.Value, 15) Target es la celda donde estoy escribiendo , la función left gunciona así: left(texto del que quiero cortar un x numero de caracteres desde el principio del texto, cuantos caracteres quiero que recorte)

si quiero que solo me permita 7 en lugar del 15 pongo 7, si quiero que me acepte 4 pongo un 4. Puedo poner tantas celdas sean necesarias evaluar.



end if
End If

[JoaoM]

Lo de las celdas está caro pero, ¿Para una o mas columnas? digamos que quiero que la columna C Solo acepte 4 caracteres que la D solo acepte 7, la E 4, la F 7, la G 4, la H 7

Todo eso en una sola macro, un solo codigo para una columna y que se pueda adaptar a mas columnas.
No estoy mensionando celdas y si columnas que cada columna puede tener 65000 y tal celdas

[Monimo]

Pues solo tienes que adaptarlo a esas columnas.

Edito:

así:

Select Case Target.Column

Case is <aqui pones la columna C en Número que sería 3>

Target.Value = Left(Target.Value, 4)

Case is <Columna d>

Target.Value = Left(Target.Value, 7)

case is <otra columna>

Target.Value = Left(Target.Value, y el numero de caracteres que quieres que acepte)

End Select


Y así vas agregando "Case is" por cuantas quieras agregar

[JoaoM]

ENTENDIDOOOO, pregunto por mulo,

La macro es colocada en cada hoja de la(s) cual(es) quiero tener eso?
creo tiene que ser en cada hoja que vaia a usar el formato

edito:

No me acepta case is <5> se queda en rojo ni tampoco Case is <Columna 5>

[Monimo]

Iniciado por JoaoM

ENTENDIDOOOO, pregunto por mulo,

La macro es colocada en cada hoja de la(s) cual(es) quiero tener eso?
creo tiene que ser en cada hoja que vaia a usar el formato

edito:

No me acepta case is <5> se queda en rojo ni tampoco Case is <Columna 5>

Es que es Case is =5 lo que puse entre signos de mayor y menor eran explicaciones en pseudo código... la sintáxis es asi:

Case Is = 1

[JoaoM]

Llegue amigos.

Hice la prueba hoy y muy triste quedé, a punto de suicidarme.
es que no me resulta, acepta toda cantidad de caracteres que le meta.
¿Que estoy haciendo mal?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column

Case Is = c 'columna
Target.Value = Left(Target.Value, 4) ' numero de caracteres que quiera que acepte)

Case Is = d
Target.Value = Left(Target.Value, 7)

Case Is = e
Target.Value = Left(Target.Value, 4)

Case Is = f
Target.Value = Left(Target.Value, 7)

Case Is = g ''''''''''''''''''''''''''''''''''''''''''''''''' hago referencia acá para mensionar que tambien probe con numero Case Is = 1
Target.Value = Left(Target.Value, 4)

Case Is = h
Target.Value = Left(Target.Value, 7)

End Select
End Sub

[Monimo]

Que raro a mi me funciona perfecto, pego ese código en la hoja en la que quiero esas restricciones. Por ejemplo en la Hoja uno y entonces en las columnas , E H y K tengo esas restricciones.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column

Case Is = 5 'columna
Target.Value = Left(Target.Value, 4) ' numero de caracteres que quiera que acepte)

Case Is = 8
Target.Value = Left(Target.Value, 7)

Case Is = 11
Target.Value = Left(Target.Value, 4)

End Select
End Sub

Escribo todo el abecedario en una celda de la columna H doy enter y cuando termino me deja solo:

abcdefg

Podrías probar de nuevo?? Donde lo pegas? Que pasa si al terminar te posicionas sobre la misma celda donde escribiste? cambia algo?

[Monimo]

A ver este debe funcionar perfecto

Código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TR = Target.Row - 1

Select Case Target.Column

Case Is = 3 'columna
Cells(TR, 3).Value = Left(Cells(TR, 3).Value, 7) ' numero de caracteres que quiera que acepte)

Case Is = 4
Cells(TR, 4).Value = Left(Cells(TR, 4).Value, 7)

Case Is = 5
Cells(TR, 5).Value = Left(Cells(TR, 5).Value, 4)

Case Is = 6
Cells(TR, 6).Value = Left(Cells(TR, 6).Value, 7)

Case Is = 7 ''''''''''''''''''''''''''''''''''''''''''''''''' hago referencia acá para mensionar que tambien probe con numero Case Is = 1
Cells(TR, 7).Value = Left(Cells(TR, 7).Value, 7)

Case Is = 8
Cells(TR, 8).Value = Left(Cells(TR, 8).Value, 7)

End Select
End Sub

[jchuk]

Hola,

El evento es change, no selectionchange

Además, en el Case el valor de igualdad debe ser el número de la columnas, no la letra.

Un saludo.

[Monimo]

Iniciado por jchuk

Hola,

El evento es change, no selectionchange

Además, en el Case el valor de igualdad debe ser el número de la columnas, no la letra.

Un saludo.

Es cierto, no se porque el lo cambió a selection change ¬¬ yo lo puse como Worksheet_Change...y luego ya solo copié jaja . Bueno espero que lo resuelva y muchas gracias por la observación.

[JoaoM]

donde mejor funciona es en selectionchange, en change dá mucho error 1004

En selectionchange funciona pero de cuando en cuando dá un error 1004 tambien XE.

Escribo en la celda 3, bien, d3 bien, e4 bien, f3 da error 1004, finaliso, sigo en h1 bien, d5 bien, g3 da error

Cambie a varios metodos pero el que mejor funciona es este selectionchange

Iniciado por Monimo

Escribo todo el abecedario en una celda de la columna H doy enter y cuando termino me deja solo:

abcdefg
Podrías probar de nuevo?? Donde lo pegas? Que pasa si al terminar te posicionas sobre la misma celda donde escribiste? cambia algo?

En mi 2010 no me funciona.
con el codigo del post 16 Probé escribir en una celda 10 caracteres, doy enter y quedan los mismo 10, vuelvo a colocarme en la misma celda y cambia a la cantidad explicita en el codigo

Lo pego en la hoja, es decir en cada hoja pego el codigo

[Monimo]

Utiliza este, aquí ya cambié que sea justo cuando escribes y no cuando pasas de nuevo sobre la celda modificada.

Código:

Private Sub Worksheet_Change(ByVal Target As Range)
On error resume next
TR = Target.Row - 1

Select Case Target.Column

Case Is = 3 'columna
Cells(TR, 3).Value = Left(Cells(TR, 3).Value, 7) ' numero de caracteres que quiera que acepte)

Case Is = 4
Cells(TR, 4).Value = Left(Cells(TR, 4).Value, 7)

Case Is = 5
Cells(TR, 5).Value = Left(Cells(TR, 5).Value, 4)

Case Is = 6
Cells(TR, 6).Value = Left(Cells(TR, 6).Value, 7)

Case Is = 7 ''''''''''''''''''''''''''''''''''''''''''''''''' hago referencia acá para mensionar que tambien probe con numero Case Is = 1
Cells(TR, 7).Value = Left(Cells(TR, 7).Value, 7)

Case Is = 8
Cells(TR, 8).Value = Left(Cells(TR, 8).Value, 7)

End Select
End Sub

Prueba con este y nos comentas...Aquí seguiré hasta que quede :)

[JoaoM]

Pienso que te equivocaste al dejar el codigo, me parece igual que el anterior. Lo unico que no da error

On error resume next
es la unica diferencia

OK,

pase el codigo para Private Sub Worksheet_SelectionChange(ByVal Target As Range) y si funciona perfecto con la linea del error, On error resume next
sin la linea del error, hace lo que te comente ayer.

En la Private Sub Worksheet_Change(ByVal Target As Range) no me funciona, no da el error por la misma linea pero no me funciona

Si quieres que proceda en todas las hojas del libro hay que colocar el codigo en
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) me funciona PERFECTO
a menos que el usuario quiera el proceso en hojas individuales o salteadas (DISCONTINUAS), entonces si, tiene que colocar el codigo en las hojas que pretenda

Creo que llegamos al final con la linea del error, está perfecto, el cual agradesco imensamente tu generosidad en ayudar y poner toda tu sabiduria en esto.

Gracias miles