Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Ejecutar Formulario y ocultar Libro

publicado

Buen Día, 

Alguien me puede ayudar, tengo el siguiente codigo:

Private Sub Workbook_Open()
Workbooks("CorreoControlgas - Copy.xlsm").Application.Visible = False
MIFORMULARIO.Show

End Sub

 

Y lo que quiero es que al abrirlo , oculte el libro y solo me ejecute el formulario y ya lo logre, el detalle es que cuando tengo otros libros abiertos me los oculta.

 

 

Featured Replies

publicado

@albertho_hdz@hotmail.com

Estas usando la función para toda la aplicación

Debes utilizar esta instrucción, que solo activa el libro que tu le digas:

Application.Windows("libro1").Visible = False

publicado
  • Autor

@Haplox Que tal Buen Día Amigo, muchas gracias por tu amable respuesta , te comento que no me funciono.

 

te comparto el ejemplo y es que me marca error en mi lista.

-carpeta:ejemplo ejecutando la instrucción indicada

-ejemplo sin ejecutar la instrucción.

 

Muchas gracias por el apoyo , no esperaba recibir respuesta tan pronto,

Saludos!

 

 

ejemplo.zip

Capture.PNG

publicado
Private Sub UserForm_Activate()
Application.Windows("CorreoControlgas - Copy.xlsm").Visible = True
TEXTO.SetFocus
Me.LISTA.RowSource = "PRODUCTOS2"
Me.LISTA.ColumnCount = 4
Application.Windows("CorreoControlgas - Copy.xlsm").Visible = False

End Sub

Hola, en el userform MIFORMULARIO, al inicio coloca en true y al final en false.

Saludos,

publicado
Hace 12 horas, albertho_hdz@hotmail.com dijo:

Y lo que quiero es que al abrirlo , oculte el libro y solo me ejecute el formulario y ya lo logre, el detalle es que cuando tengo otros libros abiertos me los oculta.

Es que no comentastes nada de formularios y demás ;)

publicado
  • Autor

@rolano Muchas gracias , pero nuevamente me marca un error en el evento Texto_change, al agregarlo desde 

UserForm_Activate()

Al parecer no encuentra la hoja...para la busqueda inteligente.

 

@Haplox Una disculpa, por no especificar todo el proceso del Formulario,

Y una vez mas agradezco de su tiempo, no soy tan bueno y lo que les muestro lo fui recopilando de diferentes fuentes.

 

Gracias!

image.png

publicado
Hace 13 horas, albertho_hdz@hotmail.com dijo:

alguien tuvo la oportunidad de revisar este tema?

Lo estoy revisando ahora ;). Solo tienes que aplicar la misma solución en esa parte del código que la que te puso @rolano
 

Private Sub TEXTO_Change()
Application.ScreenUpdating = False '<-----¡¡¡¡¡¡¡IMPORTANTE!!!!!!!'

Application.Windows("CorreoControlgas - Copy.xlsm").Visible = True

NumeroDatos = Sheets("Correos").Range("A" & Rows.Count).End(xlUp).Row

Sheets("Correos").AutoFilterMode = False
Me.LISTA = Clear
Me.LISTA.RowSource = Clear
y = 0
For Fila = 2 To NumeroDatos
descrip = Sheets("Correos").Cells(Fila, 1).Value
If UCase(descrip) Like "*" & UCase(Me.TEXTO.Value) & "*" Then
Me.LISTA.AddItem
Me.LISTA.List(y, 0) = Sheets("Correos").Cells(Fila, 1).Value
Me.LISTA.List(y, 1) = Sheets("Correos").Cells(Fila, 2).Value
Me.LISTA.List(y, 2) = Sheets("Correos").Cells(Fila, 3).Value
Me.LISTA.List(y, 3) = Sheets("Correos").Cells(Fila, 4).Value

y = y + 1


Me.TextBox4 = Sheets("Correos").Cells(Fila, 1).Value
Me.TextBox6 = Sheets("Correos").Cells(Fila, 2).Value
Me.TextBox7 = Sheets("Correos").Cells(Fila, 3).Value


Me.TextBox8 = Sheets("Correos").Cells(Fila, 4).Value

End If


Next

Application.Windows("CorreoControlgas - Copy.xlsm").Visible = False

End Sub

 

  • 2 weeks later...

Archivado

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

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.