Cambios en tiempo real en textbox o Label

[JIPM]

Buenos días a todos los miembros del Foro.
Hoy vengo con una duda y me gustaría que puedieran ayudarme.
Estoy haciendo algunos cálculos en diferentes TextBox, pero quiero que en un TextBox o Label específico se vaya mostrando una medida que yo vaya introduciendo los valores el resultado de esa operación matemática (+, -, /, *)
Qué código uso, en qué Evento ...
Por favor...
Gracias y que tengan excelente día.
Saludos
JIPM

 

[JIPM]

Pero no traduzcas la página, porque hace la traducción de CODE a CÓDIGO
[CÓDIGO = vba]

[/CÓDIGO]

Y debe ser así:

Y para qué pones todo tu código?
Solamente pon una muestra de ejemplo.

[CÓDIGO = vba]
Sub Promediar()
Dim i As Long, N As Long
Dim ntotal As Double
For i = 1 To 12
With Me.Controls("Mes" & i)
If IsNumeric(.Value) Then
N = N + 1
ntotal = ntotal + CDbl(.Value)
End If
End With
Next
TxtPromedioMes = Format(ntotal / N, "#,##0.00")
End Sub
Sub PromediarDias()
Dim dtotal As Double
dtotal = TxtPromedioMes / 24
TxtPromedioDia = Format(dtotal, "#,##0.00")
End Sub
Sub TotalDiasPagar()
Dim Contar As Long
Dim Carencia As Long
Dim TotalDP As Double
TotalDP = Contar - Carencia

TotalDPagar = TotalDP

End Sub
Private Sub Neto_Change()
Call NetoCobrar
End Sub
Private Sub TotalDContar_Change()
Call Funciones.Calcular_Dias_Lab
End Sub

Private Sub TotalDPagar_Change()
Call TotalDiasPagar
End Sub
Private Sub TxtPromedioDia_Change()
Call PromediarDias
End Sub
Sub DiasPromedioDias()
Dim dpd As Double
Dim totalp As Long
Dim promediod As Long
dpd = TotalDPagar * TxtPromedioDia

TotalPDias = dpd
End Sub
Sub NetoCobrar()
Dim Neto As Double
Dim aplicar As Long
Dim dpd As Long
Neto = (TotalPDias * CmbAplicar) / 100

Neto = Format(Neto, "#,##0.00")
End Sub

'Esto lo creé en un Módulo*************
Option Explicit
Sub Calcular_Dias_Lab()
Dim uf As Long
With Hoja23
uf = .Range("I" & .Rows.Count).End(xlUp).Row + 1
On Error GoTo Salir
.Range("F11") = Application.WorksheetFunction.NetworkDays_Intl(.Range("H8"), .Range("I8"), 11, .Range("I13:I" & uf))
Exit Sub
Salir:
MsgBox "Debe introducir una Fecha válida"
End With
End Sub

[/ CÓDIGO]

 

[DanteAmor]

No. Revisa otra vez. Estás traduciendo la página.
Debes escribir la palabra "CODE"

Revisa lo siguiente en tu explorador:

Puedes controlar si deseas ver la opción de Chrome para traducir páginas web.

1. En la computadora, abre Chrome.
2. En la esquina superior derecha, haz clic en Más
   
   
   Configuración.
3. En la parte inferior, haz clic en Configuración avanzada.
4. En "Idiomas", haz clic en Idioma.
5. Marca o desmarca la opción "Preguntarme si quiero traducir páginas que no estén en un idioma que puedo leer".

Puedes controlar si deseas ver la opción de Chrome para traducir páginas web a un idioma específico.

1. En la computadora, abre Chrome.
2. En la esquina superior derecha, haz clic en Más
   
   
   Configuración.
3. En la parte inferior, haz clic en Configuración avanzada.
4. En "Idiomas", haz clic en Idioma.
5. Junto al idioma que quieras usar, haz clic en Más
   
   .
   • Si el idioma no está en la lista, haz clic en Agregar idiomas.
6. Activa o desactiva Ofrecer la traducción de páginas en este idioma.