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 Sub
Sigue 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
':)
':)