Saltar al contenido

MOSTRAR RESULTADO DE LA HOJA EN EL FORMULARIO


Recommended Posts

publicado

Buenas tardes a los integrantes de este foro, en esta ocasión recurro a Uds, para que me brinden su ayuda en como se puede mostrar el resultado de la pestaña PLANILLA los valores que están en la celdas I3 y J3, para lo cual describo su procedimiento:

*Al presionar el botón MENU nos envía al formulario Cálculos de las Jornadas (Userform9) y tras presionar realiza los cálculos que contiene la pestaña PLANILLA y genera los resultados que se encuentran en la celda I3 y J3 y hasta el momento he podido lograr que el resultado se muestre digitando el valor cero (0) en cada TextBox para visualizar el resultado o saliendo del formulario y volviendo a ejecutarlo para obtener la visualización del resultado (Userform9)  y lo que quisiera es que dichos valores se muestren automáticamente tras terminar el procedimiento y mostrar el mensaje SE ACTUALIZO CÁLCULOS en los TextBox1 y TextBox2 o presionar doble click.

'*************************************************************************************
'*************************************************************************************
'AQUI SE DISPLAYA LOS TEXTBOX PARA QUE MUESTE EL RESULTADO DE LA PESTAÑA PLANILLA
Private Sub TextBox1_Change()
On Error Resume Next
Application.ScreenUpdating = False
    UserForm9.TextBox1.Text = Format(Sheets("PLANILLA").Range("I3").Value, "#,###,###0.00")
Application.ScreenUpdating = True
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
Application.ScreenUpdating = False
    UserForm9.TextBox2.Text = Format(Sheets("PLANILLA").Range("J3").Value, "#,###,###0.00")
Application.ScreenUpdating = True
End Sub
Private Sub TextBox1_2()
Application.ScreenUpdating = False
TextBox1.Text = ""
TextBox2.Text = ""
DoEvents
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Initialize()
    UserForm9.TextBox1.Text = Format(Sheets("PLANILLA").Range("I3").Value, "#,###,###0.00")
    UserForm9.TextBox2.Text = Format(Sheets("PLANILLA").Range("J3").Value, "#,###,###0.00")
End Sub

Desde ya agradezco la atención que le brinde, adjunto link:

https://drive.google.com/file/d/1JRo1j0XdamuKZb8TTUJP5T6r5OLT5fq-/view?usp=sharing

NOTA: El archivo para ejecutar es SISTEMA DE CALCULOS PLANILLAJE ILO.xlsm

publicado

@SALAVERRINO , si no he entendido mal, es tan sencillo como poner estas 2 líneas en tu macro "ACTUALIZA_SORT_TRAB":
 

If Not bBien Then
MsgBox "NO SE HA PODIDO ACTUALIZAR LA BASE DE DATOS, INTÉNTALO MÁS TARDE."
End If
'Sheets("PLANILLA").Activate
UserForm9.TextBox1 = Sheets("PLANILLA").[i3] '<-- AQUÍ'
UserForm9.TextBox2 = Sheets("PLANILLA").[j3]'<-- AQUÍ'

MsgBox "SE ACTUALIZO CÁLCULOS."
Sheets("MENU").Activate
Range("B8").Select
Exit Sub

 

publicado

Buenos días @Haplox agradezco el apoyo brindado en cuanto a la instrucción que brindas, el cual se soluciona la visualización del resultado que esta requiriendo para este formulario. 

Excelente aporte y que sigan los éxitos amigo.

Saludos.

publicado
En 15/8/2020 at 8:34 , SALAVERRINO dijo:

Buenos días @Haplox agradezco el apoyo brindado en cuanto a la instrucción que brindas, el cual se soluciona la visualización del resultado que esta requiriendo para este formulario. 

Excelente aporte y que sigan los éxitos amigo.

Saludos.

Por lo que daría como TEMA SOLUCIONADO.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.