Me gustaría que a la hora de digitar la información en los combobox, independientemente de mayúsculas y minúsculas, al ir introduciendo los datos, automáticamente en el textbox el texto se vaya convirtiendo a mayúscula. Por otro lado te felicito por tus atinados tutoriales. Saludos desde Panamá.
@alexandergarz2449 Private Sub TextBox1_Change() TextBox1.value = SoloTexto(TextBox1.value) End Sub Function SoloTexto(texto As Variant) Dim i As Long Dim caracter As Variant fn: For i = 1 To Len(texto) caracter = LCase(Mid(texto, i, 1)) Select Case caracter Case "a" To "z", "á" To "ú", "ñ", " " If caracter = " " And Mid(texto, i + 1, 1) = " " Then texto = Left(texto, i) & Mid(texto, i + 2) GoTo fn End If Case Else texto = WorksheetFunction.Replace(texto, i, 1, "") GoTo fn End Select Next i SoloTexto = texto End Function
Genial amigo muchas gracias por compartir tus conocimientos. Quisiera saber cómo colocar la ñ Ñ, ya que con lo anterior no se pueden colocar, gracias genio. Saludos
No me suscribo mi hermano pero muchas gracias. me sirvió de maravilla en ecxel 2013 - 365. Mano arriba. Disculpe tengo una pregunta, hay forma de desabilitar la tecla Bloq mayus en ecxel. ??? Nececito que el ecxel me escriba solo en minuscula.
@@maihuire11 UNA CONSULTA, QUIERO AGREGAR ESPACIOS, O SEA BARRA ESPACIADORA; ES DECIR, PRIMER NOMBRE Y SEGUNDO NOMBRE ¿CÓMO HAGO? MUCHAS GRACIAS POR TU RESPUESTA. SALUDOS DESDE PERÚ.
Estimado Excelente el proceso de validacion...tengo una duda como podria validar si es que el usuario deja el textbox en blanco y no lo permita..Saludos
Yo también quería lo que tu quieres pero solo que no me sale la Ñ ni la ñ Private Sub txtnombre_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If (KeyAscii >= 65 And KeyAscii = 97 And KeyAscii
por si a alguien le interesa 'Solo deja ingresar letrs en el texbox Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (KeyAscii >= 97 And KeyAscii >= 122 Or KeyAscii >= 65 And KeyAscii >= 90) Then KeyAscii = 0 End If End Sub 'solo deja ingresar numeros en el texbox Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (KeyAscii >= 48 And KeyAscii >= 57) Then KeyAscii = 0 End If End Sub
La otra forma es: 'Private Sub TEXTBOX1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) ' ' If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then ' If KeyAscii = Asc("-") Then ' If InStr(1, Me.TEXTBOX1.Text, "-") > 0 Or _ ' Me.TEXTBOX1.SelStart > 0 Then KeyAscii = 0 ' ElseIf KeyAscii = Asc(".") Then ' If InStr(1, Me.TEXTBOX1.Text, ".") > 0 Then KeyAscii = 0 ' Else ' KeyAscii = 0 ' End If ' End If 'End Sub
hola quisiera saber como ingresar letras y tambien espacios
Hola, eso me falto, te pongo la respuesta y fijaré tu pregunta.
If Not (KeyAscii >= 97 And KeyAscii = 65 And KeyAscii
Excelente trabajo ingeniero gracias por la información y abrazos desde Puerto Rico 🇵🇷
Muchas gracias. Este código es mucho más sencillo y al grano.
Las explicaciones siempre son precisas además de práctico que eres. Gracias por tus tutoriales.
Muchas gracias por compartir la información, bastante claro!!
excelente video muchas gracias
😇😀😀
Exelente tutorial. Muchas gracias por compartir tus conocimientos.
Por fin un video que sirve, thanks
Solución Hermosa! Otras muy prácticas pero está es demasiado medular, se puede aplicar a la situación que sea. Muchas gracias!
Buenísimo vídeo
¡Excelente explicación! Gracias por tan valioso aporte
BUENÍSIMO. MUCHAS GRACIAS... ESTO SI ES INFO DE CALIDAD!!!!
gracias! me ayudo bastante, lo estuve buscando y es el tuto q mas claro lo entendi
ya me suscrbi!!
Be Mol Gracias. Saludos
Bien! gracias :) lo único es que también hay que validar el espacio, porque queda fuera de la validación en cuanto al texto.
Excelente video, muy sencillo y facil. gracias!
Hi, Excellent explanation, short and dinamic...Thank you so much.
Gracias. Sabes español?
Gracias me sirvio
Muy buena explicación y muy practico
Un Saludo!
excelente explicacion! gracias por compartir!
saludos dde Argentina!! ;-))
Me salvaste de fallar en un examén. Muchas gracias. :3
De nada.
Gracias.
Buena explicacion practica .........gracias
Gracias! Sou do Brasil, obrigado manito!
Gracias.
Me gustaría que a la hora de digitar la información en los combobox, independientemente de mayúsculas y minúsculas, al ir introduciendo los datos, automáticamente en el textbox el texto se vaya convirtiendo a mayúscula. Por otro lado te felicito por tus atinados tutoriales. Saludos desde Panamá.
QUICIERA SABER SI ENCONTRASTE LA SOLUCION PORQUE ME INTERESA SABER TAMBIEN
buenas noches, para validarlo también si es que pegan el texto en el texbox?..
@alexandergarz2449
Private Sub TextBox1_Change()
TextBox1.value = SoloTexto(TextBox1.value)
End Sub
Function SoloTexto(texto As Variant)
Dim i As Long
Dim caracter As Variant
fn:
For i = 1 To Len(texto)
caracter = LCase(Mid(texto, i, 1))
Select Case caracter
Case "a" To "z", "á" To "ú", "ñ", " "
If caracter = " " And Mid(texto, i + 1, 1) = " " Then
texto = Left(texto, i) & Mid(texto, i + 2)
GoTo fn
End If
Case Else
texto = WorksheetFunction.Replace(texto, i, 1, "")
GoTo fn
End Select
Next i
SoloTexto = texto
End Function
Genial amigo muchas gracias por compartir tus conocimientos.
Quisiera saber cómo colocar la ñ Ñ, ya que con lo anterior no se pueden colocar, gracias genio. Saludos
Muy práctico e interesante.
Gracias estimado. Saludos
DISCULPA , COMO HAGO PARA QUE ACEPTE EL TECLADO DE ESPACIO(32)
Sin nada de palabreo. Muy bien
Saludos profesor abrazo desde Puerto Rico...podría hacer un tutorial de cear una nomina a pagar. Gracias horas rate deducción salario bruto y el neto
gracias
Amigo y si cambio a otro campo y no tiene 10 dígitos por ejemplo?
No me suscribo mi hermano pero muchas gracias. me sirvió de maravilla en ecxel 2013 - 365. Mano arriba. Disculpe tengo una pregunta, hay forma de desabilitar la tecla Bloq mayus en ecxel. ??? Nececito que el ecxel me escriba solo en minuscula.
perfecto
¡GENIAL, GRACIAS!
De nada y que bueno que te haya servido.
@@maihuire11 UNA CONSULTA, QUIERO AGREGAR ESPACIOS, O SEA BARRA ESPACIADORA; ES DECIR, PRIMER NOMBRE Y SEGUNDO NOMBRE ¿CÓMO HAGO? MUCHAS GRACIAS POR TU RESPUESTA. SALUDOS DESDE PERÚ.
@@eliasbernuy Hola, tendrias que buscar el codigo ASCII del espacio para poder incluirlo en el codigo vba.
De diez!!!!
Una pregunta: Que le tengo que agregar para que me permita dar espacios
El codigo para el espacio es 32
HOLA TU SAVE QUE CUANDO QUIERO INGREZAR EL (120) O EL (3OO) NO ME DEJA INGRESAR EL NUMERO 0 ¿COMO LO SOLUCIONO?
MUYYYY UTIL
Y para habilitar la tecla de borrar
muy bueno pero esa solucion no permitiria numeros decimales !!!
Estimado Excelente el proceso de validacion...tengo una duda como podria validar si es que el usuario deja el textbox en blanco y no lo permita..Saludos
Hola deberiaa validarlo con el siguiente codigo. If trim(textbox1.text)="" then
@@maihuire11estimado en que evento
if textbox.text = ""
En el evento click del boton q registra la información del formulario
Funciona, pero al ingresar un solo dígito como "5" no lo guarda en la celda, como arreglo eso?!!!
Creo q no sabe, xq solo creo un video siguiendo pasos de algún otro tutorial o se murió o cualquier otra cosa paso q no contesta
La primera opción no me sirve para igualar a una celda , se queda un número en el tintero y no se copia, como se puede corregir eso??
Hola, el primer código es para permitir solo el ingreso de números, que error te esta saliendo?
no me entra a la pagina
Hoye como puedo poner en tun textbox con LETRAS y espacios para poer escribir nombres con apellidos
Yo también quería lo que tu quieres pero solo que no me sale la Ñ ni la ñ
Private Sub txtnombre_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii >= 65 And KeyAscii = 97 And KeyAscii
por si a alguien le interesa
'Solo deja ingresar letrs en el texbox
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not (KeyAscii >= 97 And KeyAscii >= 122 Or KeyAscii >= 65 And KeyAscii >= 90) Then
KeyAscii = 0
End If
End Sub
'solo deja ingresar numeros en el texbox
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not (KeyAscii >= 48 And KeyAscii >= 57) Then
KeyAscii = 0
End If
End Sub
como le puedo dar formato de numero a los valores ingresados?
Jorge Luis Sgs. Hola, si quieres darle formato de numero con dos decimales seria ponerle range("A1").numberformat="0.00"
y para darle formato fecha al rango?
¿como hago si necesito que el numero sea en decimales?
Hola, el textbox solo acepta numeros enteros, si deses que acepte decimales, debes permitir que ingrese el punto mediante la captura del keyascci.
no funciona 30-11-2018
La otra forma es:
'Private Sub TEXTBOX1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'
' If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
' If KeyAscii = Asc("-") Then
' If InStr(1, Me.TEXTBOX1.Text, "-") > 0 Or _
' Me.TEXTBOX1.SelStart > 0 Then KeyAscii = 0
' ElseIf KeyAscii = Asc(".") Then
' If InStr(1, Me.TEXTBOX1.Text, ".") > 0 Then KeyAscii = 0
' Else
' KeyAscii = 0
' End If
' End If
'End Sub
Tu Blog esta CAIDO !!!!