Excel - Validar entrada segun formato

 
Vista:

Validar entrada segun formato

Publicado por LupitaGS (1 intervención) el 11/02/2006 03:49:19
Necesito validar que al capturar datos en una celda, los primeros3 sean letras y los 6 siguientes sean numeros.

Es posible hacer esto ?

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Validar entrada segun formato

Publicado por JuanC (792 intervenciones) el 11/02/2006 20:59:46
Creo que es posible mediante el uso de macros...

Fijate si el código siguiente te sirve de algo...
Saludos y buena suerte, desde Buenos Aires, JuanC

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" Then
Dim v, i%, iCod%
v = Trim(Target.Value)
If Len(v) = 9 Then
For i = 1 To 3
iCod = Asc(Mid(v, i, 1))
If Not ((iCod >= 65 And iCod <= 90) Or _
(iCod >= 97 And iCod <= 122)) Then
GoTo salir
End If
Next
For i = 4 To 9
iCod = Asc(Mid(v, i, 1))
If Not (iCod >= 48 And iCod <= 57) Then
GoTo salir
End If
Next
Else: If v <> "" Then GoTo salir
End If
Else: End
End If

If Range(Target.Address).Interior.ColorIndex = 3 Then
Range(Target.Address).Interior.ColorIndex = xlNone
End If
End

salir:
MsgBox "Valor no permitido!", vbCritical + vbOKOnly
Range(Target.Address).Select
ActiveCell.Interior.ColorIndex = 3
End Sub

PD: puede y debe mejorarse!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar