Validación solo en minusculas, tal como se indica en el rango.

12/01/2009 - 00:39 por Alfonso | Informe spam

Hola a todos
He validado una columna, para que solo admita las 'letras' que tengo en otra
columna, dentro de la misma hoja, pero he tenido que incorporar en la
Validación-->Lista--Origen, todas las letras 'a','b','c','d','e','f',...y
así hasta 'ai', para que solo admita estas letras EN MINUSCULA, y me
funciona.
Mirando en los foros he visto y he intentado mejorar esta validacion
haciendo en la misma hoja una columna AA1: AA35 con las letras que quiero
validar, y en la columna siguiente, en AB1 poniendo la formula
=CONCATENAR("AA1:AA";CONTARA(AA:AA)) y en Validar-->Lista-->Origen:
=INDIRECTO($AB$1), para que cuando aumente las letras a incorporar en el
rango AA1:AA35, automaticamente me las incorpore en la validación, y
funciona pero con un matiz, admite tambien las letras en mayúsculas, y eso
es lo que deseo evitar.
No he conseguido que solo admita las letras que pongo en el rango (en
minuscula).
Alguna sugerencia.
Gracias y saludos.

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

No se como hacer esta validacion

Leer las respuestas

#6 Héctor Miguel

12/01/2009 - 22:18 | Informe spam

hola, Alfonso !

La verdad es que me daria igual que validara ambas, tanto en MAYUSCULAS como en MINUSCULAS
es mas seria mejor que validara ambas, por ahorro de tiempo de las personas que introducen los datos
y podría 'aprovechar' la validacion que te comento... por cuanto que podria ampliar el rango/columna, con mas letras...
... tengo macros... que me trasladan los 'Nombres' que se insertan en unas filas con cada letra ...
y si las 'letras' no aparecen bien en Mayusculas o bien en Minusculas ...
... 'desentrañar'... macros para hacer la pertinente modificacion y que valide como valide siga trasladando ...

(segun parece) lo unico que necesitas modificar es la instruccion IF en la funcion personalizada:

Function TomarClientes(Clientes As Range, Claves As Range, Clave) As String
Dim Celda As Range, Fila As Long: TomarClientes = "": Fila = 1
For Each Celda In Claves
If Celda = Clave Then
If TomarClientes <> "" Then TomarClientes = TomarClientes & ", "
TomarClientes = TomarClientes & Clientes.Cells(Fila)
End If: Fila = Fila + 1
Next
End Function

de: -> If Celda = Clave Then
a: -> If LCase(Celda) = LCase(Clave) Then

saludos,
hector.

Responder a este mensaje

#7 Alfonso

12/01/2009 - 23:02 | Informe spam

Héctor, perfecto, como siempre. Gracias una vez más. Te diré tambien que he
hecho caso de tus advertencias con respecto a que tenía demasiados 'lios' en
este Libro y que podia 'estrumpirse', y ya tengo otro completamente
distinto, sencillo, práctico y rápido, manteniendo solo lo imprescindible,
ya que de tanto darle vueltas he conseguido simplificar todo su
funcionamiento, sin mayores problemas, hasta el momento.
Saludos
Alfonso

"Héctor Miguel" escribió en el mensaje
news:

hola, Alfonso !

La verdad es que me daria igual que validara ambas, tanto en MAYUSCULAS
como en MINUSCULAS
es mas seria mejor que validara ambas, por ahorro de tiempo de las
personas que introducen los datos
y podría 'aprovechar' la validacion que te comento... por cuanto que
podria ampliar el rango/columna, con mas letras...
... tengo macros... que me trasladan los 'Nombres' que se insertan en
unas filas con cada letra ...
y si las 'letras' no aparecen bien en Mayusculas o bien en Minusculas ...
... 'desentrañar'... macros para hacer la pertinente modificacion y que
valide como valide siga trasladando ...

(segun parece) lo unico que necesitas modificar es la instruccion IF en la
funcion personalizada:

Function TomarClientes(Clientes As Range, Claves As Range, Clave) As
String
Dim Celda As Range, Fila As Long: TomarClientes = "": Fila = 1
For Each Celda In Claves
If Celda = Clave Then
If TomarClientes <> "" Then TomarClientes = TomarClientes & ", "
TomarClientes = TomarClientes & Clientes.Cells(Fila)
End If: Fila = Fila + 1
Next
End Function

de: -> If Celda = Clave Then
a: -> If LCase(Celda) = LCase(Clave) Then

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida