¿como le hago?

YA LO RESOLVI, de todas formas se reciben sus comentarios.

"vm_tapia" wrote:

Tengo un UserForm con un TextBox1 y un Label1, con las siguientes
caracteristicas:

1.- la capacidad maxima de caracteres del TextBox1 es: 100
2.- en el Label1 tengo el siguiente Caption: "le restan 100 caracteres"

Lo que deseo es que al momento de estar tecleando cualquier dato en el
TextBox1 en el Label1 cambie a "le restan 99 caracteres", "le restan 98
caracteres", etc.

Gracias de antemano por su ayuda.

Seria muy bueno que compartas tu solucion con todos. Gracias

Abraham

hola, vm_tapia !

en tanto comentas como lo resolviste... una opcion pudiera ser [y por si le cambias el maximo de caracteres]...
en el modulo de codigo del formulario ==Private Sub TextBox1_Change()
Label1.Caption = "Le restan " & TextBox1.MaxLength - Len(TextBox1) & " caracteres..."
End Sub

saludos,
hector.

YA LO RESOLVI, de todas formas se reciben sus comentarios.

Tengo un UserForm con un TextBox1 y un Label1, con las siguientes caracteristicas:
1.- la capacidad maxima de caracteres del TextBox1 es: 100
2.- en el Label1 tengo el siguiente Caption: "le restan 100 caracteres"
Lo que deseo es que al momento de estar tecleando cualquier dato en el TextBox1 en el Label1
cambie a "le restan 99 caracteres", "le restan 98 caracteres", etc.

este es el codigo:
=Private Sub Concepto_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) = 0
Then
MsgBox "a) No puede exceder la capacidad de caracteres a capturar. "
& Chr(13) & Chr(13) & _
" b) Modifique el "" Formato "" del Concepto que desea introducir. "
& Chr(13) & Chr(13) & _
" c) Puede usar abreviaturas y en el caso de las letras mayusculas,
uselas lo menos posible. " & Chr(13) & Chr(13) & _
" Gracias.", vbInformation + vbOKOnly, "TICSA - Aviso Importante"
ElseIf AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text)
- 1 <= 229 And AltaFacturas.Concepto.MaxLength -
Len(AltaFacturas.Concepto.Text) - 1 >= 100 Then
AltaFacturas.Caracteres.ForeColor = &H8000&
AltaFacturas.Caracteres.Caption = "Le restan " &
AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 & "
Caracteres."
ElseIf AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text)
- 1 <= 99 And AltaFacturas.Concepto.MaxLength -
Len(AltaFacturas.Concepto.Text) - 1 >= 30 Then
AltaFacturas.Caracteres.ForeColor = &HFFFF&
AltaFacturas.Caracteres.Caption = "Le restan " &
AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 & "
Caracteres."
ElseIf AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text)
- 1 <= 29 And AltaFacturas.Concepto.MaxLength -
Len(AltaFacturas.Concepto.Text) - 1 >= 0 Then
AltaFacturas.Caracteres.ForeColor = &HFF&
AltaFacturas.Caracteres.Caption = "Le restan " &
AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 & "
Caracteres."
End If
End Sub
==

hola, vm_tapia !

podrias usar unas variables iniciales y 'aligerar' un poco las lineas e instrucciones del codigo que estas usando
[y de pasadita, creo que sera un poco mas legible/entendible/modificable/...] :))

prueba con algo +/- como lo siguiente [y si cualquier duda... comentas ?]
saludos,
hector.

Private Sub Concepto_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Limite As Integer, Restan As Integer, ColorTexto As Long, Faltan As String
Limite = Concepto.MaxLength
Restan = Limite - Len(Concepto)
Select Case Restan
Case 0: MsgBox _
"a) No puede exceder la capacidad de caracteres a capturar." & vbCr & _
"b) Modifique el "" Formato "" del Concepto que desea introducir." & vbCr & _
"c) Puede usar abreviaturas y en el caso de letras mayusculas, use las menos posibles." & vbCr & vbCr & _
"Gracias.", vbInformation, "TICSA - Aviso Importante"
ColorTexto = 0
Case Is < 30: ColorTexto = &HFF&
Case Is < 100: ColorTexto = &HFFFF&
Case Is < Limite: ColorTexto = &H8000&
End Select
If ColorTexto = 0 Then Exit Sub
Caracteres.Caption = "Le restan " & Restan & " Caracteres."
Caracteres.ForeColor = ColorTexto
End Sub

___ el codigo expuesto __

este es el codigo:
=> Private Sub Concepto_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) = 0 Then
MsgBox "a) No puede exceder la capacidad de caracteres a capturar. " & Chr(13) & Chr(13) & _
" b) Modifique el "" Formato "" del Concepto que desea introducir. " & Chr(13) & Chr(13) & _
" c) Puede usar abreviaturas y en el caso de las letras mayusculas, uselas lo menos posible. " & Chr(13) & Chr(13) & _
" Gracias.", vbInformation + vbOKOnly, "TICSA - Aviso Importante"
ElseIf AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 <= 229 And AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 >= 100 Then
AltaFacturas.Caracteres.ForeColor = &H8000&
AltaFacturas.Caracteres.Caption = "Le restan " & AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 & " Caracteres."
ElseIf AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 <= 99 And AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 >= 30 Then
AltaFacturas.Caracteres.ForeColor = &HFFFF&
AltaFacturas.Caracteres.Caption = "Le restan " & AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 & " Caracteres."
ElseIf AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 <= 29 And AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 >= 0 Then
AltaFacturas.Caracteres.ForeColor = &HFF&
AltaFacturas.Caracteres.Caption = "Le restan " & AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 & " Caracteres."
End If
End Sub
==