Mostrar valor en Label de Formulario
Private Sub UserForm_Activate()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
For i = 0 To h1.[B15] * 100 'Step 2
h1.[B16] = i / 100
Me.Label1.Caption = h1.[B16] * 100
Label1.Caption = FormatNumber(Label1.Caption, -1)
selec
Next
h1.[B16] = h1.[B15]
selec
Application.ScreenUpdating = True
End SubDAM, en ésta oportunidad necesito en una etiqueta de Label, se vaya mostrando automáticamente el valor de la Celda "B16", con las dos líneas que le adicioné lo hace; pero omite mostrar los decimales reales.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
No te muestra decimales porque el contador del ciclo va de uno en uno, son únicamente enteros, empieza en 1, y pasa al 2 y luego al 3, y así hasta el entero que tengas en la celda B15
A lo mejor sólo te falta poner el último valor:
Private Sub UserForm_Activate()
'Por.Dante Amor
'Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
For i = 0 To h1.[B15] * 100 'Step 2
h1.[B16] = i / 100
Me.Label1.Caption = h1.[B16] * 100
Label1.Caption = FormatNumber(Label1.Caption, -1)
selec
Next
h1.[B16] = h1.[B15]
selec
Me.Label1.Caption = h1.[B16] * 100
Label1.Caption = FormatNumber(Label1.Caption, -1)
Application.ScreenUpdating = True
End SubS a l u d o s
