Saltar al contenido

Validar caracteres definidos en una celda

publicado

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

Featured Replies

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

¿ Donde está el formulario ?

publicado
  • Autor

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

publicado

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

x = Right(Textbox1.value, 1)
If x <> K Then ......

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

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

publicado
  • Autor

Muchas gracias, lo intentaré y comento a ver que tal me funciona

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.