Saltar al contenido

Convertir un texto a mayuscula en un TexBox


DRAMIDOM

Recommended Posts

publicado

Hola a todos, me quisiera unir a los aportes y para esto les doy este código que puede ser de gran utilidad. Supongamos que tenemos un texbox en el que introducimos textos pero deseamos que estos sean introducidos solo en mayuscula sin tener que tener el caps lock presionado. Haremos lo siguiente:

Private Sub Textbox1_Change()
Dim I As Integer
Textbox1.Text = UCase(Textbox1.Text)
I = Len(Textbox1.Text)
Textbox1.SelStart = I
End Sub[/PHP]

Si lo desean les subo un archivo con varios texbox programados con este codigo y asi puedan verlo trabajando.

Espero les sirva.

Saludos,

publicado
  "Gerson Pineda-El Catracho dijo:
Hola Dramidon es muy util tu aporte por lo que a muchos nos servira! (lo he probado y funciona perfecto)

Gracias!

Esta semana me dedicaré a subir aportes trataré de hacerlo con archivos también asi es mas util de ver el funcionamiento; y de dividirlo por temas. Veré si dispongo de tiempo.

Saludos,

publicado
  Cita
Esta semana me dedicaré a subir aportes trataré de hacerlo con archivos también asi es mas util de ver el funcionamiento; y de dividirlo por temas. Veré si dispongo de tiempo.

Que bueno y tomate tu tiempo! Saludos

  • 9 months later...
publicado

Una pequeña modificación:

 
Dim Posicion As Integer

Private Sub Textbox1_Change()
With TextBox1
.Text = UCase(.Text)
.SelStart = Posicion + 1
End With
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Posicion = TextBox1.SelStart
End Sub
[/PHP]

Con esto evitamos que al introducir texto entre varios caracteres nos mueva el cursor a la última posición.

Archivado

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

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      186
    • Comentarios
      96
    • Revisiones
      28

    Más información sobre "Agenda Calendario Lunar 2025"
    Última descarga
    Por pegones1

    1    0

  • Crear macros Excel

  • Mensajes

    • hola, a todos ! analiza el adjunto, es una copia de tu muestra (sorry, le depure algunos abusos) (datos ocultos, referencia a celdas 'alla donde se devuelve el aire', celdas combinadas [no sabes en la que te metes], etc.) ya lo repondras si son imprescindibles ? al final de cuentas, lo que te interesa es una UDF funcionando en la columna "N" lo importante son los codigos (en el modulo de 'la hoja' y el modulo general con la/s UDF's) condicion color (ayudaExcel).xlsb
    • Hola JSDJSD: Muchas gracias, ha quedado perfercto, dare una revisada a cada proceso. Quedo excelente.   Saludos Cordiales Mariano      
    • Israel / njnsp lo que yo necesito es  tener una formula que me indique estas son las celdas vacías con cualquier tipo de texto, en la primera formula que me enviaste Israel funciona siempre y cuando se pinte manualmente las celdas pero si las celda tiene formato condicional y se colorean la formula lo toma como toda esas celdas vacia. yo no quiere que considere eso como vacia ya que tiene un color por el formato condicional.
    • Cambia el código de tu botón Registrar por este modificado Private Sub CommandButton1_Click() ' Declaramos variables Dim DescripSelec As Variant Dim Codigos As Variant Dim strcodig2 As String Dim intCantidad As Double Dim doublePUnitario As Double Dim intTotal As Double Dim Codigo As Variant ' Capturamos el valor del ComboBox1 Codigo = Me.ComboBox1.Value ' En caso de error On Error Resume Next ' Inicializamos búsqueda de código With Application.WorksheetFunction ' Buscar directamente sin conversión Codigos = .VLookup(Codigo, PRODUCTOS.Range("A:C"), 1, 0) ' Si no se encuentra, mostrar "No encontrado" If IsError(Codigos) Then Codigos = "No encontrado" End If ' Buscar descripción (mismo proceso que el código) DescripSelec = .VLookup(Codigo, PRODUCTOS.Range("A:C"), 2, 0) If IsError(DescripSelec) Then DescripSelec = "No encontrado" End If ' Captura cantidad intCantidad = Me.TextBox1.Value ' Llenamos el ListBox Me.ListBox1.AddItem Codigo ListBox1.List(ListBox1.ListCount - 1, 1) = DescripSelec ListBox1.List(ListBox1.ListCount - 1, 2) = .Text(intCantidad, "#,##0") ' Precio unitario doublePUnitario = Me.TextBox2.Value ListBox1.List(ListBox1.ListCount - 1, 3) = .Text(doublePUnitario, "$#,##0.00;-$#,##0.00") ' Total intTotal = doublePUnitario * intCantidad ListBox1.List(ListBox1.ListCount - 1, 4) = .Text(intTotal, "$#,##0.00;-$#,##0.00") ' Actualización de etiquetas Me.lblProductos = .Text(CInt(Me.lblProductos) + CInt(intCantidad), "#,##0") Me.lblTotal = .Text(CDbl(Me.lblTotal) + CDbl(intTotal), "$#,##0.00;-$#,##0.00") ' Restablecer valores Me.ComboBox1.Value = "" Me.ComboBox1.SetFocus Me.txtConsec = Me.TextBox4.Value Me.TextBox5.Value = Format(CDate(TextBox5.Text), "dd/mm/yyyy") Me.txtFecha = Me.TextBox5.Value End With End Sub  
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.