Joaom Manuel

Aquí te dejo la pregunta y tema sobre el modulo. Eso no era para que hicieras nada, solamente para que vieras el tipo de macro para las numeros/letras pero, ya que está la aprovecho claro Gracias. Contesta algo

Se trata de una macro para convertir de números a Letras que tengo acá y que esta parte de la macro, If Mayusculas = 1 Then TFNumero = UCase(TFNumero) 'MAYUSCULA Else TFNumero = LCase(TFNumero) 'minúscula Else TFNumero = ¿Aquí que?(TFNumero) 'AQUI LA...

No quisiera otro tipo de macro, ¿Por qué? Se trata de una macro de Numeros/Letras. En esta parte If Mayusculas = 1 Then TFNumero = UCase(TFNumero) 'MAYUSCULA Else TFNumero = LCase(TFNumero) 'minúscula Else TFNumero = ¿Aquí que?(TFNumero) 'AQUI LA 1ª...

Aquí el tema DAM, Private Sub ComboBox2_Change() 'Act.Por.Dante Amor caj = Array("Textbox2", "Textbox3", "Textbox4") 'AL ARRAY QUIERO AGREGARLE UN FRAME2 solo ENABLED TAMBIEN OptionButton1 = False OptionButton2 = False If ComboBox2 = "PERSONA...

Veo que estas también con Software y Aplicaciones Se me presento problema que fui para leer un PDF y el Lector de W8 no abre. Dice el mensaje "No se puede abrir esta aplicación" donde me da la opción para ir a la tienda pero cuando le doy a ir a la...

Te envío el libro del ejemplo para que me prestes una de tus manos por brevísimo momento. He tratado por ejemplos tuyos en hacerlo, 1ª parte me funciona pero la 2ª parte que quiero, no doy con pie en bola La macro Private Sub ComboBox2_Change() Dim i...

La propiedade MaxLength = 9 no me funciona Agradezco tu mágica mano Conseguí una macro que te la dejo en el código del evento Private Sub ComboBox2_Change() y con la tuya activada Te envío el libro

'controlamos que para dni, nif y cif la longitud de caracteres sea de 9 posiciones If ComboBox2 = "NIF" And "NIE" AND "NIC" Then ''si en combobox2 dice nif o nie o nic entonces textbox5 max caracteres 9, TextBox5.MaxLength = 9 Else ' SI NO...

Tengo este código Private Sub TextBox15_Change() 'minusculas ALTA_CLIENTE.TextBox15.Text = LCase(ALTA_CLIENTE.TextBox15.Text) '---------------------------- ''''''''''' Me.TextBox1.MaxLength = 40 Me.Label20 = 10 - VBA.Len(Me.TextBox15) If...

¿Se puede componer algo que no sea individual cada control? Corto para la funcionalidad de los controles. Te envío el evento vía mail un modulo. Vas donde están todos controles Al no poderse hacer para todos por lo menos para la mayoría de controles...