Validar caracteres definidos en una celda

raulgd · el 18 de junio

Buen día a todos.

Vengo con un problema. Tengo un formulario de ingreso de datos en el cual en una celda debo limitar los caracteres a un formato determinado y si no se cumple ese formato no deben poder ingresarse ningun dato.

el formato es que el primer caracter sea la letra "K" y despues de esta debe haber solamente 7 caracteres numéricos, ni mas ni menos.

Podrian ayudarme con ese codigo.

Anexo archivo, espero sea suficiente para darme a entender.

De antemano muchas gracias por el apoyo

Ejemplo 1.zip

Antoni · el 18 de junio

.....Tengo un formulario de ingreso de datos..........

¿ Donde está el formulario ?

raulgd · el 18 de junio

No subi el formulario por que eso en realidad no importa, solamente necesito que en una celda no me permita ingresar datos a menos que se cumpla con las condiciones antes mencionadas.

De antemano muchas gracias por la ayuda

Smako · el 18 de junio

Ambas condiciones deben ser un if y la primera sería sacando el primer dígito con:

x = Right(Textbox1.value, 1)
If x &lt;&gt; K Then ......

Y la segunda condición, puedes adaptar este código:

Private Sub TextBox11_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii &lt; 48 Or KeyAscii &gt; 57) And KeyAscii &lt;&gt; 8 Then
KeyAscii = 0
MsgBox "Solo ingrese números"
End If
End Sub