Validación de celda, ingresar 8 datos alfanuméricos
Necesito ingresar 8 valores alfanuméricos en una celda, solo números y letras en cualquier orden.
2 Respuestas
Buenos días, gracias por la colaboración, pero con esa validación me permite ingresar caracteres especiales y es lo que no quiero. Quiero que solo permita ingresar numero y letras no mas.
Quita la validación de datos.
Pon la siguiente macro en los eventos de tu hoja. Cambia E4 por la celda que quieres validar. La macro permite letras (mayúsculas, minúsculas, acentos, números y la ñ)
Avísame si quieres menos o más letras u otros caracteres.
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E4")) Is Nothing Then
If Target = "" Then Exit Sub
existe = False
largo = Len(Target)
If largo <> 8 Then
existe = True
End If
For i = 1 To Len(Target)
wcar = Mid(Target, i, 1)
wasc = Asc(wcar)
Select Case wasc
Case 48 To 57 '0123456789
Case 65 To 90 'A-Z
Case 97 To 122 'a-z
Case 225, 233, 237, 243, 250 'á é í ó ú
Case 193, 201, 205, 211, 218 'Á É Í Ó Ú
Case 241, 209 'ñ Ñ
Case Else: existe = True
End Select
Next
If existe Then
MsgBox "El usuario sólo puede introducir ciertos " & _
"valores en esta celda", vbCritical, "ERROR DE CAPTURA"
Target.Value = ""
Target.Select
'SendKeys "{F2}", True
End If
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
':) ':)
El problema es que la fórmula necesaria para la validación excede los 255 caracteres, y Excel no permite que se supere esa cifra (al menos en Excel 2010, que es la versión que estoy usando).
Una posible solución es usar una celda auxiliar para la validación. Por ejemplo, si la celda donde se introduce el dato es A1, se podría usar B1 como celda auxiliar. Entonces, en la validación de datos para A1 habría que poner como Fórmula:
=$B$1
y la fórmula para B1 sería:
=Y(SUMAPRODUCTO((CODIGO(EXTRAE(MAYUSC($A$1);FILA(INDIRECTO("1:"&LARGO($A$1)));1))>64)*(CODIGO(EXTRAE(MAYUSC($A$1);FILA(INDIRECTO("1:"&LARGO($A$1)));1))<91))+SUMAPRODUCTO((CODIGO(EXTRAE($A$1;FILA(INDIRECTO("1:"&LARGO($A$1)));1))>47)*(CODIGO(EXTRAE($A$1;FILA(INDIRECTO("1:"&LARGO($A$1)));1))<58))=LARGO($A$1);LARGO($A$1)=8)Quizás sea necesario sustituir los puntos y comas por el separador de listas que esté establecido en la configuración regional del equipo.