MOSTRAR RESULTADO DE LA HOJA EN EL FORMULARIO

[SALAVERRINO]

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

[Haplox]

@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

 

[SALAVERRINO]

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.

[SALAVERRINO]

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.