Jump to content
SALAVERRINO

MOSTRAR RESULTADO DE LA HOJA EN EL FORMULARIO

Recommended Posts

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

Link to post
Share on other sites

@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

 

Link to post
Share on other sites
Posted (edited)
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.

Edited by SALAVERRINO
Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy