Jump to content

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
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
  • Crear macros Excel

  • Posts

    • Hola Fpayno: Ya tengo la solución a mi cuestión, otro usuario ha desarrollado su propuesta mediante el empleo de rango dinámico y funciona a la perfección en varios supuestos rápidos que he probado. Aún tengo que implementar esto en mi hoja (que es enorrrme!) pero tengo claro como aplicar el concepto. Subo el fichero de mi ejemplo con la solución, para compartir con la comunidad. Saludos! RGM (solucion).xlsx
    • Hola a tod@s, Tengo una tabla dinámica. Hay una hoja llamada "iva" con el total de IVA soportado y el total de IVA repercutido. En este último, tengo digamos dos "sub-totales" Lo que pretendo es crear una medida que RESTE al total de las dos cuotas de IVA repercutido, le reste el total de la cuota de IVA soportado. Lo he intentado con la función CALCULATE, SUM y SUMX pero no logro dar con "la tecla". ¿alguien me podría orientar? ... el resultado que tendría que dar como correcto está indicado en la celda G34 pero como digo, no calcularlo manualmente sino creando una MEDIDA. Gracias por vuestras aportaciones. DIFERENCIAcuota.xlsx
    • Hola! Soy nueva en este foro, así que espero estar haciendo esto bien...Me surge una duda al programar una lista para elegir varios valores. Tengo la lista, la elección de valores y todo parece ok, pero me surge el problema al querer mover el rango a uno en concreto y no dejarlo en la primera columna... Quisiera que mi rango estuviera definido por ejemplo entre D7:D20 y si puedo hacerlo en otra pestaña, mejor, alguien me puede ayudar? He puesto esto:  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column <> 3 Or Target.Row = 2 Then     Exit Sub Else     Form1 End If Cancel = True End Sub
    • Hola, Lo he mirado solo por encima porque voy mal de tiempo, pero creo que el problema esta en tu tabla dinámica, que no esta actualizando bien; en los campos K3:N3 si funcionan al por ejemplo filtrar la la oficina 265, pero los datos de la tabla son erróneos (o eso me parece  a mi) y si intento actualizar la tabla , me da un error (por cambio de nombre de archivo??!!). Esta tarde con mas tiempo lo mirare mas detenidamente. Actualización: Si, definitivamente es eso, actualiza el rango de calculo de la tabla dinámica y funcionara bien.
    • alguien que me pueda orientar en esta consulta ???? gracia
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy