Jump to content

Como sumar TextBox y resultado en Label.


pinoji
Go to solution Solved by AlexanderS,

Recommended Posts

Buenas Tardes Foristas.

Una vez más acá.

tengo una pequeña duda y me gustaría que ustedes me ayuden .

Quiero sumar dos o más TextBox y que el resultado me lo ponga en un Label en tiempo real. Necesito el código.

Una amistad me dio este, y aunque no me pareció lo implementé y no suma.

Private Sub LblImporte_Change ()
    LblImporte.Caption = Val(TxtCantidad.valuie) * Val(TxtPrecio.Value)
    
End Sub

Gracias de antemano.

Tengan un feliz resto del día.

Pino

Link to comment
Share on other sites

Hola Alexander, buenas noches.

Disculpe, pero no entendí correctamente su explicación.  Serías tan amable de detallarme el proceso. 

Yo sé muy poco de VBA, o sea, estoy aprendiendo poco a poco y algunas cosas las asimilo más fácil, pero esto de los Evento y Bucles me traen de cabeza, no acabo de ponerme de acuerdo con ellos, "nos llevamos mal".

Gracias por su prontitud. Yo lo sigo a usted y sé de sus enormes conocimientos. Saludame a JSD, Antoni, y Gabriel Raigosa. A los demás un abrazo.

Saludos.

Pino

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • Buenos días,   Tengo una tabla en una hoja y estoy intentando saber cual es la ultima celda vacia por la derecha de cada fila. Puede haber filas que estén completas (con datos en todas sus columnas o no) Estoy utilizando este código que supuestamente me da el numero de columna que no está vacia, pero parece comportarse erroneamente, ya que siempre me lee la ultima celda de la fila aunque esté vacia. Creo que puede ser por la propia definicion de tabla en excel?   UltCol = Datos.Cells(3, Datos.Columns.Count).End(xlToLeft).Column   Siempre me da la posicion 33 que es la columna AG. Alguna idea ?     Gracias
    • el error es que copiaste el codigo dentro del boton , borra la 1º linea  : private sub . . . . para que coja la ruta del directorio actual , cambia .. Ruta = "C:\Excel\" por : Ruta = ActiveWorkbook.Path & "\"
    • Buenas Tardes amigos, aca saludos desde Chile, quisiera vuestra ayuda , tengo este Excel el cual ocupamos cada  5 dias para enviar email masivos, enviamos aprox. 10.000 email, el tema es que cada email no tengo idea el porque, pero pesa entre 500 kg a 1 mega Aprox. y esto demora mucho, no se si se podrá hacer algo, y lo otro,  para cada mensaje debe ser personalizado si es hombre y mujer, habrá alguna forma de dejarlo unido si determina si es mujer u hombre?   le dejo el macros en caso me puedas ayudar para optimizar el macros que tengo por favor.   Se activa el macros, este copia el mensaje que esta en la hoja Datos  y lo pega en un correo nuevo en el Outlook , fue la unica opcion que pude lograr, no se si habra otra forma.     Sub ENVIARCORREONUEVO1211() Application.ScreenUpdating = False ThisWorkbook.Sheets("RS1").Select ActiveSheet.Range("B1:B26").Select x = ThisWorkbook.Sheets("Datos").Range("E5").Value For i = 1 To x ThisWorkbook.Sheets("Datos").Range("E6").Value = i ActiveWorkbook.EnvelopeVisible = True Application.ScreenUpdating = False With ActiveSheet.MailEnvelope    .Item.To = ThisWorkbook.Sheets("Datos").Range("E2").Value    ''.Item.cc = Con Copia a....''    .Item.Subject = ThisWorkbook.Sheets("Datos").Range("E3").Value    ' .Introduction = ThisWorkbook.Sheets("Datos").Range("E4").Value '        .Item.Send End With Next i Application.ScreenUpdating = True End Sub  
    • Hola,   No me funciona.   Sale este error.   Seria posible tambien no tener que editar la ruta cada vez y que coja la ruta donde esta el xlsm?   Muchas gracias
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy