Cual es el código para que un textvox se multiplique por una cantidad espexifica y el resultado quede en el mismo texbox

[Hola. Dame tu correo y te envío un archivo

Mejor prueba a ver si es lo que quieres

Coloca en tu hoja un botón activex y un textbox y coloca los códigos

'Esta parte la colocar dentro de un botón en la hoja
Private Sub CommandButton1_Click() 
Dim Mensaje, Titulo, MiValor
Mensaje = "Valor a multiplicar?"
Titulo = "InputBox Demo"
MiValor = InputBox(Message, Titulo)
TextBox1.Text = Val(TextBox1.Text) + MiValor
End Sub
'Esta otra en un textbox
Private Sub TextBox1_Change()
On Error Resume Next
TextBox1.Text = Format(Val(TextBox1.Text), "#,###0.000")
End Sub

Salu2 Carlos Arrocha

[email protected]

La de la parte de abajo si me sirvió pero en otro textbox quiero que multiplique por 500

te agredexeria mucho carlos arrocha

Como también la han colgado en Access, en él te contesto

Si tienes un formulario con dos cuadros de texto, donde en Campo A pone esa cantidad que dices

Si en texto 12 escribo una cantidad y pulso Enter

Si pongo otra cantidad

El código del evento Después de actualizar del cuadro de texto Texto 12 es

Private Sub Texto12_AfterUpdate()
CampoA = CampoA * Texto12
End Sub

¡Gracias! Pero el concepto es u arqueo de denominación de billetes que al momento de meter la cantidad de billetes según su nominacion arroje el resultado por ejemplo billetes de $500.00 le pongo 2 y me arroje 1000 en el texboxt la cantidad de nomonacion esta en label 1 label .1 texbox

Puedes hacer un formulario

Las etiquetas se llaman respectivamente etiqueta1, etiqueta3, ... y los cuadros de texto Texto0, texto, 2,...

Si voy poniendo cifras

Al pulsar Enter

Al pulsar Enter

En el evento Después de actualizar del cada cuadro de texto le pongo

Private Sub Texto0_AfterUpdate()
Texto0 = Texto0 * CInt([Etiqueta1].Caption)
End Sub
Private Sub Texto2_AfterUpdate()
Texto2 = Texto2 * CInt([Etiqueta3].Caption)
End Sub
Private Sub Texto4_AfterUpdate()
Texto4 = Texto4 * CInt([Etiqueta5].Caption)
End Sub
Private Sub Texto6_AfterUpdate()
Texto6 = Texto6 * CInt([Etiqueta7].Caption)
End Sub

Y en el cuadro de texto de abajo

¡Gracias! mucbas gracias excelente exactamente lo que buscaba de antena gracias saludos icue gonzales

Amigo toquedo bien pero al ultimo texto donde quiero que llegue la información no se ejecuta texto 13 nz=texto1 +nz texto2 claro incluyendo los paréntesis y corxhetes y no pasa nada