Dar formato al texto que modificamos con botón Aceptar
Dante Amor
Necesitaría que cuando ponemos en el textbox, en "Dato Nuevo" un valor, al margen de cómo lo escribamos... Ya sea en mayúsculas o minúsculas o como sea, al apretar "Aceptar" se convirtiera al siguiente formato: Cada palabra con la primera letra en mayúsculas tipo: "El Corredor De Fondo".
El botón "Aceptar" ya lo tenemos creado, sería añadir al código que ya tiene, esto que te comento del formato para que cuando aceptemos se actualice con ese formato en el listbox y sobre todo en la hoja "Titulos".
1 respuesta
Respuesta de Dante Amor
1
Este es el código para cambiar el formato, por ejemplo:"El Corredor De Fondo"
'
Private Sub CommandButton2_Click()
'Por.Dante Amor
'Aceptar, pasar el cambio del textbox al listbox
Set h = Sheets("FILTRO")
fila = ListBox1.ListIndex + 2
col = ComboBox2.ListIndex + 3
If IsNumeric(TextBox2) And TextBox2 <> "" Then dato = Val(TextBox2) Else dato = Application.Proper(TextBox2)
'
h.Cells(fila, col) = dato
ucol = h.Cells(1, Columns.Count).End(xlToLeft).Column + 1
h.Cells(fila, ucol) = "x"
'
cambio = True
ComboBox2 = ""
TextBox2 = ""
ComboBox2.SetFocus
End Sub'
S a l u d o s . D a n t e A m o r.
